# initialize the basic model using the houses dataset
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(), # 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