em Scripts

Script – Parte 27.1 (Série R na Prática)

por Jorge Kazuo Yamamoto 30/12/2020, 10:00 0 Comments

A explicação do script a seguir está no artigo R na Prática – Parte 27.

setwd("C:\\geoStats\\dados\\jura_goovaerts")
prediction=read.csv("jura_prediction.CSV",sep=";",
header=TRUE)
xp=prediction$Xloc; yp=prediction$Yloc
validation=read.csv("jura_validation.CSV",sep=";",
header=TRUE)
xv=validation$Xloc; yv=validation$Yloc
#setwd("C:\\geoStats\\figuras\\chap3")
#jpeg("Fig3_16.jpeg",width=5,height=5,
#units="in",res=300)
plot(xp,yp,pch=21,cex=1.25,bg="red",xlim=c(0,5),
ylim=c(0,6),xlab="LESTE (km)",ylab="NORTE (km)")
points(xv,yv,pch=23,bg="blue",cex=1.25)
points(0,6,pch=21,bg="red",cex=1.25)
points(0,5.75,pch=23,bg="blue",cex=1.25)
text(0.15,6,pos=4,labels="Prediction data")
text(0.15,5.75,pos=4,labels="Validation data")
#dev.off()

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.