## Not run:
# data(iris)
# pt <- PreTrain(iris[,-5])
#
# ppTry <- seq(0.2, 0.5, by= 0.3/10)
# nIter <- length(ppTry)
# rsq <- numeric(nIter)
# for (i in 1:nIter) {
# rb <- Rborist(pt, iris[,5], predProb=ppTry[i])
# rsq[i] = rb$validiation$rsq
# }
# ## End(Not run)
Run the code above in your browser using DataLab