CGE (version 0.3.3)

ChinaCGE2012: A CGE Model of China based on the Input-Output Table of 2012 (Unit: Ten Thousand RMB)

Description

This data set gives parameters of a CGE model of China based on the input-output table of 2012.

Usage

ChinaCGE2012

Format

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).

References

LI Wu (2019, ISBN: 9787521804225) General Equilibrium and Structural Dynamics: Perspectives of New Structural Economics. Beijing: Economic Science Press. (In Chinese)

Examples

# NOT RUN {
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
# }