[STATSGRASS] gstat probability maps
Edzer J. Pebesma
e.pebesma at geo.uu.nl
Tue Mar 27 11:16:29 EDT 2007
Pierluigi,
it is a (not uncommon) misunderstanding that you would need simulation
for this. Try:
> v <- variogram(log(zinc)~1,loc= meuse)
> m <- vgm(.59, "Sph", 874, .04)
> sim <- krige(formula = log(zinc)~1, locations = meuse, model = m,
newdata =
+ meuse.grid, nmax = 15)
[using ordinary kriging]
> sim$p500 = 1-pnorm(log(500),sim$var1.pred,sqrt(sim$var1.var))
> spplot(sim["p500"], main = "Pr(zn > 500)")
You could of course create a large number of simulations, count the
fraction above 500 for each cell, but the answer would only approximate
the one you get here, under the same model, fast and analytical.
--
Edzer
Pierluigi De Rosa wrote:
> Dear All,
>
> I need to prepare a probability map of exceeding a value...
> I can make the simulation, for example I tried to make it with data meuse:
>
> v <- variogram(log(zinc)~1,loc= meuse)
> m <- vgm(.59, "Sph", 874, .04)
> sim <- krige(formula = log(zinc)~1, locations = meuse, model = m, newdata =
> meuse.grid, nmax = 15, nsim = 5)
> names(sim)
> [1] "sim1" "sim2" "sim3" "sim4" "sim5"
>
> Now How can I create a probabilility map of exceding a value (for example 5)??
>
> Thanks
> Pierluigi
>
>
More information about the grass-stats
mailing list