# 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
window(r) <- NULL
r
# }
Run the code above in your browser using DataLab