[Ecopd-commits] r91 - branches/single-tree/R

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

Author: regetz
Date: 2009-11-18 22:04:44 +0100 (Wed, 18 Nov 2009)
New Revision: 91

Modified:
   branches/single-tree/R/aed.R
Log:
added missing logarithm to eed calculation


Modified: branches/single-tree/R/aed.R
===================================================================
--- branches/single-tree/R/aed.R	2009-11-18 21:03:45 UTC (rev 90)
+++ branches/single-tree/R/aed.R	2009-11-18 21:04:44 UTC (rev 91)
@@ -77,7 +77,7 @@
         stop("no community data specified in phylo4com object")
     }
     subtrees <- x at subtrees[unique(as.character(comms))]
-    hed(x) / sapply(subtrees, nTips)[as.character(comms)]
+    hed(x) / log(sapply(subtrees, nTips)[as.character(comms)])
 })
 
 setGeneric("aed", function(x, na.rm=TRUE) {