df_visit <- sim_test_data_study(n_pat = 100, n_sites = 5,
frac_site_with_ur = 0.4, ur_rate = 0.3)
df_visit$study_id <- "A"
df_site <- site_aggr(df_visit)
df_sim_sites <- sim_sites(df_site, df_visit, r = 100)
df_sim_studies <- sim_studies(
df_site = df_site,
df_visit = df_visit,
r = 3,
parallel = FALSE,
poisson_test = TRUE,
prob_lower = TRUE
)
get_ecd_values(df_sim_studies, df_sim_sites, "prob_low")
get_ecd_values(df_sim_studies, df_sim_sites, "pval")
Run the code above in your browser using DataLab