Displaying 1 result from an estimated 1 matches for "tabs1".
Did you mean:
tabs
2013 Jan 08
0
bagging SVM Ensemble
...2<-0
noboot3<-sum(predictions3==0)
yesboot3<-sum(predictions3==1)
voteboot3<-c()
if(yesboot3>noboot3) voteboot3<-1 else voteboot3<-0
noboot4<-sum(predictions4==0)
yesboot4<-sum(predictions4==1)
voteboot4<-c()
if(yesboot4>noboot4) voteboot4<-1 else voteboot4<-0
tabs1 <- table(pred = predictions1,testset$class)
tabs2 <- table(pred = predictions2,testset$class)
tabs3 <- table(pred = predictions3,testset$class)
tabs4 <- table(pred = predictions4,testset$class)
ecrbootmodellin<-(tabs1[2,1]+tabs1[1,2])/sum(tabs1)
ecrbootmodelpoly<-(tabs2[2,1]+tabs2...