# funcao_dp
# Autor
# 12/03/2020
# Criar uma função para calcular a desvio padrao usando
#  dois for 
rm(list = ls())

d_padrao <- function(vetor){
  # Tamanho do vetor
  n <- length(vetor)
  s <- 0
  for(i in 1:n){
    s <- s+vetor[i]
  }
  xb <- s/n
  s1 <- 0
  for(i in 1:n){
    s1 <- s1+((vetor[i]-xb)^2)
  }
  s2 <- s1/(n-1)
  sd <- sqrt(s2)
  return(sd)
}
leiteA <- c(38.2, 41.2, 41.1, 36.8, 43.6, 34.7, 36.6, 36.6, 36.3, 33.4)