# NOT RUN {
# Weibull model
library(survival)
data("pbc.merlin", package = "merlin")
fit <- mlsurv(
formula = Surv(stime, died) ~ trt,
distribution = "weibull",
data = pbc.merlin
)
summary(fit)
# Royston-Parmar model with 3 degrees of freedom
fit <- mlsurv(
formula = Surv(stime, died) ~ trt,
distribution = "rp",
df = 3,
data = pbc.merlin
)
summary(fit)
# }
# NOT RUN {
# Flexible parametric model on the log-hazard scale with fractional polynomials
fit <- mlsurv(
formula = Surv(stime, died) ~ trt,
distribution = "loghazard",
powers = c(0, 1),
rcs = FALSE,
data = pbc.merlin
)
summary(fit)
# }
Run the code above in your browser using DataLab