# NOT RUN {
# only main effects
model1 <- Size.Block(factor.lev=c(2, 2), interaction=FALSE,
delta_type=1, delta=c(1, 0, 1), alpha=0.05, beta=0.2)
model1$model
model1$n
model1$Delta
# including two-way interaction effects
model2 <- Size.Block(factor.lev=c(2, 2), interaction=TRUE,
delta_type=1, delta=c(1, 1, 1), alpha=0.05, beta=0.2)
model2
# }
Run the code above in your browser using DataLab