dend2newick.r

dend2newick <- function(d) {
	leftLeaf <- attributes(d[[1]])$leaf
	rightLeaf <- attributes(d[[2]])$leaf

	if(length(leftLeaf) > 0) {
		leftStr <- sprintf("%s:%f", attributes(d[[1]])$label, attributes(d)$height);
	} else {
		leftStr <- dend2newick(d[[1]])
	}

	if(length(rightLeaf) > 0) {
		rightStr <- sprintf("%s:%f", attributes(d[[2]])$label, attributes(d)$height);
	} else {
		rightStr <- dend2newick(d[[2]])
	}

	return(sprintf("(%s,%s)", leftStr, rightStr))
}