library(RWeka)
data(satsolvers)
trainTest = cvFolds(satsolvers)
model = classify(classifier=J48, data=trainTest)
sum(parscores(trainTest, model))
# use factor of 5 instead of 10.
sum(parscores(trainTest, model, 5))
# explicitly specify timeout.
sum(parscores(trainTest, model, timeout = 3600))Run the code above in your browser using DataLab