# NOT RUN {
b <- rast(system.file("ex/logo.tif", package="terra"))
# give least weight to first layer, most to last layer
wm1 <- weighted.mean(b, w=1:3)
# spatially varying weights
# weigh by column number
w1 <- init(b, "col")
# weigh by row number
w2 <- init(b, "row")
w <- c(w1, w2, w2)
wm2 <- weighted.mean(b, w=w)
# }
Run the code above in your browser using DataLab