dendro <- gsub(paste('\\(',0,',',0,'\\)',sep=''),0,dendro)
for (cl in 1:clnb) {
dendro <- gsub(paste('\\(',0,',',cl,'\\)',sep=''),cl,dendro)
dendro <- gsub(paste('\\(',0,',',0,'\\)',sep=''),0,dendro)
for (cl in 1:clnb) {
dendro <- gsub(paste('\\(',0,',',cl,'\\)',sep=''),cl,dendro)