Nothing
#' @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
}
)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.