Double Center a distance matrix
DblCenterDist(Y)
Y
a cross-product matrix (if the distance is Euclidean)
Y <- toeplitz(c(0, 3, 3)) DblCenterDist(Y)
Useful links