Displaying 1 result from an estimated 1 matches for "tabs4".
Did you mean:
tabs
2013 Jan 08
0
bagging SVM Ensemble
...t4<-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[1,2])/sum(tabs2)
ecrbootmodelrad<-(tabs3[2,1]+tabs3[1,2])/sum(tabs3)
ecrbootmodeltan<-(tabs4[2,1]+tabs4[1,2])/sum(tabs4)
eblin[i,j]<-ecrbootmodellin...