与えられた樹状図(二分木)のすべてのノードに識別子を適用する関数があるかどうか知りたいのですが。
だから私は与えられたツリーでそれの後に次のことをする関数が欲しいです:
attr(tr,"ID") ## should give 1 or 1
attr(tr[[1]],"ID") ## should give 2 or 10
attr(tr[[2]],"ID") ## should give 3 or 11
attr(tr[[c(1,1)]],"ID") ## should give 4 or 100
等...
また、binaryID 110(ヘッドノードのID)で開始する場合
1番目の子IDは1100である必要があります2番目の子IDは1101である必要があります
注:-dendrapply()
ツリー内のすべてのノードに関数を適用します
パッケージusing="stats"
D=rbind(
+ c(1,1,1,1,1),
+ c(1,2,1,1,1),
+ c(2,2,2,2,2),
+ c(2,2,2,2,1),
+ c(3,3,3,3,3),
+ c(3,3,3,3,2))
Ddend=as.dendrogram(hclust.vector(D))
funID<-function(tr,StartID){
.....
attr(n,"ID")= ID # for all the nodes in tr
}
funIDは何でしょうか?