Learn R Programming

asbio (version 0.3-1)

runExpDesign: Simple experimental design plots

Description

Describes random treatment allocation for nine experimental designs.

Usage

runExpDesign(method = c("CRD", "factorial2by2", "factorial2by2by2", "nested", 
"RCBD", "RIBD", "split", "split.split", "SPRB", "strip.split", "latin", 
"pairs"), titles = TRUE, ...)

Arguments

method
A vector listing the experimental methods to be demonstrated. Any subset of the character string c("CRD","factorial2by2","factorial2by2by2", "nested","RCBD","RIBD","split","split.split","SPRB","strip.split","latin","pairs").
titles
A logical argument specifying whether or not plot should have a main titles.
...
Additional arguments from plot.

Details

The function returns a plot or series of plots illustrating the workings of experimental designs. Random apportionment of treatments of experimental units (EUs) is illustrated for each of nine experimental designs. Choices are: "CRD": a one-way completely randomized design,"factorial2by2": a 2 x 2 design with four EUs, "factorial2by2by2": a 2 x 2 x 2 factorial designs with 8 EUS, "nested": a nested design with two levels of nesting,"RCBD" a randomized complete block design with two blocks, two treatments and four EUs,"RIBD": a randomized incomplete block design with three blocks, three treatments, and six EUs,"split": a split plot design with a whole plot (factor A) and a split plot (factor B),"split.split": a split split-split plot design, "SPRB": split plots in randomized blocks,"strip.split": strip-split plot design,"latin": a Latin squares design with r = 3, and "pairs": a matched pairs design.

See Also

runSampDesign

Examples

Run this code
runExpDesign()
## Not run
## Animation for side by side comparisons of how EUs are assigned to treatments 
## for 12 different experimental designs.
method = matrix(nrow=100,ncol=12,rep(c("CRD", "factorial2by2", "factorial2by2by2", 
"nested", "RCBD", "RIBD", "split", "split.split", "SPRB", "strip.split", "latin", 
"pairs"),100),byrow=TRUE)
for(i in 1:nrow(method)){
runExpDesign(method[i,])
Sys.sleep=0.1
}

Run the code above in your browser using DataLab