example(krige.tilesov)
image(maas.ktilesov$var)
image(maas.ktilesov.$z)
image(maas.ktilesov.pvm$z)
image(maas.ktilesov.pvm$var)
library(pvmkrige)
library(rgeostat)
example(krige.tilesov)
maas.ktilesov.pvm <- krige.pvm.tiles(maas.point, "zinc", maas.vmod, min(maas.bank$x), min(maas.bank$y),max(maas.bank$x), max(maas.bank$y), nx=100,ny=100, itx=10, ity=10,nxper=2,nyper=2 ,rsearch = 600,extrap = F))
system.time(maas.ktilesov.pvm)
image(maas.ktilesov.pvm$var)
image(maas.ktilesov.pvm$z)
image(maas.ktilesov$var)
image(maas.ktilesov$z#)
image(maas.ktilesov$z)
library(rgeostat)
library(pvmkrige)
example(krige.tilesov)
image(maas.ktilesov$z)
library(pvmkrige)
maas.ktilesov.pvm <- krige.pvm.tiles(maas.point, "zinc", maas.vmod, min(maas.bank$x), min(maas.bank$y),max(maas.bank$x), max(maas.bank$y), nx=100,ny=100, itx=10, ity=10,nxper=2,nyper=2 ,rsearch = 600,extrap = F)
library(pvmkrige)
maas.ktilesov.pvm <- krige.pvm.tiles(maas.point, "zinc", maas.vmod, min(maas.bank$x), min(maas.bank$y),max(maas.bank$x), max(maas.bank$y), nx=100,ny=100, itx=10, ity=10,nxper=2,nyper=2 ,rsearch = 600,extrap = F)
q()
library(pvmkrige)
maas.ktilesov.pvm <- krige.pvm.tiles(maas.point, "zinc", maas.vmod, min(maas.bank$x), min(maas.bank$y),max(maas.bank$x), max(maas.bank$y), nx=100,ny=100, itx=10, ity=10,nxper=2,nyper=2 ,rsearch = 600,extrap = F)
image(maas.ktilesov$z)
image(maas.ktilesov.pvm$z)
image(maas.ktilesov.pvm$var)
maas.ktilesov.pvm <- krige.pvm.tiles(maas.point, "zinc", maas.vmod, min(maas.bank$x), min(maas.bank$y),max(maas.bank$x), max(maas.bank$y), nx=100,ny=100, itx=10, ity=10,nxper=2,nyper=2 ,rsearch = 600,extrap = F)
system.time(maas.ktilesov.pvm <- krige.pvm.tiles(maas.point, "zinc", maas.vmod, min(maas.bank$x), min(maas.bank$y),max(maas.bank$x), max(maas.bank$y), nx=100,ny=100, itx=10, ity=10,nxper=2,nyper=2 ,rsearch = 600,extrap = F))
q()
