d_params_covar <- list(
n = 1000,
nt = 500,
prob_X1 = 0.4,
prob_ice_X1 = 0.5,
prob_ice_X0 = 0.2,
fu_max = 336L,
prop_cens = 0.15,
T0T_rate = 0.2,
T0N_rate = 0.2,
T1T_rate = 0.15,
T1N_rate = 0.1
)
dat_mult_trials <- sim_dat_mult_trials_exp_covar(
n_iter = 3L,
params = d_params_covar
)
lapply(dat_mult_trials, dim)
head(dat_mult_trials[[1]])
Run the code above in your browser using DataLab