f <- system.file("ex/elev.tif", package="terra")
r <- rast(f)
global(r, "mean", na.rm=TRUE)
e <- ext(c(5.9, 6,49.95, 50))
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