search

openpharma / simaerep

simulate adverse event reporting in clinical trials with the goal of detecting under-reporting sites.
https://openpharma.github.io/simaerep/
Other
21 stars 5 forks source link

progress = FALSE for simaerep still shows progress bar #45

Closed erblast closed 4 months ago

erblast commented 1 year ago

suppressPackageStartupMessages(library(simaerep))

df_visit <- sim_test_data_study( n_pat = 1000, # number of patients in study n_sites = 100, # number of sites in study frac_site_with_ur = 0.05, # fraction of sites under-reporting ur_rate = 0.4, # rate of under-reporting ae_per_visit_mean = 0.5 # mean AE per patient visit )

df_visit$study_id <- "A"

aerep <- simaerep(df_visit, progress = FALSE)