R中的比例调整方法

Question

我有一张表，有四列 Y、T、D、AF。所以我的意图是应用所谓的“比例调整方法”。

library(dplyr)

df<-data.frame(
Y=c(2017,2016,2015,2014,2013,2012,2011,2010,2009,2008,2007,2006,2005,2004,2003,2002,2001,2000),
T=c(11742,10927,9931,9477,7888,7348,7318,6825,6700,6688,6841,6472,6228,5928,5771,5780,5575,8302),
D=c(0,450,0,1540,0,0,0,-314,0,-1200,0,0,0,0,0,0,-3707,0),
AF=c(  1.000, 1.043 , 1.000 , 1.194 , 1.000 , 1.000 , 1.000 , 0.956 , 1.000 , 0.848 , 1.000 , 1.000 , 1.000 , 1.000 , 1.000 , 1.000 ,0.601 , 1.000 ))

为了在这张表上应用比例调整方法，我应该应用下面的 Excel 屏幕截图等公式。

出于这个原因，我尝试使用以下代码解决此问题，cumproduct 函数和 dplyr 包：

df1<-mutate(df,
              AT=  T*lag(cumprod(AF), k=1, default=1)
              )

  View(df1)

但是我在 AT 列 中得到了结果，这与正确的结果非常相似，但不一样。所以任何人都可以帮助我使用这段代码如何应用公式，如 Excel 中的屏幕截图，有一些功能还是什么？

Answer 1

您的代码很好。差异是由于舍入误差。