[R] How to Reshuffle a distance object

[Dale Steele]

I would like to randomly shuffle a distance object, such as the one
created by ade4{dist.binary} below. My first attempt, using
sample(jc.dist) creates a shuffled vector, losing the lower triangular
structure of the distance object.  How can I Ishuffle the lower
triangular part of a distance matrix without losing the structure?
Thanks.  --Dale

x1 <- c(rep(0,4),1)
x2 <- c(rep(0,2),rep(1,3))
x3 <- c(rep(1,3), rep(0,2))
X <- rbind(x1,x2,x3)
X
X <- as.data.frame(X)
library(ade4)
jc.dist  <- dist.binary(X, method=1)
sample(jc.dist)