[R-es] Inserción de condicionales en pequeño código

An embedded and charset-unspecified text was scrubbed...
Name: no disponible
URL: <https://stat.ethz.ch/pipermail/r-help-es/attachments/20140721/0cc1278b/attachment.pl>

An embedded and charset-unspecified text was scrubbed...
Name: no disponible
URL: <https://stat.ethz.ch/pipermail/r-help-es/attachments/20140722/5e923343/attachment.pl>

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

An embedded and charset-unspecified text was scrubbed...
Name: no disponible
URL: <https://stat.ethz.ch/pipermail/r-help-es/attachments/20140722/661b418f/attachment.pl>

An embedded and charset-unspecified text was scrubbed...
Name: no disponible
URL: <https://stat.ethz.ch/pipermail/r-help-es/attachments/20140722/b74fbb78/attachment.pl>