?hclust

用了，但是它不认距离矩阵

as.distance

谢谢啦，一语点醒梦中人，已解决问题了

问题解决了，该题程序代码如下：
x1 <- c(0,4,6,1,6)
x2 <- c(4,0,9,7,3)
x3 <- c(6,9,0,10,5)
x4 <- c(1,7,10,0,8)
x5 <- c(6,3,5,8,0)
X <- rbind(x1,x2,x3,x4,x5)
Y <- as.dist(X);Y
hc1 <- hclust(Y,"single")   #最短距离法
cbind(hc1$merge,hc1$height)
plot(hc1)