data(satsolvers)
trainTest = cvFolds(satsolvers)
res = regression(regressor=lm, 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(RWeka)
res = regression(regressor=LinearRegression, data=trainTest)
# combine performance predictions using classifier
ress = regression(regressor=LinearRegression, data=trainTest, combine=J48)
# add pairwise differences to performance predictions before running classifier
ress = regression(regressor=LinearRegression, data=trainTest, combine=J48,
expand=function(x) { cbind(x, combn(c(1:ncol(x)), 2,
function(y) { abs(x[,y[1]] - x[,y[2]]) })) })Run the code above in your browser using DataLab