# NOT RUN {
# }
# NOT RUN {
data(dataAdditive)
modAdd <- additivePenal(Surv(t1,t2,event)~cluster(group)+var1+slope(var1),
correlation=TRUE,data=dataAdditive,n.knots=8,kappa=862,hazard="Splines")
#-- 'var1' is boolean as a treatment variable
plot(modAdd)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab