小弟的一段R软件数据挖掘程序出现错误，请好心的网友们帮帮忙，多谢了，小弟手中就4分，想全贡献了，不过最少是5分，就不好意思啦!下面是程序及结果
> > library(e1071)
> library(class)
> totalerror=0
> m=3
> error.svm=rep(0,m)
> for(i in 1:m)
+ {
+ train=sample(1:dim(zd)[1],250)
#train=sample(c(1:nrow(crx1)),250)
+ test=setdiff(1:dim(zd)[1],train) #test=crx1[-train]
+ traincrx=zd[train,]
+ testcrx=zd[test,]
+ X= traincrx[,1:8]
+ Y= as.factor(traincrx[,9])
+ crx.svm=svm(X,Y)
+ X1=testcrx[,1:8]
+ Y1=as.factor(testcrx[,9])
+ Errorrate.svm=sum(Y1!=predict(crx.svm,X1))/length(Y1) #计算由SVM方法得到的误判率：
+ totalerror=totalerror+ Errorrate.svm
+ error.svm= Errorrate.svm
+ }
错误于`[.data.frame`(traincrx, , 9) : 选择了未定义的列
> plot(error.svm,type="o",lab=c(3,5,20))
> aveerror.svm=totalerror/3
> aveerror.svm
[1] 0
>
> library(e1071)
> library(class)
> totalerror=0
> m=3
> error.svm=rep(0,m)
> for(i in 1:m)
+ {
+ train=sample(1:dim(zd)[1],250)
#train=sample(c(1:nrow(crx1)),250)
+ test=setdiff(1:dim(zd)[1],train) #test=crx1[-train]
+ traincrx=zd[train,]
+ testcrx=zd[test,]
+ X= traincrx[,1:8]
+ Y= as.factor(traincrx[,9])
+ crx.svm=svm(X,Y)
+ X1=testcrx[,1:8]
+ Y1=as.factor(testcrx[,9])
+ Errorrate.svm=sum(Y1!=predict(crx.svm,X1))/length(Y1) #计算由SVM方法得到的误判率：
+ totalerror=totalerror+ Errorrate.svm
+ error.svm= Errorrate.svm
+ }
错误于`[.data.frame`(traincrx, , 9) : 选择了未定义的列
> plot(error.svm,type="o",lab=c(3,5,20))
> aveerror.svm=totalerror/3
> aveerror.svm
[1] 0
|
