##2.1 Biomassa de Árvores

e<-exp(1)
biomassa1<-((e^(-1.7953)*(15^(2.2974))))
biomassa1
biomassa2 <- exp((-2.6464 + 1.9960)*(log(15)))+((0.7558)*(log(12)))
biomassa2
log.biomassa <- (-2.6464 + ((1.9960*log(15)) + (0.7558*log(12))))
biomassa2 <- e^log.biomassa
biomassa2

##2.2 Sequências

letra.a <- (rep("a", times=6))
letra.a
numeros <- (rep(1:3, each=3))
numeros
decrescente <- (rep (1:3, times=3:1))
decrescente
sequencia <- seq(1:5)
sequencia
#1 2 3 4 5 4 3 2 1
impares <- (seq(1,99, by=2))
impares
#1 a 99

##2.3 Conta de Luz

luz <- c(9839,10149,10486,10746,11264,11684,12082,12599,13004,13350,13717,14052)
diff (luz)
luz.cons<-diff(luz)
mean(luz)
luz.m<-mean(luz)
median(luz)
luz.md<-median(luz)
var(luz)
luz.v<-var(luz)
max(luz.cons)
min(luz.cons)
range<-c(260,518)
luz.range<-range

##2.4 Área Basal

#altura do peito (1.3m)
#(DAP) de 13.5cm
e<-exp(1)
log.arvore1 <- (-2.6464 + ((1.9960*log(13.5)) + (0.7558*log(1.3))))
arvore1 <- e^log.arvore1
arvore1
DAPs de: 7cm, 9cm e 12cm.
arvore21 <- (-2.6464 + ((1.9960*log(7)) + (0.7558*log(1.3))))
arvore21
arvore22 <- (-2.6464 + ((1.9960*log(9)) + (0.7558*log(1.3))))
arvore22
arvore23 <- (-2.6464 + ((1.9960*log(12)) + (0.7558*log(1.3))))
arvore23
sum(arvore21,arvore22,arvore23)
log.arvore2 <- sum(arvore21,arvore22,arvore23)
log.arvore2
arvore2 <- e^log.arvore2
arvore2

##Variância na Unha

pesos <- c(78.4, 79.8, 76.0, 75.3, 77.4, 78.6, 77.9, 78.8, 79.2, 75.2, 75.0, 79.4)
m<-mean(pesos)
m
desvs<-(pesos-m)
desvs
desvq<-(desvs^2)
pesos.d2<-desvq
pesos.d2
soma<-sum(desvq)
pesos.d2s<-soma
pesos.d2s
length(pesos)
#numero de pesos (n)=12
vr<-(soma/(12-1))
pesos.v<-vr
pesos.v

##2.6 Teste t

#não consegui nem começar :(