em

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

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

def.par=par(no.readonly=TRUE)
#setwd("C:\\geoStats\\figuras\\chap3")
#jpeg("Fig3_7.jpeg",width=5,height=5,
#units="in",res=300)
cor=c("red","blue","darkgreen","maroon")
tit=c("FUNÇÃO SENO","FUNÇÃO COSENO",
"FUNÇÃO LOG","FUNÇÃO LOG10")
par(mfrow=c(2,2),col=cor[1],cex=1)
x=seq(-pi,pi,0.1)
plot(x,sin(x),type="h",main=tit[1],
xlab="x em radianos",ylab="Função Seno (x)")
par(col=cor[2])
plot(x,cos(x),main=tit[2],
xlab="x em radianos",ylab="Função Coseno (x)")
x=seq(1:51)
par(col=cor[3])
plot(x,log(x),main=tit[3],
xlab="X",ylab="log(x)")
par(col=cor[4])
plot(x,log10(x),main=tit[4],log="x",
xlab="Escala logaritmica",ylab="log10(x)")
par(def.par)
#dev.off()
#setwd("C:\\geoStats\\figuras\\chap3")
#jpeg("Fig3_5.jpeg",width=5,height=5,
#units="in",res=300)
plot.new()
for (i in 1:5){
  for (j in 1:5){
    kb=j+(i-1)*5
    xp=(j-1)*0.20
    yp=(i-1)*0.20
    points(xp,yp,pch=kb,cex=1.5)
    text((xp+0.025*xp),yp,pos=4,cex=1,
    labels=as.character(kb))}
}
#dev.off()
#fonte: https://kktg.net/sgr/otw-portfolio
#/fig-15-7/ 
#setwd("C:\\geoStats\\figuras\\chap3")
#jpeg("Fig3_6.jpeg",width=7.5,height=3,
#units="in",res=300)
def.par=par(no.readonly=TRUE)
par(mai = c(0, 0, 0, 0))               
plot.new()                             
segments(x0=0.1,y0=seq(.9,.1,-.16),              
  x1=.6,y1=seq(.9,.1,-.16),              
  lty = c(1:6),lwd = 2)                              
text(                                  
  x=.65,y=seq(.9,.1,-.16),pos = 4,                             
  cex = 1.25,                          
  label = c("lty = 1 ou 'sólido'",     
    "lty = 2 ou 'tracejado'",             
    "lty = 3 ou 'pontilhado'",
    "lty = 4 ou 'ponto-traço'",
    "lty = 5 ou 'traço longo'",
    "lty = 6 ou 'dois traços'"))
#dev.off()                              
#par(def.par)

Jorge Kazuo Yamamoto

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.

Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *

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

R na prática – Parte 22