Emi Tanaka
March 28, 2022
library(edibble) menu_crd()
design("Completely Randomised Design") %>% set_units(unit = 20) %>% set_trts(trt = 7) %>% allot_trts(trt ~ unit) %>% assign_trts("random", seed = 863) %>% serve_table()