Support Vector Classifier 3

Log in om je oplossingen te testen.
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))
Je kunt zo vaak indienen als je wenst. Er wordt enkel rekening gehouden met je laatst ingediende oplossing.
Log in om je oplossingen te testen.