Estou fazendo no R as tabelas de financiamento pelo sistema sac e price, o código do sistema sac consegui fazer:
#codigo para sac---------------------------------------------
library(tidyverse)
sac <- function(pv, i, n) {
tibble(“periodo” = 1:n, “amortização” = pv/n) %>%
mutate(“saldo_devedor” = pv-(periodo*amortização),
“juros” = (saldo_devedor + amortização)*i,
“prestação” = amortização + juros) %>%
rbind(c(0,0,pv,0)) %>%
arrange(periodo)
}
sac(pv = 100, i = 0.05, n = 5) #i está em decimal, isto é, 5/100
#--------------------------------------------------
Já pelo sistema price não estou obtendo êxito,
Segue abaixo um modelo feito no Excel (sem preconceito rsrs) para exemplificar
Na coluna juros, na célula D3 eu preciso multiplicar pelo que está na célula E2 e não consegui, segue também a tabela com os valores esperados pelo exemplo.
Agradeço quem puder auxiliar na construção do código.