Skip to contents

This function generates a named experimental design by supplying the selected menu named design and prints out by default

You can find the available recipes with scan_menu().

Usage

takeout(recipe = NULL, show = TRUE)

Arguments

recipe

A named design object. This should be typically generated from a function with prefix menu_. If nothing is supplied, it will randomly select one.

show

A logical value to indicate whether the code should be shown or not. Default is TRUE.

Value

A recipe design.

See also

See scan_menu() for finding the short names of the named experimental designs.

Examples

takeout(menu_crd(n = 50, t = 5))
#> design("Completely Randomised Design") %>%
#>   set_units(unit = 50) %>%
#>   set_trts(trt = 5) %>%
#>   allot_trts(trt ~ unit) %>%
#>   assign_trts("random", seed = 931) %>%
#>   serve_table() 
#> 
#> # Completely Randomised Design 
#> # An edibble: 50 x 2
#>          unit      trt
#>  * <unit(50)> <trt(5)>
#>  1     unit1      trt1
#>  2     unit2      trt5
#>  3     unit3      trt2
#>  4     unit4      trt5
#>  5     unit5      trt3
#>  6     unit6      trt2
#>  7     unit7      trt3
#>  8     unit8      trt2
#>  9     unit9      trt3
#> 10     unit10     trt1
#> # ℹ 40 more rows
# if you omit the design parameters then it will use the default
# (which may be random)
takeout(menu_crd())
#> design("Completely Randomised Design") %>%
#>   set_units(unit = 26) %>%
#>   set_trts(trt = 3) %>%
#>   allot_trts(trt ~ unit) %>%
#>   assign_trts("random", seed = 310) %>%
#>   serve_table() 
#> 
#> # Completely Randomised Design 
#> # An edibble: 26 x 2
#>          unit      trt
#>  * <unit(26)> <trt(3)>
#>  1     unit1      trt3
#>  2     unit2      trt3
#>  3     unit3      trt2
#>  4     unit4      trt1
#>  5     unit5      trt1
#>  6     unit6      trt2
#>  7     unit7      trt1
#>  8     unit8      trt3
#>  9     unit9      trt1
#> 10     unit10     trt3
#> # ℹ 16 more rows
# if you don't give any short names then it will generate a random one
takeout()
#> → No name was supplied so selecting a random named experimental design...
#> → Selected Youden Square Design
#> design("Youden Square Design") %>%
#>   set_units(row = 10,
#>             col = 7,
#>             unit = crossed_by(row, col)) %>%
#>   set_trts(trt = 10) %>%
#>   allot_trts(trt ~ unit) %>%
#>   assign_trts("random", seed = 159) %>%
#>   serve_table() 
#> 
#> # Youden Square Design 
#> # An edibble: 70 x 4
#>           row       col       unit       trt
#>  * <unit(10)> <unit(7)> <unit(70)> <trt(10)>
#>  1      row1       col1     unit1      trt5 
#>  2      row2       col1     unit2      trt7 
#>  3      row3       col1     unit3      trt9 
#>  4      row4       col1     unit4      trt2 
#>  5      row5       col1     unit5      trt6 
#>  6      row6       col1     unit6      trt1 
#>  7      row7       col1     unit7      trt3 
#>  8      row8       col1     unit8      trt8 
#>  9      row9       col1     unit9      trt4 
#> 10      row10      col1     unit10     trt10
#> # ℹ 60 more rows