Description Usage Format Author(s) References Examples
This data set gives parameters of a CGE model of China based on the input-output table of 2012.
1 |
A list containing the following components:
A(state) | function | a function which returns a demand structure 41-by-38 matrix under a given price 41-vector. |
B | numeric | a supply structure 41-by-38 matrix. |
S0Exg | numeric | an exogenous supply 41-by-38 matrix. |
z0 | numeric | an initial exchange levels (i.e. activity levels, production levels or utility levels) 38-vector. |
subject.names | character | names of 41 subjects (or commodities). |
sector.names | character | names of 38 sectors. |
LI Wu <liwu@staff.shu.edu.cn>
LI Wu (2019, ISBN: 9787521804225) General Equilibrium and Structural Dynamics: Perspectives of New Structural Economics. Beijing: Economic Science Press. (In Chinese)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 | ChinaCGE2012$A(list(p = rep(1, 41)))
#####
cge <- function(GRExg = 0) {
sdm(
A = ChinaCGE2012$A,
B = ChinaCGE2012$B,
S0Exg = ChinaCGE2012$S0Exg,
GRExg = GRExg,
z0 = ChinaCGE2012$z0,
priceAdjustmentVelocity = 0.03
)
}
#####
ge0 <- cge()
names(ge0$p) <- ChinaCGE2012$subject.names
ge0$p
names(ge0$z) <- ChinaCGE2012$sector.names
ge0$z
#####
ge6 <- cge(GRExg = 0.06)
names(ge6$p) <- ChinaCGE2012$subject.names
ge6$p
names(ge6$z) <- ChinaCGE2012$sector.names
ge6$z
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.