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