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"