# NOT RUN {
# initialize the model using the houses dataset
model <- new(
"diseq_deterministic_adjustment", # model type
c("ID", "TREND"), "TREND", "HS", "RM", # keys, time, quantity, and price variables
"RM + TREND + W + CSHS + L1RM + L2RM + MONTH", # demand specification
"RM + TREND + W + L1RM + MA6DSF + MA3DHF + MONTH", # supply specification
fair_houses(), # data
correlated_shocks = FALSE # allow shocks to be correlated
)
# estimate the model object (BFGS is used by default)
est <- estimate(model)
# estimate the model by specifying the optimization details passed to the optimizer.
est <- estimate(model, control = list(maxit = 1e+5), method = "BFGS")
# summarize results
bbmle::summary(est)
# }
Run the code above in your browser using DataLab