# \donttest{
df_visit <- sim_test_data_study(
n_pat = 100,
n_sites = 5,
ratio_out = 0.4,
factor_event_rate = - 0.6
)
evrep <- simaerep(df_visit)
plot(evrep, what = "prob", study = "A")
plot(evrep, what = "med75", study = "A")
# }
Run the code above in your browser using DataLab