Incomplete Latin Square Design

Such designs are referred to as Youden squares since they were introduced by Youden (1937) after Yates (1936) considered the special case of column equal to number treatment minus 1. "Random" uses the methods of number generation in R. The seed is by set.seed(seed, kinds).

design.youden(
  trt,
  r,
  serie = 2,
  seed = 0,
  kinds = "Super-Duper",
  first = TRUE,
  randomization = TRUE
)

Arguments

trt	Treatments
r	Replications or number of columns
serie	number plot, 1: 11,12; 2: 101,102; 3: 1001,1002
seed	seed
kinds	method for to randomize
first	TRUE or FALSE - randomize rep 1
randomization	TRUE or FALSE - randomize

Value

parameters

Design parameters

sketch

Design sketch

book

Fieldbook

Details

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

References

Design and Analysis of experiment. Hinkelmann, Klaus and Kempthorne, Oscar. Wiley-Interscience. Copyright (2008) by John Wiley and Sons. Inc., Hoboken, new Yersy

See also

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

Examples

library(agricolae)
varieties<-c("perricholi","yungay","maria bonita","tomasa")
r<-3
outdesign <-design.youden(varieties,r,serie=2,seed=23)
youden <- outdesign$book
print(outdesign$sketch)
#>      [,1]           [,2]           [,3]          
#> [1,] "maria bonita" "tomasa"       "perricholi"  
#> [2,] "yungay"       "maria bonita" "tomasa"      
#> [3,] "perricholi"   "yungay"       "maria bonita"
#> [4,] "tomasa"       "perricholi"   "yungay"      
plots <-as.numeric(youden[,1])
print(matrix(plots,byrow=TRUE,ncol=r))
#>      [,1] [,2] [,3]
#> [1,]  101  102  103
#> [2,]  201  202  203
#> [3,]  301  302  303
#> [4,]  401  402  403
print(youden) # field book.
#>    plots row col    varieties
#> 1    101   1   1 maria bonita
#> 2    102   1   2       tomasa
#> 3    103   1   3   perricholi
#> 4    201   2   1       yungay
#> 5    202   2   2 maria bonita
#> 6    203   2   3       tomasa
#> 7    301   3   1   perricholi
#> 8    302   3   2       yungay
#> 9    303   3   3 maria bonita
#> 10   401   4   1       tomasa
#> 11   402   4   2   perricholi
#> 12   403   4   3       yungay
# Write on hard disk.
# write.table(youden,"youden.txt", row.names=FALSE, sep="\t")
# file.show("youden.txt")