R/equation_stochastic_adjustment.R

In diseq: Estimation Methods for Markets in Equilibrium and Disequilibrium

#' @include equation_base.R

#' @describeIn equation_classes Stochastic adjustment disequilibrium model equation class
setClass(
  "equation_stochastic_adjustment",
  contains = "equation_base",
  representation()
)

setMethod(
  "initialize", "equation_stochastic_adjustment",
  function(.Object, specification, data, name, prefix) {
    .Object <- callNextMethod(.Object, specification, data, name, prefix)
    .Object
  }
)

setMethod(
  "set_parameters", signature(object = "equation_stochastic_adjustment"),
  function(object, parameters) {
    object <- callNextMethod(object, parameters)
    object
  }
)