tmp <- figure_3_3(
example_data,
names_eq5d = c("mo", "sc", "ua", "pd", "ad"),
name_fu = "time",
levels_fu = c('Pre-op', 'Post-op'),
name_groupvar = "procedure",
eq5d_version = "3L",
country = "UK"
)
tmp$p
tmp$plot_data
Run the code above in your browser using DataLab