if (FALSE) {
data(iris)
pt <- preformat(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
}
}
Run the code above in your browser using DataLab