Creates alpha designs starting from the alpha design fixing under the 4 series formulated by Patterson and Williams.

1 | ```
design.alpha(trt, k, r, serie = 2, seed = 0, kinds = "Super-Duper",randomization=TRUE)
``` |

`trt` |
Treatments |

`k` |
size block |

`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 |

Parameters for the alpha design: I. r=2, k <= s; II. r=3, s odd, k <= s; III.r=3, s even, k <= s-1; IV. r=4, s odd but not a multiple of 3, k<=s

r= replications s=number of blocks k=size of block Number of treatment is equal to k*s

`parameters ` |
list |

`statistics ` |
dataframe |

`sketch ` |
list |

`book ` |
dataframe |

Felipe de Mendiburu

H.D. Patterson and E.R. Williams. Biometrika (1976) A new class of resolvable incomplete block designs. printed in Great Britain. Online: http://biomet.oxfordjournals.org/cgi/content/abstract/63/1/83

`design.ab`

, `design.split`

,`design.bib`

,
`design.crd `

, `design.cyclic `

, `design.dau `

,
`design.graeco`

, `design.lattice`

, `design.lsd`

,
`design.rcbd`

, `design.strip`

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 | ```
library(agricolae)
#Example one
trt<-1:30
t <- length(trt)
# size block k
k<-3
# Blocks s
s<-t/k
# replications r
r <- 2
outdesign<- design.alpha(trt,k,r,serie=2)
book<-outdesign$book
plots<-book[,1]
dim(plots)<-c(k,s,r)
for (i in 1:r) print(t(plots[,,i]))
outdesign$sketch
# Example two
trt<-letters[1:12]
t <- length(trt)
k<-3
r<-3
s<-t/k
outdesign<- design.alpha(trt,k,r,serie=2)
book<-outdesign$book
plots<-book[,1]
dim(plots)<-c(k,s,r)
for (i in 1:r) print(t(plots[,,i]))
outdesign$sketch
``` |

Questions? Problems? Suggestions? Tweet to @rdrrHQ or email at ian@mutexlabs.com.

All documentation is copyright its authors; we didn't write any of that.