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