Block randomization in simple_factorial_designer

DeclareDesign · Aug 10, 2018 · 1d91f0e · 1d91f0e
1 parent 8dce35c
commit 1d91f0e
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/simple_factorial_designer.R b/R/simple_factorial_designer.R
@@ -96,7 +96,7 @@ simple_factorial_designer <- function(N = 100,
 
     # Factorial assignments
     assign_A <- declare_assignment(prob = prob_A, assignment_variable = A)
-    assign_B <- declare_assignment(prob = prob_B, assignment_variable = B)
+    assign_B <- declare_assignment(prob = prob_B, assignment_variable = B, blocks = A)
     reveal_Y   <- declare_reveal(Y_variables = Y, assignment_variables = c(A,B))
 
     # A: Answer Strategy