View source: R/gemIntertemporalStochastic_TwoPeriods.R
gemIntertemporalStochastic_TwoPeriods | R Documentation |
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.
gemIntertemporalStochastic_TwoPeriods(...)
... |
arguments to be passed to the function sdm2. |
#### 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
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.