# Iris data
data(iris)
x <- subset(iris, select = -Species)
y <- iris$Species
method <- c("randomForest","svm","pcalda","knn")
pars <- valipars(sampling="cv", niter = 10, nreps=4)
res <- maccest(x, y, method=method, pars=pars,
comp="fried",kernel="linear")
res
htest <- mc.fried(res$acc.iter)
Run the code above in your browser using DataLab