# NOT RUN {
model <- simulate_model(
"diseq_stochastic_adjustment", list(
# observed entities, observed time points
nobs = 500, tobs = 3,
# demand coefficients
alpha_d = -0.1, beta_d0 = 9.8, beta_d = c(0.3, -0.2), eta_d = c(0.6, -0.1),
# supply coefficients
alpha_s = 0.1, beta_s0 = 6.1, beta_s = c(0.9), eta_s = c(-0.5, 0.2),
# price equation coefficients
gamma = 1.2, beta_p0 = 3.1, beta_p = c(0.8)
),
seed = 31
)
# access the model's formula
formula(model)
# }
Run the code above in your browser using DataLab