R/AGE.R

In knotion/PFSkit:

#' @title get_AGE
#' @description Esta es una funcion de PFSkit
#' @details Esta funcion es parte del paquete PFS-kit
#' @examples
#' -------
#' @export
# Existen diferencias por fechas de nacimiento incorrectas en input_pfs_contex_mex_2018.csv
#Existen una diferencia sistematica en un pequeño subconjunto de datos
#al rededor de 60 en los cuales Testdate es 6/5/2018 y 2e asume 5/6/2018

get_AGE<-function(Q_context){
  Age<-Q_context%>%
  select(c("stidstd","Testdate",contains("ST003")))%>%
  mutate("test_year"= as.numeric(format(as.Date(Testdate,format = "%m/%d/%Y"),format="%Y")),
         "test_month"= as.numeric(format(as.Date(Testdate,format = "%m/%d/%Y"),format="%m")),
         "test_day" =  as.numeric(format(as.Date(Testdate,format = "%m/%d/%Y"),format="%d")),
         #Anio de Nacimiento
         "ST003Q03_15"=as.numeric(ST003Q03_15),
         #Mes de Nacimiento
         "ST003Q02_15"=as.numeric(ST003Q02_15),
         #Dia de nacimiento
         "ST003Q01_15"=as.numeric(ST003Q01_15)
         )%>%
  mutate("AGE" = (test_year-ST003Q03_15) +
                ((test_month-ST003Q02_15)/12.0)
         )
  return(Age)
}

# fechas<-get_AGE(data2)
# compar<-inner_join(fechas,
#                    data %>%
#                      select(stidstd,Age,contains("ST003")),
#                    by=c("stidstd"="stidstd"))%>%
#   mutate(diff=abs(AGE-Age))
# compar<-compar[,order(colnames(compar))]