# Iris data
data(iris)
x <- subset(iris, select = -Species)
y <- iris$Species
method <- c("randomForest","svm","pcalda","knn")
pars <- valipars(sampling="boot", niter = 3, nreps=5, strat=TRUE)
res <- maccest(Species~., data = iris, method=method, pars = pars,
comp="anova")
## or
res <- maccest(x, y, method=method, pars=pars, comp="anova")
res
summary(res)
plot(res)
boxplot(res)
oldpar <- par(mar = c(5,10,4,2) + 0.1)
plot(res$h.test$tukey,las=1) ## plot the tukey results
par(oldpar)
Run the code above in your browser using DataLab