# \donttest{
params <- NS_params
sim <- project(params, effort=1, t_max=20, t_save = 2, progress_bar = FALSE)
plotPredMort(sim)
plotPredMort(sim, time_range = 10:20)
# Returning the data frame
fr <- plotPredMort(sim, return_data = TRUE)
str(fr)
# }
Run the code above in your browser using DataLab