Update page 'Solutions to the questions concerning R language'

xuanyi.wang
2023-05-22 21:25:29 +02:00
parent c0ff334a7c
commit 0cce1a2e13
+1 -2
@@ -219,8 +219,7 @@ table(OJ.test$Purchase, test.pred)
The radial basis kernel with default gamma creates 367 support vectors, out of which, 184 belong to level `𝙲𝙷` and remaining 183 belong to level `𝙼𝙼`. The classifier has a training error of 14.7% and a test error of 15.6% which is a slight improvement over linear kernel. We now use cross validation to find optimal gamma. The radial basis kernel with default gamma creates 367 support vectors, out of which, 184 belong to level `𝙲𝙷` and remaining 183 belong to level `𝙼𝙼`. The classifier has a training error of 14.7% and a test error of 15.6% which is a slight improvement over linear kernel. We now use cross validation to find optimal gamma.
``` ```
set.seed(755) set.seed(755)
tune.out = tune(svm, Purchase ~ ., data = OJ.train, kernel = "radial", ranges = list(cost = 10^seq(-2, tune.out = tune(svm, Purchase ~ ., data = OJ.train, kernel = "radial", ranges = list(cost = 10^seq(-2, 1, by = 0.25)))
1, by = 0.25)))
summary(tune.out) summary(tune.out)
``` ```
``` ```