19  Balanced incomplete block 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.

bibd <- takeout(menu_bibd(t = 5, r = 10, k = 4))
examine_recipe(bibd)

design("Balanced Incomplete Block Design") %>%
  set_units(block = 12,
            unit = nested_in(block, 4)) %>%
  set_trts(trt = 5) %>%
  allot_trts(trt ~ unit) %>%
  assign_trts("random", seed = 836) %>%
  serve_table()

autoplot(bibd)