R语言svm代码

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

利用R语言 进行SVM练习

set.seed(1)

x=matrix(rnorm(100*2),ncol=2)                   # generate data

y=c(rep(-1,50),rep(1,50))

x[1:50,]=x[1:50,]+1

x[51:100,]=x[51:100,]-0.75

dat=data.frame(x=x,y=as.factor(y))

plot(x,col=y+3)

# radial

tout2=tune(svm,y~., data =dat[train ,], kernel ="radial", ranges =list(cost=c (0.1,1 ,10 ,100 ,1000), gamma =c(0.5 ,1 ,2 ,3 ,4) ))

summary(tout2)

svmfit2=svm(y~., data=dat [train ,], kernel ="radial", gamma =0.5, cost =10)

plot(svmfit2,dat[train,])

table(true=dat[-train,"y"], pred = predict (tout2$best.model,dat[-train ,]) )

# supportvector classifier (linear)

tone3=tune(svm,y~.,data=dat[train,],kernel="linear",ranges=list(cost=c (0.1 ,1 ,10 ,100 ,1000), gamma =c(0.5 ,1 ,2 ,3 ,4) ) )

summary(tone3)

svmfit3=svm(y~., data=dat [train ,], kernel ="linear", gamma =0.5, cost=1,decision.values=TRUE)

plot(svmfit3,dat[train,])

table(true=dat[-train,"y"], pred = predict (tone3$best.model, dat[-train,]) )

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏3 回帖

关键词：R语言 SVM classifier generate Decision

您好，如果您的求助没有解决，请到项目交易发布需求，会有更快更专业的用户帮助您 https://bbs.pinggu.org/prj/