data(gen_di_det_ex)
proto <- gen_di_det_ex$proto_ipm %>%
define_pop_state(n_ht = runif(200),
n_b = 200000)
ipm <- make_ipm(proto)
is_conv_to_asymptotic(ipm, tolerance = 1e-5)
conv_plot(ipm)
Run the code above in your browser using DataLab