dygraph(a3) %>% 
  dyRangeSelector()