# NOT RUN {
# Smooth outer 25 grid points
x <- array(10, dim = c(100, 200))
xflat <- flatten(x = x, filter = seq(0, 1, , 25))
par(mfrow = c(1, 2))
image(x, main = "Original")
image(xflat, main = "Smoothed Bound")
# }
Run the code above in your browser using DataLab