withr::with_tempdir(
{
data(cancer, package = "survival")
var_types <- get_var_types(cancer, strata = "sex")
baseline_table(cancer, var_types = var_types, filename = "baseline.csv")
# baseline table with pairwise comparison
cancer$ph.ecog_cat <- factor(cancer$ph.ecog,
levels = c(0:3),
labels = c("0", "1", ">=2", ">=2")
)
var_types <- get_var_types(cancer, strata = "ph.ecog_cat")
baseline_table(cancer, var_types = var_types, save_table = TRUE, filename = "baseline.csv")
print(paste0("files saved to: ", getwd()))
},
clean = FALSE
)
Run the code above in your browser using DataLab