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

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

Author: ripleyrm
Date: 2009-12-17 14:55:28 +0100 (Thu, 17 Dec 2009)
New Revision: 30

Modified:
   pkg/RSienaTest/R/simstatsc.r
Log:
Correction for interactions of dyadic effects

Modified: pkg/RSienaTest/R/simstatsc.r
===================================================================
--- pkg/RSienaTest/R/simstatsc.r	2009-12-17 13:34:08 UTC (rev 29)
+++ pkg/RSienaTest/R/simstatsc.r	2009-12-17 13:55:28 UTC (rev 30)
@@ -1310,7 +1310,7 @@
                inters <- rbind(inter1, inter2, inter3)
                egos <- which(inters$interactionType == "ego")
                egoCount <- length(egos)
-               dyads <- which(inters$interactionType == "dyad")
+               dyads <- which(inters$interactionType == "dyadic")
                dyadCount <- length(dyads)
                if (twoway)
                {