[R-es] Inserción de condicionales en pequeño código
Franciso,
#Tus datos require(data.table) DT <-
data.table(id=1:5,fnacim=as.Date(c("1939-10-28","1943-02-26","1946-03-09","1947-05-19","1932-04-03")),finicio=as.Date(c("2012-01-01","1980-07-15","1998-10-28","2011-10-28","2010-10-28")),fsal=as.Date(c("2012-05-01","2014-02-01","2012-10-20","2013-10-15","2012-08-25")))
#Tus condiciones
edad_u=65; Apertura=as.Date("2010-01-01")
#Con estas dos lineas creo que deberÃa poder identificar a tus empleados
DT[,fcumple:=paste(year(fnacim)+65,substr(fnacim,6,10),sep="-")]
DT[,quien:=Apertura>=fcumple & finicio<=Apertura]
DT
id fnacim finicio fsal fcumple quien 1: 1 1939-10-28 2012-01-01 2012-05-01 2004-10-28 FALSE 2: 2 1943-02-26 1980-07-15 2014-02-01 2008-02-26 TRUE 3: 3 1946-03-09 1998-10-28 2012-10-20 2011-03-09 FALSE 4: 4 1947-05-19 2011-10-28 2013-10-15 2012-05-19 FALSE 5: 5 1932-04-03 2010-10-28 2012-08-25 1997-04-03 FALSE
Hola Javier Rubén, Gracias por tu respuesta. Si bien ya sabÃa que el código funcionaba (de hecho, ya lo mencionaba en mi correo inicial), el motivo de adjuntarlo era por si dicho código fuese muy mejorable en condiciones de rendimiento, pues he de aplicarlo a decenas de miles de datos y funciona algo lento (posible motivo ya apuntado en tu respuesta). Dado que sé que en el foro hay gente que sabe muchÃsimo en el tratamiento de fechas, quizás (no lo sé) se puede establecer una clara mejora en términos de eficiencia computacional. En cualquier caso, lo dejo por si alguien realiza alguna vez algo similar o por si alguien tiene una aportación al respecto. Saludos. [[alternative HTML version deleted]]
_______________________________________________ R-help-es mailing list R-help-es en r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es
-- ____________________________________ Olivier G. Nuñez Email: onunez en unex.es http://kolmogorov.unex.es/~onunez Tel : +34 663 03 69 09 Departamento de Matemáticas Universidad de Extremadura