result <- figure_1_2_2(
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
result$plot_data
Run the code above in your browser using DataLab