design("Strip-Plot Design | Strip-Unit Design") %>%
set_units(block = 3,
row = nested_in(block, 7),
col = nested_in(block, 6),
unit = nested_in(block, crossed_by(row, col)))
Run the code above in your browser using DataLab