Question

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

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应用循环以创建摊销计划

1 个答案: