# separable model: spatial and temporal sill will be ignored
# and kept constant at 1-nugget respectively. A joint sill is used.
separableModel <- vgmST("separable",
space=vgm(0.9,"Exp", 123, 0.1),
time =vgm(0.9,"Exp", 2.9, 0.1),
sill=100)
data(vv)
separableModel <- fit.StVariogram(vv, separableModel,
method="L-BFGS-B",
lower=c(10,0,0.01,0,1),
upper=c(500,1,20,1,200))
plot(vv, separableModel)
Run the code above in your browser using DataLab