Models

library(mRclwhip)

Table for Cox Regression

df <- arsenal::mockstudy
df_selected <- df %>%
  dplyr::select(fu.time, fu.stat, mdquality.s, ps, sex) %>%
  dplyr::mutate_at(dplyr::vars(mdquality.s, ps), as.factor) %>%
  dplyr::mutate(fu.time = fu.time / 365)

Hmisc::label(df_selected$sex) <- "Sex"
Hmisc::label(df_selected$mdquality.s) <- "Quality"
Hmisc::label(df_selected$ps) <- "PS"

modelsum_cox(event = fu.stat, time = fu.time, data = df_selected)

Table for Kaplan-Meier Estimates

modelsum_km(event = fu.stat, time = fu.time, times = 1:3, data = df_selected, freedom.from = "death")