sim <- project(NS_params, t_max = 20, effort = 0.5)
# Extract state at a specific time
params_2010 <- getParams(sim, time_range = 10)
# Extract state averaged over the last 10 years
params_avg <- getParams(sim, time_range = c(10, 20))
Run the code above in your browser using DataLab