# \donttest{
fit <- parfm(formula = Surv(time, status) ~ sex + age, cluster = "id",
data = kidney, dist = "exponential", frailty = "gamma")
anova(fit)
fit2 <- parfm(formula = Surv(time, status) ~ sex, cluster = "id",
data = kidney, dist = "exponential", frailty = "gamma")
anova(fit2, fit)
# }
Run the code above in your browser using DataLab