The cyclic design is a incomplete blocks designs, it is generated from a incomplete block initial of the size k, the plan is generated and randomized. The efficient and robust cyclic designs for 6 to 30 treatments, replications <= 10.
design.cyclic( trt, k, r, serie = 2, rowcol = FALSE, seed = 0, kinds = "Super-Duper", randomization = TRUE )
trt | vector treatments |
---|---|
k | block size |
r | Replications |
serie | number plot, 1: 11,12; 2: 101,102; 3: 1001,1002 |
rowcol | TRUE: row-column design |
seed | init seed random |
kinds | random method |
randomization | TRUE or FALSE - randomize |
Design parameters
Design sketch
Fieldbook
Number o treatment 6 to 30. (r) Replication 2 to 10. (k) size of block 2 to 10. replication = i*k, "i" is value integer.
Kuehl, Robert(2000), Design of Experiments. 2nd ed., Duxbury. John, J.A. (1981) Efficient Cyclic Design. J. R. Statist. Soc. B, 43, No. 1, pp, 76-80.
design.ab
,
design.alpha
,design.bib
, design.crd
, design.split
, design.dau
,
design.graeco
, design.lattice
,
design.lsd
, design.rcbd
,
design.strip
library(agricolae) trt<-letters[1:8] # block size = 2, replication = 6 outdesign1 <- design.cyclic(trt,k=2, r=6,serie=2)#> #> cyclic design #> Generator block basic: #> 1 2 #> 1 4 #> 1 3 #> #> Parameters #> =================== #> treatmeans : 8 #> Block size : 2 #> Replication: 6 #>names(outdesign1)#> [1] "parameters" "sketch" "book"# groups 1,2,3 outdesign1$sketch[[1]]#> [,1] [,2] #> [1,] "g" "h" #> [2,] "a" "h" #> [3,] "b" "a" #> [4,] "d" "e" #> [5,] "d" "c" #> [6,] "e" "f" #> [7,] "f" "g" #> [8,] "c" "b"outdesign1$sketch[[2]]#> [,1] [,2] #> [1,] "g" "d" #> [2,] "b" "e" #> [3,] "h" "c" #> [4,] "e" "h" #> [5,] "c" "f" #> [6,] "a" "f" #> [7,] "a" "d" #> [8,] "b" "g"outdesign1$sketch[[3]]#> [,1] [,2] #> [1,] "a" "c" #> [2,] "g" "a" #> [3,] "d" "f" #> [4,] "h" "f" #> [5,] "e" "c" #> [6,] "h" "b" #> [7,] "g" "e" #> [8,] "d" "b"outdesign1$book#> plots group block trt #> 1 101 1 1 g #> 2 102 1 1 h #> 3 103 1 2 a #> 4 104 1 2 h #> 5 105 1 3 b #> 6 106 1 3 a #> 7 107 1 4 d #> 8 108 1 4 e #> 9 109 1 5 d #> 10 110 1 5 c #> 11 111 1 6 e #> 12 112 1 6 f #> 13 113 1 7 f #> 14 114 1 7 g #> 15 115 1 8 c #> 16 116 1 8 b #> 17 201 2 9 g #> 18 202 2 9 d #> 19 203 2 10 b #> 20 204 2 10 e #> 21 205 2 11 h #> 22 206 2 11 c #> 23 207 2 12 e #> 24 208 2 12 h #> 25 209 2 13 c #> 26 210 2 13 f #> 27 211 2 14 a #> 28 212 2 14 f #> 29 213 2 15 a #> 30 214 2 15 d #> 31 215 2 16 b #> 32 216 2 16 g #> 33 301 3 17 a #> 34 302 3 17 c #> 35 303 3 18 g #> 36 304 3 18 a #> 37 305 3 19 d #> 38 306 3 19 f #> 39 307 3 20 h #> 40 308 3 20 f #> 41 309 3 21 e #> 42 310 3 21 c #> 43 311 3 22 h #> 44 312 3 22 b #> 45 313 3 23 g #> 46 314 3 23 e #> 47 315 3 24 d #> 48 316 3 24 b# row-column design outdesign2<- design.cyclic(trt,k=2, r=6, serie=2, rowcol=TRUE)#> #> cyclic design #> Generator block basic: #> 1 2 #> 1 4 #> 1 3 #> #> Parameters #> =================== #> treatmeans : 8 #> Block size : 2 #> Replication: 6 #>outdesign2$sketch#> [,1] #> [1,] Character,16 #> [2,] Character,16 #> [3,] Character,16