21  Strip-plot design

📖 Status of the book

Hi there! This book is a work-in-progress. You may like to come back later when it’s closer to a complete state. If you would like to raise issues or leave feedback, please feel to do this:

• at GitHub issues,
• email me at emi.tanaka@anu.edu.au, or
• leave it anonymously in the form here.

strip <- takeout(menu_strip(t1 = 3, t2 = 4, r = 9))
examine_recipe(strip)

design("Strip-Plot Design | Strip-Unit Design") %>%
  set_units(block = 9,
            row = nested_in(block, 3),
            col = nested_in(block, 4),
            unit = nested_in(block, crossed_by(row, col))) %>%
  set_trts(trt1 = 3,
           trt2 = 4) %>%
  allot_trts(trt1 ~ row,
             trt2 ~ col) %>%
  assign_trts("random", seed = 836) %>%
  serve_table()

autoplot(strip) + facet_wrap(~block, scales = "free")