0

我需要在 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，利率为 0.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) )

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

4

1 回答 1

0 
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)

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

于 2016-04-07T11:04:20.487 回答