# \donttest{
df_visit <- sim_test_data_study(
n_pat = 100,
n_sites = 5,
frac_site_with_ur = 0.4,
ur_rate = 0.6
)
df_visit$study_id <- "A"
aerep <- simaerep(df_visit)
plot(aerep, what = "ur", study = "A")
plot(aerep, what = "med75", study = "A")
# }
Run the code above in your browser using DataLab