##Exercicio 3.6 dados.esaligna <- read.table("esaligna.csv", header=T, sep=",") dados.esaligna str(dados.esaligna) head(dados.esaligna) summary(dados.esaligna) tronco1 <- dados.esaligna$tronco tronco1 folhas1 <- dados.esaligna$folha folhas1 biomassa = tronco1 + folhas1 biomassa dados.esaligna2 <- data.frame(dados.esaligna, biomassa) head(dados.esaligna2) area.b=pi*((dados.esaligna$dap/2)^(2)) area.b dados.esaligna.fin <- data.frame(dados.esaligna2,area.b) head(dados.esaligna.fin) dados.esaligna.10cm <- dados.esaligna.fin[dados.esaligna.fin$dap>10,] dados.esaligna.10cm area.basal=pi*((dados.esaligna.10cm$talhao/2)^(2)) area.basal media.area.basal <- mean(area.basal, dados.esaligna.10cm$talhao) media.area.basal