## load example data
data(graph20)
## compute USVT-based distance
output <- nd.graphon(graph20, out.dist=FALSE, method="usvt")
## visualize
opar = par(no.readonly=TRUE)
par(pty="s")
image(output$D[,20:1], main="USVT", col=gray(0:32/32), axes=FALSE)
par(opar)
Run the code above in your browser using DataLab