# \donttest{
model <- new(
"diseq_basic", # model type
subject = ID, time = TREND, quantity = HS, price = RM,
demand = RM + TREND + W + CSHS + L1RM + L2RM + MONTH,
supply = RM + TREND + W + L1RM + MA6DSF + MA3DHF + MONTH,
fair_houses()
)
# get the number observations
nobs(model)
# }
Run the code above in your browser using DataLab