# NOT RUN {
#Input: A list of factors with their levels (number of levels must be a multiple of 2).
simlist <- list(R2=c(0.5,0.9),
pos = c(12,45),
gamma = c(0.1, 0.9),
comp = 1:8,
alpha = c(0.01, 0.05, 0.1, 0.25))
# A 1/8 design
des <- mbrdsim(simlist, fraction=3)
#The MBRD-design at original factor level
des$Design
#Info about the bit-design
design.info(des$BitDesign)
# }
Run the code above in your browser using DataLab