GE (version 0.3.8)

gemIntertemporal_TimeCircle_3_3: A Time Circle Model with One Consumer and Two Types of Firms

Description

An (intertemporal) time circle model with one consumer and two types of firms.

Usage

gemIntertemporal_TimeCircle_3_3(...)

Arguments

...

arguments to be passed to the function sdm2.

Examples

# \donttest{
#### an example with a Cobb-Douglas intertemporal utility function
np <- 5 # the number of internal periods, firms.
n <- 3 * np
m <- 2*np+1

zeta <- 1.25 # the ratio of repayments to loans
S <- matrix(NA, n, m)
S[(n-np+ 1):n, m] <- 100

B <- matrix(0, n, m)
B[1:np, 1:np] <- B[(np+1):(2*np), (np+1):(2*np)] <- diag(np)[, c(2:np, 1)]
B[1, np] <-  B[np+1, 2*np]<- 1 / zeta

dstl.firm.corn <- dstl.firm.iron  <- list()
for (k in 1:np) {
  dstl.firm.corn[[k]] <- node_new(
    "prod",
    type = "CD",
    alpha = 1, beta = c(0.5, 0.5),
    paste0("iron", k), paste0("lab", k)
  )

  dstl.firm.iron[[k]] <- node_new(
    "prod",
    type = "CD",
    alpha = 2, beta = c(0.5, 0.5),
    paste0("iron", k), paste0("lab", k)
  )
}

dst.consumer <- node_new(
  "util",
  type = "CD", alpha = 1,
  beta = prop.table(rep(1, np)),
  paste0("corn", 1:np)
)

ge <- sdm2(
  A = c(dstl.firm.corn, dstl.firm.iron, dst.consumer),
  B = B,
  S0Exg = S,
  names.commodity = c(paste0("corn", 1:np),
                      paste0("iron", 1:np),
                      paste0("lab", 1:np)),
  names.agent = c(paste0("firm.corn", 1:np),
                  paste0("firm.iron", 1:np),
                  "consumer"),
  numeraire = "lab1",
  ts = TRUE
)

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