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)
Run the code above in your browser using DataLab