R/kdesign.R
In linkinjy/rmaeng2: DOE for IME
#' kdesign
#'
#' random number table of orthogonal arrays
#'
#' @param design,randomize,replicates
#'
#' @return table, anova
#'
#' @examples
#' design = "L9_3"
#' randomize = TRUE
#' replicates = 1
#'
#' @export
#'
#' @importFrom
#' qualityTools nrow
#' qualityTools values
#' DoE.base oa.design
#'
kdesign<-function (design, randomize = TRUE, replicates = 1){
DB = FALSE
odo = NA
type = "single"
.L4_2 = list(id = "L4_2", type = "single", niv_max = 2, runs = 4, anzahl_spalten = 3, levels1 = 2, levels2 = 0, factors1 = 3, factors2 = 0, colOrder = c(1,
2, 3), r4 = c(1, 2), r2 = c(1, 2, 3), design = data.frame(`1` = c(1, 1, 2, 2), `2` = c(1, 2, 1, 2), `3` = c(1, 2, 2, 1)))
.L8_2 = list(id = "L8_2", type = "single", niv_max = 2, runs = 8, anzahl_spalten = 7, levels1 = 2, levels2 = 0, factors1 = 7, factors2 = 0, colOrder = c(1,
2, 4, 7, 3, 5, 6), r4 = c(1, 2, 4), r2 = c(1, 2, 4, 7), r1 = c(1, 2, 4, 7, 3, 5, 6), design = data.frame(`1` = c(1, 1, 1, 1, 2, 2, 2, 2), `2` = c(1, 1,
2, 2, 1, 1, 2, 2), `3` = c(1, 1, 2, 2, 2, 2, 1, 1), `4` = c(1, 2, 1, 2, 1, 2, 1, 2), `5` = c(1, 2, 1, 2, 2, 1, 2, 1), `6` = c(1, 2, 2, 1, 1, 2, 2, 1), `7` = c(1,
2, 2, 1, 2, 1, 1, 2)), ia_table = data.frame(`1` = c(1, "NA", "NA", "NA", "NA", "NA", "NA"), `2` = c(3, 2, "NA", "NA", "NA", "NA", "NA"), `3` = c(2, 1,
3, "NA", "NA", "NA", "NA"), `4` = c(5, 6, 7, 4, "NA", "NA", "NA"), `5` = c(4, 7, 6, 1, 5, "NA", "NA"), `6` = c(7, 4, 5, 2, 3, 6, "NA"), `7` = c(6, 5, 4,
3, 2, 1, 7)))
.L9_3 = list(id = "L9_3", type = "single", niv_max = 3, runs = 9, anzahl_spalten = 4, levels1 = 3, levels2 = 0, factors1 = 4, factors2 = 0, colOrder = c(1,
2, 3, 4), r4 = c(1, 2), r1 = c(1, 2, 3, 4), design = data.frame(`1` = c(1, 1, 1, 2, 2, 2, 3, 3, 3), `2` = c(1, 2, 3, 1, 2, 3, 1, 2, 3), `3` = c(1, 2, 3,
2, 3, 1, 3, 1, 2), `4` = c(1, 2, 3, 3, 1, 2, 2, 3, 1)), ia_table = data.frame(`2` = c("3,4")))
.L12_2 = list(id = "L12_2", type = "single", niv_max = 2, runs = 12, anzahl_spalten = 11, levels1 = 2, levels2 = 0, factors1 = 11, factors2 = 0,
colOrder = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11), r1 = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11), design = data.frame(`1` = c(1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2,
2), `2` = c(1, 1, 1, 2, 2, 2, 1, 1, 1, 2, 2, 2), `3` = c(1, 1, 2, 1, 2, 2, 2, 2, 1, 2, 1, 1), `4` = c(1, 1, 2, 2, 1, 2, 2, 1, 2, 1, 2, 1), `5` = c(1,
1, 2, 2, 2, 1, 1, 2, 2, 1, 1, 2), `6` = c(1, 2, 1, 1, 2, 2, 1, 2, 2, 1, 2, 1), `7` = c(1, 2, 1, 2, 1, 2, 2, 2, 1, 1, 1, 2), `8` = c(1, 2, 1, 2, 2, 1,
2, 1, 2, 2, 1, 1), `9` = c(1, 2, 2, 1, 1, 2, 1, 1, 2, 2, 1, 2), `10` = c(1, 2, 2, 1, 2, 1, 2, 1, 1, 1, 2, 2), `11` = c(1, 2, 2, 2, 1, 1, 1, 2, 1, 2,
2, 1)), ia_table = data.frame(`1` = c("ohne interaction table")))
.L16_2 = list(id = "L16_2", type = "single", niv_max = 2, runs = 15, anzahl_spalten = 15, levels1 = 2, levels2 = 0, factors1 = 15, factors2 = 0,
colOrder = c(1, 2, 4, 7, 8, 11, 13, 14, 3, 5, 6, 9, 10, 12, 15), r4 = c(1, 2, 4, 8), r3 = c(1, 2, 4, 8, 15), r2 = c(1, 2, 4, 7, 8, 11, 13, 14), r1 = c(1,
2, 4, 7, 8, 11, 13, 14, 3, 5, 6, 9, 10, 12, 15), design = data.frame(`1` = c(1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2), `2` = c(1, 1, 1, 1, 2,
2, 2, 2, 1, 1, 1, 1, 2, 2, 2, 2), `3` = c(1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 1, 1, 1, 1), `4` = c(1, 1, 2, 2, 1, 1, 2, 2, 1, 1, 2, 2, 1, 1, 2, 2),
`5` = c(1, 1, 2, 2, 1, 1, 2, 2, 2, 2, 1, 1, 2, 2, 1, 1), `6` = c(1, 1, 2, 2, 2, 2, 1, 1, 1, 1, 2, 2, 2, 2, 1, 1), `7` = c(1, 1, 2, 2, 2, 2, 1, 1, 2,
2, 1, 1, 1, 1, 2, 2), `8` = c(1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2), `9` = c(1, 2, 1, 2, 1, 2, 1, 2, 2, 1, 2, 1, 2, 1, 2, 1), `10` = c(1,
2, 1, 2, 2, 1, 2, 1, 1, 2, 1, 2, 2, 1, 2, 1), `11` = c(1, 2, 1, 2, 2, 1, 2, 1, 2, 1, 2, 1, 1, 2, 1, 2), `12` = c(1, 2, 2, 1, 1, 2, 2, 1, 1, 2, 2,
1, 1, 2, 2, 1), `13` = c(1, 2, 2, 1, 1, 2, 2, 1, 2, 1, 1, 2, 2, 1, 1, 2), `14` = c(1, 2, 2, 1, 2, 1, 1, 2, 1, 2, 2, 1, 2, 1, 1, 2), `15` = c(1,
2, 2, 1, 2, 1, 1, 2, 2, 1, 1, 2, 1, 2, 2, 1)), ia_table = data.frame(`1` = c(1, "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA",
"NA", "NA", "NA"), `2` = c(3, 2, "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA"), `3` = c(2, 1, 3, "NA", "NA", "NA", "NA",
"NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA"), `4` = c(5, 6, 7, 4, "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA"), `5` = c(4, 7,
6, 1, 5, "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA"), `6` = c(7, 4, 5, 2, 3, 6, "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA"),
`7` = c(6, 5, 4, 3, 2, 1, 7, "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA"), `8` = c(9, 10, 11, 12, 13, 14, 15, 8, "NA", "NA", "NA", "NA", "NA", "NA",
"NA"), `9` = c(8, 11, 10, 13, 12, 15, 14, 1, 9, "NA", "NA", "NA", "NA", "NA", "NA"), `10` = c(11, 8, 9, 14, 15, 12, 13, 2, 3, 10, "NA", "NA", "NA",
"NA", "NA"), `11` = c(10, 9, 8, 15, 14, 13, 12, 3, 2, 1, 11, "NA", "NA", "NA", "NA"), `12` = c(13, 14, 15, 8, 9, 10, 11, 4, 5, 6, 7, 12, "NA", "NA",
"NA"), `13` = c(12, 15, 14, 9, 8, 11, 10, 5, 4, 7, 6, 1, 13, "NA", "NA"), `14` = c(15, 12, 13, 10, 11, 8, 9, 6, 7, 4, 5, 2, 3, 14, "NA"), `15` = c(14,
13, 12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2, 1, 15)))
.L16_4 = list(id = "L16_4", type = "single", niv_max = 4, runs = 16, anzahl_spalten = 5, levels1 = 4, levels2 = 0, factors1 = 5, factors2 = 0, design = data.frame(`1` = c(1,
1, 1, 1, 2, 2, 2, 2, 3, 3, 3, 3, 4, 4, 4, 4), `2` = c(1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4), `3` = c(1, 2, 3, 4, 2, 1, 4, 3, 3, 4, 1, 2, 4, 3,
2, 1), `4` = c(1, 2, 3, 4, 3, 4, 1, 2, 4, 3, 2, 1, 2, 1, 4, 3), `5` = c(1, 2, 3, 4, 4, 3, 2, 1, 2, 1, 4, 3, 3, 4, 1, 2)), ia_table = data.frame(`2` = c("3,4,5")))
.L18_2_3 = list(id = "L18_2_3", type = "mixed", niv_max = 3, runs = 18, anzahl_spalten = 8, levels1 = 2, levels2 = 3, factors1 = 1, factors2 = 7,
design = data.frame(`1` = c(1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2), `2` = c(1, 1, 1, 2, 2, 2, 3, 3, 3, 1, 1, 1, 2, 2, 2, 3, 3, 3), `3` = c(1,
2, 3, 1, 2, 3, 1, 2, 3, 1, 2, 3, 1, 2, 3, 1, 2, 3), `4` = c(1, 2, 3, 1, 2, 3, 2, 3, 1, 3, 1, 2, 2, 3, 1, 3, 1, 2), `5` = c(1, 2, 3, 2, 3, 1, 1, 2, 3,
3, 1, 2, 3, 1, 2, 2, 3, 1), `6` = c(1, 2, 3, 2, 3, 1, 3, 1, 2, 2, 3, 1, 1, 2, 3, 3, 1, 2), `7` = c(1, 2, 3, 3, 1, 2, 2, 3, 1, 2, 3, 1, 3, 1, 2, 1, 2,
3), `8` = c(1, 2, 3, 3, 2, 1, 3, 1, 2, 1, 2, 3, 2, 3, 1, 2, 3, 1)), ia_table = data.frame(`1` = c("ohne interaction table")))
.L25_5 = list(id = "L25_5", type = "single", niv_max = 5, runs = 25, anzahl_spalten = 6, levels1 = 5, levels2 = 0, factors1 = 6, factors2 = 0, design = data.frame(`1` = c(1,
1, 1, 1, 1, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5), `2` = c(1, 2, 3, 4, 5, 1, 2, 3, 4, 5, 1, 2, 3, 4, 5, 1, 2, 3, 4, 5, 1, 2, 3, 4,
5), `3` = c(1, 2, 3, 4, 5, 2, 3, 4, 5, 1, 3, 4, 5, 1, 2, 4, 5, 1, 2, 3, 5, 1, 2, 3, 4), `4` = c(1, 2, 3, 4, 5, 3, 4, 5, 1, 2, 5, 1, 2, 3, 4, 2, 3, 4, 5,
1, 4, 5, 1, 2, 3), `5` = c(1, 2, 3, 4, 5, 4, 5, 1, 2, 3, 2, 3, 4, 5, 1, 5, 1, 2, 3, 4, 3, 4, 5, 1, 2), `6` = c(1, 2, 3, 4, 5, 5, 1, 2, 3, 4, 4, 5, 1, 2,
3, 3, 4, 5, 1, 2, 2, 3, 4, 5, 1)), ia_table = data.frame(`2` = c("3,4,5,6")))
.L27_3 = list(id = "L27_3", type = "single", niv_max = 3, runs = 27, anzahl_spalten = 13, levels1 = 3, levels2 = 0, factors1 = 13, factors2 = 0,
colOrder = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13), r4 = c(1, 2, 5), r2 = c(1, 2, 5, 9, 10, 12, 13), r1 = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12,
13), design = data.frame(`1` = c(1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 3), `2` = c(1, 1, 1, 2, 2, 2, 3, 3, 3,
1, 1, 1, 2, 2, 2, 3, 3, 3, 1, 1, 1, 2, 2, 2, 3, 3, 3), `3` = c(1, 1, 1, 2, 2, 2, 3, 3, 3, 2, 2, 2, 3, 3, 3, 1, 1, 1, 3, 3, 3, 1, 1, 1, 2, 2, 2), `4` = c(1,
1, 1, 2, 2, 2, 3, 3, 3, 3, 3, 3, 1, 1, 1, 2, 2, 2, 2, 2, 2, 3, 3, 3, 1, 1, 1), `5` = c(1, 2, 3, 1, 2, 3, 1, 2, 3, 1, 2, 3, 1, 2, 3, 1, 2, 3, 1, 2, 3,
1, 2, 3, 1, 2, 3), `6` = c(1, 2, 3, 1, 2, 3, 1, 2, 3, 2, 3, 1, 2, 3, 1, 2, 3, 1, 3, 1, 2, 3, 1, 2, 3, 1, 2), `7` = c(1, 2, 3, 1, 2, 3, 1, 2, 3, 3, 1,
2, 3, 1, 2, 3, 1, 2, 2, 3, 1, 2, 3, 1, 2, 3, 1), `8` = c(1, 2, 3, 2, 3, 1, 3, 1, 2, 1, 2, 3, 2, 3, 1, 3, 1, 2, 1, 2, 3, 2, 3, 1, 3, 1, 2), `9` = c(1,
2, 3, 2, 3, 1, 3, 1, 2, 2, 3, 1, 3, 1, 2, 1, 2, 3, 3, 1, 2, 1, 2, 3, 2, 3, 1), `10` = c(1, 2, 3, 2, 3, 1, 3, 1, 2, 3, 1, 2, 1, 2, 3, 2, 3, 1, 2, 3,
1, 3, 1, 2, 1, 2, 3), `11` = c(1, 2, 3, 3, 1, 2, 2, 3, 1, 1, 2, 3, 3, 1, 2, 2, 3, 1, 1, 2, 3, 3, 1, 2, 2, 3, 1), `12` = c(1, 2, 3, 3, 1, 2, 2, 3, 1,
2, 3, 1, 1, 2, 3, 3, 1, 2, 3, 1, 2, 2, 3, 1, 1, 2, 3), `13` = c(1, 2, 3, 3, 1, 2, 2, 3, 1, 3, 1, 2, 2, 3, 1, 1, 2, 3, 2, 3, 1, 1, 2, 3, 3, 1, 2)), ia_table = data.frame(`1` = c(1,
"NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA"), `2` = c("3,4", 2, "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA",
"NA"), `3` = c("2,4", "1,4", 3, "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA"), `4` = c("2,3", "1,3", "1,2", 4, "NA", "NA", "NA", "NA",
"NA", "NA", "NA", "NA", "NA"), `5` = c("6,7", "8,11", "9,13", "10,12", "5", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA"), `6` = c("5,7", "9,12",
"10,11", "8,13", "1,7", 6, "NA", "NA", "NA", "NA", "NA", "NA", "NA"), `7` = c("5,6", "10,13", "8,12", "9,11", "1,6", "1,5", 7, "NA", "NA", "NA", "NA",
"NA", "NA"), `8` = c("9,10", "5,11", "7,12", "6,13", "2,11", "4,13", "3,12", 8, "NA", "NA", "NA", "NA", "NA"), `9` = c("8,10", "6,12", "5,13", "7,11",
"3,13", "2,12", "4,11", "1,10", 9, "NA", "NA", "NA", "NA"), `10` = c("8,9", "7,13", "6,11", "5,12", "4,12", "3,11", "2,13", "1,9", "1,8", 10, "NA",
"NA", "NA"), `11` = c("12,13", "5,8", "6,10", "7,9", "2,8", "3,10", "4,9", "2,5", "4,7", "3,6", 11, "NA", "NA"), `12` = c("11,13", "6,9", "7,8", "5,10",
"4,10", "2,9", "3,8", "3,7", "2,6", "4,5", "1,13", 12, "NA"), `13` = c("11,12", "7,10", "5,9", "6,8", "3,9", "4,8", "2,10", "4,6", "3,5", "2,7", "1,12",
"1,11", 13)))
.L32_2 = list(id = "L32_2", type = "single", niv_max = 2, runs = 32, anzahl_spalten = 31, levels1 = 2, levels2 = 0, factors1 = 31, factors2 = 0,
colOrder = c(1, 2, 4, 7, 8, 11, 13, 14, 16, 19, 21, 22, 25, 26, 28, 31, 3, 5, 6, 9, 10, 12, 15, 17, 18, 20, 23, 24, 27, 29, 30), r4 = c(1, 2, 4, 8, 16),
r3 = c(1, 2, 4, 8, 16, 31), r2 = c(1, 2, 4, 8, 16, 31, 7, 11, 13, 14, 19, 21, 22, 25, 26, 28), r1 = c(1, 2, 4, 7, 8, 11, 13, 14, 16, 19, 21, 22, 25, 26,
28, 31, 3, 5, 6, 9, 10, 12, 15, 17, 18, 20, 23, 24, 27, 29, 30), design = data.frame(`1` = c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2), `2` = c(1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2), `3` = c(1,
1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1), `4` = c(1, 1, 1, 1, 2, 2, 2, 2, 1, 1, 1, 1, 2, 2, 2, 2,
1, 1, 1, 1, 2, 2, 2, 2, 1, 1, 1, 1, 2, 2, 2, 2), `5` = c(1, 1, 1, 1, 2, 2, 2, 2, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 1, 1, 1, 1, 2, 2, 2, 2, 1, 1, 1,
1), `6` = c(1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 1, 1, 1, 1), `7` = c(1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2,
2, 1, 1, 1, 1, 2, 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2), `8` = c(1, 1, 2, 2, 1, 1, 2, 2, 1, 1, 2, 2, 1, 1, 2, 2, 1, 1, 2, 2, 1, 1, 2, 2, 1, 1,
2, 2, 1, 1, 2, 2), `9` = c(1, 1, 2, 2, 1, 1, 2, 2, 1, 1, 2, 2, 1, 1, 2, 2, 2, 2, 1, 1, 2, 2, 1, 1, 2, 2, 1, 1, 2, 2, 1, 1), `10` = c(1, 1, 2, 2, 1,
1, 2, 2, 2, 2, 1, 1, 2, 2, 1, 1, 1, 1, 2, 2, 1, 1, 2, 2, 2, 2, 1, 1, 2, 2, 1, 1), `11` = c(1, 1, 2, 2, 1, 1, 2, 2, 2, 2, 1, 1, 2, 2, 1, 1, 2, 2, 1,
1, 2, 2, 1, 1, 1, 1, 2, 2, 1, 1, 2, 2), `12` = c(1, 1, 2, 2, 2, 2, 1, 1, 1, 1, 2, 2, 2, 2, 1, 1, 1, 1, 2, 2, 2, 2, 1, 1, 1, 1, 2, 2, 2, 2, 1, 1), `13` = c(1,
1, 2, 2, 2, 2, 1, 1, 1, 1, 2, 2, 2, 2, 1, 1, 2, 2, 1, 1, 1, 1, 2, 2, 2, 2, 1, 1, 1, 1, 2, 2), `14` = c(1, 1, 2, 2, 2, 2, 1, 1, 2, 2, 1, 1, 1, 1, 2,
2, 1, 1, 2, 2, 2, 2, 1, 1, 2, 2, 1, 1, 1, 1, 2, 2), `15` = c(1, 1, 2, 2, 2, 2, 1, 1, 2, 2, 1, 1, 1, 1, 2, 2, 2, 2, 1, 1, 1, 1, 2, 2, 1, 1, 2, 2, 2,
2, 1, 1), `16` = c(1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2), `17` = c(1, 2, 1, 2, 1, 2, 1, 2,
1, 2, 1, 2, 1, 2, 1, 2, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1), `18` = c(1, 2, 1, 2, 1, 2, 1, 2, 2, 1, 2, 1, 2, 1, 2, 1, 1, 2, 1, 2, 1, 2,
1, 2, 2, 1, 2, 1, 2, 1, 2, 1), `19` = c(1, 2, 1, 2, 1, 2, 1, 2, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 1, 2, 1, 2, 1, 2, 1, 2), `20` = c(1,
2, 1, 2, 2, 1, 2, 1, 1, 2, 1, 2, 2, 1, 2, 1, 1, 2, 1, 2, 2, 1, 2, 1, 1, 2, 1, 2, 2, 1, 2, 1), `21` = c(1, 2, 1, 2, 2, 1, 2, 1, 1, 2, 1, 2, 2, 1, 2,
1, 2, 1, 2, 1, 1, 2, 1, 2, 2, 1, 2, 1, 1, 2, 1, 2), `22` = c(1, 2, 1, 2, 2, 1, 2, 1, 2, 1, 2, 1, 1, 2, 1, 2, 1, 2, 1, 2, 2, 1, 2, 1, 2, 1, 2, 1, 1,
2, 1, 2), `23` = c(1, 2, 1, 2, 2, 1, 2, 1, 2, 1, 2, 1, 1, 2, 1, 2, 2, 1, 2, 1, 1, 2, 1, 2, 1, 2, 1, 2, 2, 1, 2, 1), `24` = c(1, 2, 2, 1, 1, 2, 2, 1,
1, 2, 2, 1, 1, 2, 2, 1, 1, 2, 2, 1, 1, 2, 2, 1, 1, 2, 2, 1, 1, 2, 2, 1), `25` = c(1, 2, 2, 1, 1, 2, 2, 1, 1, 2, 2, 1, 1, 2, 2, 1, 2, 1, 1, 2, 2, 1,
1, 2, 2, 1, 1, 2, 2, 1, 1, 2), `26` = c(1, 2, 2, 1, 1, 2, 2, 1, 2, 1, 1, 2, 2, 1, 1, 2, 1, 2, 2, 1, 1, 2, 2, 1, 2, 1, 1, 2, 2, 1, 1, 2), `27` = c(1,
2, 2, 1, 1, 2, 2, 1, 2, 1, 1, 2, 2, 1, 1, 2, 2, 1, 1, 2, 2, 1, 1, 2, 1, 2, 2, 1, 1, 2, 2, 1), `28` = c(1, 2, 2, 1, 2, 1, 1, 2, 1, 2, 2, 1, 2, 1, 1,
2, 1, 2, 2, 1, 2, 1, 1, 2, 1, 2, 2, 1, 2, 1, 1, 2), `29` = c(1, 2, 2, 1, 2, 1, 1, 2, 1, 2, 2, 1, 2, 1, 1, 2, 2, 1, 1, 2, 1, 2, 2, 1, 2, 1, 1, 2, 1,
2, 2, 1), `30` = c(1, 2, 2, 1, 2, 1, 1, 2, 2, 1, 1, 2, 1, 2, 2, 1, 1, 2, 2, 1, 2, 1, 1, 2, 2, 1, 1, 2, 1, 2, 2, 1), `31` = c(1, 2, 2, 1, 2, 1, 1, 2,
2, 1, 1, 2, 1, 2, 2, 1, 2, 1, 1, 2, 1, 2, 2, 1, 1, 2, 2, 1, 2, 1, 1, 2)))
.ia_table = data.frame(`1` = c(1, "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA",
"NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA"), `2` = c(3, 2, "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA",
"NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA"), `3` = c(2, 1, 3, "NA", "NA", "NA", "NA", "NA", "NA",
"NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA"), `4` = c(5, 6, 7, 4,
"NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA",
"NA"), `5` = c(4, 7, 6, 1, 5, "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA",
"NA", "NA", "NA", "NA", "NA"), `6` = c(7, 4, 5, 2, 3, 6, "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA",
"NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA"), `7` = c(6, 5, 4, 3, 2, 1, 7, "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA",
"NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA"), `8` = c(9, 10, 11, 12, 13, 14, 15, 8, "NA", "NA", "NA", "NA", "NA", "NA", "NA",
"NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA"), `9` = c(8, 11, 10, 13, 12, 15, 14, 1, 9, "NA", "NA", "NA",
"NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA"), `10` = c(11, 8, 9, 14, 15, 12, 13, 2,
3, 10, "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA"), `11` = c(10, 9, 8,
15, 14, 13, 12, 3, 2, 1, 11, "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA"), `12` = c(13,
14, 15, 8, 9, 10, 11, 4, 5, 6, 7, 12, "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA"),
`13` = c(12, 15, 14, 9, 8, 11, 10, 5, 4, 7, 6, 1, 13, "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA",
"NA"), `14` = c(15, 12, 13, 10, 11, 8, 9, 6, 7, 4, 5, 2, 3, 14, "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA",
"NA", "NA", "NA"), `15` = c(14, 13, 12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2, 1, 15, "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA",
"NA", "NA", "NA", "NA"), `16` = c(17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 16, "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA",
"NA", "NA", "NA", "NA", "NA", "NA"), `17` = c(16, 19, 18, 21, 20, 23, 22, 25, 24, 27, 26, 29, 28, 31, 30, 1, 17, "NA", "NA", "NA", "NA", "NA", "NA",
"NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA"), `18` = c(19, 16, 17, 22, 23, 20, 21, 26, 27, 24, 25, 30, 31, 28, 29, 2, 3, 18, "NA", "NA", "NA", "NA",
"NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA"), `19` = c(18, 17, 16, 23, 22, 21, 20, 27, 26, 25, 24, 31, 30, 29, 28, 3, 2, 1, 19, "NA", "NA",
"NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA"), `20` = c(21, 22, 23, 16, 17, 18, 19, 28, 29, 30, 31, 24, 25, 26, 27, 4, 5, 6, 7, 20, "NA",
"NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA"), `21` = c(20, 23, 22, 17, 16, 19, 18, 29, 28, 31, 30, 25, 24, 27, 26, 5, 4, 7, 6, 1, 21,
"NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA"), `22` = c(23, 20, 21, 18, 19, 16, 17, 30, 31, 28, 29, 26, 27, 24, 25, 6, 7, 4, 5, 2, 3,
22, "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA"), `23` = c(22, 21, 20, 19, 18, 17, 16, 31, 30, 29, 28, 27, 26, 25, 24, 7, 6, 5, 4, 3, 2, 1,
23, "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA"), `24` = c(25, 26, 27, 28, 29, 30, 31, 16, 17, 18, 19, 20, 21, 22, 23, 8, 9, 10, 11, 12, 13, 14,
15, 24, "NA", "NA", "NA", "NA", "NA", "NA", "NA"), `25` = c(24, 27, 26, 29, 28, 31, 30, 17, 16, 19, 18, 21, 20, 23, 22, 9, 8, 11, 10, 13, 12, 15, 14,
1, 25, "NA", "NA", "NA", "NA", "NA", "NA"), `26` = c(27, 24, 25, 30, 31, 28, 29, 18, 19, 16, 17, 22, 23, 20, 21, 10, 11, 8, 9, 14, 15, 12, 13, 2, 3,
26, "NA", "NA", "NA", "NA", "NA"), `27` = c(26, 25, 24, 31, 30, 29, 28, 19, 18, 17, 16, 23, 22, 21, 20, 11, 10, 9, 8, 15, 14, 13, 12, 3, 2, 1, 27, "NA",
"NA", "NA", "NA"), `28` = c(29, 30, 31, 24, 25, 26, 27, 20, 21, 22, 23, 16, 17, 18, 19, 12, 13, 14, 15, 8, 9, 10, 11, 4, 5, 6, 7, 28, "NA", "NA", "NA"),
`29` = c(28, 31, 30, 25, 24, 27, 26, 21, 20, 23, 22, 17, 16, 19, 18, 13, 12, 15, 14, 9, 8, 11, 10, 5, 4, 7, 6, 1, 29, "NA", "NA"), `30` = c(31, 28, 29,
26, 27, 24, 25, 22, 23, 20, 21, 18, 19, 16, 17, 14, 15, 12, 13, 10, 11, 8, 9, 6, 7, 4, 5, 2, 3, 30, "NA"), `31` = c(30, 29, 28, 27, 26, 25, 24, 23,
22, 21, 20, 19, 18, 17, 16, 15, 14, 13, 12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2, 1, 31))
.L32_2$ia_table = .ia_table
.L32_2_4 = list(id = "L32_2_4", type = "mixed", niv_max = 4, runs = 32, anzahl_spalten = 10, levels1 = 2, levels2 = 4, factors1 = 1, factors2 = 9,
design = data.frame(`1` = c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2), `2` = c(1, 1, 1, 1, 2, 2, 2,
2, 3, 3, 3, 3, 4, 4, 4, 4, 1, 1, 1, 1, 2, 2, 2, 2, 3, 3, 3, 3, 4, 4, 4, 4), `3` = c(1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2,
3, 4, 1, 2, 3, 4, 1, 2, 3, 4), `4` = c(1, 2, 3, 4, 1, 2, 3, 4, 2, 1, 4, 3, 2, 1, 4, 3, 4, 3, 2, 1, 4, 3, 2, 1, 3, 4, 1, 2, 3, 4, 1, 2), `5` = c(1, 2,
3, 4, 2, 1, 4, 3, 3, 4, 1, 2, 4, 3, 2, 1, 1, 2, 3, 4, 2, 1, 4, 3, 3, 4, 1, 2, 4, 3, 2, 1), `6` = c(1, 2, 3, 4, 2, 1, 4, 3, 4, 3, 2, 1, 3, 4, 1, 2, 4,
3, 2, 1, 3, 4, 1, 2, 1, 2, 3, 4, 2, 1, 4, 3), `7` = c(1, 2, 3, 4, 3, 4, 1, 2, 1, 2, 3, 4, 3, 4, 1, 2, 2, 1, 4, 3, 4, 3, 2, 1, 2, 1, 4, 3, 4, 3, 2, 1),
`8` = c(1, 2, 3, 4, 3, 4, 1, 2, 2, 1, 4, 3, 4, 3, 2, 1, 3, 4, 1, 2, 1, 2, 3, 4, 4, 3, 2, 1, 2, 1, 4, 3), `9` = c(1, 2, 3, 4, 4, 3, 2, 1, 3, 4, 1, 2,
2, 1, 4, 3, 2, 1, 4, 3, 3, 4, 1, 2, 4, 3, 2, 1, 1, 2, 3, 4), `10` = c(1, 2, 3, 4, 4, 3, 2, 1, 4, 3, 2, 1, 1, 2, 3, 4, 3, 4, 1, 2, 2, 1, 4, 3, 2,
1, 4, 3, 3, 4, 1, 2)), ia_table = data.frame(`1` = c("linearer Graph")))
.L36_2_3_a = list(id = "L36_2_3_a", type = "mixed", niv_max = 3, runs = 36, anzahl_spalten = 23, levels1 = 2, levels2 = 3, factors1 = 11, factors2 = 12,
design = data.frame(`1` = c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2), `2` = c(1, 1, 1,
1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2), `3` = c(1, 1, 1, 1, 1, 1, 2, 2, 2, 1, 1, 1, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 1, 1, 2, 2, 2, 1, 1, 1, 1, 1, 1), `4` = c(1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 1, 1, 1, 2, 2, 2, 2, 2, 2, 1, 1, 1, 2,
2, 2, 1, 1, 1, 2, 2, 2, 1, 1, 1), `5` = c(1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 1, 1, 1, 1, 1, 1, 2, 2, 2),
`6` = c(1, 1, 1, 2, 2, 2, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 1, 1, 1, 2, 2, 2, 2, 2, 2, 1, 1, 1, 2, 2, 2, 1, 1, 1), `7` = c(1, 1, 1, 2, 2, 2, 1, 1,
1, 2, 2, 2, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2), `8` = c(1, 1, 1, 2, 2, 2, 1, 1, 1, 2, 2, 2, 2, 2, 2, 1, 1,
1, 2, 2, 2, 1, 1, 1, 2, 2, 2, 2, 2, 2, 1, 1, 1, 1, 1, 1), `9` = c(1, 1, 1, 2, 2, 2, 2, 2, 2, 1, 1, 1, 1, 1, 1, 2, 2, 2, 1, 1, 1, 1, 1, 1, 2, 2,
2, 2, 2, 2, 1, 1, 1, 2, 2, 2), `10` = c(1, 1, 1, 2, 2, 2, 2, 2, 2, 1, 1, 1, 2, 2, 2, 1, 1, 1, 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2,
2), `11` = c(1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 1, 1, 1, 2, 2, 2, 2, 2, 2, 1, 1, 1), `12` = c(1, 2, 3, 1, 2,
3, 1, 2, 3, 1, 2, 3, 1, 2, 3, 1, 2, 3, 1, 2, 3, 1, 2, 3, 1, 2, 3, 1, 2, 3, 1, 2, 3, 1, 2, 3), `13` = c(1, 2, 3, 1, 2, 3, 1, 2, 3, 1, 2, 3, 2, 3,
1, 2, 3, 1, 2, 3, 1, 2, 3, 1, 3, 1, 2, 3, 1, 2, 3, 1, 2, 3, 1, 2), `14` = c(1, 2, 3, 1, 2, 3, 2, 3, 1, 3, 1, 2, 3, 1, 2, 3, 1, 2, 1, 2, 3, 2, 3,
1, 2, 3, 1, 2, 3, 1, 3, 1, 2, 1, 2, 3), `15` = c(1, 2, 3, 1, 2, 3, 3, 1, 2, 2, 3, 1, 1, 2, 3, 2, 3, 1, 3, 1, 2, 3, 1, 2, 1, 2, 3, 2, 3, 1, 3, 1,
2, 2, 3, 1), `16` = c(1, 2, 3, 2, 3, 1, 1, 2, 3, 1, 2, 3, 3, 1, 2, 1, 2, 3, 3, 1, 2, 3, 1, 2, 2, 3, 1, 2, 3, 1, 2, 3, 1, 3, 1, 2), `17` = c(1, 2,
3, 2, 3, 1, 2, 3, 1, 3, 1, 2, 2, 3, 1, 1, 2, 3, 3, 1, 2, 1, 2, 3, 3, 1, 2, 1, 2, 3, 3, 1, 2, 2, 3, 1), `18` = c(1, 2, 3, 2, 3, 1, 3, 1, 2, 2, 3,
1, 1, 2, 3, 3, 1, 2, 1, 2, 3, 2, 3, 1, 3, 1, 2, 1, 2, 3, 2, 3, 1, 3, 1, 2), `19` = c(1, 2, 3, 2, 3, 1, 3, 1, 2, 3, 1, 2, 3, 1, 2, 2, 3, 1, 2, 3,
1, 1, 2, 3, 1, 2, 3, 3, 1, 2, 2, 3, 1, 1, 2, 3), `20` = c(1, 2, 3, 3, 1, 2, 1, 2, 3, 2, 3, 1, 3, 1, 2, 3, 1, 2, 2, 3, 1, 1, 2, 3, 3, 1, 2, 2, 3,
1, 1, 2, 3, 2, 3, 1), `21` = c(1, 2, 3, 3, 1, 2, 2, 3, 1, 1, 2, 3, 2, 3, 1, 3, 1, 2, 1, 2, 3, 3, 1, 2, 1, 2, 3, 3, 1, 2, 2, 3, 1, 2, 3, 1), `22` = c(1,
2, 3, 3, 1, 2, 2, 3, 1, 3, 1, 2, 1, 2, 3, 2, 3, 1, 2, 3, 1, 3, 1, 2, 2, 3, 1, 1, 2, 3, 1, 2, 3, 3, 1, 2), `23` = c(1, 2, 3, 3, 1, 2, 3, 1, 2, 2,
3, 1, 2, 3, 1, 1, 2, 3, 3, 1, 2, 2, 3, 1, 2, 3, 1, 3, 1, 2, 1, 2, 3, 1, 2, 3)), ia_table = data.frame(`1` = c("ohne linearen Graph")))
.L36_2_3_b = list(id = "L36_2_3_b", type = "mixed", niv_max = 3, runs = 36, anzahl_spalten = 16, levels1 = 2, levels2 = 3, factors1 = 3, factors2 = 13,
design = data.frame(`1` = c(1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2), `2` = c(1, 1, 1,
2, 2, 2, 1, 1, 1, 2, 2, 2, 1, 1, 1, 2, 2, 2, 1, 1, 1, 2, 2, 2, 1, 1, 1, 2, 2, 2, 1, 1, 1, 2, 2, 2), `3` = c(1, 1, 1, 2, 2, 2, 2, 2, 2, 1, 1, 1, 1, 1,
1, 2, 2, 2, 2, 2, 2, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 1, 1, 1), `4` = c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3,
3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3), `5` = c(1, 2, 3, 1, 2, 3, 1, 2, 3, 1, 2, 3, 1, 2, 3, 1, 2, 3, 1, 2, 3, 1, 2, 3, 1, 2, 3, 1, 2, 3, 1, 2, 3, 1, 2, 3),
`6` = c(1, 2, 3, 1, 2, 3, 1, 2, 3, 1, 2, 3, 2, 3, 1, 2, 3, 1, 2, 3, 1, 2, 3, 1, 3, 1, 2, 3, 1, 2, 3, 1, 2, 3, 1, 2), `7` = c(1, 2, 3, 1, 2, 3, 2, 3,
1, 3, 1, 2, 3, 1, 2, 3, 1, 2, 1, 2, 3, 2, 3, 1, 2, 3, 1, 2, 3, 1, 3, 1, 2, 1, 2, 3), `8` = c(1, 2, 3, 1, 2, 3, 3, 1, 2, 2, 3, 1, 1, 2, 3, 2, 3,
1, 3, 1, 2, 3, 1, 2, 1, 2, 3, 2, 3, 1, 3, 1, 2, 2, 3, 1), `9` = c(1, 2, 3, 2, 3, 1, 1, 2, 3, 1, 2, 3, 3, 1, 2, 1, 2, 3, 3, 1, 2, 3, 1, 2, 2, 3,
1, 2, 3, 1, 2, 3, 1, 3, 1, 2), `10` = c(1, 2, 3, 2, 3, 1, 2, 3, 1, 3, 1, 2, 2, 3, 1, 1, 2, 3, 3, 1, 2, 1, 2, 3, 3, 1, 2, 1, 2, 3, 3, 1, 2, 2, 3,
1), `11` = c(1, 2, 3, 2, 3, 1, 3, 1, 2, 2, 3, 1, 1, 2, 3, 3, 1, 2, 1, 2, 3, 2, 3, 1, 3, 1, 2, 1, 2, 3, 2, 3, 1, 3, 1, 2), `12` = c(1, 2, 3, 2, 3,
1, 3, 1, 2, 3, 1, 2, 3, 1, 2, 2, 3, 1, 2, 3, 1, 1, 2, 3, 1, 2, 3, 1, 2, 3, 2, 3, 1, 1, 2, 3), `13` = c(1, 2, 3, 3, 1, 2, 1, 2, 3, 2, 3, 1, 3, 1,
2, 3, 1, 2, 2, 3, 1, 1, 2, 3, 3, 1, 2, 2, 3, 1, 1, 2, 3, 2, 3, 1), `14` = c(1, 2, 3, 3, 1, 2, 2, 3, 1, 1, 2, 3, 2, 3, 1, 3, 1, 2, 1, 2, 3, 3, 1,
2, 1, 2, 3, 3, 1, 2, 2, 3, 1, 2, 3, 1), `15` = c(1, 2, 3, 3, 1, 2, 2, 3, 1, 3, 1, 2, 1, 2, 3, 2, 3, 1, 2, 3, 1, 3, 1, 2, 2, 3, 1, 1, 2, 3, 1, 2,
3, 3, 1, 2), `16` = c(1, 2, 3, 3, 1, 2, 3, 1, 2, 2, 3, 1, 2, 3, 1, 1, 2, 3, 3, 1, 2, 2, 3, 1, 2, 3, 1, 3, 1, 2, 1, 2, 3, 1, 2, 3)), ia_table = data.frame(`1` = c("linearer Graph")))
.L50_2_5 = list(id = "L50_2_5", type = "mixed", niv_max = 5, runs = 15, anzahl_spalten = 12, levels1 = 2, levels2 = 5, factors1 = 1, factors2 = 11,
design = data.frame(`1` = c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2), `2` = c(1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 3, 3, 3, 3,
3, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5), `3` = c(1, 2, 3, 4, 5, 1, 2, 3, 4, 5, 1, 2, 3, 4, 5, 1, 2, 3, 4, 5, 1, 2, 3, 4, 5, 1, 2, 3, 4, 5, 1, 2, 3, 4, 5, 1,
2, 3, 4, 5, 1, 2, 3, 4, 5, 1, 2, 3, 4, 5), `4` = c(1, 2, 3, 4, 5, 2, 3, 4, 5, 1, 3, 4, 5, 1, 2, 4, 5, 1, 2, 3, 5, 1, 2, 3, 4, 1, 2, 3, 4, 5, 2, 3, 4,
5, 1, 3, 4, 5, 1, 2, 4, 5, 1, 2, 3, 5, 1, 2, 3, 4), `5` = c(1, 2, 3, 4, 5, 3, 4, 5, 1, 2, 5, 1, 2, 3, 4, 2, 3, 4, 5, 1, 4, 5, 1, 2, 3, 4, 5, 1, 2, 3,
1, 2, 3, 4, 5, 3, 4, 5, 1, 2, 5, 1, 2, 3, 4, 2, 3, 4, 5, 1), `6` = c(1, 2, 3, 4, 5, 4, 5, 1, 2, 3, 2, 3, 4, 5, 1, 5, 1, 2, 3, 4, 3, 4, 5, 1, 2, 5, 1,
2, 3, 4, 3, 4, 5, 1, 2, 1, 2, 3, 4, 5, 4, 5, 1, 2, 3, 2, 3, 4, 5, 1), `7` = c(1, 2, 3, 4, 5, 5, 1, 2, 3, 4, 4, 5, 1, 2, 3, 3, 4, 5, 1, 2, 2, 3, 4, 5,
1, 4, 5, 1, 2, 3, 3, 4, 5, 1, 2, 2, 3, 4, 5, 1, 1, 2, 3, 4, 5, 5, 1, 2, 3, 4), `8` = c(1, 2, 3, 4, 5, 1, 2, 3, 4, 5, 4, 5, 1, 2, 3, 5, 1, 2, 3, 4, 4,
5, 1, 2, 3, 3, 4, 5, 1, 2, 2, 3, 4, 5, 1, 5, 1, 2, 3, 4, 2, 3, 4, 5, 1, 3, 4, 5, 1, 2), `9` = c(1, 2, 3, 4, 5, 2, 3, 4, 5, 1, 1, 2, 3, 4, 5, 3, 4, 5,
1, 2, 3, 4, 5, 1, 2, 2, 3, 4, 5, 1, 4, 5, 1, 2, 3, 5, 1, 2, 3, 4, 5, 1, 2, 3, 4, 4, 5, 1, 2, 3), `10` = c(1, 2, 3, 4, 5, 3, 4, 5, 1, 2, 3, 4, 5, 1,
2, 1, 2, 3, 4, 5, 2, 3, 4, 5, 1, 5, 1, 2, 3, 4, 5, 1, 2, 3, 4, 4, 5, 1, 2, 3, 2, 3, 4, 5, 1, 4, 5, 1, 2, 3), `11` = c(1, 2, 3, 4, 5, 4, 5, 1, 2, 3,
5, 1, 2, 3, 4, 4, 5, 1, 2, 3, 1, 2, 3, 4, 5, 2, 3, 4, 5, 1, 5, 1, 2, 3, 4, 2, 3, 4, 5, 1, 3, 4, 5, 1, 2, 3, 4, 5, 1, 2), `12` = c(1, 2, 3, 4, 5, 5,
1, 2, 3, 4, 2, 3, 4, 5, 1, 2, 3, 4, 5, 1, 5, 1, 2, 3, 4, 3, 4, 5, 1, 2, 4, 5, 1, 2, 3, 4, 5, 1, 2, 3, 3, 4, 5, 1, 2, 1, 2, 3, 4, 5)), ia_table = data.frame(`1` = c("linearer Graph")))
.L8_4_2 = list(id = "L8_4_2", type = "mixed", niv_max = 4, runs = 8, anzahl_spalten = 5, levels1 = 4, levels2 = 2, factors1 = 1, factors2 = 4, design = data.frame(`1` = c(1,
1, 2, 2, 3, 3, 4, 4), `2` = c(1, 2, 1, 2, 1, 2, 1, 2), `3` = c(1, 2, 1, 2, 2, 1, 2, 1), `4` = c(1, 2, 2, 1, 1, 2, 2, 1), `5` = c(1, 2, 2, 1, 2, 1, 1, 2)),
ia_table = data.frame(`1` = c("ohne interaction table")))
.L16_4_2_a = list(id = "L16_4_2_a", type = "mixed", niv_max = 4, runs = 16, anzahl_spalten = 13, levels1 = 4, levels2 = 2, factors1 = 1, factors2 = 12,
design = data.frame(`1` = c(1, 1, 1, 1, 2, 2, 2, 2, 3, 3, 3, 3, 4, 4, 4, 4), `2` = c(1, 1, 2, 2, 1, 1, 2, 2, 1, 1, 2, 2, 1, 1, 2, 2), `3` = c(1, 1, 2, 2,
1, 1, 2, 2, 2, 2, 1, 1, 2, 2, 1, 1), `4` = c(1, 1, 2, 2, 2, 2, 1, 1, 1, 1, 2, 2, 2, 2, 1, 1), `5` = c(1, 1, 2, 2, 2, 2, 1, 1, 2, 2, 1, 1, 1, 1, 2, 2),
`6` = c(1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2), `7` = c(1, 2, 1, 2, 1, 2, 1, 2, 2, 1, 2, 1, 2, 1, 2, 1), `8` = c(1, 2, 1, 2, 2, 1, 2, 1, 1,
2, 1, 2, 2, 1, 2, 1), `9` = c(1, 2, 1, 2, 2, 1, 2, 1, 2, 1, 2, 1, 1, 2, 1, 2), `10` = c(1, 2, 2, 1, 1, 2, 2, 1, 1, 2, 2, 1, 1, 2, 2, 1), `11` = c(1,
2, 2, 1, 1, 2, 2, 1, 2, 1, 1, 2, 2, 1, 1, 2), `12` = c(1, 2, 2, 1, 2, 1, 1, 2, 1, 2, 2, 1, 2, 1, 1, 2), `13` = c(1, 2, 2, 1, 2, 1, 1, 2, 2, 1, 1,
2, 1, 2, 2, 1)), ia_table = data.frame(`1` = c("ohne interaction table")))
.L16_4_2_b = list(id = "L16_4_2_b", type = "mixed", niv_max = 4, runs = 16, anzahl_spalten = 11, levels1 = 4, levels2 = 2, factors1 = 2, factors2 = 9,
design = data.frame(`1` = c(1, 1, 1, 1, 2, 2, 2, 2, 3, 3, 3, 3, 4, 4, 4, 4), `2` = c(1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4), `3` = c(1, 1, 2, 2,
1, 1, 2, 2, 2, 2, 1, 1, 2, 2, 1, 1), `4` = c(1, 1, 2, 2, 2, 2, 1, 1, 1, 1, 2, 2, 2, 2, 1, 1), `5` = c(1, 1, 2, 2, 2, 2, 1, 1, 2, 2, 1, 1, 1, 1, 2, 2),
`6` = c(1, 2, 1, 2, 1, 2, 1, 2, 2, 1, 2, 1, 2, 1, 2, 1), `7` = c(1, 2, 1, 2, 2, 1, 2, 1, 1, 2, 1, 2, 2, 1, 2, 1), `8` = c(1, 2, 1, 2, 2, 1, 2, 1, 2,
1, 2, 1, 1, 2, 1, 2), `9` = c(1, 2, 2, 1, 1, 2, 2, 1, 2, 1, 1, 2, 2, 1, 1, 2), `10` = c(1, 2, 2, 1, 2, 1, 1, 2, 1, 2, 2, 1, 2, 1, 1, 2), `11` = c(1,
2, 2, 1, 2, 1, 1, 2, 2, 1, 1, 2, 1, 2, 2, 1)), ia_table = data.frame(`1` = c("ohne interaction table")))
.L16_4_2_c = list(id = "L16_4_2_c", type = "mixed", niv_max = 4, runs = 16, anzahl_spalten = 9, levels1 = 4, levels2 = 2, factors1 = 3, factors2 = 6,
design = data.frame(`1` = c(1, 1, 1, 1, 2, 2, 2, 2, 3, 3, 3, 3, 4, 4, 4, 4), `2` = c(1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4), `3` = c(1, 2, 3, 4,
2, 1, 4, 3, 3, 4, 1, 2, 4, 3, 2, 1), `4` = c(1, 1, 2, 2, 2, 2, 1, 1, 1, 1, 2, 2, 2, 2, 1, 1), `5` = c(1, 1, 2, 2, 2, 2, 1, 1, 2, 2, 1, 1, 1, 1, 2, 2),
`6` = c(1, 2, 1, 2, 1, 2, 1, 2, 2, 1, 2, 1, 2, 1, 2, 1), `7` = c(1, 2, 1, 2, 2, 1, 2, 1, 2, 1, 2, 1, 1, 2, 1, 2), `8` = c(1, 2, 2, 1, 1, 2, 2, 1, 2,
1, 1, 2, 2, 1, 1, 2), `9` = c(1, 2, 2, 1, 2, 1, 1, 2, 1, 2, 2, 1, 2, 1, 1, 2)), ia_table = data.frame(`1` = c("ohne interaction table")))
.L16_4_2_d = list(id = "L16_4_2_d", type = "mixed", niv_max = 4, runs = 16, anzahl_spalten = 7, levels1 = 4, levels2 = 2, factors1 = 4, factors2 = 3,
design = data.frame(`1` = c(1, 1, 1, 1, 2, 2, 2, 2, 3, 3, 3, 3, 4, 4, 4, 4), `2` = c(1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4), `3` = c(1, 2, 3, 4,
2, 1, 4, 3, 3, 4, 1, 2, 4, 3, 2, 1), `4` = c(1, 1, 2, 2, 2, 2, 1, 1, 1, 1, 2, 2, 2, 2, 1, 1), `5` = c(1, 2, 3, 4, 1, 2, 4, 3, 4, 3, 2, 1, 2, 1, 4, 3),
`6` = c(1, 2, 1, 2, 2, 1, 2, 1, 2, 1, 2, 1, 1, 2, 1, 2), `7` = c(1, 2, 2, 1, 1, 2, 2, 1, 2, 1, 1, 2, 2, 1, 1, 2)), ia_table = data.frame(`1` = c("ohne interaction table")))
.L18_6_3 = list(id = "L18_6_3", type = "mixed", niv_max = 6, runs = 18, anzahl_spalten = 7, levels1 = 3, levels2 = 6, factors1 = 6, factors2 = 1,
design = data.frame(`1` = c(1, 1, 1, 2, 2, 2, 3, 3, 3, 4, 4, 4, 5, 5, 5, 6, 6, 6), `2` = c(1, 2, 3, 1, 2, 3, 1, 2, 3, 1, 2, 3, 1, 2, 3, 1, 2, 3), `3` = c(1,
2, 3, 1, 2, 3, 2, 3, 1, 3, 1, 2, 2, 3, 1, 3, 1, 2), `4` = c(1, 2, 3, 2, 3, 1, 1, 2, 3, 3, 1, 2, 3, 1, 2, 2, 3, 1), `5` = c(1, 2, 3, 2, 3, 1, 3, 1, 2,
2, 3, 1, 1, 2, 3, 3, 1, 2), `6` = c(1, 2, 3, 3, 1, 2, 2, 3, 1, 2, 3, 1, 3, 1, 2, 1, 2, 3), `7` = c(1, 2, 3, 3, 1, 2, 3, 1, 2, 1, 2, 3, 2, 3, 1, 2, 3,
1)), ia_table = data.frame(`1` = c("ohne interaction table")))
.oaList = list(.L4_2, .L8_2, .L9_3, .L12_2, .L16_2, .L16_4, .L18_2_3, .L25_5, .L27_3, .L32_2, .L32_2_4, .L36_2_3_a, .L36_2_3_b, .L50_2_5, .L8_4_2,
.L16_4_2_a, .L16_4_2_b, .L16_4_2_c, .L16_4_2_d, .L18_6_3)
for (i in seq(along = .oaList)) {
pmatch(design, .oaList[[i]]$id)
if (!is.na(pmatch(design, .oaList[[i]]$id))) {
if (DB)
print(design)
temp = .oaList[[i]]
design = temp$design
repVec = rep(1, nrow(design))
if (replicates > 1) {
X = temp$design
for (i in 1:(replicates - 1)) {
design = rbind(design, X)
repVec = c(repVec, rep(i + 1, times = nrow(X)))
}
}
Replicate = data.frame(Replicate = as.numeric(repVec))
if (DB)
print(Replicate)
odo = new("taguchiDesign")
odo@design = design
.NAMES = LETTERS[c(1:8, 10:26)]
names(odo@design) = .NAMES[1:ncol(design)]
odo@name = temp$id
odo@designType = temp$type
odo@replic = Replicate
StandOrder = 1:nrow(odo@design)
RunOrder = StandOrder
if (randomize) {
RunOrder = sample(1:nrow(odo@design), nrow(odo@design),
replace = FALSE, prob = NULL)
}
odo@design = odo@design[order(RunOrder), ]
odo@replic = data.frame(Replicate = odo@replic[order(RunOrder),1])
row.names(odo@design) = odo@design$RunOrder
odo@runOrder = data.frame(RunOrder = data.frame(RunOrder = RunOrder)[order(RunOrder),])
odo@standardOrder = data.frame(StandOrder = data.frame(StandOrder = StandOrder)[order(RunOrder),])
odo@response = data.frame(y = rep(NA, nrow(odo@design)))
tfList = vector("list", ncol(design))
for (i in seq(along = tfList)) tfList[i] = new("taguchiFactor")
names(tfList) = names(odo@design)
factors(odo) = tfList
valList = list(length = length(names(odo)))
for (i in names(names(odo))) valList[[i]] = sort(unique(odo@design[,i]))
values(odo) = valList
odo<-cbind(odo@standardOrder,odo@runOrder,odo@design)
return(odo)
}
}
}
linkinjy/rmaeng2 documentation built on Jan. 26, 2021, 11:22 p.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
#' kdesign
#'
#' random number table of orthogonal arrays
#'
#' @param design,randomize,replicates
#'
#' @return table, anova
#'
#' @examples
#' design = "L9_3"
#' randomize = TRUE
#' replicates = 1
#'
#' @export
#'
#' @importFrom
#' qualityTools nrow
#' qualityTools values
#' DoE.base oa.design
#'
kdesign<-function (design, randomize = TRUE, replicates = 1){
DB = FALSE
odo = NA
type = "single"
.L4_2 = list(id = "L4_2", type = "single", niv_max = 2, runs = 4, anzahl_spalten = 3, levels1 = 2, levels2 = 0, factors1 = 3, factors2 = 0, colOrder = c(1,
2, 3), r4 = c(1, 2), r2 = c(1, 2, 3), design = data.frame(`1` = c(1, 1, 2, 2), `2` = c(1, 2, 1, 2), `3` = c(1, 2, 2, 1)))
.L8_2 = list(id = "L8_2", type = "single", niv_max = 2, runs = 8, anzahl_spalten = 7, levels1 = 2, levels2 = 0, factors1 = 7, factors2 = 0, colOrder = c(1,
2, 4, 7, 3, 5, 6), r4 = c(1, 2, 4), r2 = c(1, 2, 4, 7), r1 = c(1, 2, 4, 7, 3, 5, 6), design = data.frame(`1` = c(1, 1, 1, 1, 2, 2, 2, 2), `2` = c(1, 1,
2, 2, 1, 1, 2, 2), `3` = c(1, 1, 2, 2, 2, 2, 1, 1), `4` = c(1, 2, 1, 2, 1, 2, 1, 2), `5` = c(1, 2, 1, 2, 2, 1, 2, 1), `6` = c(1, 2, 2, 1, 1, 2, 2, 1), `7` = c(1,
2, 2, 1, 2, 1, 1, 2)), ia_table = data.frame(`1` = c(1, "NA", "NA", "NA", "NA", "NA", "NA"), `2` = c(3, 2, "NA", "NA", "NA", "NA", "NA"), `3` = c(2, 1,
3, "NA", "NA", "NA", "NA"), `4` = c(5, 6, 7, 4, "NA", "NA", "NA"), `5` = c(4, 7, 6, 1, 5, "NA", "NA"), `6` = c(7, 4, 5, 2, 3, 6, "NA"), `7` = c(6, 5, 4,
3, 2, 1, 7)))
.L9_3 = list(id = "L9_3", type = "single", niv_max = 3, runs = 9, anzahl_spalten = 4, levels1 = 3, levels2 = 0, factors1 = 4, factors2 = 0, colOrder = c(1,
2, 3, 4), r4 = c(1, 2), r1 = c(1, 2, 3, 4), design = data.frame(`1` = c(1, 1, 1, 2, 2, 2, 3, 3, 3), `2` = c(1, 2, 3, 1, 2, 3, 1, 2, 3), `3` = c(1, 2, 3,
2, 3, 1, 3, 1, 2), `4` = c(1, 2, 3, 3, 1, 2, 2, 3, 1)), ia_table = data.frame(`2` = c("3,4")))
.L12_2 = list(id = "L12_2", type = "single", niv_max = 2, runs = 12, anzahl_spalten = 11, levels1 = 2, levels2 = 0, factors1 = 11, factors2 = 0,
colOrder = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11), r1 = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11), design = data.frame(`1` = c(1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2,
2), `2` = c(1, 1, 1, 2, 2, 2, 1, 1, 1, 2, 2, 2), `3` = c(1, 1, 2, 1, 2, 2, 2, 2, 1, 2, 1, 1), `4` = c(1, 1, 2, 2, 1, 2, 2, 1, 2, 1, 2, 1), `5` = c(1,
1, 2, 2, 2, 1, 1, 2, 2, 1, 1, 2), `6` = c(1, 2, 1, 1, 2, 2, 1, 2, 2, 1, 2, 1), `7` = c(1, 2, 1, 2, 1, 2, 2, 2, 1, 1, 1, 2), `8` = c(1, 2, 1, 2, 2, 1,
2, 1, 2, 2, 1, 1), `9` = c(1, 2, 2, 1, 1, 2, 1, 1, 2, 2, 1, 2), `10` = c(1, 2, 2, 1, 2, 1, 2, 1, 1, 1, 2, 2), `11` = c(1, 2, 2, 2, 1, 1, 1, 2, 1, 2,
2, 1)), ia_table = data.frame(`1` = c("ohne interaction table")))
.L16_2 = list(id = "L16_2", type = "single", niv_max = 2, runs = 15, anzahl_spalten = 15, levels1 = 2, levels2 = 0, factors1 = 15, factors2 = 0,
colOrder = c(1, 2, 4, 7, 8, 11, 13, 14, 3, 5, 6, 9, 10, 12, 15), r4 = c(1, 2, 4, 8), r3 = c(1, 2, 4, 8, 15), r2 = c(1, 2, 4, 7, 8, 11, 13, 14), r1 = c(1,
2, 4, 7, 8, 11, 13, 14, 3, 5, 6, 9, 10, 12, 15), design = data.frame(`1` = c(1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2), `2` = c(1, 1, 1, 1, 2,
2, 2, 2, 1, 1, 1, 1, 2, 2, 2, 2), `3` = c(1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 1, 1, 1, 1), `4` = c(1, 1, 2, 2, 1, 1, 2, 2, 1, 1, 2, 2, 1, 1, 2, 2),
`5` = c(1, 1, 2, 2, 1, 1, 2, 2, 2, 2, 1, 1, 2, 2, 1, 1), `6` = c(1, 1, 2, 2, 2, 2, 1, 1, 1, 1, 2, 2, 2, 2, 1, 1), `7` = c(1, 1, 2, 2, 2, 2, 1, 1, 2,
2, 1, 1, 1, 1, 2, 2), `8` = c(1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2), `9` = c(1, 2, 1, 2, 1, 2, 1, 2, 2, 1, 2, 1, 2, 1, 2, 1), `10` = c(1,
2, 1, 2, 2, 1, 2, 1, 1, 2, 1, 2, 2, 1, 2, 1), `11` = c(1, 2, 1, 2, 2, 1, 2, 1, 2, 1, 2, 1, 1, 2, 1, 2), `12` = c(1, 2, 2, 1, 1, 2, 2, 1, 1, 2, 2,
1, 1, 2, 2, 1), `13` = c(1, 2, 2, 1, 1, 2, 2, 1, 2, 1, 1, 2, 2, 1, 1, 2), `14` = c(1, 2, 2, 1, 2, 1, 1, 2, 1, 2, 2, 1, 2, 1, 1, 2), `15` = c(1,
2, 2, 1, 2, 1, 1, 2, 2, 1, 1, 2, 1, 2, 2, 1)), ia_table = data.frame(`1` = c(1, "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA",
"NA", "NA", "NA"), `2` = c(3, 2, "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA"), `3` = c(2, 1, 3, "NA", "NA", "NA", "NA",
"NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA"), `4` = c(5, 6, 7, 4, "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA"), `5` = c(4, 7,
6, 1, 5, "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA"), `6` = c(7, 4, 5, 2, 3, 6, "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA"),
`7` = c(6, 5, 4, 3, 2, 1, 7, "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA"), `8` = c(9, 10, 11, 12, 13, 14, 15, 8, "NA", "NA", "NA", "NA", "NA", "NA",
"NA"), `9` = c(8, 11, 10, 13, 12, 15, 14, 1, 9, "NA", "NA", "NA", "NA", "NA", "NA"), `10` = c(11, 8, 9, 14, 15, 12, 13, 2, 3, 10, "NA", "NA", "NA",
"NA", "NA"), `11` = c(10, 9, 8, 15, 14, 13, 12, 3, 2, 1, 11, "NA", "NA", "NA", "NA"), `12` = c(13, 14, 15, 8, 9, 10, 11, 4, 5, 6, 7, 12, "NA", "NA",
"NA"), `13` = c(12, 15, 14, 9, 8, 11, 10, 5, 4, 7, 6, 1, 13, "NA", "NA"), `14` = c(15, 12, 13, 10, 11, 8, 9, 6, 7, 4, 5, 2, 3, 14, "NA"), `15` = c(14,
13, 12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2, 1, 15)))
.L16_4 = list(id = "L16_4", type = "single", niv_max = 4, runs = 16, anzahl_spalten = 5, levels1 = 4, levels2 = 0, factors1 = 5, factors2 = 0, design = data.frame(`1` = c(1,
1, 1, 1, 2, 2, 2, 2, 3, 3, 3, 3, 4, 4, 4, 4), `2` = c(1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4), `3` = c(1, 2, 3, 4, 2, 1, 4, 3, 3, 4, 1, 2, 4, 3,
2, 1), `4` = c(1, 2, 3, 4, 3, 4, 1, 2, 4, 3, 2, 1, 2, 1, 4, 3), `5` = c(1, 2, 3, 4, 4, 3, 2, 1, 2, 1, 4, 3, 3, 4, 1, 2)), ia_table = data.frame(`2` = c("3,4,5")))
.L18_2_3 = list(id = "L18_2_3", type = "mixed", niv_max = 3, runs = 18, anzahl_spalten = 8, levels1 = 2, levels2 = 3, factors1 = 1, factors2 = 7,
design = data.frame(`1` = c(1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2), `2` = c(1, 1, 1, 2, 2, 2, 3, 3, 3, 1, 1, 1, 2, 2, 2, 3, 3, 3), `3` = c(1,
2, 3, 1, 2, 3, 1, 2, 3, 1, 2, 3, 1, 2, 3, 1, 2, 3), `4` = c(1, 2, 3, 1, 2, 3, 2, 3, 1, 3, 1, 2, 2, 3, 1, 3, 1, 2), `5` = c(1, 2, 3, 2, 3, 1, 1, 2, 3,
3, 1, 2, 3, 1, 2, 2, 3, 1), `6` = c(1, 2, 3, 2, 3, 1, 3, 1, 2, 2, 3, 1, 1, 2, 3, 3, 1, 2), `7` = c(1, 2, 3, 3, 1, 2, 2, 3, 1, 2, 3, 1, 3, 1, 2, 1, 2,
3), `8` = c(1, 2, 3, 3, 2, 1, 3, 1, 2, 1, 2, 3, 2, 3, 1, 2, 3, 1)), ia_table = data.frame(`1` = c("ohne interaction table")))
.L25_5 = list(id = "L25_5", type = "single", niv_max = 5, runs = 25, anzahl_spalten = 6, levels1 = 5, levels2 = 0, factors1 = 6, factors2 = 0, design = data.frame(`1` = c(1,
1, 1, 1, 1, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5), `2` = c(1, 2, 3, 4, 5, 1, 2, 3, 4, 5, 1, 2, 3, 4, 5, 1, 2, 3, 4, 5, 1, 2, 3, 4,
5), `3` = c(1, 2, 3, 4, 5, 2, 3, 4, 5, 1, 3, 4, 5, 1, 2, 4, 5, 1, 2, 3, 5, 1, 2, 3, 4), `4` = c(1, 2, 3, 4, 5, 3, 4, 5, 1, 2, 5, 1, 2, 3, 4, 2, 3, 4, 5,
1, 4, 5, 1, 2, 3), `5` = c(1, 2, 3, 4, 5, 4, 5, 1, 2, 3, 2, 3, 4, 5, 1, 5, 1, 2, 3, 4, 3, 4, 5, 1, 2), `6` = c(1, 2, 3, 4, 5, 5, 1, 2, 3, 4, 4, 5, 1, 2,
3, 3, 4, 5, 1, 2, 2, 3, 4, 5, 1)), ia_table = data.frame(`2` = c("3,4,5,6")))
.L27_3 = list(id = "L27_3", type = "single", niv_max = 3, runs = 27, anzahl_spalten = 13, levels1 = 3, levels2 = 0, factors1 = 13, factors2 = 0,
colOrder = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13), r4 = c(1, 2, 5), r2 = c(1, 2, 5, 9, 10, 12, 13), r1 = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12,
13), design = data.frame(`1` = c(1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 3), `2` = c(1, 1, 1, 2, 2, 2, 3, 3, 3,
1, 1, 1, 2, 2, 2, 3, 3, 3, 1, 1, 1, 2, 2, 2, 3, 3, 3), `3` = c(1, 1, 1, 2, 2, 2, 3, 3, 3, 2, 2, 2, 3, 3, 3, 1, 1, 1, 3, 3, 3, 1, 1, 1, 2, 2, 2), `4` = c(1,
1, 1, 2, 2, 2, 3, 3, 3, 3, 3, 3, 1, 1, 1, 2, 2, 2, 2, 2, 2, 3, 3, 3, 1, 1, 1), `5` = c(1, 2, 3, 1, 2, 3, 1, 2, 3, 1, 2, 3, 1, 2, 3, 1, 2, 3, 1, 2, 3,
1, 2, 3, 1, 2, 3), `6` = c(1, 2, 3, 1, 2, 3, 1, 2, 3, 2, 3, 1, 2, 3, 1, 2, 3, 1, 3, 1, 2, 3, 1, 2, 3, 1, 2), `7` = c(1, 2, 3, 1, 2, 3, 1, 2, 3, 3, 1,
2, 3, 1, 2, 3, 1, 2, 2, 3, 1, 2, 3, 1, 2, 3, 1), `8` = c(1, 2, 3, 2, 3, 1, 3, 1, 2, 1, 2, 3, 2, 3, 1, 3, 1, 2, 1, 2, 3, 2, 3, 1, 3, 1, 2), `9` = c(1,
2, 3, 2, 3, 1, 3, 1, 2, 2, 3, 1, 3, 1, 2, 1, 2, 3, 3, 1, 2, 1, 2, 3, 2, 3, 1), `10` = c(1, 2, 3, 2, 3, 1, 3, 1, 2, 3, 1, 2, 1, 2, 3, 2, 3, 1, 2, 3,
1, 3, 1, 2, 1, 2, 3), `11` = c(1, 2, 3, 3, 1, 2, 2, 3, 1, 1, 2, 3, 3, 1, 2, 2, 3, 1, 1, 2, 3, 3, 1, 2, 2, 3, 1), `12` = c(1, 2, 3, 3, 1, 2, 2, 3, 1,
2, 3, 1, 1, 2, 3, 3, 1, 2, 3, 1, 2, 2, 3, 1, 1, 2, 3), `13` = c(1, 2, 3, 3, 1, 2, 2, 3, 1, 3, 1, 2, 2, 3, 1, 1, 2, 3, 2, 3, 1, 1, 2, 3, 3, 1, 2)), ia_table = data.frame(`1` = c(1,
"NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA"), `2` = c("3,4", 2, "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA",
"NA"), `3` = c("2,4", "1,4", 3, "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA"), `4` = c("2,3", "1,3", "1,2", 4, "NA", "NA", "NA", "NA",
"NA", "NA", "NA", "NA", "NA"), `5` = c("6,7", "8,11", "9,13", "10,12", "5", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA"), `6` = c("5,7", "9,12",
"10,11", "8,13", "1,7", 6, "NA", "NA", "NA", "NA", "NA", "NA", "NA"), `7` = c("5,6", "10,13", "8,12", "9,11", "1,6", "1,5", 7, "NA", "NA", "NA", "NA",
"NA", "NA"), `8` = c("9,10", "5,11", "7,12", "6,13", "2,11", "4,13", "3,12", 8, "NA", "NA", "NA", "NA", "NA"), `9` = c("8,10", "6,12", "5,13", "7,11",
"3,13", "2,12", "4,11", "1,10", 9, "NA", "NA", "NA", "NA"), `10` = c("8,9", "7,13", "6,11", "5,12", "4,12", "3,11", "2,13", "1,9", "1,8", 10, "NA",
"NA", "NA"), `11` = c("12,13", "5,8", "6,10", "7,9", "2,8", "3,10", "4,9", "2,5", "4,7", "3,6", 11, "NA", "NA"), `12` = c("11,13", "6,9", "7,8", "5,10",
"4,10", "2,9", "3,8", "3,7", "2,6", "4,5", "1,13", 12, "NA"), `13` = c("11,12", "7,10", "5,9", "6,8", "3,9", "4,8", "2,10", "4,6", "3,5", "2,7", "1,12",
"1,11", 13)))
.L32_2 = list(id = "L32_2", type = "single", niv_max = 2, runs = 32, anzahl_spalten = 31, levels1 = 2, levels2 = 0, factors1 = 31, factors2 = 0,
colOrder = c(1, 2, 4, 7, 8, 11, 13, 14, 16, 19, 21, 22, 25, 26, 28, 31, 3, 5, 6, 9, 10, 12, 15, 17, 18, 20, 23, 24, 27, 29, 30), r4 = c(1, 2, 4, 8, 16),
r3 = c(1, 2, 4, 8, 16, 31), r2 = c(1, 2, 4, 8, 16, 31, 7, 11, 13, 14, 19, 21, 22, 25, 26, 28), r1 = c(1, 2, 4, 7, 8, 11, 13, 14, 16, 19, 21, 22, 25, 26,
28, 31, 3, 5, 6, 9, 10, 12, 15, 17, 18, 20, 23, 24, 27, 29, 30), design = data.frame(`1` = c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2), `2` = c(1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2), `3` = c(1,
1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1), `4` = c(1, 1, 1, 1, 2, 2, 2, 2, 1, 1, 1, 1, 2, 2, 2, 2,
1, 1, 1, 1, 2, 2, 2, 2, 1, 1, 1, 1, 2, 2, 2, 2), `5` = c(1, 1, 1, 1, 2, 2, 2, 2, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 1, 1, 1, 1, 2, 2, 2, 2, 1, 1, 1,
1), `6` = c(1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 1, 1, 1, 1), `7` = c(1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2,
2, 1, 1, 1, 1, 2, 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2), `8` = c(1, 1, 2, 2, 1, 1, 2, 2, 1, 1, 2, 2, 1, 1, 2, 2, 1, 1, 2, 2, 1, 1, 2, 2, 1, 1,
2, 2, 1, 1, 2, 2), `9` = c(1, 1, 2, 2, 1, 1, 2, 2, 1, 1, 2, 2, 1, 1, 2, 2, 2, 2, 1, 1, 2, 2, 1, 1, 2, 2, 1, 1, 2, 2, 1, 1), `10` = c(1, 1, 2, 2, 1,
1, 2, 2, 2, 2, 1, 1, 2, 2, 1, 1, 1, 1, 2, 2, 1, 1, 2, 2, 2, 2, 1, 1, 2, 2, 1, 1), `11` = c(1, 1, 2, 2, 1, 1, 2, 2, 2, 2, 1, 1, 2, 2, 1, 1, 2, 2, 1,
1, 2, 2, 1, 1, 1, 1, 2, 2, 1, 1, 2, 2), `12` = c(1, 1, 2, 2, 2, 2, 1, 1, 1, 1, 2, 2, 2, 2, 1, 1, 1, 1, 2, 2, 2, 2, 1, 1, 1, 1, 2, 2, 2, 2, 1, 1), `13` = c(1,
1, 2, 2, 2, 2, 1, 1, 1, 1, 2, 2, 2, 2, 1, 1, 2, 2, 1, 1, 1, 1, 2, 2, 2, 2, 1, 1, 1, 1, 2, 2), `14` = c(1, 1, 2, 2, 2, 2, 1, 1, 2, 2, 1, 1, 1, 1, 2,
2, 1, 1, 2, 2, 2, 2, 1, 1, 2, 2, 1, 1, 1, 1, 2, 2), `15` = c(1, 1, 2, 2, 2, 2, 1, 1, 2, 2, 1, 1, 1, 1, 2, 2, 2, 2, 1, 1, 1, 1, 2, 2, 1, 1, 2, 2, 2,
2, 1, 1), `16` = c(1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2), `17` = c(1, 2, 1, 2, 1, 2, 1, 2,
1, 2, 1, 2, 1, 2, 1, 2, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1), `18` = c(1, 2, 1, 2, 1, 2, 1, 2, 2, 1, 2, 1, 2, 1, 2, 1, 1, 2, 1, 2, 1, 2,
1, 2, 2, 1, 2, 1, 2, 1, 2, 1), `19` = c(1, 2, 1, 2, 1, 2, 1, 2, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 1, 2, 1, 2, 1, 2, 1, 2), `20` = c(1,
2, 1, 2, 2, 1, 2, 1, 1, 2, 1, 2, 2, 1, 2, 1, 1, 2, 1, 2, 2, 1, 2, 1, 1, 2, 1, 2, 2, 1, 2, 1), `21` = c(1, 2, 1, 2, 2, 1, 2, 1, 1, 2, 1, 2, 2, 1, 2,
1, 2, 1, 2, 1, 1, 2, 1, 2, 2, 1, 2, 1, 1, 2, 1, 2), `22` = c(1, 2, 1, 2, 2, 1, 2, 1, 2, 1, 2, 1, 1, 2, 1, 2, 1, 2, 1, 2, 2, 1, 2, 1, 2, 1, 2, 1, 1,
2, 1, 2), `23` = c(1, 2, 1, 2, 2, 1, 2, 1, 2, 1, 2, 1, 1, 2, 1, 2, 2, 1, 2, 1, 1, 2, 1, 2, 1, 2, 1, 2, 2, 1, 2, 1), `24` = c(1, 2, 2, 1, 1, 2, 2, 1,
1, 2, 2, 1, 1, 2, 2, 1, 1, 2, 2, 1, 1, 2, 2, 1, 1, 2, 2, 1, 1, 2, 2, 1), `25` = c(1, 2, 2, 1, 1, 2, 2, 1, 1, 2, 2, 1, 1, 2, 2, 1, 2, 1, 1, 2, 2, 1,
1, 2, 2, 1, 1, 2, 2, 1, 1, 2), `26` = c(1, 2, 2, 1, 1, 2, 2, 1, 2, 1, 1, 2, 2, 1, 1, 2, 1, 2, 2, 1, 1, 2, 2, 1, 2, 1, 1, 2, 2, 1, 1, 2), `27` = c(1,
2, 2, 1, 1, 2, 2, 1, 2, 1, 1, 2, 2, 1, 1, 2, 2, 1, 1, 2, 2, 1, 1, 2, 1, 2, 2, 1, 1, 2, 2, 1), `28` = c(1, 2, 2, 1, 2, 1, 1, 2, 1, 2, 2, 1, 2, 1, 1,
2, 1, 2, 2, 1, 2, 1, 1, 2, 1, 2, 2, 1, 2, 1, 1, 2), `29` = c(1, 2, 2, 1, 2, 1, 1, 2, 1, 2, 2, 1, 2, 1, 1, 2, 2, 1, 1, 2, 1, 2, 2, 1, 2, 1, 1, 2, 1,
2, 2, 1), `30` = c(1, 2, 2, 1, 2, 1, 1, 2, 2, 1, 1, 2, 1, 2, 2, 1, 1, 2, 2, 1, 2, 1, 1, 2, 2, 1, 1, 2, 1, 2, 2, 1), `31` = c(1, 2, 2, 1, 2, 1, 1, 2,
2, 1, 1, 2, 1, 2, 2, 1, 2, 1, 1, 2, 1, 2, 2, 1, 1, 2, 2, 1, 2, 1, 1, 2)))
.ia_table = data.frame(`1` = c(1, "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA",
"NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA"), `2` = c(3, 2, "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA",
"NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA"), `3` = c(2, 1, 3, "NA", "NA", "NA", "NA", "NA", "NA",
"NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA"), `4` = c(5, 6, 7, 4,
"NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA",
"NA"), `5` = c(4, 7, 6, 1, 5, "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA",
"NA", "NA", "NA", "NA", "NA"), `6` = c(7, 4, 5, 2, 3, 6, "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA",
"NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA"), `7` = c(6, 5, 4, 3, 2, 1, 7, "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA",
"NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA"), `8` = c(9, 10, 11, 12, 13, 14, 15, 8, "NA", "NA", "NA", "NA", "NA", "NA", "NA",
"NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA"), `9` = c(8, 11, 10, 13, 12, 15, 14, 1, 9, "NA", "NA", "NA",
"NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA"), `10` = c(11, 8, 9, 14, 15, 12, 13, 2,
3, 10, "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA"), `11` = c(10, 9, 8,
15, 14, 13, 12, 3, 2, 1, 11, "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA"), `12` = c(13,
14, 15, 8, 9, 10, 11, 4, 5, 6, 7, 12, "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA"),
`13` = c(12, 15, 14, 9, 8, 11, 10, 5, 4, 7, 6, 1, 13, "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA",
"NA"), `14` = c(15, 12, 13, 10, 11, 8, 9, 6, 7, 4, 5, 2, 3, 14, "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA",
"NA", "NA", "NA"), `15` = c(14, 13, 12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2, 1, 15, "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA",
"NA", "NA", "NA", "NA"), `16` = c(17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 16, "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA",
"NA", "NA", "NA", "NA", "NA", "NA"), `17` = c(16, 19, 18, 21, 20, 23, 22, 25, 24, 27, 26, 29, 28, 31, 30, 1, 17, "NA", "NA", "NA", "NA", "NA", "NA",
"NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA"), `18` = c(19, 16, 17, 22, 23, 20, 21, 26, 27, 24, 25, 30, 31, 28, 29, 2, 3, 18, "NA", "NA", "NA", "NA",
"NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA"), `19` = c(18, 17, 16, 23, 22, 21, 20, 27, 26, 25, 24, 31, 30, 29, 28, 3, 2, 1, 19, "NA", "NA",
"NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA"), `20` = c(21, 22, 23, 16, 17, 18, 19, 28, 29, 30, 31, 24, 25, 26, 27, 4, 5, 6, 7, 20, "NA",
"NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA"), `21` = c(20, 23, 22, 17, 16, 19, 18, 29, 28, 31, 30, 25, 24, 27, 26, 5, 4, 7, 6, 1, 21,
"NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA"), `22` = c(23, 20, 21, 18, 19, 16, 17, 30, 31, 28, 29, 26, 27, 24, 25, 6, 7, 4, 5, 2, 3,
22, "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA"), `23` = c(22, 21, 20, 19, 18, 17, 16, 31, 30, 29, 28, 27, 26, 25, 24, 7, 6, 5, 4, 3, 2, 1,
23, "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA"), `24` = c(25, 26, 27, 28, 29, 30, 31, 16, 17, 18, 19, 20, 21, 22, 23, 8, 9, 10, 11, 12, 13, 14,
15, 24, "NA", "NA", "NA", "NA", "NA", "NA", "NA"), `25` = c(24, 27, 26, 29, 28, 31, 30, 17, 16, 19, 18, 21, 20, 23, 22, 9, 8, 11, 10, 13, 12, 15, 14,
1, 25, "NA", "NA", "NA", "NA", "NA", "NA"), `26` = c(27, 24, 25, 30, 31, 28, 29, 18, 19, 16, 17, 22, 23, 20, 21, 10, 11, 8, 9, 14, 15, 12, 13, 2, 3,
26, "NA", "NA", "NA", "NA", "NA"), `27` = c(26, 25, 24, 31, 30, 29, 28, 19, 18, 17, 16, 23, 22, 21, 20, 11, 10, 9, 8, 15, 14, 13, 12, 3, 2, 1, 27, "NA",
"NA", "NA", "NA"), `28` = c(29, 30, 31, 24, 25, 26, 27, 20, 21, 22, 23, 16, 17, 18, 19, 12, 13, 14, 15, 8, 9, 10, 11, 4, 5, 6, 7, 28, "NA", "NA", "NA"),
`29` = c(28, 31, 30, 25, 24, 27, 26, 21, 20, 23, 22, 17, 16, 19, 18, 13, 12, 15, 14, 9, 8, 11, 10, 5, 4, 7, 6, 1, 29, "NA", "NA"), `30` = c(31, 28, 29,
26, 27, 24, 25, 22, 23, 20, 21, 18, 19, 16, 17, 14, 15, 12, 13, 10, 11, 8, 9, 6, 7, 4, 5, 2, 3, 30, "NA"), `31` = c(30, 29, 28, 27, 26, 25, 24, 23,
22, 21, 20, 19, 18, 17, 16, 15, 14, 13, 12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2, 1, 31))
.L32_2$ia_table = .ia_table
.L32_2_4 = list(id = "L32_2_4", type = "mixed", niv_max = 4, runs = 32, anzahl_spalten = 10, levels1 = 2, levels2 = 4, factors1 = 1, factors2 = 9,
design = data.frame(`1` = c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2), `2` = c(1, 1, 1, 1, 2, 2, 2,
2, 3, 3, 3, 3, 4, 4, 4, 4, 1, 1, 1, 1, 2, 2, 2, 2, 3, 3, 3, 3, 4, 4, 4, 4), `3` = c(1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2,
3, 4, 1, 2, 3, 4, 1, 2, 3, 4), `4` = c(1, 2, 3, 4, 1, 2, 3, 4, 2, 1, 4, 3, 2, 1, 4, 3, 4, 3, 2, 1, 4, 3, 2, 1, 3, 4, 1, 2, 3, 4, 1, 2), `5` = c(1, 2,
3, 4, 2, 1, 4, 3, 3, 4, 1, 2, 4, 3, 2, 1, 1, 2, 3, 4, 2, 1, 4, 3, 3, 4, 1, 2, 4, 3, 2, 1), `6` = c(1, 2, 3, 4, 2, 1, 4, 3, 4, 3, 2, 1, 3, 4, 1, 2, 4,
3, 2, 1, 3, 4, 1, 2, 1, 2, 3, 4, 2, 1, 4, 3), `7` = c(1, 2, 3, 4, 3, 4, 1, 2, 1, 2, 3, 4, 3, 4, 1, 2, 2, 1, 4, 3, 4, 3, 2, 1, 2, 1, 4, 3, 4, 3, 2, 1),
`8` = c(1, 2, 3, 4, 3, 4, 1, 2, 2, 1, 4, 3, 4, 3, 2, 1, 3, 4, 1, 2, 1, 2, 3, 4, 4, 3, 2, 1, 2, 1, 4, 3), `9` = c(1, 2, 3, 4, 4, 3, 2, 1, 3, 4, 1, 2,
2, 1, 4, 3, 2, 1, 4, 3, 3, 4, 1, 2, 4, 3, 2, 1, 1, 2, 3, 4), `10` = c(1, 2, 3, 4, 4, 3, 2, 1, 4, 3, 2, 1, 1, 2, 3, 4, 3, 4, 1, 2, 2, 1, 4, 3, 2,
1, 4, 3, 3, 4, 1, 2)), ia_table = data.frame(`1` = c("linearer Graph")))
.L36_2_3_a = list(id = "L36_2_3_a", type = "mixed", niv_max = 3, runs = 36, anzahl_spalten = 23, levels1 = 2, levels2 = 3, factors1 = 11, factors2 = 12,
design = data.frame(`1` = c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2), `2` = c(1, 1, 1,
1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2), `3` = c(1, 1, 1, 1, 1, 1, 2, 2, 2, 1, 1, 1, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 1, 1, 2, 2, 2, 1, 1, 1, 1, 1, 1), `4` = c(1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 1, 1, 1, 2, 2, 2, 2, 2, 2, 1, 1, 1, 2,
2, 2, 1, 1, 1, 2, 2, 2, 1, 1, 1), `5` = c(1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 1, 1, 1, 1, 1, 1, 2, 2, 2),
`6` = c(1, 1, 1, 2, 2, 2, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 1, 1, 1, 2, 2, 2, 2, 2, 2, 1, 1, 1, 2, 2, 2, 1, 1, 1), `7` = c(1, 1, 1, 2, 2, 2, 1, 1,
1, 2, 2, 2, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2), `8` = c(1, 1, 1, 2, 2, 2, 1, 1, 1, 2, 2, 2, 2, 2, 2, 1, 1,
1, 2, 2, 2, 1, 1, 1, 2, 2, 2, 2, 2, 2, 1, 1, 1, 1, 1, 1), `9` = c(1, 1, 1, 2, 2, 2, 2, 2, 2, 1, 1, 1, 1, 1, 1, 2, 2, 2, 1, 1, 1, 1, 1, 1, 2, 2,
2, 2, 2, 2, 1, 1, 1, 2, 2, 2), `10` = c(1, 1, 1, 2, 2, 2, 2, 2, 2, 1, 1, 1, 2, 2, 2, 1, 1, 1, 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2,
2), `11` = c(1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 1, 1, 1, 2, 2, 2, 2, 2, 2, 1, 1, 1), `12` = c(1, 2, 3, 1, 2,
3, 1, 2, 3, 1, 2, 3, 1, 2, 3, 1, 2, 3, 1, 2, 3, 1, 2, 3, 1, 2, 3, 1, 2, 3, 1, 2, 3, 1, 2, 3), `13` = c(1, 2, 3, 1, 2, 3, 1, 2, 3, 1, 2, 3, 2, 3,
1, 2, 3, 1, 2, 3, 1, 2, 3, 1, 3, 1, 2, 3, 1, 2, 3, 1, 2, 3, 1, 2), `14` = c(1, 2, 3, 1, 2, 3, 2, 3, 1, 3, 1, 2, 3, 1, 2, 3, 1, 2, 1, 2, 3, 2, 3,
1, 2, 3, 1, 2, 3, 1, 3, 1, 2, 1, 2, 3), `15` = c(1, 2, 3, 1, 2, 3, 3, 1, 2, 2, 3, 1, 1, 2, 3, 2, 3, 1, 3, 1, 2, 3, 1, 2, 1, 2, 3, 2, 3, 1, 3, 1,
2, 2, 3, 1), `16` = c(1, 2, 3, 2, 3, 1, 1, 2, 3, 1, 2, 3, 3, 1, 2, 1, 2, 3, 3, 1, 2, 3, 1, 2, 2, 3, 1, 2, 3, 1, 2, 3, 1, 3, 1, 2), `17` = c(1, 2,
3, 2, 3, 1, 2, 3, 1, 3, 1, 2, 2, 3, 1, 1, 2, 3, 3, 1, 2, 1, 2, 3, 3, 1, 2, 1, 2, 3, 3, 1, 2, 2, 3, 1), `18` = c(1, 2, 3, 2, 3, 1, 3, 1, 2, 2, 3,
1, 1, 2, 3, 3, 1, 2, 1, 2, 3, 2, 3, 1, 3, 1, 2, 1, 2, 3, 2, 3, 1, 3, 1, 2), `19` = c(1, 2, 3, 2, 3, 1, 3, 1, 2, 3, 1, 2, 3, 1, 2, 2, 3, 1, 2, 3,
1, 1, 2, 3, 1, 2, 3, 3, 1, 2, 2, 3, 1, 1, 2, 3), `20` = c(1, 2, 3, 3, 1, 2, 1, 2, 3, 2, 3, 1, 3, 1, 2, 3, 1, 2, 2, 3, 1, 1, 2, 3, 3, 1, 2, 2, 3,
1, 1, 2, 3, 2, 3, 1), `21` = c(1, 2, 3, 3, 1, 2, 2, 3, 1, 1, 2, 3, 2, 3, 1, 3, 1, 2, 1, 2, 3, 3, 1, 2, 1, 2, 3, 3, 1, 2, 2, 3, 1, 2, 3, 1), `22` = c(1,
2, 3, 3, 1, 2, 2, 3, 1, 3, 1, 2, 1, 2, 3, 2, 3, 1, 2, 3, 1, 3, 1, 2, 2, 3, 1, 1, 2, 3, 1, 2, 3, 3, 1, 2), `23` = c(1, 2, 3, 3, 1, 2, 3, 1, 2, 2,
3, 1, 2, 3, 1, 1, 2, 3, 3, 1, 2, 2, 3, 1, 2, 3, 1, 3, 1, 2, 1, 2, 3, 1, 2, 3)), ia_table = data.frame(`1` = c("ohne linearen Graph")))
.L36_2_3_b = list(id = "L36_2_3_b", type = "mixed", niv_max = 3, runs = 36, anzahl_spalten = 16, levels1 = 2, levels2 = 3, factors1 = 3, factors2 = 13,
design = data.frame(`1` = c(1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2), `2` = c(1, 1, 1,
2, 2, 2, 1, 1, 1, 2, 2, 2, 1, 1, 1, 2, 2, 2, 1, 1, 1, 2, 2, 2, 1, 1, 1, 2, 2, 2, 1, 1, 1, 2, 2, 2), `3` = c(1, 1, 1, 2, 2, 2, 2, 2, 2, 1, 1, 1, 1, 1,
1, 2, 2, 2, 2, 2, 2, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 1, 1, 1), `4` = c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3,
3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3), `5` = c(1, 2, 3, 1, 2, 3, 1, 2, 3, 1, 2, 3, 1, 2, 3, 1, 2, 3, 1, 2, 3, 1, 2, 3, 1, 2, 3, 1, 2, 3, 1, 2, 3, 1, 2, 3),
`6` = c(1, 2, 3, 1, 2, 3, 1, 2, 3, 1, 2, 3, 2, 3, 1, 2, 3, 1, 2, 3, 1, 2, 3, 1, 3, 1, 2, 3, 1, 2, 3, 1, 2, 3, 1, 2), `7` = c(1, 2, 3, 1, 2, 3, 2, 3,
1, 3, 1, 2, 3, 1, 2, 3, 1, 2, 1, 2, 3, 2, 3, 1, 2, 3, 1, 2, 3, 1, 3, 1, 2, 1, 2, 3), `8` = c(1, 2, 3, 1, 2, 3, 3, 1, 2, 2, 3, 1, 1, 2, 3, 2, 3,
1, 3, 1, 2, 3, 1, 2, 1, 2, 3, 2, 3, 1, 3, 1, 2, 2, 3, 1), `9` = c(1, 2, 3, 2, 3, 1, 1, 2, 3, 1, 2, 3, 3, 1, 2, 1, 2, 3, 3, 1, 2, 3, 1, 2, 2, 3,
1, 2, 3, 1, 2, 3, 1, 3, 1, 2), `10` = c(1, 2, 3, 2, 3, 1, 2, 3, 1, 3, 1, 2, 2, 3, 1, 1, 2, 3, 3, 1, 2, 1, 2, 3, 3, 1, 2, 1, 2, 3, 3, 1, 2, 2, 3,
1), `11` = c(1, 2, 3, 2, 3, 1, 3, 1, 2, 2, 3, 1, 1, 2, 3, 3, 1, 2, 1, 2, 3, 2, 3, 1, 3, 1, 2, 1, 2, 3, 2, 3, 1, 3, 1, 2), `12` = c(1, 2, 3, 2, 3,
1, 3, 1, 2, 3, 1, 2, 3, 1, 2, 2, 3, 1, 2, 3, 1, 1, 2, 3, 1, 2, 3, 1, 2, 3, 2, 3, 1, 1, 2, 3), `13` = c(1, 2, 3, 3, 1, 2, 1, 2, 3, 2, 3, 1, 3, 1,
2, 3, 1, 2, 2, 3, 1, 1, 2, 3, 3, 1, 2, 2, 3, 1, 1, 2, 3, 2, 3, 1), `14` = c(1, 2, 3, 3, 1, 2, 2, 3, 1, 1, 2, 3, 2, 3, 1, 3, 1, 2, 1, 2, 3, 3, 1,
2, 1, 2, 3, 3, 1, 2, 2, 3, 1, 2, 3, 1), `15` = c(1, 2, 3, 3, 1, 2, 2, 3, 1, 3, 1, 2, 1, 2, 3, 2, 3, 1, 2, 3, 1, 3, 1, 2, 2, 3, 1, 1, 2, 3, 1, 2,
3, 3, 1, 2), `16` = c(1, 2, 3, 3, 1, 2, 3, 1, 2, 2, 3, 1, 2, 3, 1, 1, 2, 3, 3, 1, 2, 2, 3, 1, 2, 3, 1, 3, 1, 2, 1, 2, 3, 1, 2, 3)), ia_table = data.frame(`1` = c("linearer Graph")))
.L50_2_5 = list(id = "L50_2_5", type = "mixed", niv_max = 5, runs = 15, anzahl_spalten = 12, levels1 = 2, levels2 = 5, factors1 = 1, factors2 = 11,
design = data.frame(`1` = c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2), `2` = c(1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 3, 3, 3, 3,
3, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5), `3` = c(1, 2, 3, 4, 5, 1, 2, 3, 4, 5, 1, 2, 3, 4, 5, 1, 2, 3, 4, 5, 1, 2, 3, 4, 5, 1, 2, 3, 4, 5, 1, 2, 3, 4, 5, 1,
2, 3, 4, 5, 1, 2, 3, 4, 5, 1, 2, 3, 4, 5), `4` = c(1, 2, 3, 4, 5, 2, 3, 4, 5, 1, 3, 4, 5, 1, 2, 4, 5, 1, 2, 3, 5, 1, 2, 3, 4, 1, 2, 3, 4, 5, 2, 3, 4,
5, 1, 3, 4, 5, 1, 2, 4, 5, 1, 2, 3, 5, 1, 2, 3, 4), `5` = c(1, 2, 3, 4, 5, 3, 4, 5, 1, 2, 5, 1, 2, 3, 4, 2, 3, 4, 5, 1, 4, 5, 1, 2, 3, 4, 5, 1, 2, 3,
1, 2, 3, 4, 5, 3, 4, 5, 1, 2, 5, 1, 2, 3, 4, 2, 3, 4, 5, 1), `6` = c(1, 2, 3, 4, 5, 4, 5, 1, 2, 3, 2, 3, 4, 5, 1, 5, 1, 2, 3, 4, 3, 4, 5, 1, 2, 5, 1,
2, 3, 4, 3, 4, 5, 1, 2, 1, 2, 3, 4, 5, 4, 5, 1, 2, 3, 2, 3, 4, 5, 1), `7` = c(1, 2, 3, 4, 5, 5, 1, 2, 3, 4, 4, 5, 1, 2, 3, 3, 4, 5, 1, 2, 2, 3, 4, 5,
1, 4, 5, 1, 2, 3, 3, 4, 5, 1, 2, 2, 3, 4, 5, 1, 1, 2, 3, 4, 5, 5, 1, 2, 3, 4), `8` = c(1, 2, 3, 4, 5, 1, 2, 3, 4, 5, 4, 5, 1, 2, 3, 5, 1, 2, 3, 4, 4,
5, 1, 2, 3, 3, 4, 5, 1, 2, 2, 3, 4, 5, 1, 5, 1, 2, 3, 4, 2, 3, 4, 5, 1, 3, 4, 5, 1, 2), `9` = c(1, 2, 3, 4, 5, 2, 3, 4, 5, 1, 1, 2, 3, 4, 5, 3, 4, 5,
1, 2, 3, 4, 5, 1, 2, 2, 3, 4, 5, 1, 4, 5, 1, 2, 3, 5, 1, 2, 3, 4, 5, 1, 2, 3, 4, 4, 5, 1, 2, 3), `10` = c(1, 2, 3, 4, 5, 3, 4, 5, 1, 2, 3, 4, 5, 1,
2, 1, 2, 3, 4, 5, 2, 3, 4, 5, 1, 5, 1, 2, 3, 4, 5, 1, 2, 3, 4, 4, 5, 1, 2, 3, 2, 3, 4, 5, 1, 4, 5, 1, 2, 3), `11` = c(1, 2, 3, 4, 5, 4, 5, 1, 2, 3,
5, 1, 2, 3, 4, 4, 5, 1, 2, 3, 1, 2, 3, 4, 5, 2, 3, 4, 5, 1, 5, 1, 2, 3, 4, 2, 3, 4, 5, 1, 3, 4, 5, 1, 2, 3, 4, 5, 1, 2), `12` = c(1, 2, 3, 4, 5, 5,
1, 2, 3, 4, 2, 3, 4, 5, 1, 2, 3, 4, 5, 1, 5, 1, 2, 3, 4, 3, 4, 5, 1, 2, 4, 5, 1, 2, 3, 4, 5, 1, 2, 3, 3, 4, 5, 1, 2, 1, 2, 3, 4, 5)), ia_table = data.frame(`1` = c("linearer Graph")))
.L8_4_2 = list(id = "L8_4_2", type = "mixed", niv_max = 4, runs = 8, anzahl_spalten = 5, levels1 = 4, levels2 = 2, factors1 = 1, factors2 = 4, design = data.frame(`1` = c(1,
1, 2, 2, 3, 3, 4, 4), `2` = c(1, 2, 1, 2, 1, 2, 1, 2), `3` = c(1, 2, 1, 2, 2, 1, 2, 1), `4` = c(1, 2, 2, 1, 1, 2, 2, 1), `5` = c(1, 2, 2, 1, 2, 1, 1, 2)),
ia_table = data.frame(`1` = c("ohne interaction table")))
.L16_4_2_a = list(id = "L16_4_2_a", type = "mixed", niv_max = 4, runs = 16, anzahl_spalten = 13, levels1 = 4, levels2 = 2, factors1 = 1, factors2 = 12,
design = data.frame(`1` = c(1, 1, 1, 1, 2, 2, 2, 2, 3, 3, 3, 3, 4, 4, 4, 4), `2` = c(1, 1, 2, 2, 1, 1, 2, 2, 1, 1, 2, 2, 1, 1, 2, 2), `3` = c(1, 1, 2, 2,
1, 1, 2, 2, 2, 2, 1, 1, 2, 2, 1, 1), `4` = c(1, 1, 2, 2, 2, 2, 1, 1, 1, 1, 2, 2, 2, 2, 1, 1), `5` = c(1, 1, 2, 2, 2, 2, 1, 1, 2, 2, 1, 1, 1, 1, 2, 2),
`6` = c(1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2), `7` = c(1, 2, 1, 2, 1, 2, 1, 2, 2, 1, 2, 1, 2, 1, 2, 1), `8` = c(1, 2, 1, 2, 2, 1, 2, 1, 1,
2, 1, 2, 2, 1, 2, 1), `9` = c(1, 2, 1, 2, 2, 1, 2, 1, 2, 1, 2, 1, 1, 2, 1, 2), `10` = c(1, 2, 2, 1, 1, 2, 2, 1, 1, 2, 2, 1, 1, 2, 2, 1), `11` = c(1,
2, 2, 1, 1, 2, 2, 1, 2, 1, 1, 2, 2, 1, 1, 2), `12` = c(1, 2, 2, 1, 2, 1, 1, 2, 1, 2, 2, 1, 2, 1, 1, 2), `13` = c(1, 2, 2, 1, 2, 1, 1, 2, 2, 1, 1,
2, 1, 2, 2, 1)), ia_table = data.frame(`1` = c("ohne interaction table")))
.L16_4_2_b = list(id = "L16_4_2_b", type = "mixed", niv_max = 4, runs = 16, anzahl_spalten = 11, levels1 = 4, levels2 = 2, factors1 = 2, factors2 = 9,
design = data.frame(`1` = c(1, 1, 1, 1, 2, 2, 2, 2, 3, 3, 3, 3, 4, 4, 4, 4), `2` = c(1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4), `3` = c(1, 1, 2, 2,
1, 1, 2, 2, 2, 2, 1, 1, 2, 2, 1, 1), `4` = c(1, 1, 2, 2, 2, 2, 1, 1, 1, 1, 2, 2, 2, 2, 1, 1), `5` = c(1, 1, 2, 2, 2, 2, 1, 1, 2, 2, 1, 1, 1, 1, 2, 2),
`6` = c(1, 2, 1, 2, 1, 2, 1, 2, 2, 1, 2, 1, 2, 1, 2, 1), `7` = c(1, 2, 1, 2, 2, 1, 2, 1, 1, 2, 1, 2, 2, 1, 2, 1), `8` = c(1, 2, 1, 2, 2, 1, 2, 1, 2,
1, 2, 1, 1, 2, 1, 2), `9` = c(1, 2, 2, 1, 1, 2, 2, 1, 2, 1, 1, 2, 2, 1, 1, 2), `10` = c(1, 2, 2, 1, 2, 1, 1, 2, 1, 2, 2, 1, 2, 1, 1, 2), `11` = c(1,
2, 2, 1, 2, 1, 1, 2, 2, 1, 1, 2, 1, 2, 2, 1)), ia_table = data.frame(`1` = c("ohne interaction table")))
.L16_4_2_c = list(id = "L16_4_2_c", type = "mixed", niv_max = 4, runs = 16, anzahl_spalten = 9, levels1 = 4, levels2 = 2, factors1 = 3, factors2 = 6,
design = data.frame(`1` = c(1, 1, 1, 1, 2, 2, 2, 2, 3, 3, 3, 3, 4, 4, 4, 4), `2` = c(1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4), `3` = c(1, 2, 3, 4,
2, 1, 4, 3, 3, 4, 1, 2, 4, 3, 2, 1), `4` = c(1, 1, 2, 2, 2, 2, 1, 1, 1, 1, 2, 2, 2, 2, 1, 1), `5` = c(1, 1, 2, 2, 2, 2, 1, 1, 2, 2, 1, 1, 1, 1, 2, 2),
`6` = c(1, 2, 1, 2, 1, 2, 1, 2, 2, 1, 2, 1, 2, 1, 2, 1), `7` = c(1, 2, 1, 2, 2, 1, 2, 1, 2, 1, 2, 1, 1, 2, 1, 2), `8` = c(1, 2, 2, 1, 1, 2, 2, 1, 2,
1, 1, 2, 2, 1, 1, 2), `9` = c(1, 2, 2, 1, 2, 1, 1, 2, 1, 2, 2, 1, 2, 1, 1, 2)), ia_table = data.frame(`1` = c("ohne interaction table")))
.L16_4_2_d = list(id = "L16_4_2_d", type = "mixed", niv_max = 4, runs = 16, anzahl_spalten = 7, levels1 = 4, levels2 = 2, factors1 = 4, factors2 = 3,
design = data.frame(`1` = c(1, 1, 1, 1, 2, 2, 2, 2, 3, 3, 3, 3, 4, 4, 4, 4), `2` = c(1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4), `3` = c(1, 2, 3, 4,
2, 1, 4, 3, 3, 4, 1, 2, 4, 3, 2, 1), `4` = c(1, 1, 2, 2, 2, 2, 1, 1, 1, 1, 2, 2, 2, 2, 1, 1), `5` = c(1, 2, 3, 4, 1, 2, 4, 3, 4, 3, 2, 1, 2, 1, 4, 3),
`6` = c(1, 2, 1, 2, 2, 1, 2, 1, 2, 1, 2, 1, 1, 2, 1, 2), `7` = c(1, 2, 2, 1, 1, 2, 2, 1, 2, 1, 1, 2, 2, 1, 1, 2)), ia_table = data.frame(`1` = c("ohne interaction table")))
.L18_6_3 = list(id = "L18_6_3", type = "mixed", niv_max = 6, runs = 18, anzahl_spalten = 7, levels1 = 3, levels2 = 6, factors1 = 6, factors2 = 1,
design = data.frame(`1` = c(1, 1, 1, 2, 2, 2, 3, 3, 3, 4, 4, 4, 5, 5, 5, 6, 6, 6), `2` = c(1, 2, 3, 1, 2, 3, 1, 2, 3, 1, 2, 3, 1, 2, 3, 1, 2, 3), `3` = c(1,
2, 3, 1, 2, 3, 2, 3, 1, 3, 1, 2, 2, 3, 1, 3, 1, 2), `4` = c(1, 2, 3, 2, 3, 1, 1, 2, 3, 3, 1, 2, 3, 1, 2, 2, 3, 1), `5` = c(1, 2, 3, 2, 3, 1, 3, 1, 2,
2, 3, 1, 1, 2, 3, 3, 1, 2), `6` = c(1, 2, 3, 3, 1, 2, 2, 3, 1, 2, 3, 1, 3, 1, 2, 1, 2, 3), `7` = c(1, 2, 3, 3, 1, 2, 3, 1, 2, 1, 2, 3, 2, 3, 1, 2, 3,
1)), ia_table = data.frame(`1` = c("ohne interaction table")))
.oaList = list(.L4_2, .L8_2, .L9_3, .L12_2, .L16_2, .L16_4, .L18_2_3, .L25_5, .L27_3, .L32_2, .L32_2_4, .L36_2_3_a, .L36_2_3_b, .L50_2_5, .L8_4_2,
.L16_4_2_a, .L16_4_2_b, .L16_4_2_c, .L16_4_2_d, .L18_6_3)
for (i in seq(along = .oaList)) {
pmatch(design, .oaList[[i]]$id)
if (!is.na(pmatch(design, .oaList[[i]]$id))) {
if (DB)
print(design)
temp = .oaList[[i]]
design = temp$design
repVec = rep(1, nrow(design))
if (replicates > 1) {
X = temp$design
for (i in 1:(replicates - 1)) {
design = rbind(design, X)
repVec = c(repVec, rep(i + 1, times = nrow(X)))
}
}
Replicate = data.frame(Replicate = as.numeric(repVec))
if (DB)
print(Replicate)
odo = new("taguchiDesign")
odo@design = design
.NAMES = LETTERS[c(1:8, 10:26)]
names(odo@design) = .NAMES[1:ncol(design)]
odo@name = temp$id
odo@designType = temp$type
odo@replic = Replicate
StandOrder = 1:nrow(odo@design)
RunOrder = StandOrder
if (randomize) {
RunOrder = sample(1:nrow(odo@design), nrow(odo@design),
replace = FALSE, prob = NULL)
}
odo@design = odo@design[order(RunOrder), ]
odo@replic = data.frame(Replicate = odo@replic[order(RunOrder),1])
row.names(odo@design) = odo@design$RunOrder
odo@runOrder = data.frame(RunOrder = data.frame(RunOrder = RunOrder)[order(RunOrder),])
odo@standardOrder = data.frame(StandOrder = data.frame(StandOrder = StandOrder)[order(RunOrder),])
odo@response = data.frame(y = rep(NA, nrow(odo@design)))
tfList = vector("list", ncol(design))
for (i in seq(along = tfList)) tfList[i] = new("taguchiFactor")
names(tfList) = names(odo@design)
factors(odo) = tfList
valList = list(length = length(names(odo)))
for (i in names(names(odo))) valList[[i]] = sort(unique(odo@design[,i]))
values(odo) = valList
odo<-cbind(odo@standardOrder,odo@runOrder,odo@design)
return(odo)
}
}
}
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.