Displaying 1 result from an estimated 1 matches for "prediction4".
Did you mean:
prediction
2013 Jan 08
0
bagging SVM Ensemble
...e = "C-classification", cost = cc,gamma = gg, kernel = "sigmoid")
prediction1<- predict(modelolin,newdata=testset, decision.values=F)
prediction2<- predict(modelopoly,newdata=testset, decision.values=F)
prediction3<- predict(modelorad,newdata=testset, decision.values=F)
prediction4<- predict(modelotan,newdata=testset, decision.values=F)
tab1 <- table(pred = prediction1,testset$class)
tab2 <- table(pred = prediction2,testset$class)
tab3 <- table(pred = prediction3,testset$class)
tab4 <- table(pred = prediction4,testset$class)
ecr1<-(tab1[2,1]+tab1[1,2])/sum(t...