#load the data set
data(data_pltr)
args.rpart <- list(minbucket = 40, maxdepth = 10, cp = 0)
family <- "binomial"
Y.name <- "Y"
X.names <- "G1"
G.names <- paste("G", 2:15, sep="")
if (FALSE) {
## build a maximal tree
fit_pltr <- pltr.glm(data_pltr, Y.name, X.names, G.names,
args.rpart = args.rpart, family = family, iterMax = 5, iterMin = 3)
## select an test the selected tree by a parametric bootstrap procedure
args.parallel = list(numWorkers = 1, type = "PSOCK")
best_bootstrap <- best.tree.bootstrap(fit_pltr$tree, data_pltr, Y.name, X.names,
G.names, B = 10, BB = 10, args.rpart = args.rpart, epsi = 0.001,
iterMax = 5, iterMin = 3, family = family, LEVEL = 0.05,LB = FALSE,
args.parallel = args.parallel)
}
Run the code above in your browser using DataLab