# initialize the equilibrium 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()
)
# model name
name(model)
# model description
describe(model)
# market type
market_type(model)
Run the code above in your browser using DataLab