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 = 913) %>%
#>   serve_table() 
#> 
#> # Completely Randomised Design 
#> # An edibble: 50 x 2
#>       unit    trt
#>  * <U(50)> <T(5)>
#>      <chr>  <chr>
#>  1  unit01   trt2
#>  2  unit02   trt3
#>  3  unit03   trt1
#>  4  unit04   trt1
#>  5  unit05   trt1
#>  6  unit06   trt3
#>  7  unit07   trt4
#>  8  unit08   trt5
#>  9  unit09   trt4
#> 10  unit10   trt4
#> # ℹ 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 = 23) %>%
#>   set_trts(trt = 8) %>%
#>   allot_trts(trt ~ unit) %>%
#>   assign_trts("random", seed = 515) %>%
#>   serve_table() 
#> 
#> # Completely Randomised Design 
#> # An edibble: 23 x 2
#>       unit    trt
#>  * <U(23)> <T(8)>
#>      <chr>  <chr>
#>  1  unit01   trt5
#>  2  unit02   trt4
#>  3  unit03   trt4
#>  4  unit04   trt3
#>  5  unit05   trt6
#>  6  unit06   trt5
#>  7  unit07   trt3
#>  8  unit08   trt2
#>  9  unit09   trt7
#> 10  unit10   trt2
#> # ℹ 13 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 Split-Plot DesignSelected Split-Unit Design
#> design("Split-Plot Design | Split-Unit Design") %>%
#>   set_units(mainplot = 64,
#>              subplot = nested_in(mainplot, 3)) %>%
#>   set_trts(trt1 = 8,
#>            trt2 = 3) %>%
#>   allot_trts(trt1 ~ mainplot,
#>              trt2 ~ subplot) %>%
#>   assign_trts("random", seed = 506) %>%
#>   serve_table() 
#> 
#> # Split-Plot Design | Split-Unit Design 
#> # An edibble: 192 x 4
#>      mainplot    subplot   trt1   trt2
#>  *    <U(64)>   <U(192)> <T(8)> <T(3)>
#>         <chr>      <chr>  <chr>  <chr>
#>  1 mainplot01 subplot001  trt15  trt23
#>  2 mainplot01 subplot002  trt15  trt21
#>  3 mainplot01 subplot003  trt15  trt22
#>  4 mainplot02 subplot004  trt14  trt21
#>  5 mainplot02 subplot005  trt14  trt22
#>  6 mainplot02 subplot006  trt14  trt23
#>  7 mainplot03 subplot007  trt18  trt21
#>  8 mainplot03 subplot008  trt18  trt22
#>  9 mainplot03 subplot009  trt18  trt23
#> 10 mainplot04 subplot010  trt13  trt23
#> # ℹ 182 more rows