###Exercicio 5 - Criação de gráficos

getwd()
setwd("C:/Users/Edmundo/Documents/Meus Documentos/BIANCA/MESTRADO/Linguagem R")
getwd()

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

##Editando alguns parâmetros

scatter.smooth(eucalipto$dap~eucalipto$ht)
plot(eucalipto$dap~eucalipto$ht,xlab="altura(m)",ylab="DAP(cm)")
plot(eucalipto$dap~eucalipto$ht,xlab="altura(m)",ylab="DAP(cm)",tck=0.03)
#Não sei como deixar o gráfico somente com as abcissas e ordenadas, formato L.
title(main="Relação altura da árvore(m) x DAP(cm)")
plot(eucalipto$dap~eucalipto$ht,xlab="Altura (m)",ylab="DAP (cm)",tck=0.03,bty="l", cex.main=2, cex.lab=2, cex.axis=2)
title(main="Relação altura da árvore(m) x DAP(cm)",cex.main=2)

##Dois gráficos juntos

par(mfrow=c(1,2))
#dap em função de talhao:
boxplot(dap~talhao,eucalipto)
title(main="A")
média <- tapply(X=eucalipto$dap,INDEX=eucalipto$talhao,FUN=mean)
média
desviopadrão <- tapply(X=eucalipto$dap,INDEX=eucalipto$talhao,FUN=sd)
desviopadrão
boxplot(média~desviopadrão) #?????
title(main="B")

##Advinhando o código

par(mfrow=c(1,2))
advinhação <- read.table("exercicio3.csv",header=TRUE,sep=",",as.is=TRUE)
advinhação
scatter.smooth(advinhação$x1~advinhação$y1)
scatter.smooth(advinhação$x2~advinhação$y2)
#?????