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)
plot(aerep)
> study = NULL, defaulting to study:A
> Warning: all_equal() was deprecated in dplyr 1.1.0.
> ℹ Please use all.equal() instead.
> ℹ And manually order the rows/cols as needed
> ℹ The deprecated feature was likely used in the simaerep package.
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) plot(aerep)
> study = NULL, defaulting to study:A
> Warning:
all_equal()was deprecated in dplyr 1.1.0.> ℹ Please use
all.equal()instead.> ℹ And manually order the rows/cols as needed
> ℹ The deprecated feature was likely used in the simaerep package.
> Please report the issue to the authors.