CompK {CHNCapitalStock}  R Documentation 
This function compute capital stock of provinces in China using the method by Zhang (2008) or Chen (2020).
CompK(
prv,
method = "ZJ",
startyr = 1996,
yr = NULL,
invest = NULL,
InvestPrice = NULL,
depr = NULL,
delta = 0.096,
bt = 1952
)
prv 
a province name, a scalar character. It's Chinese phonetic alphabets. 
method 
a string. 
startyr 
a numeric scalar. When use the method by Chen (2020), 
yr 
a numeric vector about years. If you only need capital stock before 2017,
you can use its default 
invest 
a numeric vector about investment, its length equal the length of

InvestPrice 
a numeric vector about price indices of investment,
its length equal the length of 
depr 
a numeric vector about depreciation,its length equal the length of 
delta 
a rate of depreciation, a scalar number. 
bt 
a scalar number, such as 2000. It means computing capital stock with its price equal
1 in 
The function return a data.frame, and its 1st column is province, 2nd column is year, 3rd column is capital stock, 4th column is the price index of investment.
The parameter InvestPrice
is a fixed base index with equaling 1 in 1952 by default.
However, we often only get a price indices of investment with equaling 1
in last year. You can use data(asset)
to get InvestPrice
in any year (before 2017) with equaling 1 in 1952. So, it is easy then.
Zhang, J., Estimation of China's provincial capital stock (19522004) with applications. Journal of Chinese Economic and Business Studies, 2008. 6(2): p. 177196.
# Compute capital stock in Xinjiang province in 19522017
CompK(prv = 'xinjiang')
# Compute capital stock in Xinjiang province in 19522017 with its price equaling 1 in 2000
CompK(prv = 'xinjiang', bt = 2000)
# compute capital stock in Beijing in 2018 and 2019
CompK(yr = 2018:2019, invest = c(10801.2,11100),
InvestPrice = c(1.86*1.03,1.86*1.03*1.021),
prv = 'beijing',delta = 0.096)
# ...
# beijing 2018 35023.74246
# beijing 2019 37336.21755
# Compute capital stock in chongqing with its price equaling 1 in 1992 based on
# Chen (2020)
CompK(prv = 'chongqing', method = 'CP', startyr = 1996, bt = 1992)