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