R/disequilibrium_model.R

In pi-kappa-devel/diseq: Estimation Methods for Markets in Equilibrium and Disequilibrium

#' @include market_model.R

#' @describeIn market_models Base class for disequilibrium models
setClass(
  "disequilibrium_model",
  contains = "market_model",
  representation(),
  prototype()
)

setMethod(
  "initialize", "disequilibrium_model",
  function(.Object,
           model_type_string, verbose,
           specification,
           correlated_shocks,
           data,
           system_initializer) {
    .Object <- callNextMethod(
      .Object,
      model_type_string, verbose,
      specification,
      correlated_shocks,
      data,
      system_initializer
    )
    .Object@market_type_string <- "Disequilibrium"

    .Object
  }
)