exp1 <- load_experiment("sir", system.file("models", "sir.gaml", package = "rama"))
exp1$seed <- 2341234
exp1 <- repl(exp1, 2)
exp1$r_R <- 2:3
output <- run_experiment(exp1)
str(output)