Check the recipe code
Examples
examine_recipe(takeout())
#> → No name was supplied so selecting a random named experimental design...
#> → Selected Randomised Complete Block Design
#> design("Randomised Complete Block Design") %>%
#> set_units(block = 2,
#> unit = nested_in(block, 7)) %>%
#> set_trts(trt = 7) %>%
#> allot_trts(trt ~ unit) %>%
#> assign_trts("random", seed = 762) %>%
#> serve_table()