У меня есть одна таблица с четырьмя столбцами 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 function и dplyr package с этим кодом:
df1<-mutate(df,
AT= T*lag(cumprod(AF), k=1, default=1)
)
View(df1)
Но я получил результаты в AT column , которые очень похожи на правильные результаты, но не совпадают. Так что кто-нибудь может мне помочьс помощью этого кода, как применить формулу, как снимок экрана из Excel, с какой-нибудь функцией или чем-то еще?
