It generates Randomized Complete Block Design. "Random" uses the methods of number generation in R. The seed is by set.seed(seed, kinds).
design.rcbd( trt, r, serie = 2, seed = 0, kinds = "Super-Duper", first = TRUE, continue = FALSE, randomization = TRUE )
| trt | Treatments |
|---|---|
| r | Replications or blocks |
| 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 |
| continue | TRUE or FALSE, continuous numbering of plot |
| randomization | TRUE or FALSE - randomize |
Design parameters
Design sketch
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.crd
, design.cyclic , design.dau ,
design.graeco, design.lattice,
design.lsd, design.split,
design.strip
library(agricolae) # 5 treatments and 6 blocks trt<-c("A","B","C","D","E") outdesign <-design.rcbd(trt,6,serie=2,986,"Wichmann-Hill") # seed = 986 book <-outdesign$book # field book # write in hard disk # write.table(book,"rcbd.txt", row.names=FALSE, sep="\t") # file.show("rcbd.txt") # Plots in field model ZIGZAG fieldbook <- zigzag(outdesign) print(outdesign$sketch)#> [,1] [,2] [,3] [,4] [,5] #> [1,] "A" "E" "C" "B" "D" #> [2,] "B" "C" "A" "D" "E" #> [3,] "D" "C" "A" "E" "B" #> [4,] "C" "B" "E" "D" "A" #> [5,] "E" "A" "D" "C" "B" #> [6,] "E" "C" "A" "D" "B"#> [,1] [,2] [,3] [,4] [,5] #> [1,] 101 102 103 104 105 #> [2,] 205 204 203 202 201 #> [3,] 301 302 303 304 305 #> [4,] 405 404 403 402 401 #> [5,] 501 502 503 504 505 #> [6,] 605 604 603 602 601# continuous numbering of plot outdesign <-design.rcbd(trt,6,serie=0,continue=TRUE) head(outdesign$book)#> plots block trt #> 1 1 1 A #> 2 2 1 E #> 3 3 1 C #> 4 4 1 D #> 5 5 1 B #> 6 6 2 C