design() %>%
set_units(block = 10,
plot = nested_in(block, 3)) %>%
set_trts(treat = c("A", "B", "C"),
pest = c("a", "b")) %>%
allot_trts(treat ~ plot,
pest ~ block)
Run the code above in your browser using DataLab