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)