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