if (FALSE) {
myarg = list(cp = 0, maxcompete = 0, maxsurrogate = 0, maxdepth = 2)
Y.names = c("T3" ,"D3")
P.names = 'Z2'
T.names = c("Z1", paste("Z", 3:11, sep = ''))
mybag = 40
set.seed(5000)
data(burn)
resperm0 <- suppressWarnings(permute_select_surv(xdata = burn,
Y.names,
P.names,
T.names,
method = "LR",
Bag = mybag,
args.rpart = myarg,
args.parallel = list(numWorkers = 1),
nperm = 150))
}
Run the code above in your browser using DataLab