# NOT RUN {
data(vipers)
data(d.gen)
# create a distance matrix between samples
r.dist <- dist(vipers[,1:2])
# fit a variogram with defaults (shperical model) and estimation of range
gv <- gen.variogram(r.dist, d.gen, 0.25)
# print variogram details
gv
# add a model to variogram
gv <- gv.model(gv)
# print variogram with model details
gv
# }
Run the code above in your browser using DataLab