#Generate some random graphs with varying densities
g<-rgraph(10,20,tprob=runif(20,0,1))
#Find the Hamming distances between graphs
g.h<-hdist(g)
#Plot the relationship between distance and differences in density
gdist.plotdiff(g.h,gden(g),lm.line=TRUE)
Run the code above in your browser using DataLab