# NOT RUN {
# }
# NOT RUN {
library(StratifiedMedicine)
# Survival Data #
require(TH.data); require(coin)
data("GBSG2", package = "TH.data")
surv.dat = GBSG2
# Design Matrices #
Y = with(surv.dat, Surv(time, cens))
X = surv.dat[,!(colnames(surv.dat) %in% c("time", "cens")) ]
A = rbinom( n = dim(X)[1], size=1, prob=0.5 ) ## simulate null treatment
res_weibull = submod_weibull(Y, A, X, Xtest=X, family="survival")
out = predict(res_weibull)
plot(res_weibull$mod)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab