Матрица Манхэттена на 2 матрицы несимметрична, но должна быть

Question

Я создал две матрицы со случайными целыми числами в качестве компонентов, размер матрицы не имеет значения. Затем я хочу рассчитать матрицу расстояний методом Манхэттена и оформить ее как матрицу. Матрица должна быть симметричной, но когда я представляю ее как матрицу, на выходе получается несимметричная матрица расстояний.

По этой матрице (которая должна быть на выходе) я хочу рассчитать кластер.

Где моя ошибка?

Код:

      a <- c(sample.int(30,6))

b <- c(sample.int(30,6))

c <- c(sample.int(30,6))

d <- c(sample.int(30,6))

e <- c(sample.int(30,6))

f <- c(sample.int(30,6))

V2 <- rbind(a,b,c,d,e,f)

V1 <- rbind(a,b,c,d,e,f) 

d1MNR <- matrix(dist(Vorlage1,Vorlage2, method="manhattan"))              #### Is non symmetric
          
d1MR  <- matrix(dist(V1,V2,upper=TRUE, diag=TRUE ,method="manhattan"))    #### Should be symmetric, but is not     

d1MR ### Generate output


hclust <- hclust(dist(d1MR), method = "single")                         ### Clustering