[Adephylo-commits] r169 - pkg/R

[noreply at r-forge.r-project.org]

Author: sdray
Date: 2010-11-17 13:29:53 +0100 (Wed, 17 Nov 2010)
New Revision: 169

Modified:
   pkg/R/distances.R
Log:
Correct computation of distances (The root is now included)

Modified: pkg/R/distances.R
===================================================================
--- pkg/R/distances.R	2010-05-06 20:41:39 UTC (rev 168)
+++ pkg/R/distances.R	2010-11-17 12:29:53 UTC (rev 169)
@@ -146,7 +146,7 @@
     ## main computations
 
     ## get path from root to tops
-    allPath <- lapply(tips, function(tip) .tipToRoot(x, tip, root))
+    allPath <- lapply(tips, function(tip) .tipToRoot(x, tip, root, include.root = TRUE))
 
     ## compute distances
     if(method=="patristic"){