# \donttest{
library(rms)
options(datadist = "dd")
data("transplant", package = "survival")
transplant <- transplant[transplant[["event"]] != "censored", ] %>%
droplevels()
dd <- datadist(transplant)
lrm_mod <- lrm(event ~ rcs(age, 3) * (sex + abo) + rcs(year, 3),
data = transplant
)
lrm_mod
summary(lrm_mod)
summary_interact(lrm_mod, age, sex)
summary_interact(lrm_mod, age, sex, ref_min = 60, ref_max = 80)
summary_interact(lrm_mod, age, sex,
ref_min = 60, ref_max = 80, digits = 5L
)
summary_interact(lrm_mod, age, abo)
summary_interact(lrm_mod, age, abo, level = c("A", "AB"))
summary_interact(lrm_mod, age, abo, level = c("A", "AB"), p = TRUE)
# }
Run the code above in your browser using DataLab