d = as.Date(“05/08/2020”, format=“%m/%d/%Y”) d
print(d)
library(lubridate)
d_year <- year(d) d_month <- month(d) d_week <- week(d) d_day <- wday(d)
d_year d_month d_week d_day
d_25 <- d + days(25) d_25
difference <- difftime(d_25, d, units = “days”) difference
is_25_days <- difference == 25 is_25_days