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
2018-02-13 0:54 GMT+01:00 patricio fuenmayor <[email protected]>:
> hola Patricio, usa:
> dplyr::if_else
>
> [[alternative HTML version deleted]]
>
> _______________________________________________
> R-help-es mailing list
> [email protected]
> https://stat.ethz.ch/mailman/listinfo/r-help-es
>
--
Saludos,
Carlos Ortega
www.qualityexcellence.es
[[alternative HTML version deleted]]
_______________________________________________
R-help-es mailing list
[email protected]
https://stat.ethz.ch/mailman/listinfo/r-help-es
