data(meuse)
coordinates(meuse) <- ~x+y
# load grids:
data(meuse.grid)
coordinates(meuse.grid) <- ~x+y
gridded(meuse.grid) <- TRUE
# fit a model:
omm <- fit.gstatModel(observations = meuse, om~dist, covariates = meuse.grid,
family = gaussian(log))
show(omm@regModel)
om.sp <- SpatialPointsDataFrame(omm@sp, data = omm@regModel$model)
# plot a variogram:
plot(variogram(om~1, om.sp))Run the code above in your browser using DataLab