Prints a short description of the model — show,market

Sends basic information about the model to standard output.

Usage

# S4 method for market_model
show(object)

# S4 method for market_fit
show(object)

Arguments

object: A model object.

Value

No return value, called for side effects (print basic model information).

Examples

# \donttest{
fit <- equilibrium_model(
  HS | RM | ID | TREND ~
    RM + TREND + W + CSHS + L1RM + L2RM + MONTH |
      RM + TREND + W + L1RM + MA6DSF + MA3DHF + MONTH,
  fair_houses(),
  estimation_options = list(method = "2SLS")
)

# print model information
show(fit@model)
#> Equilibrium Model for Markets in Equilibrium:
#>   Demand RHS        :   D_RM + D_TREND + D_W + D_CSHS + D_L1RM + D_L2RM
#>     + D_MONTH
#>   Supply RHS        :   S_RM + S_TREND + S_W + S_L1RM + S_MA6DSF +
#>     S_MA3DHF + S_MONTH
#>   Market Clearing   : HS = D_HS = S_HS
#>   Shocks            : Correlated

# print fit information
show(fit)
#> Equilibrium Model for Markets in Equilibrium:
#>   Demand RHS        :   D_RM + D_TREND + D_W + D_CSHS + D_L1RM + D_L2RM
#>     + D_MONTH
#>   Supply RHS        :   S_RM + S_TREND + S_W + S_L1RM + S_MA6DSF +
#>     S_MA3DHF + S_MONTH
#>   Market Clearing   : HS = D_HS = S_HS
#>   Shocks            : Correlated
#> 
#> Least squares estimation:
#>   Method              : 2SLS
# }