eg_data <- as.data.frame(list(no = c(1, 2, 3, 4),
mark_at_1 = c(12, 34, 23, 45), gender = c("M", "F", "M", "F"),
mark_at_2 = c(12, 34, 23, 45)))
outcome_summary <- IPDFileCheck::get_summary_gtsummary(eg_data,
c("gender", "mark_at_1", "mark_at_2"), byvar = "gender")
variables <- "Mark"
k <- create_shorttable_from_gtsummary_compare_twogroups_timpoints(variables,
outcome_summary, "Category", c(1, 2))
Run the code above in your browser using DataLab