[Mattice-commits] r166 - pkg/misc

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

Author: andrew_hipp
Date: 2009-02-11 17:14:03 +0100 (Wed, 11 Feb 2009)
New Revision: 166

Modified:
   pkg/misc/multiModels.R
Log:
working on multiModel

Modified: pkg/misc/multiModels.R
===================================================================
--- pkg/misc/multiModels.R	2009-02-09 15:46:04 UTC (rev 165)
+++ pkg/misc/multiModels.R	2009-02-11 16:14:03 UTC (rev 166)
@@ -30,7 +30,7 @@
                                         class = 'factor'),
                                         alpha = 1, sigma = 1)
   if(model = "ou2") {
-    regime <- paintBranches(node, phy)
+    regime <- paintBranches(list(node), phy)
     ancNum <- as.character(tree at root)
     descNum <- as.character(unique(regime))[unique(regime) != tree at root]
     analysis <- hansen(dat, phy, regime, alpha = 1, sigma = 1)