em Scripts

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

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

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

parAtuais=par(no.readonly=TRUE)
#setwd("C:\\geoStats\\figuras\\chap3")
#jpeg("Fig3_14.jpeg",width=5,height=5,
#units="in",res=300)
par(mfrow=c(2,2))
barplot(height=c(1,2,3),main="vetor=c(1,2,3)",
col=c("red","green","blue"))
barplot(height=matrix(1:9,ncol=3,nrow=3),
main="matriz[3,3]",col=c("darkslategray",
"darkseagreen","beige"))
barplot(height=t(matrix(1:9,ncol=3,nrow=3)),
main="t(matriz[3,3])",col=c("darkslategray",
"darkseagreen","beige"))
library(compositions)
matriz=acomp(matrix(1:9,ncol=3,nrow=3))
barplot(height=matriz,main="acomp(matriz)",
col=c("darkslategray","darkseagreen","beige"))
par(parAtuais)
#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.