result <- figure_1_2_3(
df = example_data,
name_id = "id",
name_groupvar = "procedure",
names_eq5d = c("mo", "sc", "ua", "pd", "ad"),
name_fu = "time",
levels_fu = c("Pre-op","Post-op")
)
result$p # shows the plot
result$plot_data # shows the summary table
Run the code above in your browser using DataLab