# NOT RUN {
iris.sub <- 1:nrow(iris) %in% seq(1, nrow(iris), 5)
# }
# NOT RUN {
## could be slow
iris.bootrf <- BootRF(iris[, -5], iris[, 5], sub=iris.sub)
iris.bootrf <- BootRF(iris[, -5], iris[, 5])
## naturally, in the second case misclassification rate is lower
# }
Run the code above in your browser using DataLab