# \donttest{
df_visit1 <- sim_test_data_study(n_pat = 100, n_sites = 10,
ratio_out = 0.4, factor_event_rate = 0.6,
study_id = "A")
df_visit2 <- sim_test_data_study(n_pat = 100, n_sites = 10,
ratio_out = 0.2, factor_event_rate = 0.1,
study_id = "B")
df_visit <- dplyr::bind_rows(df_visit1, df_visit2)
df_config <- get_portf_config(df_visit)
df_config
df_portf <- sim_test_data_portfolio(df_config)
df_portf
# }
Run the code above in your browser using DataLab