dendro.subjects.R
dendro.subjects <-
function(data, weights, linkage="ward.D2"){
#function(data, type=list()){
# !! to be done: allow also asymmetric binary variables
D.subjects <- dist.subjects(data, weights=weights)
#D.subjects <- dist.subjects(data, weights=weights, type=type)
as.dendrogram(hclust(D.subjects, method=linkage))
}