r - 导出 hclust 集群成员

Question

我是 R 新手。我正在尝试做 hclust 并导出集群成员。我使用了以下内容。这是正确的还是有更好的方法？

FCtable1<-as.matrix(read.delim("table1.txt", row.names=1, header=TRUE, sep="\t"))
Disttab1<-dist(FCtable1, method="euclidean")
Hclustout1<-hclust(Disttab1, method="average")
clustnumber<- cutree(Hclustout1, h=1000)
tab1clustn <-data.frame(FCtable1, clustnumber)
write.table(tab1clustn,  file=" tab1clustn.xls", row.names=T, sep="\t")

谢谢R