R/CalculaIdade.R

In leandromarino/CesgTools: Educational Assessment Toolkit (Cesgranrio Foundation)

#' Cálculo de Idade
#' 
#' @description 
#' Função para calcular a idade dos estudantes considerando uma data de referência.
#' 
#' @usage 
#' CalculaIdade(dia,mes,ano,diaref,mesref,anoref)
#' 
#' @param dia Vetor com os dias de nascimento das pessoas (formato: dd)
#' @param mes Vetor com os meses de nascimento das pessoas (formato: mm)
#' @param ano Vetor com os anos de nascimento das pessoas (formato: aaaa)
#' @param diaref Dia de referência (formato: dd)
#' @param mesref Mes de referência (formato: mm)
#' @param anoref Ano de referência (formato: aaaa)
#' 
#' @examples 
#' 
#' CalculaIdade(dia = c(24,30), mes = c(03,03), ano = c(1986,1986), diaref=25,mesref=03,anoref=2016)

CalculaIdade <- function(dia,mes,ano,diaref,mesref,anoref){
  
  ano = as.integer(as.character(ano))
  mes = as.integer(as.character(mes))
  dia = as.integer(as.character(dia))
  
  idade = anoref-ano
  idade = ifelse(mes>mesref,idade - 1,idade)
  idade = ifelse(mes==mesref & dia>diaref,idade - 1,idade)
  idade
}