diff <- new_duration(days = 31) #duration
as.interval(diff, as.POSIXct("2009-01-01"))
# 31 days beginning at 2009-01-01
as.interval(diff, as.POSIXct("2009-02-01"))
# 31 days beginning at 2009-02-01
per <- new_period(months = 1) #period
as.interval(per, as.POSIXct("2009-01-01"))
# 31 days beginning at 2009-01-01
as.interval(per, as.POSIXct("2009-02-01"))
# 28 days beginning at 2009-02-01
as.interval(3600, as.POSIXct("2009-01-01")) #numeric
# 1 hours beginning at 2009-01-01}
Run the code above in your browser using DataCamp Workspace