em Scripts

Script – Fórmula para as Prestações do SAC em R

por Jorge Kazuo Yamamoto 29/06/2021, 11:00 0 Comments

A explicação do script a seguir está no artigo Fórmula para as Prestações do SAC em R.

setwd("C:\\R_online\\dados\\SAC")
SAC=read.csv("sac.csv",sep=",",header=T)
meses=seq(1,120)
Juros=SAC$Juros
Prest=SAC$Prest
setwd("C:\\R_online\\figuras")
jpeg("SAC_juros_prest.jpeg",width=5,height=5,units="in",res=300)
plot(NA,NA,xlim=c(min(meses),max(meses)),ylim=c(min(Juros),max(Prest)),
xlab="Meses",ylab="Prest/Juros",
main="SAC: PV=120000 - Juros 7% a.a. - 10 anos")
points(meses,Juros,type="l",pch=20,col="red",lwd=2)
points(meses,Prest,type="l",pch=20,col="darkblue",lwd=2)
retaP=lm(Prest~meses)
retaP
retaJ=lm(Juros~meses)
retaJ
dev.off()

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.