# NOT RUN {
# only main effects
model1 <- Size.2levFr(nfactor=3, nfraction=1, 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.2levFr(nfactor=5, nfraction=1, interaction=TRUE,
delta_type=1, delta=c(1, 1, 1), alpha=0.05, beta=0.2)
# }
Run the code above in your browser using DataLab