data(plants_distance)
# Double-center the distance matrix
centered <- double_center_distance_matrix(
distance.matrix = plants_distance
)
# Verify row means are zero
head(rowMeans(centered))
# Verify column means are zero
head(colMeans(centered))
Run the code above in your browser using DataLab