Site launch

Some post description

library(edibble)
menu_crd()

design("Completely Randomised Design") %>%
  set_units(unit = 20) %>%
  set_trts(trt = 7) %>%
  allot_trts(trt ~ unit) %>%
  assign_trts("random", seed = 863) %>%
  serve_table()