# create a parameter set and assign it
ps <- parameter_set("GUTS-RED-IT", list(kd=0.12, hb=0.3))
GUTS_RED_IT() %>% set_param(ps)
# multiple scenarios can be modified at once
c(GUTS_RED_IT(), GUTS_RED_IT()) %>%
set_param(ps)
# model names must match, otherwise an error will be raised
try(GUTS_RED_SD() %>% set_param(ps))
Run the code above in your browser using DataLab