data(gen_di_det_ex)
# Rebuild the model and return_main_env this time
gen_di_det_ex <- gen_di_det_ex$proto_ipm %>%
make_ipm(iterate = TRUE, iterations = 50, return_main_env = TRUE)
disc_sizes <- collapse_pop_state(gen_di_det_ex,
time_step = 20:25,
seedlings = ht <= 10,
NRA = ht > 10 & ht <= 200,
RA = ht > 200)
Run the code above in your browser using DataLab