# NOT RUN {
model <- simulate_model(
"diseq_basic", list(
# observed entities, observed time points
nobs = 500, tobs = 3,
# demand coefficients
alpha_d = -0.9, beta_d0 = 8.9, beta_d = c(0.6), eta_d = c(-0.2),
# supply coefficients
alpha_s = 0.9, beta_s0 = 7.9, beta_s = c(0.03, 1.2), eta_s = c(0.1)
),
seed = 7523
)
# estimate the model object (BFGS is used by default)
fit <- estimate(model)
# Calculate the score matrix
head(scores(model, coef(fit)))
# }
Run the code above in your browser using DataLab