Latin Square Design

Source: R/design.lsd.R

It generates Latin Square Design. "Random" uses the methods of number generation in R. The seed is by set.seed(seed, kinds).

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

Arguments

trt

Treatments
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

book

Fieldbook

Details

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

References

Introduction to Experimental Statistics. Ching Chun Li. McGraw-Hill Book Company, INC, New. York, 1969

See also

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

Examples


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