# NOT RUN {
opts <- list(
n = rep(100, 2),
p = c(20, 40),
q = c("5, 5, 4",
"10, 5, 5"),
m = c(5, 5),
relpos = c("1; 2, 4; 3",
"1, 2; 3, 4; 5"),
gamma = c(0.2, 0.4),
R2 = c("0.8, 0.9, 0.7",
"0.6, 0.8, 0.7"),
ypos = c("1, 4; 2, 5; 3",
"1; 2, 4; 3, 5"),
ntest = rep(1000, 2)
)
design <- prepare_design(opts)
design
# }
Run the code above in your browser using DataLab