fac <- takeout(menu_factorial(trt = c(3, 2)))
examine_recipe(fac)design("Factorial Design") %>%
set_units(unit = 60) %>%
set_trts(trt1 = 3,
trt2 = 2) %>%
allot_trts(~unit) %>%
assign_trts("random", seed = 836) %>%
serve_table()
Hi there! This book is a work-in-progress. You may like to come back later when itโs closer to a complete state. If you would like to raise issues or leave feedback, please feel to do this:
design("Factorial Design") %>%
set_units(unit = 60) %>%
set_trts(trt1 = 3,
trt2 = 2) %>%
allot_trts(~unit) %>%
assign_trts("random", seed = 836) %>%
serve_table()
