R中的递归循环（使用tidyverse）

我正在尝试使用tidyverse实现一个简单的摊销计划，而不是编写循环。我假设有一种方法可以使用tidyverse实现这一点。我得到的最接近于完成这件事的帮助是

我试图解决的问题如下

For Month 1, 
LoanRem = Loan
Beyond Month 1
LoanRem = Loan - Cumulative_Sum_Previous(Principal_Payments)

PrinPay[i] = A + ExtraPrinPay[i] - Int * ( Loan  - (PrinPay[1] + .. PrinPay[i-1] )

n = <constant> length of the payment scheme

我得到了错误

Error in mutate_impl(.data, dots) : 
  Evaluation error: object 'PrinPay' not found.
In addition: Warning message:
package ‘bindrcpp’ was built under R version 3.4.4 

有人能帮我吗

Error in mutate_impl(.data, dots) : 
  Evaluation error: object 'PrinPay' not found.
In addition: Warning message:
package ‘bindrcpp’ was built under R version 3.4.4