R-Studio SVM 类协议怎么做？

Question

我是 R-Studio 的绝对新手，想使用e1071 package 的svm() 。 我浏览了 David Meyer 的论文。

我无法让classAgreement()运行。 在我可以使用classAgreement()之前我需要做什么？ 非常感谢！

library(e1071)
data(Glass, package="mlbench")
index <- 1:nrow(Glass)
testindex <- sample(index, trunc(length(index)/3))
testset <- Glass[testindex,]
trainset <- Glass[-testindex,]
svm.model <- svm(Type ~ ., data = trainset, cost = 100, gamma = 1)
svm.pred <- predict(svm.model, testset[,-10])
table(pred = svm.pred, true = testset[,10])
classAgreement(table)    

Answer 1

运行代码classAgreement(table)会引发以下错误：

Error in sum(tab): invalid 'type' (closure) of argument

这是因为这里的table是 function 因为您没有编写名为table的 object ，我认为您打算在上一行中执行此操作。 因此，您可以执行以下任一操作：

svm.tab <- table(pred = svm.pred, true = testset[,10])
classAgreement(svm.tab)

或仅在一个 go

classAgreement(table(pred = svm.pred, true = testset[,10]))