# Assuming you have previously simulated epidemic and individual data:
epidemic <- ssir(1000, alpha = 0.4)
individual_data <- data.frame(elem_child_ind = sample(0:1, 1000, replace = TRUE),
schoolID = sample(1:10, 1000, replace = TRUE))
compiled_data <- compile_epi(epidemic, individual_data)
Run the code above in your browser using DataLab