separableModel <- vgmST("separable",
space=vgm(0.86, "Exp", 476, 0.14),
time =vgm( 1, "Exp", 3, 0),
sill=113)
data(vv)
if(require(lattice)) {
plot(vv, separableModel, wireframe=TRUE, all=TRUE)
}
# plotting of sample and model variogram
plot(vv, separableModel)
Run the code above in your browser using DataLab