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

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

Author: fschoenen
Date: 2017-12-26 13:00:20 +0100 (Tue, 26 Dec 2017)
New Revision: 329

Modified:
   pkg/RSienaTest/R/formula.R
Log:


Modified: pkg/RSienaTest/R/formula.R
===================================================================
--- pkg/RSienaTest/R/formula.R	2017-12-26 01:15:31 UTC (rev 328)
+++ pkg/RSienaTest/R/formula.R	2017-12-26 12:00:20 UTC (rev 329)
@@ -154,15 +154,15 @@
 	siena07(control, data=dat, effects=eff, batch=TRUE)
 }
 
-library(RSienaTest)
-siena_control <- model.create
+# library(RSienaTest)
+# siena_control <- model.create
 
-x <- array(c(s501, s502, s503), dim=c(50, 50, 3))
-z <- s50a
+# x <- array(c(s501, s502, s503), dim=c(50, 50, 3))
+# z <- s50a
 
-sformula <- siena_formula(
-	x ~ transTrip,
-	z ~ avAlt(x))
-print(sformula)
-siena17(sformula, control=siena_control(nsub=2, n3=50))
+# sformula <- siena_formula(
+# 	x ~ transTrip,
+# 	z ~ avAlt(x))
+# print(sformula)
+# siena17(sformula, control=siena_control(nsub=2, n3=50))