## Exercícios de Funções Matemáticas
### Ana Carolina Luchetta

###Biomassa de árvores



###Seqüências
rep ("a", 6)                  #repete a letra a 6 vezes
rep (1:3, each=3)             #repete cada número da seqüência 3 vezes
c(rep(1,3),rep(2,2),rep(3,1)) #concatena os resultados de repetição dos números 1, 2 e 3
c ( 1:5, 4:1)                 #concatena a sequência de 1 a 5, com a sequeência de 4 a 1
seq (1, 99, 2)                #seqüência de 1 a 99, com invremento 2

##Conta de luz
luz <- c (9839, 10149, 10486, 10746, 11264, 11684, 12082, 12599, 13004, 13350, 13717, 14052)
diferenca <- diff (luz)       #diferença entre o primeiro e o segundo valor, entre o segundo e o terceiro, ....
range (diferenca)             #maior e menor valor das diferenças
mean (diferenca)              #média dos valores
median (diferenca)            #mediana dos valores
var(diferenca)                #variância dos valores
##ou##
summary (diferenca)           #todos os valores de uma vez só

##Área basal
diametro <- 13.5
raio <- diametro/2            #o raio será metade do diâmetro
area <- 2*pi*raio^2           #para calcular a área de uma circunferência, utiliza-se a fórmula
area                          #verifica a área (286.2776 cm)
areatotal <- (2*pi*(7/2)^2)+(2*pi*(9/2)^2)+(2*pi*(12/2)^2)     #soma de cada uma das áreas
areatotal

##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)
desvio <- mean(pesos)-pesos
variancia <- sum(desvio^2)/(length (pesos) - 1)
variancia                     #variância na unha
var (pesos)                   #variância pela fórmula (valores iguais de 3.110606)
sqrt (variancia)              #o desvio padrão é a raiz quadrada da variâncoa
sd (pesos)                    #desvio padrão pela fórmula (valores iguais de 1.763691)

##