require(geoR)

grid <- pred_grid(c(-55,-50),c(-25,-22), by=0.5)

plot(grid)

x <- unique(grid[,1]); nx <- length(x)

y <- unique(grid[,2]); ny <- length(y)

z <- matrix(runif(nx*ny, 10,50), nx, ny)

image(x,y,z)

Éder Comunello <c omunello.eder@gmail.com>
Dourados, MS - [22 16.5'S, 54 49'W]