# NOT RUN {
data(pedestrian)
# make implicit missingness to be explicit
pedestrian %>% fill_na()
# compute daily maximum counts across sensors
pedestrian %>%
group_by(Sensor) %>%
tsummarise(
Date1 = lubridate::as_date(Date_Time),
MaxC = max(Count)
)
# }
Run the code above in your browser using DataLab