Skip to main content
3 de 3
se añadieron 608 caracteres en el cuerpo
Patricio Moracho
  • 61.1k
  • 12
  • 42
  • 72

Lo que puedes hacer es una función que genere una secuencia de fechas por mes y quedarnos con la fecha del mes esperado:

addmonth <- function(d, m) {
 seq(d, by="month", length.out=m+1)[m+1]
}

ejemplo:

addmonth(as.Date("31/03/2022", format = "%d/%m/%Y"), 6)
[1] "2022-10-01"

Si quieres trabajar con un vector puedes perfectamente hacer algo así:

addmonth <- function(dl, m) {
  as.Date(sapply(dl, FUN=function(d) {
    seq(d, by="month", length.out=m+1)[[m+1]]
  }))
}


fechas <- seq(as.Date("31/03/2022", format = "%d/%m/%Y"), 
              by="day", length.out=15)

addmonth(fechas, 6)

 [1] "2022-10-01" "2022-10-01" "2022-10-02" "2022-10-03"
 [5] "2022-10-04" "2022-10-05" "2022-10-06" "2022-10-07"
 [9] "2022-10-08" "2022-10-09" "2022-10-10" "2022-10-11"
[13] "2022-10-12" "2022-10-13" "2022-10-14"
Patricio Moracho
  • 61.1k
  • 12
  • 42
  • 72