# separable model: spatial and temporal sill will be ignored
# and kept constant at 1-nugget respectively. A joint sill is used.
## Not run:
# separableModel <- vgmST("separable",
# method = "Nelder-Mead", # no lower & upper needed
# 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)
# ## End(Not run) # dontrun
Run the code above in your browser using DataLab