Aqui você encontra os códigos que solucionam alguns dos exercícios propostos.
Se o seu código for diferente, não quer dizer necessariamente que errou. Compare os dois resultados!
Como qualquer linguagem, o R é criativo: em muitos casos há mais de uma maneira de solucionar um problema.
load("bichos.RData")
ls()
ls(pattern="temp")
rm(list=ls(pattern="temp"))
ls()
## Uma árvore com DAP= 13,5 cm pi*(13.5/2)^2 ## Árvore com DAPs de 7cm, 9cm e 12cm pi*(7/2)^2 + pi*(9/2)^2 + pi*(12/2)^2