```
# NOT RUN {
#Draw two random graphs, with different tie probabilities
dat<-rgraph(20,2,tprob=c(0.2,0.8))
#Is their correlation higher than would be expected, conditioning
#only on size?
cug<-cugtest(dat,gcor,cmode="order")
summary(cug)
plot(cug)
#Now, let's try conditioning on density as well.
cug<-cugtest(dat,gcor)
plot(cug)
# }
```

Run the code above in your browser using DataLab