inst/doc/svmdoc.R

8 data(Glass, package="mlbench")
21 svm.model <- svm(Type ~ ., data = trainset, cost = 100, gamma = 1)
29 rpart.model <- rpart(Type ~ ., data = trainset)
37 table(pred = svm.pred, true = testset[,10])
40 table(pred = rpart.pred, true = testset[,10])
60   svm.model <- svm(Type ~ ., data = trainset, cost = 100, gamma = 1)
62   tab <- classAgreement(table(svm.pred, testset[,10]))
67   rpart.model <- rpart(Type ~ ., data = trainset)
69   tab <- classAgreement(table(rpart.pred, testset[,10]))
74 x <- rbind(summary(sv.acc), summary(sv.kap), summary(rp.acc), summary(rp.kap))
88 data(Ozone, package="mlbench")
97 svm.model <- svm(V4 ~ ., data = trainset, cost = 1000, gamma = 0.0001)
102 rpart.model <- rpart(V4 ~ ., data = trainset)
121   svm.model <- svm(V4 ~ ., data = trainset, cost = 1000, gamma = 0.0001)
126   rpart.model <- rpart(V4 ~ ., data = trainset)
130 xtable(rbind(svm = summary(sv.res), rpart = summary(rp.res)),