GE (version 0.4.8)

gemIntertemporalStochastic_TwoPeriods: Some Examples of a Two-Period Intertemporal Stochastic Equilibrium Model

Description

Some examples of a two-period intertemporal equilibrium model with two types of commodities (i.e. product and labor) and one firm. In the second period there are two states of nature, in which the firm has different productivity.

Usage

gemIntertemporalStochastic_TwoPeriods(...)

Arguments

...

arguments to be passed to the function sdm2.

Examples

# \donttest{
#### an examples with a consumer and a firm.
alpha1 <- 1
alpha2 <- 2

supply.lab <- 100
supply.prod1 <- 30

dst.firm <- node_new(
  "prod2",
  type = "CD",
  alpha = 1, beta = c(0.5, 0.5),
  "prod1", "lab1"
)

dst.consumer <- node_new(
  "util",
  type = "CD",
  alpha = 1, beta = c(0.5, 0.25, 0.25),
  "prod1", "prod2.1", "prod2.2"
)

ge <- sdm2(
  A = c(dst.firm, dst.consumer),
  B = matrix(c(
    0, 0,
    0, 0,
    alpha1, 0,
    alpha2, 0
  ), 4, 2, TRUE),
  S0Exg = matrix(c(
    NA, supply.prod1,
    NA, supply.lab,
    NA, NA,
    NA, NA
  ), 4, 2, TRUE),
  names.commodity = c("prod1", "lab1", "prod2.1", "prod2.2"),
  names.agent = c("firm", "consumer"),
  numeraire = "prod1"
)

ge$p
ge$z
ge$D
ge$S
ge$DV
ge$SV

#### an examples with two types of consumer and a firm.
dst.firm <- node_new(
  "prod2",
  type = "CD",
  alpha = 1, beta = c(0.5, 0.5),
  "prod1", "lab1"
)

dst.consumer1 <- node_new(
  "util",
  type = "CD",
  alpha = 1, beta = c(0.5, 0.4, 0.1),
  "prod1", "prod2.1", "prod2.2"
)

dst.consumer2 <- node_new(
  "util",
  type = "CD",
  alpha = 1, beta = c(0.5, 0.25, 0.25),
  "prod1", "prod2.1", "prod2.2"
)

ge <- sdm2(
  A = c(dst.firm, dst.consumer1, dst.consumer2),
  B = matrix(c(
    0, 0, 0,
    0, 0, 0,
    1, 0, 0,
    2, 0, 0
  ), 4, 3, TRUE),
  S0Exg = matrix(c(
    NA, 30, 30,
    NA, 100, 100,
    NA, NA, NA,
    NA, NA, NA
  ), 4, 3, TRUE),
  names.commodity = c("prod1", "lab1", "prod2.1", "prod2.2"),
  names.agent = c("firm", "consumer1", "consumer2"),
  numeraire = "prod1"
)

ge$p
ge$z
ge$D
ge$S
ge$DV
ge$SV
# }