This question is about working with temporal data. The example data is on pedestrian counts in the city of Melbourne. What time periods of Melbourne pedestrian traffic are extracted by the code below?

Select all answers that you think are correct. Incorrect answers are penalised.

library(lubridate)
library(rwalkr)
ped_2020 <- melb_walk(from=Sys.Date() - 7L)
ped_2019 <- melb_walk(from=Sys.Date() - 30L - years(1), to=Sys.Date() - years(1))