design.alpha {agricolae} | R Documentation |
Creates alpha designs starting from the alpha design fixing under the 4 series formulated by Patterson and Williams.
design.alpha(trt, k, r, number = 1, seed = 0, kinds = "Super-Duper")
trt |
Treatments |
k |
size block |
r |
Replications |
number |
number of first plot |
seed |
seed |
kinds |
method for to randomize |
Series: 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
trt |
vector, name of the treatments |
k |
Constant, numeric |
r |
Constant, numeric |
number |
Constant, numeric |
seed |
Constant, numeric |
kinds |
character |
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.bib
, design.lattice
, design.cyclic
library(agricolae) #Example one trt<-1:30 t <- length(trt) # size block k k<-3 # Blocks s s<-t/k # replications r r <- 2 book<- design.alpha(trt,k,r) plots<-book$book[,1] dim(plots)<-c(k,s,r) for (i in 1:r) print(t(plots[,,i])) book$design # Example two trt<-letters[1:12] t <- length(trt) k<-3 r<-3 s<-t/k book<- design.alpha(trt,k,r) plots<-book$book[,1] dim(plots)<-c(k,s,r) for (i in 1:r) print(t(plots[,,i])) book$design book$alpha