[Mattice-commits] r226 - pkg/R

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

Author: andrew_hipp
Date: 2009-09-08 19:32:34 +0200 (Tue, 08 Sep 2009)
New Revision: 226

Modified:
   pkg/R/multiModel.R
Log:
tidying comment in multiModel.R

Modified: pkg/R/multiModel.R
===================================================================
--- pkg/R/multiModel.R	2009-09-08 16:01:13 UTC (rev 225)
+++ pkg/R/multiModel.R	2009-09-08 17:32:34 UTC (rev 226)
@@ -1,6 +1,7 @@
 multiModel <- function(phy, dat, node, models = c('whole.brown', 'whole.ou1', 'whole.ou2','part.brown', 'part.ou')) {
 # test the support for alternative models on simple and partitioned trees
-# currently only works on one tree; eventually should be modified so it runs on a set of trees, conditioned on those trees that have the node of interest and returning percent of trees possessing that node as an additional value
+# currently only works on one tree; eventually should be modified so it runs on a set of trees, conditioned on those trees 
+#   that have the node of interest and returning percent of trees possessing that node as an additional value
   paramHeader <- c('loglik', 'dof', 'sigma.squared', 'alpha', 'theta', 'optimum', 'optimum.uptree', 'optimum.downtree')
   paramsAll <- c('loglik', 'dof', 'sigma.squared')
   paramSets <- list(brown = c(paramsAll, 'theta'),