serve.md
In edibble: Encapsulating Elements of Experimental Design

serve

Code
  design(title = "one unit") %>% set_units(block = 3) %>% serve_table()
Output
  # An edibble: 3 x 1
     block
    <U(3)>
     <chr>
  1 block1
  2 block2
  3 block3

Code
  design(title = "serve nested units") %>% set_units(block = 3, plot = nested_in(
    block, 2)) %>% serve_table()
Output
  # An edibble: 6 x 2
     block   plot
    <U(3)> <U(6)>
     <chr>  <chr>
  1 block1  plot1
  2 block1  plot2
  3 block2  plot3
  4 block2  plot4
  5 block3  plot5
  6 block3  plot6

Code
  design() %>% set_units(site = 2, row = nested_in(site, 1 ~ 3, 2 ~ 2), col = nested_in(
    site, 1 ~ 3, 2 ~ 2), plot = nested_in(site, ~ row:col)) %>% set_trts(trt = c(
    "A", "B")) %>% allot_table(trt ~ plot, seed = 1)
Output
  # An edibble: 13 x 5
       site    row    col    plot    trt
     <U(2)> <U(5)> <U(5)> <U(13)> <T(2)>
      <chr>  <chr>  <chr>   <chr>  <chr>
   1  site1   row1   col1  plot01      B
   2  site1   row2   col1  plot02      A
   3  site1   row3   col1  plot03      B
   4  site1   row1   col2  plot04      A
   5  site1   row2   col2  plot05      B
   6  site1   row3   col2  plot06      A
   7  site1   row1   col3  plot07      B
   8  site1   row2   col3  plot08      A
   9  site1   row3   col3  plot09      B
  10  site2   row4   col4  plot10      B
  11  site2   row5   col4  plot11      A
  12  site2   row4   col5  plot12      A
  13  site2   row5   col5  plot13      B