em Scripts

Script – Como Calcular Financiamento pelo SAC em R

por Jorge Kazuo Yamamoto 14/06/2021, 15:22 0 Comments

A explicação do script a seguir está no artigo Como Calcular Financiamento pelo SAC em R.

options(digits=10)
PV=120000             #valor do emprestimo
i=(1.07)^(1/12)-1     #convertendo taxa anual para mensal
n=120                 #tempo em meses
Juros=c(rep(0,n))     #inicializacao do vetor de juros
#no sistema SAC a amortizacao e constante por n meses
Amort=c(rep(PV/n,n))  #inicializacao do vetor de amortizacao
Saldo=c(rep(0,n))     #inicializacao do vetor do saldo devedor
Prest=c(rep(0,n))     #inicializacao do vetor prestacao mensal
Juros[1]=PV*i
Saldo[1]=PV-Amort[1]
Prest[1]=Juros[1]+Amort[1]
for (j in 2:n){
  Juros[j]=i*Saldo[j-1]
  Saldo[j]=Saldo[j-1]-Amort[j]
  Prest[j]=Juros[j]+Amort[j]
}
SAC=as.data.frame(cbind(Juros,Amort,Saldo,Prest))
SAC=round(SAC,2)
print(SAC)
setwd("C:\\R_online\\dados\\SAC")
write.csv(SAC,file="sac.csv",row.names=FALSE,quote=FALSE)
sum(Prest)
sum(Juros)
i

Se preferir fazer o download do arquivo, clique aqui e descompacte-o em seu computador.

Escrito por Jorge Kazuo Yamamoto

Prof. Dr. Jorge Kazuo Yamamoto, fundador da Geokrigagem, é geólogo, foi pesquisador do IPT e docente do Instituto de Geociências da USP, onde se aposentou como Professor Titular do Departamento de Geologia Sedimentar e Ambiental. Atualmente, atua como Professor Sênior do Departamento de Engenharia de Minas e de Petróleo – Escola Politécnica – USP. É responsável pela disciplina “Métodos geoestatísticos” na Pós-Graduação do IPT – Investigação do subsolo: Geotecnia e Meio Ambiente. Dedica-se ao ensino de geoestatística, com ênfase no desenvolvimento de algoritmos e pesquisa de novas aplicações, tais como: variância de interpolação, cálculo da variância global de depósitos minerais e correção do efeito de suavização da krigagem. Ultimamente, seu interesse está voltado para o ensino e divulgação da linguagem R.