Warning! It seems that you are using Dodona within another webpage, so not everything may work properly. Let your teacher know so that he can solve the problem by adjusting a setting in the learning environment. In the meantime, you can click this link to open Dodona in a new window.
Support Vector Machine 2
Sign in to test your solution.
set.seed(1)
x <- matrix(rnorm(200 * 2), ncol = 2)
x[1:100,] <- x[1:100,] + 2
x[101:150,] <- x[101:150,] - 2
y <- c(rep(1, 150), rep(2, 50))
dat <- data.frame(x = x, y = as.factor(y))
train <- sample(200, 100)
svmfit1 <- svm(y ~ ., data = dat[train,], kernel = "radial", gamma = 1, cost = 0.01)
svmfit2 <- svm(y ~ ., data = dat[train,], kernel = "radial", gamma = 1, cost = 1)
svmfit3 <- svm(y ~ ., data = dat[train,], kernel = "radial", gamma = 1, cost = 1e5)
You can submit as many times as you like. Only your latest submission will be taken into account.
Sign in to test your solution.