在R中用SVM做分类，怎样在结果中提取超平面的方程？

题主选用著名的iris数据，iris的类别有三种，为了更好的说明问题，题主剔除了virginica 这种类别，只选择另外两种，而且为了能画出图来，我只选择了两个变量。

1. iris_chp4 <- subset(iris,Species!="virginica",select=c(Petal.Width,Sepal.Width,Species))
   
2. library(e1071)
   
3. svmfit <- svm(Species~., data = iris_chp4,kernel ="linear",scale = FALSE,cost=0.1)
   
4. summary(svmfit)
   
5. plot(svmfit,iris_chp4)

复制代码

上面的核函数选择了linear，plot出来后是这样，看起来有一个线性的分割线，我想提取这条线的方程，请问应该怎么做？

您好，请问您解决了这个问题吗，能告知一下不

公式总出错就附上了图片
w=t(svm.model$coefs)%*%svm.model$SV
b = -svm.model$rho
abline(a = -b/w[1,2],b=-w[1,1]/w[1,2])


参考博客：http://blog.csdn.net/dingming001/article/details/72874425