Nothing
#' @export
#' @title A General Equilibrium Model with Endogenous Production Function
#' @aliases gemstEndogenousProductionFunction_2_2
#' @description This is an example of the spot market clearing path (alias instantaneous equilibrium path) with an endogenous production function.
#' The parameter of the production function will change with the output level.
#'
#' To deal with locally or globally increasing returns to scale, we can simply use an endogenous CES-type production function instead of a production function with a more complex form.
#' @param ... arguments to be passed to the function sdm2.
#' @examples
#' \donttest{
#' dst.firm <- node_new(
#' "output",
#' type = "CD", alpha = 5, beta = c(0.5, 0.5),
#' "prod", "lab"
#' )
#'
#' dst.consumer <- node_new(
#' "util",
#' type = "Leontief", a = 1,
#' "prod"
#' )
#'
#' ge <- sdm2(
#' A = list(dst.firm, dst.consumer),
#' B = matrix(c(
#' 1, 0,
#' 0, 0
#' ), 2, 2, TRUE),
#' S0Exg = matrix(c(
#' NA, NA,
#' NA, 1
#' ), 2, 2, TRUE),
#' names.commodity = c("prod", "lab"),
#' names.agent = c("firm", "consumer"),
#' numeraire = "lab",
#' z0 = c(1, 1),
#' p0 = c(1, 1),
#' ts = TRUE,
#' policy = list(
#' function(A, state) {
#' A[[1]]$alpha <- 5 * state$last.z[1]^0.1
#' },
#' policyMarketClearingPrice
#' ),
#' numberOfPeriods = 40,
#' maxIteration = 1
#' )
#'
#' matplot(ge$ts.z, type = "o", pch = 20)
#' }
gemstEndogenousProductionFunction_2_2 <- function(...) sdm2(...)
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.