数据挖掘---SVM支持向量机

使用e1071包中的svm函数

1.构建训练集和检验集

data(iris)
ind <- sample(2,nrow(iris),replace=T,prob=c(0.7,0.3)) 
trainSet <- iris[ind==1,]
testSet <- iris[ind==2,]

2.svm函数的使用

svm(formula, data= NULL, 
		na.action = na.omit, #处理缺失值
		kernel="linear"/"polynomial"/"radial basis"/"sigmoid") #默认的是径向基核函数

library(e1071)
svmclass <- svm(Species~.,trainSet, 
					na.action = na.omit, 
					scale= TRUE) 

cost：惩罚因子

testPre <- predict(svmclass,newdata=testSet)
table(testSet$Species,testPre)