Получение даты на заданном расстоянии от заданной даты

Question

Как я могу получить дату, которая является заданным числом периодов позже / раньше указанной даты? Например, если x <- as.Date("2001-01-01"), как мне получить дату, которая на 6 месяцев позже (2001-07-01) или раньше (2000-07-01), чем x? К числу осложняющих факторов относятся день месяца начальной даты или число дней в месяце.

Answer 1

library(lubridate)
ymd("2001-01-01") + months(6)
ymd("2001-01-01") - months(6)

Answer 2

seq( as.Date("2001/01/01"), by = "6 months", length = 2)[2]
# [1] "2001-07-01"