input_forms <- list(step = list(shape = ~ state1(x1) + x2,
scale = ~ x1),
count = list(lambda = ~ state1(x1) + state2(s(x2, bs = "cs"))))
make_formulas(input_forms = input_forms,
var_names = names(input_forms),
par_names = lapply(input_forms, names),
n_states = 2)
Run the code above in your browser using DataLab