data(simdataCL)
# \donttest{
gam_cl = frailtyMMpen(Surv(time, status) ~ . + cluster(id), simdataCL, frailty = "Gamma")
# Calculate the survival curve based on baseline hazard
predict(gam_cl, surv = TRUE)
# Construct new data and calculate the cumulative hazard based on new data
newcl = c(gam_cl$X[1,], 2)
names(newcl) = c(gam_cl$coefname, "id")
predict(gam_cl, newdata = newcl)
# }
Run the code above in your browser using DataLab