<- takeout(menu_factorial(trt = c(3, 2)))
fac 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()