# funcao_soma
# Autor
# 12/03/2020
# Criar uma função para calcular a soma de um vetor
rm(list = ls())

soma <- function(vetor){
  # comprimento do vetor
  n <- length(vetor)
  # loop para soma
  s <- 0
  for(i in 1:n){
    s <- s + vetor[i]
  }
  # saida
  return(s)
}







# Comentar em bloco
# selecionar, ctrl+shift+c
# a <- 4
# b <- 3
# ce <- 5