r 应用循环来创建摊销计划

Question

我需要在 R 中创建摊销计算。第一行的计算工作正常，但所有后续计算都需要使用计算值或第一行中的值，我无法使循环工作.

df <- data.frame(
  LoanID = c("LN-000249", "LN-000249", "LN-000249", "LN-000249"),
  apply_date = c("2015-07-30 UTC", "2015-09-03 UTC", "2015-11-09 UTC", "2015-11-18 UTC"),
  pmt_amt = c(17292.45, 17153.90, 18100.00,   107.23),
  rows = c(1, 2, 3, 4),
  calc_days = c(41, 35, 67,  9)
                 )

假设贷款价值为 50000，利率为 .08%

ln_amt = 50000
ln_interest_rate = .08

第一行的计算

df$interestAmt <- ln_amt * ln_interest_rate / 360 * df$calc_days
df$principalAmt <- df$pmt_amt - df$interestAmt
df$balance <- ln_amt - df$principalAmt

所有其他行的计算

df$interestAmt <- (new balance found in previous row or current balance calculation value) * ln_interest_rate / 360 * df$calc_days
df$principalAmt <- df$pmt_amt - df$interestAmt
df$balance <- (new balance found in previous row ) - df$principalAmt
 # or it is equal to the (ln_amt - cumsum(df$principalAmt) )

我需要弄清楚如何计算所有行而不仅仅是第一行并创建一个数据框。我需要根据当前余额和计算天数以及实际付款而不是计算的付款价值进行摊销计算。因此我不能使用公式来获取这些值。我似乎无法获得正确的 interestAmt 值或第 2-4 行的余额。

Answer 1

df2<-df %>% mutate(interestAmt <- ln_amt * ln_interest_rate/360*calc_days,
principalAmt = pmt_amt - interestAmt,
balance  = ln_amt - principalAmt) %>% mutate(interestAmt =(ifelse(is.na(lag(balance,1)),balance,lag(balance,1))) * ln_interest_rate/360*calc_days,
principalAmt = pmt_amt - interestAmt,
balance = lag(balance,1) - principalAmt)

这不是最好的方法，因为它会计算所有行的初始余额和利息金额，然后覆盖，如果您的数据集很小，开销应该不会太大

r 应用循环来创建摊销计划

r apply loop to create amortization schedule

loops

r

apply

amortization