if (FALSE) {
##load the data set
data(data_pltr)
## set the parameters
args.rpart <- list(minbucket = 40, maxdepth = 10, cp = 0)
family <- "binomial"
Y.name <- "Y"
X.names <- "G1"
G.names <- paste("G", 2:15, sep="")
## 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 permutation test procedure
args.parallel = list(numWorkers = 1, type = "PSOCK")
best_permute <- best.tree.permute(fit_pltr$tree, data_pltr, Y.name, X.names,
G.names, B = 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