# NOT RUN {
data(pedestrian)
# make implicit missingness to be explicit ----
pedestrian %>% fill_na()
# compute daily maximum counts across sensors ----
pedestrian %>% 
  group_by(Sensor) %>% 
  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