[Mattice-commits] r197 - pkg/R

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

Author: andrew_hipp
Date: 2009-06-01 09:07:55 +0200 (Mon, 01 Jun 2009)
New Revision: 197

Modified:
   pkg/R/ouSim.hansenBatch.R
Log:
removing a spurious character that was a syntax error

Modified: pkg/R/ouSim.hansenBatch.R
===================================================================
--- pkg/R/ouSim.hansenBatch.R	2009-06-01 07:01:59 UTC (rev 196)
+++ pkg/R/ouSim.hansenBatch.R	2009-06-01 07:07:55 UTC (rev 197)
@@ -5,7 +5,7 @@
   if(identical(rootState, NULL)) rootState <- analysis$thetaMatrix[treeNum, ][tree at root] # rootstate taken to be the optimum at the root
   outdata <- ouSim(tree, rootState, alpha = analysis$modelAvgAlpha, variance = analysis$modelAvgSigmaSq, theta = analysis$thetaMatrix[treeNum, ], ...)
   class(outdata) <- "ouSim"
-  return(outdata)t 
+  return(outdata)
 }
 
 ouSim.hansenBatch <- function(object, ...) ouSim(summary(object), ...)