# NOT RUN {
# initialize the basic model using the houses dataset
model <- new(
"diseq_basic", # model type
c("ID", "TREND"), "HS", "RM", # keys, 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
)
# get descriptive statistics of demand side variables
demand_descriptives(model)
# get descriptive statistics of supply side variables
supply_descriptives(model)
# }
Run the code above in your browser using DataLab