if (interactive()) {
# data
NOAA <- get_NOAA("oxygen", 1, "annual")
# plot
plot_NOAA(NOAA)
# coordinates
pts <- filter_NOAA(NOAA, 1, list(lon = c(-160, -120), lat = c(11,12)))
# plot
plot_NOAA(NOAA, points = pts)
}
Run the code above in your browser using DataLab