design.alpha {agricolae}R Documentation

Alpha design type (0,1)

Description

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

Usage

design.alpha(trt, k, r, number = 1, seed = 0, kinds = "Super-Duper")

Arguments

trt Treatments
k size block
r Replications
number number of first plot
seed seed
kinds method for to randomize

Details

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

Value

trt vector, name of the treatments
k Constant, numeric
r Constant, numeric
number Constant, numeric
seed Constant, numeric
kinds character

Author(s)

Felipe de Mendiburu

References

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

See Also

design.bib, lattice.simple

Examples

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[,1]
dim(plots)<-c(k,s,r)
for (i in 1:r) print(t(plots[,,i]))
trt<-as.numeric(book[,4])
dim(trt)<-c(k,s,r)
for (i in 1:r) print(t(trt[,,i]))

# Example two 
trt<-letters[1:12] 
t <- length(trt)
k<-3
r<-3
s<-t/k
book<- design.alpha(trt,k,r)
plots<-book[,1]
dim(plots)<-c(k,s,r)
for (i in 1:r) print(t(plots[,,i]))
trt<-book[,4]
dim(trt)<-c(k,s,r)
for (i in 1:r) print(t(trt[,,i]))


[Package agricolae version 1.0-3 Index]