if (FALSE) {
## sample data
path <- system.file("extdata", package = "satellite")
files <- list.files(path, pattern = glob2rx("LC08*.TIF"), full.names = TRUE)
sat <- satellite(files)
## geographic extent of georg-gassmann-stadium (utm 32-n)
ext_ggs <- raster::extent(482606.4, 482781.4, 5627239, 5627489)
## extend satellite object by specified extent
sat_ggs <- extend(sat, ext_ggs)
plot(sat)
plot(sat_ggs)
}
Run the code above in your browser using DataLab