```
# NOT RUN {
#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