# \donttest{
fit <- equilibrium_model(
HS | RM | ID | TREND ~
RM + TREND + W + CSHS + L1RM + L2RM + MONTH |
RM + TREND + W + L1RM + MA6DSF + MA3DHF + MONTH,
fair_houses(),
estimation_options = list(method = "2SLS")
)
# print model information
show(fit@model)
# print fit information
show(fit)
# }
Run the code above in your browser using DataLab