data(iceplant_ex)
grow_mod <- lm(log_size_next ~ log_size, data = iceplant_ex)
surv_mod <- glm(survival ~ log_size, data = iceplant_ex, family = binomial())
data_list <- list(
grow_mod = use_vr_model(grow_mod),
surv_mod = use_vr_model(surv_mod),
recruit_mean = 20,
recruit_sd = 5
)
Run the code above in your browser using DataLab