# NOT RUN {
# Two-level model
data("pbc.merlin", package = "merlin")
fit <- mlrcs(formula = logp ~ 1 + rcs(year, df = 4) + age + trt,
random = ~ 1 + trt | id,
data = pbc.merlin
)
summary(fit)
# Three-level model
fit <- mlrcs(formula = logp ~ 1 + rcs(year, df = 4) + age + trt,
random = list(~ 1 | region,
~ 1 + trt | id),
data = pbc.merlin
)
summary(fit)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab