# variogram for Lennon image.
data(lennon)
out<-vgram.matrix( lennon) 
plot( out$d, out$vgram, xlab="separation distance", ylab="variogram") 
# image plot of vgram values by direction.  
# look at different directions 
out<-vgram.matrix( lennon, R=8)  
plot( out$d, out$vgram) 
# add in different orientations 
points( out$d.full, out$vgram.full, col="red")
#image plot of variogram values for different directions. 
set.panel(1,1)
plot.vgram.matrix( out)
# John Lennon appears remarkably isotropic!Run the code above in your browser using DataLab