【Tidyverse优雅编程】累计迭代：永续盘存法计算资本存量（全国）
永续盘存法计算资本存量，是做计量模型准备数据时，经常需要做的一个测算，目前网上有用 Excel 计算的：
有用 Stata 计算的：
用 R 语言能计算吗？当然可以！而且我要用tidyverse优雅数据思维编程， 写出天花板级代码：核心代码只需要 3 行。
下面复现 Excel 这篇。
1 理论
永续盘存法计算资本存量的公式：
K_t = K_{t-1} (1-delta) + I_t
其中， K_t 是需要测算的资本存量数据， I_t 一般采用全社会固定资产投资完成额，但是需要根据价格指数做平减（一种修正，相当于消除价格变化的影响）， delta 是折旧率，一般直接取某值，比如 0.05。
2 读入数据
library(tidyverse)
library(readxl)
df = read_xlsx("data/全国资本存量测算原始数据.xlsx")
df
<< · Back Index ·>>
