#Exercício 4.2#

cervejas <- c("chope","lata","garrafa","chope","garrafa", "garrafa","lata","lata","nenhuma","lata","garrafa","garrafa", "garrafa","lata","lata","lata","garrafa","lata","chope","nenhuma", "garrafa","garrafa","garrafa","chope","garrafa","garrafa","chope","garrafa","lata","lata")
cervejas
graf1 <- barplot(sort(table(cervejas)))
graf2 <- dotchart(sort(table(cervejas)))

#A melhor razão dado/tinta é mostrada pelo graf2(dotchart).

#Exercício 4.3 Caixetais #

caixeta <- read.csv("caixeta.csv", as.is=T)
caixeta
caixeta$dap <- caixeta$cap/pi
dap.h <- hist(caixeta$dap)
table(caixeta$local)
chauas.h <- hist(caixeta$h[caixeta$local=="chauas"], xlim=c(0,200))
jureia.h <- hist(caixeta$h[caixeta$local=="jureia"], xlim=c(0,200))
retiro.h <- hist(caixeta$h[caixeta$local=="retiro"], xlim=c(0,200))

#Sim, existem diferenças entre as estruturas (distribuição de tamanhos) dos caixetais#

#Exercício 4.4 Eucaliptos #

egrandis<-read.csv("egrandis.csv", head=T, sep=";")
egrandis
summary(egrandis)
boxregiao <- boxplot(egrandis$dap~egrandis$regiao)
boxrotação <- boxplot(egrandis$dap~egrandis$rotacao)
qqnorm(egrandis$ht)
qqline(egrandis$ht)