# NOT RUN {
## example: iris dataset
## load the forestRK package
library(forestRK)
x.train <- x.organizer(iris[,1:4], encoding = "num")[c(1:25,51:75,101:125),]
y.train <- y.organizer(iris[c(1:25,51:75,101:125),5])$y.new
# random forest
# min.num.obs.end.node.tree is set to 5 by default;
# entropy is set to TRUE by default
# normally nbags and samp.size have to be much larger than 30 and 50
forestRK.1 <- forestRK(x.train, y.train, nbags = 30, samp.size = 50)
# get tree
tree.index.ex <- c(1,3,8)
get.tree <- get.tree.forestRK(forestRK.1, tree.index = tree.index.ex)
get.tree[["8"]] # display the 8th tree of the random forest
# }
Run the code above in your browser using DataLab