sim <- grf(100, cov.pars=c(1, .2))# generates simulated data
vario <- variog(sim, max.dist=1) # computes sample variogram
par(mfrow=c(1,2))
plot(vario) # the sample variogram
plot(vario, scaled=T) # the scaled sample variogramRun the code above in your browser using DataLab