# NOT RUN {
# Small example
data(dem)
dem_mean3 = focal2(dem, matrix(1, 3, 3), "mean")
r = c(dem, round(dem_mean3, 1), along = 3)
r = st_set_dimensions(r, 3, values = c("input", "mean (k=3)"))
plot(r, text_values = TRUE, breaks = "equal", col = terrain.colors(10))
# }
# NOT RUN {
# Larger example
data(carmel)
carmel_mean15 = focal2(carmel, matrix(1, 15, 15), "mean")
r = c(carmel, carmel_mean15, along = 3)
r = st_set_dimensions(r, 3, values = c("input", "mean (k=15)"))
plot(r, breaks = "equal", col = terrain.colors(10))
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab