# NOT RUN {
library(StratifiedMedicine)
# Survival Data #
require(TH.data); require(coin)
# MOB-Weibull Subgroup Model ##
res_weibull = submod_train(Y, A, X, Xtest=X, family="survival",
submod="submod_weibull")
plot(res_weibull$mod)
## Parameter-Estimation ##
params = param_cox(Y, A, X, Subgrps = res_weibull$Subgrps.train, alpha_ovrl=0.05,
alpha_s=0.05)
params
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab