##Exercício 1 ##Meu script



Baixar 325,91 Kb.
Página1/2
Encontro30.10.2016
Tamanho325,91 Kb.
  1   2
##Exercício 5.1
##Meu script:

esaligna <- read.table("esaligna.csv",header=T,as.is=T,sep=",")

str(esaligna)

#Para fazer o gráfico em um arquivo:



jpeg(filename="grafico5.1.jpg",width=600,height=500)

plot(esaligna$dap,esaligna$ht,xlab="Diâmetro à altura do peito (cm)",ylab="Altura +(m)",tcl=0.5,bty="l",main=expression(paste("Altura de ",italic("Eucaliptus saligna +"),"relacionada com o DAP")),cex.lab=1.5,cex.main=1.5)

#Para finalizar o arquivo do gráfico:

dev.off()

##Exercício 5.2


#Meu script:

esaligna <- read.table("esaligna.csv",header=T,as.is=T,sep=",")

#transformei talhão em fator:

esaligna$talhao <- factor((esaligna$talhao), levels=c("16","17","18","22","23","32"))

#para salvar em um arquivo:

jpeg(filename="grafico5.2.jpg",width=600,height=500)

par(mfrow=c(1,2))

#Primeiro gráfico:

par(bty="l")

boxplot(esaligna$dap~esaligna$talhao,xlab="Nível dos talhões",ylab="Diâmetro à altura do +peito",main="a ")

media <- tapply(esaligna$dap,esaligna$talhao,mean)

sd <- tapply(esaligna$dap,esaligna$talhao,sd)

matriz <- matrix(c(sd,media),ncol=2)

matriz


#Segundo gráfico:

plot(matriz,ylim=c(6,21),xlab="Desvio Padrão",ylab="Média dos DAP para cada um dos talhões",bty="l",main="b ")

#Para colocar os desvios padrão:

arrows(3.733452,10.36667,3.733452,(10.36667-3.733452),length=0)

arrows(3.733452,10.36667,3.733452,(10.36667+3.733452),length=0)

arrows(4.266536,11.63333,4.266536,(11.63333-4.266536),length=0)

arrows(4.266536,11.63333,4.266536,(11.63333+4.266536),length=0)

arrows(5.154315,13.58750,5.154315,(13.58750-5.154315),length=0)

arrows(5.154315,13.58750,5.154315,(13.58750+5.154315),length=0)

arrows(5.483794,15.38000,5.483794,(15.38000-5.483794),length=0)

arrows(5.483794,15.38000,5.483794,(15.38000+5.483794),length=0)

arrows(6.023960,12.98571,6.023960,(12.98571-6.023960),length=0)

arrows(6.023960,12.98571,6.023960,(12.98571+6.023960),length=0)

arrows(6.285499,13.15000,6.285499,(13.15000-6.285499),length=0)

arrows(6.285499,13.15000,6.285499,(13.15000+6.285499),length=0)

#Para finalizar o arquivo:



dev.off()

  1   2


©bemvin.org 2016
enviar mensagem

    Página principal