# create two scenarios that need to be simulated one after the other
scen1 <- minnow_it %>% set_times(0:3)
scen2 <- minnow_it %>% set_times(3:6) %>% set_param(c(kd=0))
# create a sequence and assign scenarios
sq <- sequence(list(scen1, scen2))
# simulate the sequence
simulate(sq)
Run the code above in your browser using DataLab