op <- par(no.readonly = TRUE)
sim <- grf(100, cov.pars=c(1, .2)) # simulates data
vario <- variog(sim, max.dist=1) # computes sample variogram
par(mfrow=c(1,2))
plot(vario) # the sample variogram
plot(vario, scaled = TRUE) # the scaled sample variogram
par(op)
Run the code above in your browser using DataLab