#5.1
e.saligna<-read.csv("esaligna.csv",header=TRUE,sep=",")
plot.1<-plot(e.saligna$dap~e.saligna$ht,xlab="ht",ylab="dap")
par(tcl=0.3)
plot.2<-plot(e.saligna$dap~e.saligna$ht,xlab="ht",ylab="dap")
par(bty="l")
plot.3<-plot(e.saligna$dap~e.saligna$ht,xlab="ht",ylab="dap")
plot.4<-plot(e.saligna$dap~e.saligna$ht,xlab="ht",ylab="dap")
plot.5<-plot(e.saligna$dap~e.saligna$ht,xlab="ht",ylab="dap",main="Relaçao entre dap e ht")
par(cex.axis=1, cex.lab=1)
plot.6<-plot(e.saligna$dap~e.saligna$ht,xlab="ht",ylab="dap",main="Relaçao entre dap e ht")

#5.2
e.saligna=read.csv("esaligna.csv",header=TRUE,sep=",")
par(mfrow=c(1,2))
head(e.saligna)
box.plot<-boxplot(e.saligna$dap~e.saligna$talhao,xlab="talhao",ylab="dap")
nova.tabela<-data.frame(e.saligna$talhao,e.saligna$dap)
head(nova.tabela)
factor(nova.tabela$e.saligna.talhao)
dados.grafico<-aggregate(nova.tabela,list(nova.tabela$e.saligna.talhao),FUN=mean)
dados.grafico2<-aggregate(nova.tabela,list(nova.tabela$e.saligna.talhao),FUN=sd)
vetor1<-dados.grafico$e.saligna.talhao
vetor2<-dados.grafico$e.saligna.dap
sd.vetor<-dados.grafico2$e.saligna.dap
x<-matrix(vetor2,nrow=1,ncol=6,dimnames=list(c("row1"),c("16","17","18","22","23","32")))
grafico<-barplot(x,xlab="talhao", ylab="media")
segments(grafico, vetor2 - sd.vetor, grafico, vetor2 + sd.vetor, lwd=2)

#5.3
exercicio.3<-read.csv("exercicio3.csv",header=TRUE)
head(exercicio.3)
par(mfrow=c(1,2),bty="l",pch=17,tcl=0.3,family="serif",mar=c(4,4,4,0.5))
plot.1<-plot(exercicio.3$y1~exercicio.3$x1,xlab="Log(Patch size)(ha)",ylab="Euclidean distances",xlim=c(0.5,2.0), ylim=c(0,3))
linha<-lm(exercicio.3$y1~exercicio.3$x1)
abline(linha,lwd=2,col="1")
text(2,3, "a", cex=1.5)
factor(exercicio.3$y2)
box.plot<-boxplot(exercicio.3$x2~exercicio.3$y2,ylim=c(0,3),names=c("Smmal","Medium\nEdge","Medium\nInterior","Large\nEdge","Large\nInterior","Control"),cex.axis=.6)
points(1,3, pch = "*")
points(2,3, pch = "*")
points(2.7,3, pch = "*")
points(2.9,3, pch = "*")
points(4,3, pch = "*")
points(5.6,3, pch = "*")
points(5.8,3, pch = "*")
points(6,3, pch = "*")
text(6.5,3, "b", cex=1.5)