实例:水质评价分类-支持向量机

1、数据划分。

对样本进行抽样,抽取80%作为训练样本,剩下的20%作为测试样本。

2、建模

R语言实现:

traindata = read.csv("trainData.csv")

head(traindata)

输出结果如下:

traindata = transform(traindata,class = as.factor(class)) #将class列转换为factor类型

library(e1071)
svm.model = svm(class~.,traindata[,-2]) #支持向量机分类模型

confusion = table(traindata$class,predict(svm.model,traindata,type="class")) #建立混淆矩阵
confusion

accuracy = sum(diag(confusion))*100/sum(confusion) #计算分类准确率
accuracy

输出结果如下:

  • 1
    点赞
  • 8
    收藏
    觉得还不错? 一键收藏
  • 1
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论 1
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值