# NOT RUN {
data(vipers)
data(d.gen)
data(grid)
# create a matrix of distances from sample points (columns) to all
# grid pixels
rd <- geo.dist(grid, vipers[,1:2])
#interpolate with idw
result <- intgen.idw(rd, d.gen)
ms <- multispecies(result)
# plot the mean
grid.image(ms, grid, main = "Mean")
# plot the standard deviation
grid.image(ms, grid, ic=2, main = "Standard Deviation")
# }
Run the code above in your browser using DataLab