library(MazamaTimeSeries)
# Find lowest elevation sites
Camp_Fire %>%
mts_filterMeta(!is.na(elevation)) %>%
mts_arrange(elevation) %>%
mts_slice_head(n = 5) %>%
mts_extractMeta() %>%
dplyr::select(elevation, locationName)
# Find highest elevation sites
Camp_Fire %>%
mts_filterMeta(!is.na(elevation)) %>%
mts_arrange(elevation) %>%
mts_slice_tail(n = 5) %>%
mts_extractMeta() %>%
dplyr::select(elevation, locationName)
Run the code above in your browser using DataLab