added function extend_terminal_branches

NAMESPACE

@@ -11,6 +11,7 @@ export(decompose_tree)
 export(descendants)
 export(difference_from_calibrated)
 export(distance_from_tip)
+export(extend_terminal_branches)
 export(flip_bipartition)
 export(get_bipartitions)
 export(get_corresponding_nodes)

R/utility_functions.R

@@ -464,3 +464,17 @@ connecting_edges = function(phy, node_a, node_b){
 
 	return(edges)
 }
+
+#' Extends each terminal branch by specified length
+#' 
+#' @param phy A phylogeny in ape::phylo format
+#' @param x Amount to extend each branch by
+#' @return A phylogeny in ape::phylo format
+#' @export
+extend_terminal_branches = function( phy, x ){
+
+	is_terminal = phy$edge[ , 2 ] %in% 1:length( phy$tip.label )
+	phy$edge.length[ is_terminal ] = phy$edge.length[ is_terminal ] + x
+	return( phy )
+
+}