# NOT RUN {
#### Plot a randomized complete block design
Treatments <- factor(rep(1:6, times = 5))
RCBD.lay <- designRandomize(allocated = Treatments,
recipient = list(Blocks = 5, Units = 6),
nested.recipients = list(Units = "Blocks"),
seed = 74111)
designGGPlot(RCBD.lay, labels = "Treatments", size = 5,
row.factors = "Blocks", column.factors = "Units",
blockdefinition = cbind(1,5))
## Plot without labels
designGGPlot(RCBD.lay, cellfillcolour.column = "Treatments",
row.factors = "Blocks", column.factors = "Units",
colour.values = c("lightblue","lightcoral","lightgoldenrod",
"lightgreen","lightgrey", "lightpink"),
blockdefinition = cbind(1,6))
#### Plot a lattice square design
data(LatticeSquare_t49.des)
designGGPlot(LatticeSquare_t49.des, labels = "Lines", size = 5,
row.factors = c("Intervals", "Runs"), column.factors = "Times",
blockdefinition = cbind(7,7))
# }
Run the code above in your browser using DataLab