R/gemIntertemporalStochastic_ThreePeriods_2_2.R

In GE: General Equilibrium Modeling

#' @export
#' @title A Three-Period Intertemporal Stochastic Equilibrium Model with a Consumer and a Type of Firm
#' @aliases gemIntertemporalStochastic_ThreePeriods_2_2
#' @description An intertemporal stochastic equilibrium model of three periods with a consumer and a type of firm.
#' The consumer will live for three periods and has a von Neumann-Morgenstern expected utility function.
#' There is one natural state in the first period, two natural states in the second period and
#' two natural states in the third period.
#' @param ... arguments to be passed to the function sdm2.
#' @examples
#' \donttest{
#' dst.firm1 <- node_new(
#'   "prod2",
#'   type = "CD", alpha = 2,
#'   beta = c(0.5, 0.5),
#'   "lab1", "prod1"
#' )
#'
#' dst.firm2.1 <- node_new(
#'   "prod3.1",
#'   type = "CD", alpha = 2,
#'   beta = c(0.5, 0.5),
#'   "prod2.1", "lab2.1"
#' )
#'
#' dst.firm2.2 <- node_new(
#'   "prod3.2",
#'   type = "CD", alpha = 1,
#'   beta = c(0.4, 0.6),
#'   "prod2.2", "lab2.2"
#' )
#'
#' dst.consumer <- node_new(
#'   "util",
#'   type = "CD", alpha = 1,
#'   beta = rep(1 / 5, 5),
#'   "prod1", "prod2.1", "prod2.2",
#'   "prod3.1", "prod3.2"
#' )
#'
#' ge <- sdm2(
#'   A = c(
#'     dst.firm1, dst.firm2.1, dst.firm2.2,
#'     dst.consumer
#'   ),
#'   B = matrix(c(
#'     0, 0, 0, 0,
#'     1, 0, 0, 0,
#'     1, 0, 0, 0,
#'     0, 1, 0, 0,
#'     0, 0, 1, 0,
#'     0, 0, 0, 0,
#'     0, 0, 0, 0,
#'     0, 0, 0, 0
#'   ), 8, 4, TRUE),
#'   S0Exg = matrix(c(
#'     NA, NA, NA, 50,
#'     NA, NA, NA, NA,
#'     NA, NA, NA, NA,
#'     NA, NA, NA, NA,
#'     NA, NA, NA, NA,
#'     NA, NA, NA, 100,
#'     NA, NA, NA, 100,
#'     NA, NA, NA, 100
#'   ), 8, 4, TRUE),
#'   names.commodity = c(
#'     "prod1", "prod2.1", "prod2.2",
#'     "prod3.1", "prod3.2",
#'     "lab1", "lab2.1", "lab2.2"
#'   ),
#'   names.agent = c(
#'     "firm1", "firm2.1", "firm2.2",
#'     "consumer"
#'   ),
#'   numeraire = "lab1",
#'   policy = makePolicyMeanValue(30),
#'   ts = TRUE
#' )
#'
#' ge$p
#' ge$z
#' ge$D
#' ge$S
#' ge$DV
#' ge$SV
#' }

gemIntertemporalStochastic_ThreePeriods_2_2 <- function(...) sdm2(...)