library(terra)
dates <- seq(as.Date("2024-01-12"), as.Date("2025-01-11"), by = "1 day")
r <- rast(sds::nsidc_seaice(dates[length(dates)], hemisphere = "north"))
r[r > 2500] <- NA
r <- r/10
plot(r)
Created
January 13, 2025 00:12
-
-
Save mdsumner/a50cb328b323b9c6905d1efcbd9b9c0c to your computer and use it in GitHub Desktop.