# NOT RUN {
library(raster)
r <- raster(system.file("external/rlogo.grd", package="raster"))
r <- r / cellStats(r, "max")
diss <- raster.mds(r)
diss.med <- raster.mds(r, window.median = TRUE)
par(mfrow=c(2,2))
plot(r)
title("R logo band-1")
plot( focal(r, w = matrix(1, nrow=5, ncol=5), fun = var) )
title("Variance")
plot(diss)
title("MDS")
plot(diss.med)
title("Median MDS")
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab