library(dplyr)
data(pedestrian)
# make implicit missingness to be explicit ----
pedestrian %>% fill_gaps()
# compute daily maximum counts across sensors ----
pedestrian %>%
group_by_key() %>%
index_by(Date) %>% # group by Date and use it as new index
summarise(MaxC = max(Count))
Run the code above in your browser using DataLab