# NOT RUN {
## load SIRUS
require(sirus)
## prepare data
data <- iris
y <- rep(0, nrow(data))
y[data$Species == 'setosa'] = 1
data$Species <- NULL
## run cv
cv.grid <- sirus.cv(data, y, nfold = 3, ncv = 2, num.trees = 100)
## plot cv result
plot.error <- sirus.plot.cv(cv.grid)$error
plot(plot.error)
# }
Run the code above in your browser using DataLab