{\rtf1\ansi\ansicpg1252\cocoartf1038\cocoasubrtf360
{\fonttbl\f0\fswiss\fcharset0 Helvetica;}
{\colortbl;\red255\green255\blue255;}
\paperw11900\paperh16840\margl1440\margr1440\vieww11780\viewh6660\viewkind0
\pard\tx566\tx1133\tx1700\tx2267\tx2834\tx3401\tx3968\tx4535\tx5102\tx5669\tx6236\tx6803\ql\qnatural\pardirnatural

\f0\fs24 \cf0 ##4.2##\
#1#\
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")\
table(cervejas)\
barplot(table(cervejas))\
dotchart(table(cervejas))\
\
#2# O gr\'e1fico dotplot tem maior raz\'e3o dado/tinta.\
\
\
##4.3##\
#1#\
caixetas=read.table("caixeta.csv", head=TRUE,sep="," )\
head(caixetas)\
caixetas$dap=caixetas$cap/pi\
head(caixetas)\
hist(caixetas$dap)\
\
#2#\
hist( caixetas$h[ caixetas$local=="retiro" ] , main="Retiro" )\
hist( caixetas$h[ caixetas$local=="jureia" ] , main="Jur\'e9ia" )\
hist( caixetas$h[ caixetas$local=="chauas" ] , main="chauas" )\
\
#3# Parece que em Jureia as arvores sao maiores do que nos outros dois lugares.\
\
##4.4##\
egrandis=read.table("egrandis.csv",head=TRUE,sep=";",as.is=T)\
head(egrandis)\
str(egrandis)\
unique(egrandis$rotacao)\
boxplot(dap~regiao, data=egrandis)\
boxplot(dap~rotacao, data=egrandis)\
qqnorm(egrandis$ht)\
qqline(egrandis$ht,col="red")\
\
##4.5##\
\
head(caixetas)\
names(caixetas)\
so.caixeta=caixetas[caixetas$especie=="Tabebuia cassinoides",]\
so.caixeta\
caixeta2=aggregate(so.caixeta$dap, by=list(local=so.caixeta$local,arvore=so.caixeta$arvore,\
            altura=so.caixeta$h), sum)\
head(caixeta2)\
names(caixeta2)[4]="dap"\
retiro.caixeta2=caixeta2[caixeta2$local=="retiro",]\
jureia.caixeta2=caixeta2[caixeta2$local=="jureia",]\
chauas.caixeta2=caixeta2[caixeta2$local=="chauas",]\
plot(retiro.caixeta2$dap~retiro.caixeta2$altura)\
plot(jureia.caixeta2$dap~jureia.caixeta2$altura)\
plot(chauas.caixeta2$dap~chauas.caixeta2$altura)\
?scatter.smooth\
scatter.smooth(retiro.caixeta2$dap~retiro.caixeta2$altura)\
scatter.smooth(jureia.caixeta2$dap~jureia.caixeta2$altura)\
scatter.smooth(chauas.caixeta2$dap~chauas.caixeta2$altura)\
library(lattice)\
xyplot(caixeta2$dap~caixeta2$altura|caixeta2$local)\
\
\
\
\
\
\
\
\
\
}