CompK: Compute Capital Stock in Chinese Provinces
In CHNCapitalStock: Compute Chinese Capital Stocks

Description Usage Arguments Value Note References Examples

View source: R/CompK.R

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. `'ZJ'` by Zhang (2008) or `'CP'` by Chen (2020).
`startyr`	a numeric scalar. When use the method by Chen (2020), `delta` is used before `startyr`, and after `startyr` depreciation in data `asset` is used. When use the method by Zhang (2008), the parameters is not useful.
`yr`	a numeric vector about years. If you only need capital stock before 2017, you can use its default `NULL`. If you need to compute capital stocks in other years (for example 2018,2019), you can set, for example, `yr = c(2018,2019)`.
`invest`	a numeric vector about investment, its length equal the length of `yr`, and its units is 100 million in current price.
`InvestPrice`	a numeric vector about price indices of investment, its length equal the length of `yr`, and it is a fixed base index with equaling 1 in `bt`.
`depr`	a numeric vector about depreciation,its length equal the length of `yr`, and its units is 100 million in current price. If use the method `'ZJ'`, the parameter is not useful.
`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 `bt`

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 (1952-2004) with applications. Journal of Chinese Economic and Business Studies, 2008. 6(2): p. 177-196.

# Compute capital stock in Xinjiang province in 1952-2017
CompK(prv = 'xinjiang')
# Compute capital stock in Xinjiang province in 1952-2017 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)