Returns a vector with group memberships. This function is used by the function consensus of clusters.
hgroups(hmerge)
| hmerge | The object is components of the hclust |
|---|
The merge clusters is printed.
library(agricolae) data(pamCIP) # only code rownames(pamCIP)<-substr(rownames(pamCIP),1,6) distance <- dist(pamCIP,method="binary") clusters<- hclust( distance, method="complete") # groups of clusters hgroups(clusters$merge)#> [,1] #> [1,] "2-19" #> [2,] "4-32" #> [3,] "6-14" #> [4,] "9-28" #> [5,] "10-11" #> [6,] "10-11-12" #> [7,] "10-11-12-18" #> [8,] "10-11-12-18-20" #> [9,] "10-11-12-18-20-21" #> [10,] "10-11-12-18-20-21-43" #> [11,] "23-34" #> [12,] "23-34-38" #> [13,] "24-26" #> [14,] "24-26-27" #> [15,] "24-26-27-35" #> [16,] "24-26-27-35-39" #> [17,] "31-33" #> [18,] "31-33-41" #> [19,] "6-14-40" #> [20,] "3-4-32" #> [21,] "2-8-19" #> [22,] "7-10-11-12-18-20-21-43" #> [23,] "3-4-31-32-33-41" #> [24,] "2-8-19-23-34-38" #> [25,] "1-13" #> [26,] "6-14-36-40" #> [27,] "15-22" #> [28,] "5-25" #> [29,] "7-10-11-12-18-20-21-24-26-27-35-39-43" #> [30,] "30-37" #> [31,] "1-13-29" #> [32,] "2-5-8-19-23-25-34-38" #> [33,] "2-3-4-5-8-19-23-25-31-32-33-34-38-41" #> [34,] "6-14-36-40-42" #> [35,] "1-7-10-11-12-13-18-20-21-24-26-27-29-35-39-43" #> [36,] "1-6-7-10-11-12-13-14-18-20-21-24-26-27-29-35-36-39-40-42-43" #> [37,] "2-3-4-5-8-16-19-23-25-31-32-33-34-38-41" #> [38,] "2-3-4-5-8-16-19-23-25-30-31-32-33-34-37-38-41" #> [39,] "9-15-22-28" #> [40,] "1-2-3-4-5-6-7-8-10-11-12-13-14-16-18-19-20-21-23-24-25-26-27-29-30-31-32-33-34-35-36-37-38-39-40-41-42-43" #> [41,] "1-2-3-4-5-6-7-8-10-11-12-13-14-16-17-18-19-20-21-23-24-25-26-27-29-30-31-32-33-34-35-36-37-38-39-40-41-42-43" #> [42,] "1-2-3-4-5-6-7-8-9-10-11-12-13-14-15-16-17-18-19-20-21-22-23-24-25-26-27-28-29-30-31-32-33-34-35-36-37-38-39-40-41-42-43"