Introduction to Business Analytics with R.

d1 <- ‘05/08/2020’ d <- as.Date(d1, format = ‘%m/%d/%y’)

class(d) ## [1] “Date” print(d) ## [1] “2020-05-08”

year(d) ## [1] 2020 month(d) ## [1] 5 week(d) ## [1] 19 wday(d) ## [1] 6 d_year <- year(d) d_month <- month(d) d_week <- week(d) d_day <- wday(d)

d_25 <- d + 25 print(d_25) ## [1] “2020-06-02”

difftime(d_25, d, units = ‘days’) ## Time difference of 25 days