# Rodolpho C. Rodrigues
# Exercício 2
# Final

#Biomassa de árvores
b1=exp(-1.7953)*15^2.2974
b2=exp(-2.6464+1.9960*log(15)+0.7558*log(12))
b1
b2
b1-b2
# As diferenças entre as estimativas dos valores é de 19.61 kg.
# Sequências
a=rep("a",6)
b=c(1,2,3)
b1=rep(b,each=3)
d=c(rep(1,3),rep(2,2),3)
e=c(seq(1:5),seq(4:1,decreasing=T))
f=seq(1,99,2)
#Conta deluz
luz=c(9839, 10149, 10486, 10746, 11264, 11684, 12082, 12599, 13004, 13350, 13717, 14052) 
consumo=diff(luz)
summary(consumo)#mostra os valores mínimos e máximos 
mean(consumo)
median(consumo)
var(consumo)
#Área basal
raio=13.5/2
a.t=pi*(raio)^2
atotal=pi*(7+9+12/2)^2
atotal
#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)
var.pesos=sum((pesos-mean(pesos))^2/(length(pesos)-1))
var.pesos
sd.pesos=sqrt(var.pesos)
sd.pesos
var(pesos)
sd(pesos)
#Teste t
p1=pt(q=2.2,df=19,lower.tail=F)*2
p1
# O resultado é significativo para t=2.2
p2=pt(q=1.9,df=19,lower.tail=F)*2
p2
# Para t=1.9, o resultado da probabilidade é maior que 0,05 e por isso não é significativo