if (FALSE) {
data(burn)
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
feat_samp = length(T.names)
set.seed(5000)
burn.BagEssai0 <- suppressWarnings(Bagg_Surv(burn,
Y.names,
P.names,
T.names,
method = "LR",
args.rpart = myarg,
args.parallel = list(numWorkers = 1),
Bag = mybag, feat = feat_samp))
burn.BagEssai1 <- suppressWarnings(Bagg_Surv(burn,
Y.names,
P.names,
T.names,
method = "R2",
args.rpart = myarg,
args.parallel = list(numWorkers = 1),
Bag = mybag, feat = feat_samp))
}
Run the code above in your browser using DataLab