# \donttest{
data(kidney)
kidney$sex <- kidney$sex - 1
models <- select.parfm(Surv(time,status) ~ sex + age,
dist = c("exponential",
"weibull",
"inweibull",
"loglogistic",
"lognormal",
"logskewnormal"),
frailty = c("gamma",
"ingau",
"possta",
"lognormal"),
cluster = "id", data = kidney)
models
plot(models)
# }
Run the code above in your browser using DataLab