From 1d91f0ea37b20f5e58ee49dc249ca2fa51b351b0 Mon Sep 17 00:00:00 2001 From: clabima Date: Fri, 10 Aug 2018 12:40:47 +0200 Subject: [PATCH] Block randomization in simple_factorial_designer --- R/simple_factorial_designer.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/simple_factorial_designer.R b/R/simple_factorial_designer.R index 9be870a6..7add687b 100644 --- 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