Merge pull request #155 from DeclareDesign/small-edit-to-simple_facto…

…rial_designer Block randomization in simple_factorial_designer
DeclareDesign · Aug 12, 2018 · 6df17c8 · 6df17c8
2 parents 003a2e9 + 1d91f0e
commit 6df17c8
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