R:我们如何打印SVM的百分比准确度

这是我的示例R代码:

    train <- read.csv("Train.csv")
    test <- read.csv("Test+.csv")

   x <- model.matrix(age ~ . - 1,data=train)           

    classify=svm(as.factor(age)~ ., data=train,method="class")
    pred = predict(classify,test,type="class")

我怎样才能从中打印百分比准确度?我希望显示所有性能指标,如准确度,精度,召回.etc以供我评估.

最佳答案
以下是一些选项,使用内置的虹膜数据框进行说明:

library(e1071)

m1 <- svm(Species ~ ., data = iris)

使用表函数创建混淆矩阵:

table(predict(m1), iris$Species, dnn=c("Prediction", "Actual"))   

06002

使用插入符包生成混淆矩阵和其他模型诊断(您也可以使用caret for the entire model development, tuning and validation process):

library(caret)

confusionMatrix(iris$Species, predict(m1))

06004

转载注明原文:R:我们如何打印SVM的百分比准确度 - 代码日志