# NOT RUN {
f <- system.file("ex/test.tif", package="terra")
r <- rast(f)
global(r, "mean", na.rm=TRUE)
e <- ext(c(179680, 180176, 331905, 332304))
window(r) <- e
global(r, "mean", na.rm=TRUE)
r
x <- rast(f)
xe <- crop(x, e)
global(xe, "mean", na.rm=TRUE)
b <- c(xe, r)
window(b)
b
window(r) <- NULL
r
# }
Run the code above in your browser using DataLab