# -----------------------------
# Initialise Inputs
# -----------------------------
n <- 5000
num_stages <- 3
p_list_uvt <- rep(1, num_stages)
p_list_mvt <- c(1, 3, 3)
num_treats <- rep(3, num_stages)
# -----------------------------
# Main
# -----------------------------
Data_uvt <- generate_dataset(n, num_stages, p_list_uvt, num_treats)
Data_mvt <- generate_dataset(n, num_stages, p_list_mvt, num_treats)
Run the code above in your browser using DataLab