if (FALSE) {
simul_params <- createSimulParams()
simul_params <- setTime(simul_params, Nyears=10, nTSpY=120)
simul_params <- setPathogen(simul_params, loadPathogen("rust"))
repro_sex_probs <- c(rep(0.0, 120), 1.0)
simul_params <- updateReproSexProb(simul_params, repro_sex_probs)
simul_params@Pathogen
}
Run the code above in your browser using DataLab