[Rsiena-commits] r27 - pkg/RSienaTest/R

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

Author: ripleyrm
Date: 2009-12-14 03:37:25 +0100 (Mon, 14 Dec 2009)
New Revision: 27

Modified:
   pkg/RSienaTest/R/simstatsc.r
Log:
Fix to  problem with multiple processors

Modified: pkg/RSienaTest/R/simstatsc.r
===================================================================
--- pkg/RSienaTest/R/simstatsc.r	2009-12-02 04:31:30 UTC (rev 26)
+++ pkg/RSienaTest/R/simstatsc.r	2009-12-14 02:37:25 UTC (rev 27)
@@ -196,6 +196,7 @@
             f$returnDeps <- NULL
             f$depNames <- NULL
             f$groupNames <- NULL
+            f$nGroup <- NULL
        }
         ##browser()
         pData <- .Call('setupData', PACKAGE="RSienaTest",
@@ -234,6 +235,7 @@
         {
             myeffects <- ff$myeffects
             returnDeps <- ff$returnDeps
+            nGroup <- ff$nGroup
         }
         ## remove interaction effects and save till later
         basicEffects <- lapply(myeffects, function(x)
@@ -326,6 +328,7 @@
         f$returnDeps <- returnDeps
         f$depNames <- names(f[[1]]$depvars)
         f$groupNames <- names(f)[1:nGroup]
+        f$nGroup <- nGroup
         if (!initC)
         {
             z$f <- f