Skip to content
Prev 15830 / 29559 Next

Empirical Variogram from multiple realizations

On 08/09/2012 06:59 PM, Jordan Winkler wrote:
By "common to all models" I assume you refer to "pooled", or "averaged
over all models". In that case, you can:

library(gstat)
loadMeuse()
v = fit.variogram(variogram(log(zinc)~1,meuse),vgm(1, "Sph", 900, 1))
sim = krige(log(zinc)~1, meuse, meuse.grid, v, nsim=20, nmax=30)
sim.stacked = stack(sim)
coordinates(sim.stacked) = ~x+y
v.pooled = variogram(values~ind, sim.stacked, dX = 0) # wait a while...
plot(v.pooled, v, ylim = c(0, .7))

please look into the dX argument of ?variogram (to get pooling over
different data sets), and look closely what stack() does. Note that in
~ind, in combination with dX ind is not used as predictor, but as
criterium to exclude point pairs coming from different models (those
with different values for ind).

Best regards,