data(satsolvers)
trainTest = cvFolds(satsolvers)
library(RWeka)
res = classifyPairs(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))
# combine predictions using J48 induced classifier instead of majority vote
res = classifyPairs(classifier=J48, data=trainTest, combinator=J48)Run the code above in your browser using DataLab