if (FALSE) {
# Read a dataset of interest
dataset <- read_data("edi.193.5")
# Plot the dataset
plot_sample_space_time(dataset)
# Flatten the dataset, manipulate, then plot
dataset %>%
flatten_data() %>%
dplyr::filter(lubridate::as_date(datetime) > "2003-07-01") %>%
dplyr::filter(as.numeric(location_id) > 4) %>%
plot_sample_space_time()
}
# Plot the example dataset
plot_sample_space_time(ants_L1)
Run the code above in your browser using DataLab