Graeco - latin square design

Source: R/design.graeco.R

A graeco - latin square is a KxK pattern that permits the study of k treatments simultaneously with three different blocking variables, each at k levels.

design.graeco(
  trt1,
  trt2,
  serie = 2,
  seed = 0,
  kinds = "Super-Duper",
  randomization = TRUE
)

Arguments

trt1

Treatments
trt2

Treatments
serie

number plot, 1: 11,12; 2: 101,102; 3: 1001,1002
seed

seed
kinds

method for to randomize
randomization

TRUE or FALSE - randomize

Value

parameters

Design parameters

book

Fieldbook

Details

The function is only for squares of the odd numbers and even numbers (4, 8, 10 and 12)

kinds <- c("Wichmann-Hill", "Marsaglia-Multicarry", "Super-Duper", "Mersenne-Twister", "Knuth-TAOCP", "user-supplied", "Knuth-TAOCP-2002", "default" )

References

1. Statistics for Experimenters Design, Innovation, and Discovery Second Edition. George E. P. Box. Wiley-Interscience. 2005.

2. Experimental design. Cochran and Cox. Second edition. Wiley Classics Library Edition published 1992.

See also

design.ab, design.alpha,design.bib, design.crd , design.cyclic , design.dau , design.split, design.lattice, design.lsd, design.rcbd, design.strip

Examples


library(agricolae)
T1<-c("a","b","c","d")
T2<-c("v","w","x","y")
outdesign <- design.graeco(T1,T2,serie=1)
graeco<-outdesign$book
plots <-as.numeric(graeco[,1])
print(outdesign$sketch)
#>      [,1]    [,2]    [,3]    [,4]   
#> [1,] "NA NA" "NA NA" "NA NA" "NA NA"
#> [2,] "NA NA" "NA NA" "NA NA" "NA NA"
#> [3,] "NA NA" "NA NA" "NA NA" "NA NA"
#> [4,] "NA NA" "NA NA" "NA NA" "NA NA"
print(matrix(plots,byrow=TRUE,ncol=4))
#>      [,1] [,2] [,3] [,4]
#> [1,]   11   12   13   14
#> [2,]   21   22   23   24
#> [3,]   31   32   33   34
#> [4,]   41   42   43   44
# 10 x 10
T1 <- letters[1:10]
T2 <- 1:10
outdesign <-  design.graeco(T1,T2,serie=2)
print(outdesign$sketch)
#>       [,1]    [,2]    [,3]    [,4]    [,5]    [,6]    [,7]    [,8]    [,9]   
#>  [1,] "NA 10" "NA 4"  "NA 5"  "NA 1"  "NA 8"  "NA 2"  "NA 6"  "NA 7"  "NA 3" 
#>  [2,] "NA 1"  "NA 3"  "NA 4"  "NA 5"  "NA 10" "NA 8"  "NA 7"  "NA 6"  "NA 9" 
#>  [3,] "NA 6"  "NA 10" "NA 9"  "NA 4"  "NA 5"  "NA 3"  "NA 8"  "NA 1"  "NA 2" 
#>  [4,] "NA 8"  "NA 1"  "NA 3"  "NA 2"  "NA 4"  "NA 5"  "NA 9"  "NA 10" "NA 7" 
#>  [5,] "NA 2"  "NA 8"  "NA 10" "NA 9"  "NA 7"  "NA 4"  "NA 5"  "NA 3"  "NA 6" 
#>  [6,] "NA 5"  "NA 7"  "NA 8"  "NA 3"  "NA 2"  "NA 6"  "NA 4"  "NA 9"  "NA 1" 
#>  [7,] "NA 4"  "NA 5"  "NA 6"  "NA 8"  "NA 9"  "NA 7"  "NA 1"  "NA 2"  "NA 10"
#>  [8,] "NA 7"  "NA 6"  "NA 1"  "NA 10" "NA 3"  "NA 9"  "NA 2"  "NA 4"  "NA 5" 
#>  [9,] "NA 3"  "NA 9"  "NA 2"  "NA 7"  "NA 6"  "NA 1"  "NA 10" "NA 8"  "NA 4" 
#> [10,] "NA 9"  "NA 2"  "NA 7"  "NA 6"  "NA 1"  "NA 10" "NA 3"  "NA 5"  "NA 8" 
#>       [,10]  
#>  [1,] "NA 9" 
#>  [2,] "NA 2" 
#>  [3,] "NA 7" 
#>  [4,] "NA 6" 
#>  [5,] "NA 1" 
#>  [6,] "NA 10"
#>  [7,] "NA 3" 
#>  [8,] "NA 8" 
#>  [9,] "NA 5" 
#> [10,] "NA 4"