library(MazamaTimeSeries)
# Show all Camp_Fire locations
Camp_Fire$meta$locationName
# Set a threshold
threshold <- 500
# Find time series with data at or above this threshold
worst_sites <-
Camp_Fire %>%
mts_selectWhere(
function(x) { any(x >= threshold, na.rm = TRUE) }
)
# Show the worst locations
worst_sites$meta$locationName
Run the code above in your browser using DataLab