# NOT RUN {
# the definition of the full model with three potential predictors:
FULL <- outcome ~ ns(day, df = 4) + gender + type + SOFA
# here we define time as a spline with 3 knots
priors <- model_priors(fullModel = FULL, discreteSurv = TRUE,
modelPrior = 'dependent')
# }
Run the code above in your browser using DataLab