R - Error con hclust

Buenos días. Tengo el siguiente código de R. Solamente quiero aplicar el comando hclust con el método single.

##############################
A1 <- c(0, 0 , 0, 0, 0, 0, 0)
B1 <- c(2.15, 0, 0,0,0,0,0)
C1 <- c(0.7, 1.53, 0, 0,0,0,0)
D1 <- c(1.07, 1.14, 0.43, 0, 0, 0, 0)
E1 <- c(0.85, 1.38, 0.21, 0.29, 0, 0, 0)
F1 <- c(1.16, 1.01, 0.55, 0.22, 0.41, 0, 0)
G1 <- c(1.56, 2.83, 1.86, 2.04, 2.02, 2.05, 0)


distancias1 <- rbind(A1,B1,C1,D1,E1,F1,G1)
distancias2 <- t(distancias1)
distancias <- distancias1 + distancias2

isSymmetric(distancias)

hclust(distancias, method="single")
####################################

distancias es claramente una martiz simétrica, sin embargo el comando isSymmetric() dice que no es simétrica. El comando hclust() devuelve el siguiente error

Error in if (is.na(n) || n > 65536L) stop("size cannot be NA nor exceed 65536") :
valor ausente donde TRUE/FALSE es necesario

¿Alguna ayuda?