[Phylobase-commits] r277 - branches/pdcgsoc/R

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

Author: pdc
Date: 2008-08-12 07:00:42 +0200 (Tue, 12 Aug 2008)
New Revision: 277

Modified:
   branches/pdcgsoc/R/treePlot.R
Log:
Remove automatic scaling of data from phylobubbles

Modified: branches/pdcgsoc/R/treePlot.R
===================================================================
--- branches/pdcgsoc/R/treePlot.R	2008-08-09 00:32:12 UTC (rev 276)
+++ branches/pdcgsoc/R/treePlot.R	2008-08-12 05:00:42 UTC (rev 277)
@@ -367,13 +367,10 @@
     tys <- XXYY$yy[phy at edge[, 2] <= nTips(phy)]
     
     traits <- tdata(phy,which="tip")
-
+    
     maxr <- ifelse(ncol(traits) > nTips(phy), 1/ncol(traits), 1/nTips(phy))
-
-    tnames <- names(traits)
-    traits <- scale(traits)
+    
     traits <- apply(traits, 2, function(x) maxr * x / max(abs(x), na.rm = T))
-    names(traits) <- tnames
     
     if(ncol(traits) == 1) {
         xpos <- 0.5