Update page 'Solutions to the questions concerning R language'
@@ -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)
|
||||||
```
|
```
|
||||||
```
|
```
|
||||||
|
|||||||
Reference in New Issue
Block a user