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 [email protected] ESPAÑA > El 13 feb 2018, a las 1:04, Carlos Ortega <[email protected]> > 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 <[email protected] > <mailto:[email protected]>>: > hola Patricio, usa: > dplyr::if_else > > [[alternative HTML version deleted]] > > _______________________________________________ > R-help-es mailing list > [email protected] <mailto:[email protected]> > 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 [email protected] https://stat.ethz.ch/mailman/listinfo/r-help-es
