Support Vector Classifier 3

Sign in to test your solution.
set.seed(1) x <- matrix(rnorm(20 * 2), ncol = 2) y <- c(rep(-1, 10), rep(1, 10)) x[y == 1,] <- x[y == 1,] + 1 dat <- data.frame(x = x, y = as.factor(y)) xtest <- matrix(rnorm(20 * 2), ncol = 2) ytest <- sample(c(-1, 1), 20, rep = TRUE) xtest[ytest == 1,] <- xtest[ytest == 1,] + 1 testdat <- data.frame(x = xtest, y = as.factor(ytest))
You can submit as many times as you like. Only your latest submission will be taken into account.
Sign in to test your solution.