# \donttest{
fit <- diseq_basic(
HS | RM | ID | TREND ~
RM + TREND + W + CSHS + L1RM + L2RM + MONTH |
RM + TREND + W + L1RM + MA6DSF + MA3DHF + MONTH,
fair_houses(),
correlated_shocks = FALSE
)
# get estimated demanded and supplied quantities
head(cbind(
demanded_quantities(fit),
supplied_quantities(fit)
))
# }
Run the code above in your browser using DataLab