data(meuse.grid)
m <- SpatialPixelsDataFrame(points = meuse.grid[c("x", "y")],
data = meuse.grid)
m
m <- m[,3:6]
## The initial image
image(m,3)
## The transformed image
m2 <- lowres(m, np = 4)
image(m2, 3)
Run the code above in your browser using DataLab