Nothing
R/5.1_Taguchi_designs_Aux.R
In r6qualitytools: R6-Based Statistical Methods for Quality Science
Defines functions
.colList
.m.interaction.plot.taguchi
#####################################################################################
####################### DISEÑO TAGUCHI - AUXILIARES (.r) ############################
#####################################################################################
# .m.interaction.plot.taguchi ----
.m.interaction.plot.taguchi <- function(x.factor, trace.factor, response, fun = mean, xlab = deparse(substitute(x.factor)), ylab, ylim = range(cells, na.rm = TRUE), lty = 1, col = 1,
main, xPoints, yPoints, l.col, p.col, ld.col, pch=16, points=FALSE){
x.factor <- factor(x.factor, levels = sort(unique(x.factor)))
cells <- tapply(response, list(x.factor, trace.factor), fun)
nr <- nrow(cells)
nc <- ncol(cells)
xvals <- 1L:nr
xvals = as.numeric(rownames(cells))
if (is.ordered(x.factor)) {
xnm <- suppressWarnings(as.numeric(levels(x.factor)))
if (!any(is.na(xnm)))
xvals <- xnm
}
if (missing(main)) {
main = paste("Effect Plot")
}
xlabs <- rownames(cells)
ylabs <- colnames(cells)
nch <- max(sapply(ylabs, nchar, type = "width"))
if (is.null(xlabs))
xlabs <- as.character(xvals)
if (is.null(ylabs))
ylabs <- as.character(1L:nc)
xlim <- range(xvals)
xleg <- xlim[2L] + 0.05 * diff(xlim)
if(missing(l.col))
l.col = "black"
if(missing(ld.col))
ld.col = "#324B7A"
if(missing(p.col))
p.col = "black"
df <- data.frame(x = xvals, y = c(cells))
# PLOT
p <- ggplot(df, aes(x = x, y = y)) +
geom_line(color = l.col, linetype = lty) +
ylim(ylim) + labs(x = xlab, y = ylab, title = main) + theme_bw() +
scale_x_continuous(breaks = seq(3),
labels = seq(3)) +
theme(panel.grid.major = element_blank(),
panel.grid.minor = element_blank(),
panel.background = element_blank(),
plot.title = element_text(hjust = 0.5))
if (deparse(substitute(mean)) == "mean"){
p <- p + geom_hline(yintercept = median(df$y, na.rm = TRUE), linetype = "dashed", col = ld.col)
}
if(points){
p <- p +
geom_point(data = data.frame(x = xPoints, y = yPoints), aes(x = x, y = y), color = p.col, shape = pch)
}
invisible(list(xVals = df$x, yVals = df$y, plot = p))
}
# .oaList ----
.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)
# .colList ----
.colList <- function(mat,col){
nrow = nrow(mat)
ncol = ncol(mat)
color_matrix <- matrix(NA, nrow = nrow, ncol = ncol)
num_colors <- length(col)
for (i in 1:nrow) {
for (j in 1:ncol) {
index <- ((i + j - 2) %% num_colors) + 1
if(mat[i,j]==" "){
color_matrix[i, j] <- "#F2F2F2"
}
else{
color_matrix[i, j] <- col[index]
}
}
}
return(color_matrix)
}
Try the r6qualitytools package in your browser
Any scripts or data that you put into this service are public.
r6qualitytools documentation built on Oct. 4, 2024, 1:09 a.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.
Defines functions .colList .m.interaction.plot.taguchi
#####################################################################################
####################### DISEÑO TAGUCHI - AUXILIARES (.r) ############################
#####################################################################################
# .m.interaction.plot.taguchi ----
.m.interaction.plot.taguchi <- function(x.factor, trace.factor, response, fun = mean, xlab = deparse(substitute(x.factor)), ylab, ylim = range(cells, na.rm = TRUE), lty = 1, col = 1,
main, xPoints, yPoints, l.col, p.col, ld.col, pch=16, points=FALSE){
x.factor <- factor(x.factor, levels = sort(unique(x.factor)))
cells <- tapply(response, list(x.factor, trace.factor), fun)
nr <- nrow(cells)
nc <- ncol(cells)
xvals <- 1L:nr
xvals = as.numeric(rownames(cells))
if (is.ordered(x.factor)) {
xnm <- suppressWarnings(as.numeric(levels(x.factor)))
if (!any(is.na(xnm)))
xvals <- xnm
}
if (missing(main)) {
main = paste("Effect Plot")
}
xlabs <- rownames(cells)
ylabs <- colnames(cells)
nch <- max(sapply(ylabs, nchar, type = "width"))
if (is.null(xlabs))
xlabs <- as.character(xvals)
if (is.null(ylabs))
ylabs <- as.character(1L:nc)
xlim <- range(xvals)
xleg <- xlim[2L] + 0.05 * diff(xlim)
if(missing(l.col))
l.col = "black"
if(missing(ld.col))
ld.col = "#324B7A"
if(missing(p.col))
p.col = "black"
df <- data.frame(x = xvals, y = c(cells))
# PLOT
p <- ggplot(df, aes(x = x, y = y)) +
geom_line(color = l.col, linetype = lty) +
ylim(ylim) + labs(x = xlab, y = ylab, title = main) + theme_bw() +
scale_x_continuous(breaks = seq(3),
labels = seq(3)) +
theme(panel.grid.major = element_blank(),
panel.grid.minor = element_blank(),
panel.background = element_blank(),
plot.title = element_text(hjust = 0.5))
if (deparse(substitute(mean)) == "mean"){
p <- p + geom_hline(yintercept = median(df$y, na.rm = TRUE), linetype = "dashed", col = ld.col)
}
if(points){
p <- p +
geom_point(data = data.frame(x = xPoints, y = yPoints), aes(x = x, y = y), color = p.col, shape = pch)
}
invisible(list(xVals = df$x, yVals = df$y, plot = p))
}
# .oaList ----
.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)
# .colList ----
.colList <- function(mat,col){
nrow = nrow(mat)
ncol = ncol(mat)
color_matrix <- matrix(NA, nrow = nrow, ncol = ncol)
num_colors <- length(col)
for (i in 1:nrow) {
for (j in 1:ncol) {
index <- ((i + j - 2) %% num_colors) + 1
if(mat[i,j]==" "){
color_matrix[i, j] <- "#F2F2F2"
}
else{
color_matrix[i, j] <- col[index]
}
}
}
return(color_matrix)
}
Try the r6qualitytools package in your browser
Any scripts or data that you put into this service are public.
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.