Muchas gracias a todos por vuestra ayuda. La solución que propone Carlos Ortega 
me funciona perfectamente. Gracias mil, Carlos.



Patricio Suárez Gil
Unidad de Investigación Área V-Gijón
Planta 5ª Impar
Hospital Universitario de Cabueñes
C/Prado, 395
33394 Gijón (Asturias)
Tfno: 985 185 000 (Ext. 85715)
@uinvest_psg
unidadinvestigacion.ar...@sespa.es
ESPAÑA











> El 13 feb 2018, a las 1:04, Carlos Ortega <c...@qualityexcellence.es> 
> escribió:
> 
> Hola,
> 
> Esta es una forma...
> 
> > library(lubridate)
> > library(dplyr)
> > 
> > fechas <- c("2016-07-15", "2016-10-12", "2017-02-11")
> > fechas_new <- ymd(fechas)
> > 
> > res_out <- ifelse(year(fechas_new) > 2016, NA, fechas_new)
> > res_out
> [1] 16997 17086    NA
> > class(res_out) <- class(fechas_new)
> > res_out
> [1] "2016-07-15" "2016-10-12" NA      
> 
> 
> No lo había visto hasta ahora, es un caso que se cuenta en la ayuda de 
> "ifelse()" con un ejemplo...
> 
> Saludos,
> Carlos Ortega
> www.qualityexcellence.es <http://www.qualityexcellence.es/>
> 
> 
> 2018-02-13 0:54 GMT+01:00 patricio fuenmayor <patricio.fuenma...@gmail.com 
> <mailto:patricio.fuenma...@gmail.com>>:
> hola Patricio, usa:
> dplyr::if_else
> 
>         [[alternative HTML version deleted]]
> 
> _______________________________________________
> R-help-es mailing list
> R-help-es@r-project.org <mailto:R-help-es@r-project.org>
> https://stat.ethz.ch/mailman/listinfo/r-help-es 
> <https://stat.ethz.ch/mailman/listinfo/r-help-es>
> 
> 
> 
> -- 
> Saludos,
> Carlos Ortega
> www.qualityexcellence.es <http://www.qualityexcellence.es/>

        [[alternative HTML version deleted]]

_______________________________________________
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es

Responder a