It generates completely a randomized design with equal or different repetition. "Random" uses the methods of number generation in R. The seed is by set.seed(seed, kinds).
design.crd( trt, r, serie = 2, seed = 0, kinds = "Super-Duper", randomization = TRUE )
| trt | Treatments |
|---|---|
| r | Replications |
| serie | number plot, 1: 11,12; 2: 101,102; 3: 1001,1002 |
| seed | seed |
| kinds | method for to randomize |
| randomization | TRUE or FALSE - randomize |
Design parameters
Fieldbook
kinds <- c("Wichmann-Hill", "Marsaglia-Multicarry", "Super-Duper", "Mersenne-Twister", "Knuth-TAOCP", "user-supplied", "Knuth-TAOCP-2002", "default" )
Introduction to Experimental Statistics. Ching Chun Li. McGraw-Hill Book Company, INC, New. York, 1964
design.ab,
design.alpha,design.bib,
design.split , design.cyclic ,
design.dau , design.graeco,
design.lattice, design.lsd,
design.rcbd, design.strip
library(agricolae) trt <-c("CIP-101","CIP-201","CIP-301","CIP-401","CIP-501") r <-c(4,3,5,4,3) # seed = 12543 outdesign1 <-design.crd(trt,r,serie=2,2543,"Mersenne-Twister") book1<-outdesign1 # no seed outdesign2 <-design.crd(trt,r,serie=3) print(outdesign2$parameters)#> $design #> [1] "crd" #> #> $trt #> [1] "CIP-101" "CIP-201" "CIP-301" "CIP-401" "CIP-501" #> #> $r #> [1] 4 3 5 4 3 #> #> $serie #> [1] 3 #> #> $seed #> [1] -80596508 #> #> $kinds #> [1] "Super-Duper" #> #> [[7]] #> [1] TRUE #>book2<-outdesign2 # write to hard disk # write.table(book1,"crd.txt", row.names=FALSE, sep="\t") # file.show("crd.txt")