## load example data and extract a few
data(graph20)
gr.small = graph20[c(1:5,11:15)]
## compute distance matrix
output = nd.wsd(gr.small, out.dist=FALSE, K=10)
## visualize
opar = par(no.readonly=TRUE)
par(pty="s")
image(output$D[,10:1], main="two group case", axes=FALSE, col=gray(0:32/32))
par(opar)
Run the code above in your browser using DataLab