options(digits=6)
library(sp)
data(meuse)
set.seed(158229572)
new.locs <- data.frame(x = c(181170, 180310, 180205, 178673, 178770, 178270),
y = c(333250, 332189, 331707, 330066, 330675, 331075))
library(gstat)
krige(zinc ~ 1, ~ x + y, meuse, newdata = new.locs,
model = vgm(1.34e5, "Sph", 800, nug = 2.42e4),
block = c(40,40), nmax = 40, nsim = 10)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.