Description Usage Arguments Examples
Title
1 2 3 |
date |
|
region |
|
band |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | ## Not run:
dates <- Sys.Date() - c(1, 2, 3, 4, 5)
for (i in seq_along(dates)) {
r <- asosi(dates[i])
writeRaster(r, sprintf("infrared%s.tif", format(dates[i])))
r2 <- asosi(dates[i], band = "visible")
writeRaster(r2, sprintf("visible%s.tif", format(dates[i])))
}
## prepare an object to build graticule lines
temp <- as(extent(r), "SpatialPolygons")
#' projection(temp) <- projection(r)
plot(r);llgridlines(temp)
## End(Not run)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.