df_visit <- sim_test_data_study(n_pat = 100, n_sites = 10)
df_ur <- sim_out(df_visit, "A", site_id = "S0001", factor_event = - 0.35)
# Example cumulated event for first patient with 35% under-reporting
df_ur[df_ur$site_id == "S0001" & df_ur$patient_id == "P000001",]$n_event
# Example cumulated event for first patient with no under-reporting
df_visit[df_visit$site_id == "S0001" & df_visit$patient_id == "P000001",]$n_event
Run the code above in your browser using DataLab