data(satsolvers)
trainTest = cvFolds(satsolvers)
library(RWeka)
res = classify(classifier=J48, data=trainTest)
# the total number of successes
sum(successes(trainTest, res))
# predictions on the entire data set
res$predictor(subset(satsolvers$data, TRUE, satsolvers$features))
library(e1071)
res = classify(classifier=svm, data=trainTest)
# ensemble classification
rese = classify(classifier=list(J48, IBk, svm), data=trainTest)
# ensemble classification with a classifier to combine predictions
rese = classify(classifier=list(J48, IBk, svm, .combine=J48), data=trainTest)Run the code above in your browser using DataLab