[Mattice-commits] r210 - pkg/R

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

Author: andrew_hipp
Date: 2009-08-27 22:01:59 +0200 (Thu, 27 Aug 2009)
New Revision: 210

Modified:
   pkg/R/multiModel.R
Log:
updating comments

Modified: pkg/R/multiModel.R
===================================================================
--- pkg/R/multiModel.R	2009-08-27 17:54:44 UTC (rev 209)
+++ pkg/R/multiModel.R	2009-08-27 20:01:59 UTC (rev 210)
@@ -1,7 +1,6 @@
 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; fix so it runs on a set of trees, conditioned on those trees that have the node of interest;
-# return 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'),