# NOT RUN {
model <- simulate_model(
"equilibrium_model", list(
# observed entities, observed time points
nobs = 500, tobs = 3,
# demand coefficients
alpha_d = -0.9, beta_d0 = 14.9, beta_d = c(0.3, -0.2), eta_d = c(-0.03, -0.01),
# supply coefficients
alpha_s = 0.9, beta_s0 = 3.2, beta_s = c(0.03), eta_s = c(0.05, 0.02)
),
seed = 99
)
# maximize the model's log-likelihood
mll <- maximize_log_likelihood(
model,
start = NULL, step = 1e-5,
objective_tolerance = 1e-4, gradient_tolerance = 1e-3, max_it = 1e+3
)
mll
# }
Run the code above in your browser using DataLab