# NOT RUN {
# plot of Power vs Delta for randomized complete block design
# with 2 factors without the interaction effects
plots.Block(factor.lev=c(2, 2), interaction=FALSE,
delta_type=1, delta=c(1, 0, 1), alpha=0.05, beta=0.2, type=1)
# plot of Power vs Number of Blocks for randomized complete block design
# with 2 factors with the interaction effects
plots.Block(factor.lev=c(2, 3), interaction=TRUE,
delta_type=1, delta=c(1, 1, 1), deltao=1.5, alpha=0.05, beta=0.2, type=3)
# }
Run the code above in your browser using DataLab