## EXERCÍCIO 2 ##
#
## Biomassa de Árvores ##
#
e=exp(-1.7953)
d=15
b=e*d^2.2974
b
# 
# O calculo acima criou-se os objetos: "e" para o expoente de valo -1.7953; "d" para o valor DAP=15cm; e "b" para equação final.
#
h=12
l=(-2.6464+1.9960*log(d)+0.7558*log(h))
l
l2=exp(l)
l2
#
# O calculo acima criou-se os objetos: "h" para o da altura h=12m; "l" para a equação em função de log; e "l2" para transformar a função em valor comparável com a equação "b". 
#
l2-b
#
# A diferença entre o resultado das duas equação "l2" - "b", dado em kg.
#
## Sequências ##
#
# 1. repetição do "a" n vezes.  
a= rep("a", 6)
a
# 2. repetição e sequencia dos núm. de 1 a 3.
b=rep(1:3, each=3)
b
# 3. repetição decrescente e sequencia dos núm. de 1 a 3.
c=c(rep(1,3),rep(2,2),3)
c
# 4. repetição sequencial de 1 a 5 (crescente) e 1 a 4 (decrescente)   
d=c(rep(1:5),rep(4:1))
d
# 5. Núm. impares de 1 a 99.
#
e=seq(1,99,by=2)
e
#
## Conta de Luz ##
#
con=c(9839,10149,10486,10746,11264,11684,12082,12599,13004,13350,13717,14052) 
con
# 1. O consumo mensal (abaixo)
men=diff(con)
men
# 2. Máximo e Mínimo do cons. mensal
max(con)
min(con)
# 3. A média, mediana e variância do cons. mensal
mean(con)
var(con)
range(con)
median(con)
#
## Área Basal ##
# 
# 1. Calculo do DAP
dap=13.5
r=dap/2
r
bas=pi*r^2
bas
dap'=c(7,9,12)
r=dap'/2
dap'=c(7,9,12)
dap'
dap1=c(7,9,12)
dap1
r=dap1/2
r
bas(r)
bas=pi*r^2
bas(r)
bas
sum(bas)
pes=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) 
pes
media=mean(pes)
media
desv=media-pes
desv
vari=sum(desv^2)/length(pes)-1)
vari=sum(desv^2)/(length(pes)-1)
vari
# 2. Comparação
var(pes)
sd(pes)
save.image()
help(dt)
pt(2.2,19)
1-pt(2.2,19)
pt(2.2,19, lower.tail=F)
pt(2.2,19, lower.tail=F)*2
1-pt(1.9,19)*2*100
1-pt(1.9,19)*2
1-pt(1.9,19)
# Para t=2.2
pt(2.2,19, lower.tail=F)*2*100
# Para t=1.9 
pt(1.9,19, lower.tail=F)*2*100
1-pt(1.9,19)
tt=1-pt(1.9,19)
tt
tt*2*100
## EXERCÍCIO 2 ##
#
## Biomassa de Árvores ##
#
e=exp(-1.7953)
d=15
b=e*d^2.2974
b
# 
# O calculo acima criou-se os objetos: "e" para o expoente de valo -1.7953; "d" para o valor DAP=15cm; e "b" para equação final.
#
h=12
l=(-2.6464+1.9960*log(d)+0.7558*log(h))
l
l2=exp(l)
l2
#
# O calculo acima criou-se os objetos: "h" para o da altura h=12m; "l" para a equação em função de log; e "l2" para transformar a função em valor comparável com a equação "b". 
#
l2-b
#
# A diferença entre o resultado das duas equação "l2" - "b", dado em kg.
#
## Sequências ##
#
# 1. repetição do "a" n vezes.  
a= rep("a", 6)
a
# 2. repetição e sequencia dos núm. de 1 a 3.
b=rep(1:3, each=3)
b
# 3. repetição decrescente e sequencia dos núm. de 1 a 3.
c=c(rep(1,3),rep(2,2),3)
c
# 4. repetição sequencial de 1 a 5 (crescente) e 1 a 4 (decrescente)   
d=c(rep(1:5),rep(4:1))
d
# 5. Núm. impares de 1 a 99.
#
e=seq(1,99,by=2)
e
#
## Conta de Luz ##
#
con=c(9839,10149,10486,10746,11264,11684,12082,12599,13004,13350,13717,14052) 
con
# 1. O consumo mensal (abaixo)
men=diff(con)
men
# 2. Máximo e Mínimo do cons. mensal
max(con)
min(con)
# 3. A média, mediana e variância do cons. mensal
mean(con)
var(con)
range(con)
median(con)
#
## Área Basal ##
# 
# 1. Calculo do DAP
dap=13.5
r=dap/2
r
bas=pi*r^2
bas
# 2. Calculo dos diferentes valore das áreas basis a partir do DAP.
dap1=c(7,9,12)
dap1
r=dap1/2
r
bas=pi*r^2
bas
sum(bas)
#
## Variância na Unha ##
#
#1. Calcula da variancia e desvio-padrão
pes=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) 
pes
media=mean(pes)
media
desv=media-pes
desv
vari=sum(desv^2)/(length(pes)-1)
vari
# 2. Comparação
var(pes)
sd(pes)
#
## Teste t ##
#
# Para t=2.2
pt(2.2,19, lower.tail=F)*2*100
# O teste é significativo
#
# Para t=1.9 
pt(1.9,19, lower.tail=F)*2*100
# O teste não é significativo. Portanto, são as mesmas populações.
#
# Calculo alternativo para t=1.9
tt=1-pt(1.9,19)
tt*2*100
#
## Fim! ##
#
## EXERCÍCIO 2 ##
#
## Biomassa de Árvores ##
#
e=exp(-1.7953)
d=15
b=e*d^2.2974
b
# 
# O calculo acima criou-se os objetos: "e" para o expoente de valo -1.7953; "d" para o valor DAP=15cm; e "b" para equação final.
#
h=12
l=(-2.6464+1.9960*log(d)+0.7558*log(h))
l
l2=exp(l)
l2
#
# O calculo acima criou-se os objetos: "h" para o da altura h=12m; "l" para a equação em função de log; e "l2" para transformar a função em valor comparável com a equação "b". 
#
l2-b
#
# A diferença entre o resultado das duas equação "l2" - "b", dado em kg.
#
## Sequências ##
#
# 1. repetição do "a" n vezes.  
a= rep("a", 6)
a
# 2. repetição e sequencia dos núm. de 1 a 3.
b=rep(1:3, each=3)
b
# 3. repetição decrescente e sequencia dos núm. de 1 a 3.
c=c(rep(1,3),rep(2,2),3)
c
# 4. repetição sequencial de 1 a 5 (crescente) e 1 a 4 (decrescente)   
d=c(rep(1:5),rep(4:1))
d
# 5. Núm. impares de 1 a 99.
#
e=seq(1,99,by=2)
e
#
## Conta de Luz ##
#
con=c(9839,10149,10486,10746,11264,11684,12082,12599,13004,13350,13717,14052) 
con
# 1. O consumo mensal (abaixo)
men=diff(con)
men
# 2. Máximo e Mínimo do cons. mensal
max(con)
min(con)
# 3. A média, mediana e variância do cons. mensal
mean(con)
var(con)
range(con)
median(con)
#
## Área Basal ##
# 
# 1. Calculo do DAP
dap=13.5
r=dap/2
r
bas=pi*r^2
bas
# 2. Calculo dos diferentes valore das áreas basis a partir do DAP.
dap1=c(7,9,12)
dap1
r=dap1/2
r
bas=pi*r^2
bas
sum(bas)
#
## Variância na Unha ##
#
#1. Calcula da variancia e desvio-padrão
pes=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) 
pes
media=mean(pes)
media
desv=media-pes
desv
vari=sum(desv^2)/(length(pes)-1)
vari
# 2. Comparação
var(pes)
sd(pes)
#
## Teste t ##
#
# Para t=2.2
pt(2.2,19, lower.tail=F)*2*100
# O teste é significativo
#
# Para t=1.9 
pt(1.9,19, lower.tail=F)*2*100
# O teste não é significativo. Portanto, são as mesmas populações.
#
# Calculo alternativo para t=1.9
tt=1-pt(1.9,19)
tt*2*100
#
## Fim! ##
#