R/seq_clatworthy.R
In mjg211/xover: Design and analysis of cross-over clinical trials
Defines functions
seq_clatworthy
Documented in
seq_clatworthy
#' Clatworthy (1973) cross-over design specification
#'
#' Specifies cross-over designs from Clatworthy (1973).
#'
#' \code{seq_clatworthy()} supports the specification of designs from
#' Clatworthy (1973). Designs for a large array of values of the number of
#' treatments and periods are available (accessible by setting \code{selection}
#' and \code{type} carefully), for any chosen treatment labels (see
#' \code{labels}). In addition, the designs can be returned in
#' \code{\link[base]{matrix}} or \code{\link[tibble]{tibble}} form (see
#' \code{as_matrix}).
#'
#' Precisely, \code{type} must be set as one of \code{"R"}, \code{"S"}, and
#' \code{"SR"}. Then, \code{selection} can take one of a particular set of
#' \code{\link[base]{numeric}} or \code{\link[base]{character}} values. The best
#' way to ascertain which values are allowed is to use the utility function
#' \code{\link[xover]{summary_seq_clatworthy}}. Ultimately, the
#' \ifelse{html}{\out{(<i>k</i>,<i>j</i>)}}{\eqn{(k,j)}}th element of the
#' cross-over design matrix corresponds to the treatment a subject on the
#' \ifelse{html}{\out{<i>k</i>}}{\eqn{k}}th sequence would receive in the
#' \ifelse{html}{\out{<i>j</i>}}{\eqn{j}}th period.
#'
#' @param type A \code{\link[base]{character}} string indicating which type of
#' sequences to return. Must be one of \code{"R"}, \code{"S"}, and \code{"SR"}.
#' Defaults to \code{"R"}.
#' @param selection A \code{\link[base]{numeric}} integer or
#' \code{\link[base]{character}} string indicating which design to return, for
#' the chosen value of \code{type}. See \strong{Details} for information on how
#' to ascertain supported values. Defaults to \code{1}.
#' @param labels A \code{\link[base]{vector}} of labels for the treatments.
#' If specified, should have \code{\link[base]{length}} corresponding to the
#' number of treatments in the chosen design, containing unique elements. If
#' missing, will internally default to \code{0:(D - 1)}, where \code{D} is the
#' number of treatments.
#' @param as_matrix A \code{\link[base]{logical}} variable indicating whether
#' the design should be returned as a \code{\link[base]{matrix}}, or a
#' \code{\link[tibble]{tibble}}. Defaults to \code{T}.
#' @param summary A \code{\link[base]{logical}} variable indicating whether a
#' summary of the function's progress should be printed to the console. Defaults
#' to \code{T}.
#' @return Either a \code{\link[base]{matrix}} if \code{as_matrix = T} (with
#' rows corresponding to sequences and columns to periods), or a
#' \code{\link[tibble]{tibble}} if \code{as_matrix = F} (with rows corresponding
#' to a particular period on a particular sequence). In either case, the
#' returned object will have class \code{xover_seq}.
#' @examples
#' # A selection of designs for four treatments from Clatworthy (1973)
#' clatworthy1 <- seq_clatworthy()
#' clatworthy2 <- seq_clatworthy(selection = 2)
#' clatworthy3 <- seq_clatworthy(selection = 3)
#' clatworthy4 <- seq_clatworthy(selection = 4)
#' # Using different labels
#' clatworthy1_ABCD <- seq_clatworthy(labels = LETTERS[1:4])
#' clatworthy2_ABCD <- seq_clatworthy(selection = 2, labels = LETTERS[1:4])
#' clatworthy3_ABCD <- seq_clatworthy(selection = 3, labels = LETTERS[1:4])
#' clatworthy4_ABCD <- seq_clatworthy(selection = 4, labels = LETTERS[1:4])
#' # Returning in tibble form
#' clatworthy1_tibble <- seq_clatworthy(as_matrix = F)
#' clatworthy2_tibble <- seq_clatworthy(selection = 2, as_matrix = F)
#' clatworthy3_tibble <- seq_clatworthy(selection = 3, as_matrix = F)
#' clatworthy4_tibble <- seq_clatworthy(selection = 4, as_matrix = F)
#' @references Clatworthy WH, Cameron JM, Speckman JA (1973) Tables of
#' two-associate-class partially balanced designs. \emph{US Government Printing
#' Office}.
#' @author Based on data from the \code{\link[Crossover]{Crossover}} package by
#' Kornelius Rohmeyer.
#' @export
seq_clatworthy <- function(type = "R", selection = 1, labels, as_matrix = T,
summary = T) {
##### Input checking #########################################################
check_type(type)
if (type == "R") {
if (!(any(selection %in%
c(1, 2, 3, 4, 5, 6, 7, 10, 13, 15, 16, 17, 18, 19, 20, 21, 22,
24, 25, 26, 27, 29, 30, 31, 32, 34, 35, 36, 37, 38, 39, 40,
41, 42, 43, 44, 45, 46, 47, 48, 50, 51, 52, 54, 56, 58, 59,
60, 61, 62, 63, 65, 66, 67, 68, 69, 70, 71, 72, 73, 75, 78,
79, 80, 81, 82, 84, 85, 86, 89, 91, 93, 94, 95, 96, 97, 98,
101, 103, 104, 106, 109, 111, 112, 114, 115, 117, 118, 119,
133, 134, 137, 139, 140, 143, 144, 145, 150, 153, 164, 165,
169, 170, 171, 172, 175, 176, 177, 186, 193, 203),
selection == "153a"))) {
stop("For type = \"R\" selection must be one of 1-7, 10, 13, 15-22, ",
"24-27, 29-32, 34-48, 50-52, 54, 56, 58-63, 65-73, 75, 78-82, ",
"84-86, 89, 91, 93-98, 101, 103, 104, 106, 109, 111, 112, 114, 115,",
" 117-119, 133, 134, 137, 139, 140, 143-145, 150, 153, 153a, 164,",
" 165, 169, 170-172, 175-177, 186, 193, or 203")
}
} else if (type == "S") {
if (!(selection %in%
c(1, 3, 6, 7, 9, 11, 18, 21, 24, 26, 27, 28, 29, 31, 32, 34, 35, 37,
38, 51, 52, 53, 58, 59, 61, 63, 65, 66, 67, 82, 85, 86, 88, 91,
98, 101, 106, 110, 116))) {
stop("For type = \"S\" selection must be one of 1, 3, 6, 7, 9, 11, 18, ",
"21, 24, 26-29, 31, 32, 34, 35, 37, 38, 51-53, 58, 59, 61, 63, ",
"65-67, 82, 85, 86, 88, 91, 98, 101, 106, 110, or 116")
}
} else {
if (!(any(selection %in%
c(1, 3, 6, 7, 9, 11, 18, 19, 23, 24, 25, 26, 35, 36, 37, 41, 42,
44, 46, 52, 53, 54, 55, 56, 60, 65, 66, 67, 68, 72, 73, 75,
80, 81, 82, 90, 91, 92, 93, 94, 99, 100, 106, 109),
selection == "36a"))) {
stop("For type = \"SR\" selection must be one of 1, 3, 6, 7, 9, 11, 18,",
" 19, 23-26, 35, 36, 36a, 37, 41, 42, 44, 46, 52-56, 60, 65-68, 72,",
" 73, 75, 80-82, 90-94, 99, 100, 106, or 109")
}
}
check_logical(as_matrix, "as_matrix")
check_logical(summary, "summary")
##### Main computations ######################################################
if (summary) {
message(" Beginning the design specification...")
}
if (all(selection == 1, type == "R")) {
sequences <- matrix(c(1, 3, 2, 4, 2, 4, 1, 3, 1, 2, 3, 4, 1, 4, 2, 3), 8, 2,
byrow = T)
} else if (all(selection == 2, type == "R")) {
sequences <- matrix(c(1, 3, 2, 4, 1, 2, 3, 4, 1, 3, 2, 4, 1, 4, 2, 3, 1, 3,
2, 4), 10, 2, byrow = T)
} else if (all(selection == 3, type == "R")) {
sequences <- matrix(c(1, 3, 2, 4, 1, 4, 2, 3, 1, 2, 3, 4, 1, 4, 2, 3, 1, 2,
3, 4), 10, 2, byrow = T)
} else if (all(selection == 4, type == "R")) {
sequences <- matrix(c(1, 3, 2, 4, 1, 3, 2, 4, 1, 3, 2, 4, 1, 2, 3, 4, 1, 3,
2, 4, 1, 4, 2, 3), 12, 2, byrow = T)
} else if (all(selection == 5, type == "R")) {
sequences <- matrix(c(1, 3, 2, 4, 1, 3, 2, 4, 1, 3, 2, 4, 1, 2, 3, 4, 1, 3,
2, 4, 1, 4, 2, 3, 1, 3, 2, 4), 14, 2, byrow = T)
} else if (all(selection == 6, type == "R")) {
sequences <- matrix(c(1, 3, 2, 4, 1, 2, 3, 4, 1, 3, 2, 4, 1, 4, 2, 3, 1, 3,
2, 4, 1, 4, 2, 3, 1, 2, 3, 4), 14, 2, byrow = T)
} else if (all(selection == 7, type == "R")) {
sequences <- matrix(c(1, 3, 2, 4, 1, 4, 2, 3, 1, 2, 3, 4, 1, 4, 2, 3, 1, 2,
3, 4, 1, 4, 2, 3, 1, 2, 3, 4), 14, 2, byrow = T)
} else if (all(selection == 10, type == "R")) {
sequences <- matrix(c(1, 3, 2, 4, 1, 2, 3, 4, 1, 3, 2, 4, 1, 4, 2, 3, 1, 2,
3, 4, 1, 4, 2, 3, 1, 2, 3, 4, 1, 4, 2, 3), 16, 2,
byrow = T)
} else if (all(selection == 13, type == "R")) {
sequences <- matrix(c(1, 3, 2, 4, 1, 2, 3, 4, 1, 4, 2, 3, 1, 2, 3, 4, 1, 2,
3, 4, 1, 4, 2, 3, 1, 2, 3, 4, 1, 4, 2, 3, 1, 4, 2, 3),
18, 2, byrow = T)
} else if (all(selection == 15, type == "R")) {
sequences <- matrix(c(1, 3, 2, 4, 1, 3, 2, 4, 1, 4, 2, 3, 1, 3, 2, 4, 1, 3,
2, 4, 1, 4, 2, 3, 1, 3, 2, 4, 1, 2, 3, 4, 1, 3, 2, 4,
1, 2, 3, 4), 20, 2, byrow = T)
} else if (all(selection == 16, type == "R")) {
sequences <- matrix(c(1, 3, 2, 4, 1, 2, 3, 4, 1, 4, 2, 3, 1, 3, 2, 4, 1, 2,
3, 4, 1, 4, 2, 3, 1, 3, 2, 4, 1, 2, 3, 4, 1, 3, 2, 4,
1, 4, 2, 3), 20, 2, byrow = T)
} else if (all(selection == 17, type == "R")) {
sequences <- matrix(c(1, 3, 2, 4, 1, 2, 3, 4, 1, 4, 2, 3, 1, 3, 2, 4, 1, 2,
3, 4, 1, 4, 2, 3, 1, 2, 3, 4, 1, 4, 2, 3, 1, 2, 3, 4,
1, 4, 2, 3), 20, 2, byrow = T)
} else if (all(selection == 18, type == "R")) {
sequences <- matrix(c(1, 2, 3, 5, 4, 6, 1, 3, 2, 4, 5, 6, 1, 5, 2, 6, 3, 4,
1, 6, 2, 3, 4, 5), 12, 2, byrow = T)
} else if (all(selection == 19, type == "R")) {
sequences <- matrix(c(1, 4, 2, 5, 3, 6, 1, 3, 2, 6, 4, 5, 1, 4, 2, 5, 3, 6,
1, 5, 2, 3, 4, 6, 1, 2, 3, 4, 5, 6, 1, 6, 2, 4, 3, 5),
18, 2, byrow = T)
} else if (all(selection == 20, type == "R")) {
sequences <- matrix(c(1, 3, 2, 4, 5, 6, 3, 5, 2, 6, 1, 4, 1, 3, 2, 6, 4, 5,
3, 5, 4, 6, 1, 2, 1, 5, 2, 4, 3, 6, 1, 6, 2, 5, 3, 4,
1, 5, 4, 6, 2, 3), 21, 2, byrow = T)
} else if (all(selection == 21, type == "R")) {
sequences <- matrix(c(1, 4, 2, 5, 3, 6, 1, 3, 2, 6, 4, 5, 1, 4, 2, 5, 3, 6,
1, 5, 2, 3, 4, 6, 1, 4, 2, 5, 3, 6, 1, 6, 2, 4, 3, 5,
1, 2, 3, 4, 5, 6), 21, 2, byrow = T)
} else if (all(selection == 22, type == "R")) {
sequences <- matrix(c(1, 4, 2, 5, 3, 6, 1, 2, 3, 5, 4, 6, 1, 4, 2, 5, 3, 6,
1, 3, 2, 4, 5, 6, 1, 4, 2, 5, 3, 6, 1, 5, 2, 6, 3, 4,
1, 4, 2, 5, 3, 6, 1, 6, 2, 3, 4, 5), 24, 2, byrow = T)
} else if (all(selection == 24, type == "R")) {
sequences <- matrix(c(1, 2, 3, 6, 5, 4, 1, 5, 2, 6, 3, 4, 1, 4, 3, 2, 5, 6,
1, 2, 3, 5, 4, 6, 1, 6, 3, 4, 2, 5, 1, 4, 2, 5, 3, 6,
1, 3, 2, 4, 5, 6, 1, 6, 2, 3, 4, 5), 24, 2, byrow = T)
} else if (all(selection == 25, type == "R")) {
sequences <- matrix(c(1, 3, 2, 4, 5, 6, 1, 3, 2, 5, 4, 6, 1, 3, 2, 6, 4, 5,
1, 5, 2, 4, 3, 6, 1, 6, 2, 4, 3, 5, 1, 5, 2, 6, 3, 4,
1, 2, 3, 5, 4, 6, 1, 5, 2, 3, 4, 6, 1, 4, 2, 6, 3, 5),
27, 2, byrow = T)
} else if (all(selection == 26, type == "R")) {
sequences <- matrix(c(1, 4, 2, 5, 3, 6, 1, 4, 2, 5, 3, 6, 1, 3, 2, 4, 5, 6,
1, 4, 2, 5, 3, 6, 1, 4, 2, 5, 3, 6, 1, 5, 2, 6, 3, 4,
1, 4, 2, 5, 3, 6, 1, 2, 3, 5, 4, 6, 1, 6, 2, 3, 4, 5),
27, 2, byrow = T)
} else if (all(selection == 27, type == "R")) {
sequences <- matrix(c(1, 4, 2, 5, 3, 6, 1, 3, 2, 4, 5, 6, 1, 5, 2, 6, 3, 4,
1, 2, 3, 5, 4, 6, 1, 3, 2, 4, 5, 6, 1, 6, 2, 3, 4, 5,
1, 2, 3, 5, 4, 6, 1, 5, 2, 6, 3, 4, 1, 6, 2, 3, 4, 5),
27, 2, byrow = T)
} else if (all(selection == 29, type == "R")) {
sequences <- matrix(c(1, 2, 3, 5, 4, 7, 6, 8, 1, 6, 2, 4, 3, 8, 5, 7, 1, 3,
2, 7, 4, 6, 5, 8, 1, 7, 2, 8, 3, 6, 4, 5, 1, 4, 2, 3,
5, 6, 7, 8, 1, 8, 2, 5, 3, 4, 6, 7), 24, 2, byrow = T)
} else if (all(selection == 30, type == "R")) {
sequences <- matrix(c(1, 8, 2, 5, 3, 7, 4, 6, 1, 7, 2, 6, 3, 5, 4, 8, 1, 3,
2, 7, 5, 4, 6, 8, 1, 2, 3, 7, 4, 8, 5, 6, 1, 6, 2, 3,
4, 7, 5, 8, 1, 4, 2, 8, 3, 6, 5, 7, 1, 5, 2, 6, 3, 4,
7, 8, 1, 5, 2, 4, 6, 7, 3, 8), 32, 2, byrow = T)
} else if (all(selection == 31, type == "R")) {
sequences <- matrix(c(1, 5, 2, 6, 3, 7, 4, 8, 1, 6, 2, 3, 4, 7, 5, 8, 1, 2,
3, 7, 4, 8, 5, 6, 1, 8, 2, 5, 3, 7, 4, 6, 1, 5, 2, 6,
3, 4, 7, 8, 1, 4, 2, 8, 3, 6, 5, 7, 1, 3, 2, 7, 4, 5,
6, 8, 1, 7, 2, 6, 3, 5, 4, 8, 1, 5, 2, 4, 3, 8, 6, 7),
36, 2, byrow = T)
} else if (all(selection == 32, type == "R")) {
sequences <- matrix(c(1, 2, 3, 8, 5, 6, 7, 4, 1, 3, 5, 7, 2, 4, 6, 8, 1, 7,
3, 5, 2, 8, 4, 6, 1, 4, 3, 2, 5, 8, 7, 6, 1, 3, 5, 7,
2, 4, 6, 8, 1, 7, 3, 5, 2, 8, 4, 6, 1, 6, 3, 4, 5, 2,
7, 8, 1, 5, 3, 7, 2, 6, 4, 8, 1, 8, 3, 6, 5, 4, 7, 2,
1, 5, 3, 7, 2, 6, 4, 8), 40, 2, byrow = T)
} else if (all(selection == 34, type == "R")) {
sequences <- matrix(c(1, 2, 3, 1, 2, 3, 4, 9, 6, 4, 9, 5, 5, 7, 8, 6, 7, 8,
1, 9, 5, 1, 2, 6, 9, 2, 3, 8, 6, 7, 7, 3, 8, 4, 4, 5,
1, 6, 4, 2, 3, 4, 5, 3, 7, 9, 2, 7, 8, 1, 6, 5, 9, 8),
27, 2, byrow = T)
} else if (all(selection == 35, type == "R")) {
sequences <- matrix(c(1, 9, 4, 1, 2, 5, 3, 6, 9, 2, 5, 7, 6, 8, 7, 3, 8, 4,
1, 4, 7, 1, 4, 2, 2, 5, 3, 8, 9, 3, 5, 6, 6, 7, 8, 9,
1, 5, 8, 1, 2, 8, 7, 2, 3, 4, 5, 3, 4, 7, 6, 9, 9, 6,
2, 1, 1, 6, 3, 9, 8, 2, 6, 3, 4, 5, 5, 8, 7, 4, 9, 7,
1, 3, 7, 1, 2, 6, 3, 2, 9, 5, 6, 4, 4, 9, 5, 8, 8, 7),
45, 2, byrow = T)
} else if (all(selection == 36, type == "R")) {
sequences <- matrix(c(1, 2, 3, 9, 4, 7, 5, 8, 6, 10, 1, 7, 2, 10, 3, 4, 5,
6, 8, 9, 1, 3, 2, 6, 4, 5, 7, 9, 8, 10, 1, 8, 2, 3, 4,
10, 5, 9, 6, 7, 1, 4, 2, 8, 3, 6, 5, 7, 9, 10, 1, 9,
2, 4, 3, 5, 6, 8, 7, 10, 1, 5, 2, 9, 3, 10, 4, 6, 7,
8, 1, 10, 2, 5, 3, 7, 4, 8, 6, 9), 40, 2, byrow = T)
} else if (all(selection == 37, type == "R")) {
sequences <- matrix(c(1, 6, 2, 7, 3, 8, 4, 9, 5, 10, 1, 4, 2, 5, 3, 6, 7,
10, 8, 9, 1, 9, 2, 3, 4, 10, 5, 7, 6, 8, 1, 6, 2, 7,
3, 8, 4, 9, 5, 10, 1, 5, 2, 8, 3, 10, 4, 6, 7, 9, 1,
10, 2, 4, 3, 5, 6, 9, 7, 8, 1, 2, 3, 7, 4, 8, 5, 9, 6,
10, 1, 7, 2, 9, 3, 4, 5, 6, 8, 10, 1, 3, 2, 6, 4, 7,
5, 8, 9, 10, 1, 8, 2, 10, 3, 9, 4, 5, 6, 7), 50, 2,
byrow = T)
} else if (all(selection == 38, type == "R")) {
sequences <- matrix(c(1, 2, 3, 8, 4, 12, 5, 6, 7, 12, 10, 9, 1, 8, 2, 9, 3,
10, 4, 6, 5, 7, 11, 12, 1, 3, 2, 4, 5, 9, 6, 8, 7, 11,
10, 11, 1, 9, 2, 12, 3, 11, 4, 8, 5, 10, 6, 7, 1, 5,
2, 7, 3, 4, 6, 11, 8, 9, 10, 12, 1, 11, 2, 3, 4, 9, 5,
12, 6, 10, 7, 8, 1, 6, 2, 10, 3, 7, 4, 5, 8, 12, 9,
11, 1, 12, 2, 6, 3, 5, 4, 11, 7, 9, 8, 10), 48, 2,
byrow = T)
} else if (all(selection == 39, type == "R")) {
sequences <- matrix(c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 7, 2, 8, 3,
9, 4, 10, 5, 11, 6, 12, 1, 8, 2, 7, 3, 12, 4, 9, 5,
10, 6, 11, 1, 3, 2, 4, 5, 7, 6, 8, 9, 11, 10, 12, 9,
12, 1, 10, 2, 11, 3, 8, 4, 5, 6, 7, 1, 11, 2, 12, 3,
10, 4, 7, 5, 8, 6, 9, 1, 4, 2, 5, 3, 6, 7, 12, 8, 9,
10, 11, 1, 6, 2, 3, 4, 11, 5, 12, 7, 9, 8, 10, 1, 12,
2, 9, 3, 5, 4, 6, 7, 10, 8, 11), 54, 2, byrow = T)
} else if (all(selection == 40, type == "R")) {
sequences <- matrix(c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 4, 2, 6, 3,
5, 7, 10, 8, 12, 9, 11, 1, 6, 2, 3, 4, 5, 7, 12, 8, 9,
10, 11, 1, 8, 2, 7, 3, 10, 4, 9, 5, 12, 6, 11, 1, 10,
2, 12, 3, 11, 4, 7, 6, 8, 5, 9, 1, 12, 2, 9, 4, 11, 6,
7, 3, 8, 5, 10, 1, 3, 2, 5, 4, 6, 7, 9, 8, 11, 10, 12,
1, 5, 2, 4, 3, 6, 7, 11, 8, 10, 9, 12, 1, 9, 2, 11, 4,
12, 3, 7, 5, 8, 6, 10, 1, 11, 2, 10, 3, 12, 5, 7, 4,
8, 6, 9), 60, 2, byrow = T)
} else if (all(selection == 41, type == "R")) {
sequences <- matrix(c(1, 2, 1, 3, 2, 3, 4, 5, 4, 6, 5, 6, 7, 8, 7, 9, 8, 9,
10, 11, 10, 12, 11, 12, 13, 14, 13, 15, 14, 15, 3, 5,
3, 7, 5, 7, 6, 8, 6, 10, 8, 10, 9, 11, 9, 13, 11, 13,
1, 12, 1, 14, 12, 14, 2, 4, 2, 15, 4, 15, 1, 5, 1, 9,
5, 9, 4, 8, 4, 12, 8, 12, 7, 11, 7, 15, 11, 15, 3, 10,
14, 10, 3, 14, 2, 6, 2, 13, 6, 13, 1, 11, 1, 6, 6, 11,
2, 7, 2, 12, 7, 12, 3, 8, 3, 13, 8, 13, 5, 10, 5, 15,
10, 15, 4, 9, 4, 14, 9, 14, 1, 8, 1, 15, 8, 15, 3, 4,
3, 11, 4, 11, 6, 7, 6, 14, 7, 14, 2, 9, 2, 10, 9, 10,
5, 12, 5, 13, 12, 13), 75, 2, byrow = T)
} else if (all(selection == 42, type == "R")) {
sequences <- matrix(c(1, 2, 4, 2, 3, 5, 3, 4, 6, 4, 5, 1, 5, 6, 2, 6, 1, 3),
6, 3, byrow = T)
} else if (all(selection == 43, type == "R")) {
sequences <- matrix(c(2, 4, 6, 1, 3, 2, 5, 1, 4, 3, 6, 5, 2, 4, 6, 1, 3, 4,
6, 5, 1, 3, 2, 5, 4, 6, 2, 6, 1, 3, 5, 2, 1, 4, 5, 3),
12, 3, byrow = T)
} else if (all(selection == 44, type == "R")) {
sequences <- matrix(c(1, 4, 2, 3, 6, 5, 4, 1, 3, 2, 5, 6, 1, 5, 4, 6, 3, 2,
4, 6, 1, 5, 2, 3, 2, 1, 5, 3, 4, 6, 5, 2, 4, 6, 3, 1),
12, 3, byrow = T)
} else if (all(selection == 45, type == "R")) {
sequences <- matrix(c(1, 3, 5, 1, 2, 4, 2, 3, 6, 4, 5, 6, 1, 3, 5, 2, 4, 6,
1, 3, 5, 1, 2, 6, 2, 4, 5, 3, 4, 6, 1, 3, 5, 1, 4, 6,
2, 3, 4, 2, 5, 6), 14, 3, byrow = T)
} else if (all(selection == 46, type == "R")) {
sequences <- matrix(c(1, 2, 5, 2, 3, 6, 3, 4, 1, 4, 5, 2, 5, 6, 3, 6, 1, 4,
1, 2, 3, 2, 3, 4, 3, 4, 5, 4, 5, 6, 5, 6, 1, 6, 1, 2,
1, 3, 5, 2, 4, 6), 14, 3, byrow = T)
} else if (all(selection == 47, type == "R")) {
sequences <- matrix(c(1, 3, 5, 1, 3, 5, 2, 4, 6, 2, 4, 6, 1, 3, 5, 1, 4, 6,
2, 3, 4, 2, 5, 6, 1, 3, 5, 1, 2, 4, 2, 3, 6, 4, 5, 6,
1, 3, 5, 1, 2, 6, 2, 4, 5, 3, 4, 6), 16, 3, byrow = T)
} else if (all(selection == 48, type == "R")) {
sequences <- matrix(c(1, 2, 3, 1, 5, 6, 2, 4, 6, 3, 5, 4, 1, 4, 2, 3, 5, 6,
1, 4, 5, 2, 3, 6, 1, 3, 4, 2, 5, 6, 1, 4, 6, 2, 5, 3,
1, 2, 5, 3, 4, 6, 1, 3, 6, 2, 4, 5), 16, 3, byrow = T)
} else if (all(selection == 50, type == "R")) {
sequences <- matrix(c(1, 2, 4, 2, 3, 5, 3, 4, 6, 4, 5, 1, 5, 6, 2, 6, 1, 3,
1, 2, 4, 2, 3, 5, 3, 4, 6, 4, 5, 1, 5, 6, 2, 6, 1, 3,
1, 2, 4, 2, 3, 5, 3, 4, 6, 4, 5, 1, 5, 6, 2, 6, 1, 3),
18, 3, byrow = T)
} else if (all(selection == 51, type == "R")) {
sequences <- matrix(c(1, 2, 3, 1, 2, 4, 1, 3, 5, 1, 4, 6, 1, 5, 6, 2, 3, 6,
2, 4, 5, 2, 5, 6, 3, 4, 5, 3, 4, 6, 1, 2, 3, 1, 5, 6,
4, 2, 6, 4, 3, 5, 1, 2, 3, 1, 5, 6, 4, 2, 6, 4, 3, 5),
18, 3, byrow = T)
} else if (all(selection == 52, type == "R")) {
sequences <- matrix(c(1, 2, 3, 4, 5, 6, 3, 1, 4, 5, 6, 2, 6, 3, 1, 2, 4, 5,
1, 5, 2, 3, 4, 6, 4, 1, 5, 6, 2, 3, 5, 6, 1, 2, 3, 4,
3, 5, 2, 1, 4, 6, 4, 3, 5, 6, 2, 1, 5, 6, 3, 2, 1, 4),
18, 3, byrow = T)
} else if (all(selection == 54, type == "R")) {
sequences <- matrix(c(1, 2, 4, 2, 3, 5, 3, 4, 6, 4, 5, 7, 5, 6, 8, 6, 7, 1,
7, 8, 2, 8, 1, 3), 8, 3, byrow = T)
} else if (all(selection == 56, type == "R")) {
sequences <- matrix(c(1, 5, 2, 2, 6, 3, 3, 7, 4, 4, 8, 1, 5, 4, 8, 6, 1, 5,
7, 2, 6, 8, 3, 7, 1, 5, 3, 2, 6, 4, 3, 7, 1, 4, 8, 2,
5, 3, 7, 6, 4, 8, 7, 1, 5, 8, 2, 6, 1, 5, 4, 2, 6, 1,
3, 7, 2, 4, 8, 3, 5, 2, 6, 6, 3, 7, 7, 4, 8, 8, 1, 5),
24, 3, byrow = T)
} else if (all(selection == 58, type == "R")) {
sequences <- matrix(c(1, 3, 4, 3, 5, 6, 5, 7, 8, 7, 1, 2, 6, 8, 1, 8, 2, 3,
2, 4, 5, 4, 6, 7, 1, 5, 6, 3, 7, 8, 5, 1, 2, 7, 3, 4,
4, 8, 1, 6, 2, 3, 8, 4, 5, 2, 6, 7, 1, 7, 8, 3, 1, 2,
5, 3, 4, 7, 5, 6, 4, 6, 1, 6, 8, 3, 8, 2, 5, 2, 4, 7),
24, 3, byrow = T)
} else if (all(selection == 59, type == "R")) {
sequences <- matrix(c(1, 2, 3, 4, 5, 6, 7, 8, 9, 1, 5, 9, 2, 6, 7, 3, 4, 8,
1, 4, 7, 2, 5, 8, 3, 6, 9, 1, 6, 8, 2, 4, 9, 3, 5, 7,
1, 4, 7, 2, 5, 8, 3, 6, 9), 15, 3, byrow = T)
} else if (all(selection == 60, type == "R")) {
sequences <- matrix(c(7, 4, 1, 8, 5, 2, 3, 9, 6, 1, 2, 3, 4, 6, 5, 7, 8, 9,
1, 7, 4, 2, 8, 5, 3, 6, 9, 6, 1, 8, 9, 4, 2, 5, 3, 7,
4, 1, 7, 5, 2, 8, 6, 9, 3, 9, 5, 1, 8, 3, 4, 2, 7, 6),
18, 3, byrow = T)
} else if (all(selection == 61, type == "R")) {
sequences <- matrix(c(1, 2, 3, 4, 5, 6, 7, 8, 9, 1, 4, 7, 1, 4, 7, 1, 4, 7,
1, 4, 7, 2, 5, 8, 2, 5, 8, 2, 5, 8, 2, 5, 8, 3, 6, 9,
3, 6, 9, 3, 6, 9, 3, 6, 9, 1, 5, 9, 2, 6, 7, 3, 4, 8,
1, 6, 8, 2, 4, 9, 3, 5, 7), 21, 3, byrow = T)
} else if (all(selection == 62, type == "R")) {
sequences <- matrix(c(1, 2, 3, 4, 5, 6, 7, 8, 9, 1, 2, 3, 4, 5, 6, 7, 8, 9,
1, 4, 7, 2, 5, 8, 3, 6, 9, 1, 5, 9, 2, 6, 7, 3, 4, 8,
1, 5, 9, 2, 6, 7, 3, 4, 8, 1, 6, 8, 2, 4, 9, 3, 5, 7,
1, 6, 8, 2, 4, 9, 3, 5, 7), 21, 3, byrow = T)
} else if (all(selection == 63, type == "R")) {
sequences <- matrix(c(1, 4, 7, 1, 4, 7, 2, 5, 8, 1, 2, 5, 1, 3, 6, 2, 4, 8,
3, 4, 9, 5, 7, 8, 6, 7, 9, 2, 6, 9, 3, 5, 9, 3, 6, 8,
1, 4, 7, 2, 5, 8, 3, 6, 9, 1, 4, 7, 2, 5, 8, 3, 6, 9,
1, 4, 7, 2, 5, 8, 3, 6, 9, 1, 8, 9, 2, 3, 7, 4, 5, 6),
24, 3, byrow = T)
} else if (all(selection == 65, type == "R")) {
sequences <- matrix(c(1, 2, 3, 4, 5, 6, 7, 8, 9, 1, 2, 3, 4, 5, 6, 7, 8, 9,
1, 4, 7, 2, 5, 8, 3, 6, 9, 1, 4, 7, 2, 5, 8, 3, 6, 9,
1, 4, 7, 2, 5, 8, 3, 6, 9, 1, 5, 9, 2, 6, 7, 3, 4, 8,
1, 5, 9, 2, 6, 7, 3, 4, 8, 1, 6, 8, 2, 4, 9, 3, 5, 7,
1, 6, 8, 2, 4, 9, 3, 5, 7), 27, 3, byrow = T)
} else if (all(selection == 66, type == "R")) {
sequences <- matrix(c(1, 4, 7, 1, 4, 7, 2, 5, 8, 1, 2, 5, 1, 3, 6, 2, 4, 8,
3, 4, 9, 5, 7, 8, 6, 7, 9, 2, 6, 9, 3, 5, 9, 3, 6, 8,
1, 4, 7, 2, 5, 8, 3, 6, 9, 1, 4, 7, 2, 5, 8, 3, 6, 9,
1, 4, 7, 2, 5, 8, 3, 6, 9, 1, 8, 9, 2, 3, 7, 4, 5, 6,
1, 4, 7, 2, 5, 8, 3, 6, 9, 1, 4, 7, 2, 5, 8, 3, 6, 9),
30, 3, byrow = T)
} else if (all(selection == 67, type == "R")) {
sequences <- matrix(c(1, 2, 4, 2, 3, 5, 3, 4, 6, 4, 5, 7, 5, 6, 8, 6, 7, 9,
7, 8, 1, 8, 9, 2, 9, 1, 3, 1, 4, 7, 2, 5, 8, 3, 6, 9,
1, 2, 5, 2, 3, 6, 3, 4, 7, 4, 5, 8, 5, 6, 9, 6, 7, 1,
7, 8, 2, 8, 9, 3, 9, 1, 4, 1, 3, 6, 2, 4, 7, 3, 5, 8,
4, 6, 9, 5, 7, 1, 6, 8, 2, 7, 9, 3, 8, 1, 4, 9, 2, 5),
30, 3, byrow = T)
} else if (all(selection == 68, type == "R")) {
sequences <- matrix(c(1, 2, 3, 4, 5, 6, 7, 8, 9, 1, 2, 3, 4, 5, 6, 7, 8, 9,
1, 2, 3, 4, 5, 6, 7, 8, 9, 1, 4, 7, 2, 5, 8, 3, 6, 9,
1, 5, 9, 2, 6, 7, 3, 4, 8, 1, 5, 9, 2, 6, 7, 3, 4, 8,
1, 5, 9, 2, 6, 7, 3, 4, 8, 1, 6, 8, 2, 4, 9, 3, 5, 7,
1, 6, 8, 2, 4, 9, 3, 5, 7, 1, 6, 8, 2, 4, 9, 3, 5, 7),
30, 3, byrow = T)
} else if (all(selection == 69, type == "R")) {
sequences <- matrix(c(1, 6, 2, 2, 7, 3, 3, 8, 4, 4, 9, 5, 5, 10, 1, 7, 1, 6,
8, 2, 7, 9, 3, 8, 10, 4, 9, 6, 5, 10, 1, 6, 3, 2, 7,
4, 3, 8, 5, 4, 9, 1, 5, 10, 2, 8, 1, 6, 9, 2, 7, 10,
3, 8, 6, 4, 9, 7, 5, 10), 20, 3, byrow = T)
} else if (all(selection == 70, type == "R")) {
sequences <- matrix(c(1, 3, 4, 2, 9, 7, 3, 5, 12, 9, 6, 10, 6, 8, 1, 11, 4,
2, 8, 7, 3, 4, 12, 9, 7, 10, 5, 10, 1, 11, 2, 5, 6, 3,
6, 11, 9, 11, 8, 5, 8, 4, 6, 4, 7, 11, 7, 12, 8, 12,
10, 12, 1, 2, 10, 2, 3, 1, 9, 5), 20, 3, byrow = T)
} else if (all(selection == 71, type == "R")) {
sequences <- matrix(c(1, 7, 2, 3, 8, 2, 7, 9, 3, 8, 1, 7, 9, 2, 8, 9, 3, 1,
1, 5, 6, 2, 6, 4, 3, 4, 5, 7, 11, 4, 8, 10, 5, 10, 4,
9, 11, 1, 12, 12, 2, 10, 11, 3, 10, 5, 7, 12, 6, 8,
11, 5, 11, 9, 4, 10, 1, 2, 5, 11, 6, 12, 3, 10, 6, 7,
4, 12, 8, 12, 9, 6), 24, 3, byrow = T)
} else if (all(selection == 72, type == "R")) {
sequences <- matrix(c(1, 4, 7, 2, 5, 8, 3, 6, 9, 10, 11, 12, 1, 6, 8, 2, 3,
10, 7, 9, 11, 4, 5, 12, 1, 7, 10, 3, 4, 8, 2, 5, 11,
6, 9, 12, 1, 4, 10, 2, 6, 7, 3, 9, 12, 5, 8, 11, 1, 3,
11, 2, 4, 9, 7, 8, 12, 5, 6, 10, 1, 5, 9, 2, 8, 11, 3,
6, 12, 4, 7, 10, 1, 2, 12, 3, 5, 7, 4, 6, 11, 8, 9,
10), 28, 3, byrow = T)
} else if (all(selection == 73, type == "R")) {
sequences <- matrix(c(1, 7, 5, 1, 7, 6, 1, 7, 11, 1, 7, 12, 1, 2, 8, 1, 3,
9, 1, 4, 10, 2, 3, 8, 2, 4, 10, 2, 5, 11, 2, 6, 12, 2,
7, 8, 2, 8, 9, 5, 8, 11, 3, 4, 9, 3, 5, 11, 3, 6, 12,
3, 7, 9, 3, 9, 10, 5, 9, 11, 5, 10, 12, 4, 5, 6, 4, 7,
10, 4, 8, 10, 4, 11, 12, 6, 8, 12, 6, 9, 12, 6, 10,
11), 28, 3, byrow = T)
} else if (all(selection == 75, type == "R")) {
sequences <- matrix(c(1, 2, 4, 2, 3, 5, 3, 4, 6, 4, 5, 7, 5, 6, 8, 6, 7, 9,
7, 8, 10, 8, 9, 11, 9, 10, 12, 10, 11, 1, 11, 12, 2,
12, 1, 3, 1, 2, 7, 2, 3, 8, 3, 4, 9, 4, 5, 10, 5, 6,
11, 6, 7, 12, 7, 8, 1, 8, 9, 2, 9, 10, 3, 10, 11, 4,
11, 12, 5, 12, 1, 6, 1, 3, 6, 2, 4, 7, 3, 5, 8, 4, 6,
9, 5, 7, 10, 6, 8, 11, 7, 9, 12, 8, 10, 1, 9, 11, 2,
10, 12, 3, 11, 1, 4, 12, 2, 5), 36, 3, byrow = T)
} else if (all(selection == 78, type == "R")) {
sequences <- matrix(c(1, 2, 4, 2, 3, 5, 3, 4, 6, 4, 5, 7, 5, 6, 8, 6, 7, 9,
7, 8, 10, 8, 9, 11, 9, 10, 12, 10, 11, 1, 11, 12, 2,
12, 1, 3, 1, 5, 9, 2, 6, 10, 3, 7, 11, 4, 8, 12, 1, 2,
7, 2, 3, 8, 3, 4, 9, 4, 5, 10, 5, 6, 11, 6, 7, 12, 7,
8, 1, 8, 9, 2, 9, 10, 3, 10, 11, 4, 11, 12, 5, 12, 1,
6, 1, 3, 6, 2, 4, 7, 3, 5, 8, 4, 6, 9, 5, 7, 10, 6, 8,
11, 7, 9, 12, 8, 10, 1, 9, 11, 2, 10, 12, 3, 11, 1, 4,
12, 2, 5), 40, 3, byrow = T)
} else if (all(selection == 79, type == "R")) {
sequences <- matrix(c(2, 7, 8, 3, 1, 9, 4, 2, 10, 5, 3, 11, 6, 4, 12, 7, 5,
13, 1, 6, 14, 8, 6, 3, 9, 7, 4, 10, 1, 5, 11, 2, 6,
12, 3, 7, 13, 4, 1, 14, 5, 2, 4, 8, 5, 5, 9, 6, 6, 10,
7, 7, 11, 1, 1, 12, 2, 2, 13, 3, 3, 14, 4, 9, 10, 12,
10, 11, 13, 11, 12, 14, 12, 13, 8, 13, 14, 9, 14, 8,
10, 8, 9, 11), 28, 3, byrow = T)
} else if (all(selection == 80, type == "R")) {
sequences <- matrix(c(1, 2, 8, 2, 3, 9, 3, 4, 10, 4, 5, 11, 5, 6, 12, 6, 7,
13, 7, 1, 14, 1, 8, 9, 2, 9, 10, 3, 10, 11, 4, 11, 12,
5, 12, 13, 6, 13, 14, 7, 14, 8, 1, 3, 8, 2, 4, 9, 3,
5, 10, 4, 6, 11, 5, 7, 12, 6, 1, 13, 7, 2, 14, 1, 8,
10, 2, 9, 11, 3, 10, 12, 4, 11, 13, 5, 12, 14, 6, 13,
8, 7, 14, 9, 1, 4, 8, 2, 5, 9, 3, 6, 10, 4, 7, 11, 5,
1, 12, 6, 2, 13, 7, 3, 14, 1, 8, 11, 2, 9, 12, 3, 10,
13, 4, 11, 14, 5, 12, 8, 6, 13, 9, 7, 14, 10), 42, 3,
byrow = T)
} else if (all(selection == 81, type == "R")) {
sequences <- matrix(c(2, 5, 6, 3, 1, 7, 4, 2, 8, 5, 3, 9, 1, 4, 10, 8, 9,
11, 9, 10, 12, 10, 6, 13, 6, 7, 14, 7, 8, 15, 12, 15,
1, 13, 11, 2, 14, 12, 3, 15, 13, 4, 11, 14, 5, 13, 14,
1, 14, 15, 2, 15, 11, 3, 11, 12, 4, 12, 13, 5, 3, 4,
6, 4, 5, 7, 5, 1, 8, 1, 2, 9, 2, 3, 10, 7, 10, 11, 8,
6, 12, 9, 7, 13, 10, 8, 14, 6, 9, 15), 30, 3,
byrow = T)
} else if (all(selection == 82, type == "R")) {
sequences <- matrix(c(1, 6, 11, 2, 7, 12, 3, 8, 13, 4, 9, 14, 5, 10, 15, 1,
7, 15, 6, 13, 4, 11, 2, 10, 12, 8, 14, 3, 9, 5, 1, 8,
9, 6, 3, 10, 11, 12, 13, 2, 4, 15, 7, 14, 5, 1, 6, 11,
2, 7, 12, 3, 8, 13, 4, 9, 14, 5, 10, 15, 1, 13, 5, 6,
2, 14, 11, 7, 9, 12, 3, 15, 8, 4, 10, 1, 14, 10, 6,
12, 5, 11, 8, 15, 2, 13, 9, 7, 3, 4, 1, 2, 3, 6, 7, 8,
11, 4, 5, 12, 9, 10, 13, 14, 15, 1, 12, 4, 6, 9, 15,
11, 3, 14, 2, 8, 5, 7, 13, 10), 40, 3, byrow = T)
} else if (all(selection == 84, type == "R")) {
sequences <- matrix(c(2, 5, 6, 3, 1, 7, 4, 2, 8, 5, 3, 9, 1, 4, 10, 8, 9,
11, 9, 10, 12, 10, 6, 13, 6, 7, 14, 7, 8, 15, 12, 15,
1, 13, 11, 2, 14, 12, 3, 15, 13, 4, 11, 14, 5, 13, 14,
1, 14, 15, 2, 15, 11, 3, 11, 12, 4, 12, 13, 5, 3, 4,
6, 4, 5, 7, 5, 1, 8, 1, 2, 9, 2, 3, 10, 7, 10, 11, 8,
6, 12, 9, 7, 13, 10, 8, 14, 6, 9, 15, 1, 6, 11, 2, 7,
12, 3, 8, 13, 4, 9, 14, 5, 10, 15, 6, 11, 1, 7, 12, 2,
8, 13, 3, 9, 14, 4, 10, 15, 5, 11, 1, 6, 12, 2, 7, 13,
3, 8, 14, 4, 9, 15, 5, 10), 45, 3, byrow = T)
} else if (all(selection == 85, type == "R")) {
sequences <- matrix(c(1, 4, 10, 2, 5, 6, 3, 1, 7, 4, 2, 8, 5, 3, 9, 6, 7,
14, 7, 8, 15, 8, 9, 11, 9, 10, 12, 10, 6, 13, 12, 15,
1, 13, 11, 2, 14, 12, 3, 15, 13, 4, 11, 14, 5, 1, 2,
9, 2, 3, 10, 3, 4, 6, 4, 5, 7, 5, 1, 8, 7, 10, 11, 8,
6, 12, 9, 7, 13, 10, 8, 14, 6, 9, 15, 14, 13, 1, 15,
14, 2, 11, 15, 3, 12, 11, 4, 13, 12, 5, 1, 6, 11, 1,
6, 11, 1, 6, 11, 1, 6, 11, 2, 7, 12, 2, 7, 12, 2, 7,
12, 2, 7, 12, 3, 8, 13, 3, 8, 13, 3, 8, 13, 3, 8, 13,
4, 9, 14, 4, 9, 14, 4, 9, 14, 4, 9, 14, 5, 10, 15, 5,
10, 15, 5, 10, 15, 5, 10, 15), 50, 3, byrow = T)
} else if (all(selection == 86, type == "R")) {
sequences <- matrix(c(1, 2, 11, 2, 3, 12, 3, 4, 13, 4, 5, 14, 5, 6, 15, 6,
7, 16, 7, 8, 1, 8, 9, 2, 9, 10, 3, 10, 11, 4, 11, 12,
5, 12, 13, 6, 13, 14, 7, 14, 15, 8, 15, 16, 9, 16, 1,
10, 1, 3, 6, 2, 4, 7, 3, 5, 8, 4, 6, 9, 5, 7, 10, 6,
8, 11, 7, 9, 12, 8, 10, 13, 9, 11, 14, 10, 12, 15, 11,
13, 16, 12, 14, 1, 13, 15, 2, 14, 16, 3, 15, 1, 4, 16,
2, 5), 32, 3, byrow = T)
} else if (all(selection == 89, type == "R")) {
sequences <- matrix(c(1, 13, 11, 2, 14, 12, 3, 15, 13, 4, 16, 14, 5, 17, 15,
6, 18, 16, 7, 10, 17, 8, 11, 18, 9, 12, 10, 14, 1, 10,
15, 2, 11, 16, 3, 12, 17, 4, 13, 18, 5, 14, 10, 6, 15,
11, 7, 16, 12, 8, 17, 13, 9, 18, 1, 15, 18, 2, 16, 10,
3, 17, 11, 4, 18, 12, 5, 10, 13, 6, 11, 14, 7, 12, 15,
8, 13, 16, 9, 14, 17, 16, 17, 1, 17, 18, 2, 18, 10, 3,
10, 11, 4, 11, 12, 5, 12, 13, 6, 13, 14, 7, 14, 15, 8,
15, 16, 9, 1, 2, 5, 2, 3, 6, 3, 4, 7, 4, 5, 8, 5, 6,
9, 6, 7, 1, 7, 8, 2, 8, 9, 3, 9, 1, 4, 12, 1, 3, 13,
2, 4, 14, 3, 5, 15, 4, 6, 16, 5, 7, 17, 6, 8, 18, 7,
9, 10, 8, 1, 11, 9, 2), 54, 3, byrow = T)
} else if (all(selection == 91, type == "R")) {
sequences <- matrix(c(1, 2, 11, 2, 3, 12, 3, 4, 13, 4, 5, 14, 5, 6, 15, 6,
7, 16, 7, 8, 17, 8, 9, 18, 9, 10, 19, 10, 11, 20, 11,
12, 21, 12, 13, 1, 13, 14, 2, 14, 15, 3, 15, 16, 4,
16, 17, 5, 17, 18, 6, 18, 19, 7, 19, 20, 8, 20, 21, 9,
21, 1, 10, 1, 3, 7, 2, 4, 8, 3, 5, 9, 4, 6, 10, 5, 7,
11, 6, 8, 12, 7, 9, 13, 8, 10, 14, 9, 11, 15, 10, 12,
16, 11, 13, 17, 12, 14, 18, 13, 15, 19, 14, 16, 20,
15, 17, 21, 16, 18, 1, 17, 19, 2, 18, 20, 3, 19, 21,
4, 20, 1, 5, 21, 2, 6, 1, 4, 9, 2, 5, 10, 3, 6, 11, 4,
7, 12, 5, 8, 13, 6, 9, 14, 7, 10, 15, 8, 11, 16, 9,
12, 17, 10, 13, 18, 11, 14, 19, 12, 15, 20, 13, 16,
21, 14, 17, 1, 15, 18, 2, 16, 19, 3, 17, 20, 4, 18,
21, 5, 19, 1, 6, 20, 2, 7, 21, 3, 8), 63, 3,
byrow = T)
} else if (all(selection == 93, type == "R")) {
sequences <- matrix(c(1, 2, 21, 2, 7, 22, 7, 8, 3, 8, 13, 4, 13, 14, 9, 14,
19, 10, 19, 20, 15, 20, 1, 16, 1, 14, 22, 2, 19, 3, 7,
20, 4, 8, 1, 9, 13, 2, 10, 14, 7, 15, 19, 8, 16, 20,
13, 21, 1, 4, 17, 2, 9, 18, 7, 10, 23, 8, 15, 24, 13,
16, 5, 14, 21, 6, 19, 22, 11, 20, 3, 12, 5, 2, 15, 6,
7, 16, 11, 8, 21, 3, 4, 23, 4, 9, 24, 9, 10, 5, 10,
15, 6, 15, 16, 11, 16, 21, 12, 21, 22, 17, 22, 3, 18,
3, 16, 24, 4, 21, 5, 9, 22, 6, 10, 3, 11, 15, 4, 12,
16, 9, 17, 21, 10, 18, 22, 15, 23, 3, 6, 13, 4, 11,
14, 9, 12, 19, 10, 17, 20, 15, 18, 1, 16, 23, 2, 21,
24, 7, 22, 5, 8, 12, 13, 22, 17, 14, 3, 18, 19, 4, 1,
3, 5, 2, 4, 6, 7, 9, 11, 8, 10, 12, 13, 15, 17, 14,
16, 18, 19, 21, 23, 20, 22, 24, 5, 6, 19, 6, 11, 20,
11, 12, 1, 12, 17, 2, 17, 18, 7, 18, 23, 8, 23, 24,
13, 24, 5, 14, 5, 18, 20, 6, 23, 1, 11, 24, 2, 12, 5,
7, 17, 6, 8, 18, 11, 13, 23, 12, 14, 24, 17, 19, 23,
20, 9, 24, 1, 10), 80, 3, byrow = T)
} else if (all(selection == 94, type == "R")) {
sequences <- matrix(c(1, 2, 4, 6, 2, 3, 5, 1, 3, 4, 6, 2, 4, 5, 1, 3, 5, 6,
2, 4, 6, 1, 3, 5), 6, 4, byrow = T)
} else if (all(selection == 95, type == "R")) {
sequences <- matrix(c(1, 2, 4, 6, 3, 4, 6, 2, 5, 6, 2, 4, 2, 1, 3, 5, 4, 3,
5, 1, 6, 5, 1, 3, 1, 2, 4, 6, 3, 4, 6, 2, 5, 6, 2, 4,
2, 1, 3, 5, 4, 3, 5, 1, 6, 5, 1, 3), 12, 4, byrow = T)
} else if (all(selection == 96, type == "R")) {
sequences <- matrix(c(3, 6, 5, 4, 4, 1, 6, 2, 1, 5, 2, 3, 5, 6, 2, 4, 5, 1,
6, 3, 4, 2, 3, 1, 2, 3, 4, 5, 1, 4, 5, 6, 6, 2, 3, 1,
2, 3, 4, 6, 3, 4, 1, 5, 6, 5, 1, 2), 12, 4, byrow = T)
} else if (all(selection == 97, type == "R")) {
sequences <- matrix(c(1, 5, 3, 4, 1, 5, 7, 8, 2, 6, 7, 4, 2, 6, 3, 8, 1, 5,
2, 6, 3, 7, 4, 8, 3, 7, 1, 2, 3, 7, 5, 6, 4, 8, 1, 6,
4, 8, 2, 5), 10, 4, byrow = T)
} else if (all(selection == 98, type == "R")) {
sequences <- matrix(c(1, 2, 3, 4, 5, 6, 7, 8, 1, 3, 6, 8, 2, 4, 5, 7, 1, 2,
5, 6, 3, 4, 7, 8, 1, 4, 5, 8, 2, 3, 6, 7, 1, 2, 7, 8,
3, 4, 5, 6, 1, 4, 6, 7, 2, 3, 5, 8, 1, 3, 5, 7, 2, 4,
6, 8, 1, 3, 5, 7, 2, 4, 6, 8), 16, 4, byrow = T)
} else if (all(selection == 101, type == "R")) {
sequences <- matrix(c(1, 2, 3, 4, 1, 6, 7, 8, 1, 3, 6, 8, 2, 3, 4, 5, 2, 5,
7, 8, 4, 5, 6, 7, 1, 2, 4, 7, 1, 2, 3, 8, 1, 4, 6, 7,
2, 5, 7, 8, 3, 4, 5, 6, 3, 5, 6, 8, 1, 5, 2, 6, 3, 7,
4, 8, 1, 5, 3, 7, 2, 6, 4, 8, 1, 5, 4, 8, 2, 6, 3, 7),
18, 4, byrow = T)
} else if (all(selection == 103, type == "R")) {
sequences <- matrix(c(1, 2, 3, 4, 5, 6, 7, 8, 1, 3, 6, 8, 2, 4, 5, 7, 1, 2,
5, 6, 3, 4, 7, 8, 1, 4, 5, 8, 2, 3, 6, 7, 1, 5, 3, 7,
2, 6, 4, 8, 1, 2, 7, 8, 3, 4, 5, 6, 1, 4, 6, 7, 2, 3,
5, 8, 1, 3, 5, 7, 2, 4, 6, 8, 1, 5, 2, 6, 3, 7, 4, 8,
1, 5, 4, 8, 2, 6, 3, 7), 20, 4, byrow = T)
} else if (all(selection == 104, type == "R")) {
sequences <- matrix(c(1, 4, 7, 2, 2, 5, 8, 3, 3, 6, 9, 4, 4, 7, 1, 5, 5, 8,
2, 6, 6, 9, 3, 7, 7, 1, 4, 8, 8, 2, 5, 9, 9, 3, 6, 1),
9, 4, byrow = T)
} else if (all(selection == 106, type == "R")) {
sequences <- matrix(c(1, 7, 8, 10, 2, 8, 9, 6, 3, 9, 10, 7, 4, 10, 6, 8, 5,
6, 7, 9, 6, 2, 3, 5, 7, 3, 4, 1, 8, 4, 5, 2, 9, 5, 1,
3, 10, 1, 2, 4, 1, 8, 9, 10, 2, 9, 10, 6, 3, 10, 6, 7,
4, 6, 7, 8, 5, 7, 8, 9, 6, 3, 4, 5, 7, 4, 5, 1, 8, 5,
1, 2, 9, 1, 2, 3, 10, 2, 3, 4), 20, 4, byrow = T)
} else if (all(selection == 109, type == "R")) {
sequences <- matrix(c(1, 2, 5, 7, 2, 3, 6, 8, 3, 4, 7, 9, 4, 5, 8, 10, 5, 6,
9, 11, 6, 7, 10, 12, 7, 8, 11, 1, 8, 9, 12, 2, 9, 10,
1, 3, 10, 11, 2, 4, 11, 12, 3, 5, 12, 1, 4, 6), 12, 4,
byrow = T)
} else if (all(selection == 111, type == "R")) {
sequences <- matrix(c(1, 3, 7, 5, 4, 6, 10, 2, 8, 9, 7, 6, 11, 12, 10, 3, 8,
11, 1, 4, 9, 12, 2, 5, 9, 2, 3, 4, 6, 11, 12, 7, 10,
12, 4, 8, 1, 2, 9, 11, 7, 8, 3, 5, 6, 10, 5, 1, 3, 8,
9, 10, 7, 9, 1, 11, 12, 5, 6, 1, 3, 7, 2, 4, 4, 5, 12,
8, 10, 11, 6, 2, 2, 7, 8, 6, 5, 10, 11, 3, 2, 3, 1,
12, 9, 1, 8, 10, 5, 6, 4, 9, 12, 4, 11, 7, 8, 1, 2,
12, 11, 4, 5, 9, 1, 4, 3, 6, 2, 5, 7, 10, 3, 6, 8, 11,
7, 10, 9, 12), 30, 4, byrow = T)
} else if (all(selection == 112, type == "R")) {
sequences <- matrix(c(1, 2, 5, 7, 2, 3, 6, 8, 3, 4, 7, 9, 4, 5, 8, 10, 5, 6,
9, 11, 6, 7, 10, 12, 7, 8, 11, 13, 8, 9, 12, 14, 9,
10, 13, 1, 10, 11, 14, 2, 11, 12, 1, 3, 12, 13, 2, 4,
13, 14, 3, 5, 14, 1, 4, 6), 14, 4, byrow = T)
} else if (all(selection == 114, type == "R")) {
sequences <- matrix(c(2, 4, 5, 13, 3, 5, 6, 14, 4, 6, 7, 15, 5, 7, 8, 1, 6,
8, 9, 2, 7, 9, 10, 3, 8, 10, 11, 4, 9, 11, 12, 5, 10,
12, 13, 6, 11, 13, 14, 7, 12, 14, 15, 8, 13, 15, 1, 9,
14, 1, 2, 10, 15, 2, 3, 11, 1, 3, 4, 12), 15, 4,
byrow = T)
} else if (all(selection == 115, type == "R")) {
sequences <- matrix(c(1, 6, 11, 2, 2, 7, 12, 3, 3, 8, 13, 4, 4, 9, 14, 5, 5,
10, 15, 1, 7, 1, 6, 11, 8, 2, 7, 12, 9, 3, 8, 13, 10,
4, 9, 14, 6, 5, 10, 15, 11, 12, 1, 6, 12, 13, 2, 7,
13, 14, 3, 8, 14, 15, 4, 9, 15, 11, 5, 10, 1, 6, 11,
3, 2, 7, 12, 4, 3, 8, 13, 5, 4, 9, 14, 1, 5, 10, 15,
2, 8, 1, 6, 11, 9, 2, 7, 12, 10, 3, 8, 13, 6, 4, 9,
14, 7, 5, 10, 15, 13, 11, 1, 6, 14, 12, 2, 7, 15, 13,
3, 8, 11, 14, 4, 9, 12, 15, 5, 10), 30, 4, byrow = T)
} else if (all(selection == 117, type == "R")) {
sequences <- matrix(c(1, 13, 8, 9, 4, 1, 11, 12, 7, 4, 14, 15, 10, 7, 2, 3,
13, 10, 5, 6, 2, 14, 9, 7, 5, 2, 12, 10, 8, 5, 15, 13,
11, 8, 3, 1, 14, 11, 6, 4, 3, 15, 7, 8, 6, 3, 10, 11,
9, 6, 13, 14, 12, 9, 1, 2, 15, 12, 4, 5, 1, 7, 5, 6,
4, 10, 8, 9, 7, 13, 11, 12, 10, 1, 14, 15, 13, 4, 2,
3, 2, 8, 6, 4, 5, 11, 9, 7, 8, 14, 12, 10, 11, 2, 15,
13, 14, 5, 3, 1, 3, 9, 4, 5, 6, 12, 7, 8, 9, 15, 10,
11, 12, 3, 13, 14, 15, 6, 1, 2), 30, 4, byrow = T)
} else if (all(selection == 118, type == "R")) {
sequences <- matrix(c(1, 2, 6, 9, 3, 4, 8, 11, 5, 10, 13, 14, 7, 12, 15, 16,
2, 5, 6, 13, 4, 7, 8, 15, 1, 9, 10, 14, 3, 11, 12, 16,
15, 13, 3, 1, 16, 14, 4, 2, 5, 7, 9, 11, 6, 8, 10, 12,
2, 3, 7, 10, 1, 4, 5, 12, 6, 11, 14, 15, 8, 9, 13, 16,
14, 6, 7, 3, 16, 8, 5, 1, 15, 10, 11, 2, 13, 12, 9, 4,
16, 10, 6, 4, 15, 9, 5, 3, 13, 11, 7, 1, 14, 12, 8,
2), 24, 4, byrow = T)
} else if (all(selection == 119, type == "R")) {
sequences <- matrix(c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16,
1, 5, 9, 13, 2, 6, 10, 14, 3, 7, 11, 15, 4, 8, 12, 16,
1, 5, 9, 13, 2, 6, 10, 14, 3, 7, 11, 15, 4, 8, 12, 16,
1, 5, 9, 13, 2, 6, 10, 14, 3, 7, 11, 15, 4, 8, 12, 16,
1, 6, 11, 16, 2, 5, 12, 15, 3, 8, 9, 14, 4, 7, 10, 13,
1, 7, 12, 14, 2, 8, 11, 13, 3, 5, 10, 16, 4, 6, 9, 15,
1, 8, 10, 15, 2, 7, 9, 16, 3, 6, 12, 13, 4, 5, 11,
14), 28, 4, byrow = T)
} else if (all(selection == 133, type == "R")) {
sequences <- matrix(c(1, 2, 3, 5, 7, 2, 3, 4, 6, 8, 3, 4, 5, 7, 1, 4, 5, 6,
8, 2, 5, 6, 7, 1, 3, 6, 7, 8, 2, 4, 7, 8, 1, 3, 5, 8,
1, 2, 4, 6), 8, 5, byrow = T)
} else if (all(selection == 134, type == "R")) {
sequences <- matrix(c(1, 3, 4, 5, 6, 2, 4, 5, 6, 7, 3, 5, 6, 7, 8, 4, 6, 7,
8, 1, 5, 7, 8, 1, 2, 6, 8, 1, 2, 3, 7, 1, 2, 3, 4, 8,
2, 3, 4, 5), 8, 5, byrow = T)
} else if (all(selection == 137, type == "R")) {
sequences <- matrix(c(1, 3, 4, 6, 7, 2, 4, 5, 7, 8, 3, 5, 6, 8, 9, 4, 6, 7,
9, 1, 5, 7, 8, 1, 2, 6, 8, 9, 2, 3, 7, 9, 1, 3, 4, 8,
1, 2, 4, 5, 9, 2, 3, 5, 6), 9, 5, byrow = T)
} else if (all(selection == 139, type == "R")) {
sequences <- matrix(c(1, 2, 3, 6, 8, 2, 3, 4, 7, 9, 3, 4, 5, 8, 10, 4, 5, 6,
9, 1, 5, 6, 7, 10, 2, 6, 7, 8, 1, 3, 7, 8, 9, 2, 4, 8,
9, 10, 3, 5, 9, 10, 1, 4, 6, 10, 1, 2, 5, 7), 10, 5,
byrow = T)
} else if (all(selection == 140, type == "R")) {
sequences <- matrix(c(1, 2, 5, 6, 10, 1, 6, 7, 8, 9, 1, 3, 5, 6, 8, 1, 4, 6,
9, 10, 1, 2, 3, 7, 9, 1, 2, 4, 5, 7, 1, 3, 4, 8, 10,
2, 3, 6, 7, 10, 2, 4, 6, 7, 8, 3, 4, 5, 6, 9, 2, 3, 4,
8, 9, 2, 5, 8, 9, 10, 3, 5, 7, 8, 10, 4, 5, 7, 9, 10),
14, 5, byrow = T)
} else if (all(selection == 143, type == "R")) {
sequences <- matrix(c(1, 2, 4, 7, 10, 2, 3, 5, 8, 11, 3, 4, 6, 9, 12, 4, 5,
7, 10, 1, 5, 6, 8, 11, 2, 6, 7, 9, 12, 3, 7, 8, 10, 1,
4, 8, 9, 11, 2, 5, 9, 10, 12, 3, 6, 10, 11, 1, 4, 7,
11, 12, 2, 5, 8, 12, 1, 3, 6, 9), 12, 5, byrow = T)
} else if (all(selection == 144, type == "R")) {
sequences <- matrix(c(1, 2, 4, 9, 12, 2, 3, 5, 10, 1, 3, 4, 6, 11, 2, 4, 5,
7, 12, 3, 5, 6, 8, 1, 4, 6, 7, 9, 2, 5, 7, 8, 10, 3,
6, 8, 9, 11, 4, 7, 9, 10, 12, 5, 8, 10, 11, 1, 6, 9,
11, 12, 2, 7, 10, 12, 1, 3, 8, 11), 12, 5, byrow = T)
} else if (all(selection == 145, type == "R")) {
sequences <- matrix(c(1, 2, 4, 6, 7, 2, 3, 5, 7, 8, 3, 4, 6, 8, 9, 4, 5, 7,
9, 10, 5, 6, 8, 10, 11, 6, 7, 9, 11, 12, 7, 8, 10, 12,
1, 8, 9, 11, 1, 2, 9, 10, 12, 2, 3, 10, 11, 1, 3, 4,
11, 12, 2, 4, 5, 12, 1, 3, 5, 6), 12, 5, byrow = T)
} else if (all(selection == 150, type == "R")) {
sequences <- matrix(c(1, 6, 12, 13, 15, 2, 7, 13, 14, 11, 3, 8, 14, 15, 12,
4, 9, 15, 11, 13, 5, 10, 11, 12, 14, 6, 11, 2, 3, 5,
7, 12, 3, 4, 1, 8, 13, 4, 5, 2, 9, 14, 5, 1, 3, 10,
15, 1, 2, 4, 11, 1, 7, 8, 10, 12, 2, 8, 9, 6, 13, 3,
9, 10, 7, 14, 4, 10, 6, 8, 15, 5, 6, 7, 9, 1, 6, 12,
13, 14, 2, 7, 13, 14, 15, 3, 8, 14, 15, 11, 4, 9, 15,
11, 12, 5, 10, 11, 12, 13, 6, 11, 2, 3, 4, 7, 12, 3,
4, 5, 8, 13, 4, 5, 1, 9, 14, 5, 1, 2, 10, 15, 1, 2, 3,
11, 1, 7, 8, 9, 12, 2, 8, 9, 10, 13, 3, 9, 10, 6, 14,
4, 10, 6, 7, 15, 5, 6, 7, 8), 30, 5, byrow = T)
} else if (all(selection == 153, type == "R")) {
sequences <- matrix(c(1, 2, 5, 10, 12, 2, 3, 6, 11, 13, 3, 4, 7, 12, 14, 4,
5, 8, 13, 15, 5, 6, 9, 14, 16, 6, 7, 10, 15, 17, 7, 8,
11, 16, 18, 8, 9, 12, 17, 19, 9, 10, 13, 18, 20, 10,
11, 14, 19, 21, 11, 12, 15, 20, 22, 12, 13, 16, 21,
23, 13, 14, 17, 22, 24, 14, 15, 18, 23, 1, 15, 16, 19,
24, 2, 16, 17, 20, 1, 3, 17, 18, 21, 2, 4, 18, 19, 22,
3, 5, 19, 20, 23, 4, 6, 20, 21, 24, 5, 7, 21, 22, 1,
6, 8, 22, 23, 2, 7, 9, 23, 24, 3, 8, 10, 24, 1, 4, 9,
11), 24, 5, byrow = T)
} else if (all(selection == "153a", type == "R")) {
sequences <- matrix(c(1, 2, 5, 10, 12, 2, 3, 6, 11, 13, 3, 4, 7, 12, 14, 4,
5, 8, 13, 15, 5, 6, 9, 14, 16, 6, 7, 10, 15, 17, 7, 8,
11, 16, 18, 8, 9, 12, 17, 19, 9, 10, 13, 18, 20, 10,
11, 14, 19, 21, 11, 12, 15, 20, 22, 12, 13, 16, 21,
23, 13, 14, 17, 22, 24, 14, 15, 18, 23, 1, 15, 16, 19,
24, 2, 16, 17, 20, 1, 3, 17, 18, 21, 2, 4, 18, 19, 22,
3, 5, 19, 20, 23, 4, 6, 20, 21, 24, 5, 7, 21, 22, 1,
6, 8, 22, 23, 2, 7, 9, 23, 24, 3, 8, 10, 24, 1, 4, 9,
11), 24, 5, byrow = T)
} else if (all(selection == 164, type == "R")) {
sequences <- matrix(c(1, 3, 5, 7, 2, 4, 1, 3, 5, 7, 6, 8, 2, 4, 6, 8, 1, 3,
2, 4, 6, 8, 5, 7, 1, 3, 5, 7, 2, 6, 1, 3, 5, 7, 4, 8,
2, 4, 6, 8, 1, 5, 2, 4, 6, 8, 3, 7, 1, 3, 5, 7, 2, 8,
1, 3, 5, 7, 4, 6, 2, 4, 6, 8, 1, 7, 2, 4, 6, 8, 3, 5),
12, 6, byrow = T)
} else if (all(selection == 165, type == "R")) {
sequences <- matrix(c(4, 5, 6, 7, 8, 9, 1, 2, 3, 7, 8, 9, 1, 2, 3, 4, 5, 6,
2, 5, 8, 3, 6, 9, 1, 4, 7, 3, 6, 9, 1, 4, 7, 2, 5, 8,
2, 6, 7, 3, 4, 8, 1, 5, 9, 3, 4, 8, 1, 5, 9, 2, 6, 7,
2, 4, 9, 3, 5, 7, 1, 6, 8, 3, 5, 7, 1, 6, 8, 2, 4, 9,
1, 4, 7, 2, 5, 8, 2, 5, 8, 3, 6, 9, 3, 6, 9, 1, 4, 7),
15, 6, byrow = T)
} else if (all(selection == 169, type == "R")) {
sequences <- matrix(c(1, 7, 13, 2, 8, 14, 1, 7, 13, 3, 9, 15, 2, 8, 14, 3,
9, 15, 4, 10, 16, 5, 11, 17, 4, 10, 16, 6, 12, 18, 5,
11, 17, 6, 12, 18, 1, 7, 13, 4, 5, 6, 1, 7, 13, 10,
11, 12, 1, 7, 13, 16, 17, 18, 2, 8, 14, 4, 11, 18, 2,
8, 14, 6, 10, 17, 2, 8, 14, 5, 12, 16, 3, 9, 15, 4,
12, 17, 3, 9, 15, 5, 10, 18, 3, 9, 15, 6, 11, 16, 4,
10, 16, 1, 2, 3, 4, 10, 16, 7, 8, 9, 4, 10, 16, 13,
14, 15, 5, 11, 17, 1, 8, 15, 5, 11, 17, 3, 7, 14, 5,
11, 17, 2, 9, 13, 6, 12, 18, 1, 9, 14, 6, 12, 18, 2,
7, 15, 6, 12, 18, 3, 8, 13), 24, 6, byrow = T)
} else if (all(selection == 170, type == "R")) {
sequences <- matrix(c(1, 10, 19, 6, 5, 4, 14, 1, 10, 13, 19, 15, 19, 22, 1,
23, 10, 24, 2, 11, 20, 24, 4, 14, 15, 2, 11, 20, 22,
5, 20, 23, 2, 11, 6, 13, 3, 15, 23, 4, 12, 21, 5, 13,
24, 21, 3, 12, 6, 12, 22, 14, 21, 3, 22, 4, 13, 7, 8,
9, 13, 16, 4, 22, 17, 18, 4, 26, 27, 25, 13, 22, 23,
5, 14, 27, 7, 17, 8, 25, 5, 18, 14, 23, 16, 14, 9, 5,
23, 26, 18, 6, 26, 15, 24, 7, 24, 27, 6, 16, 15, 8, 9,
24, 15, 17, 25, 6, 7, 3, 16, 1, 2, 25, 12, 7, 25, 10,
11, 16, 25, 21, 7, 19, 16, 20, 21, 8, 17, 26, 1, 11,
17, 19, 8, 12, 26, 2, 26, 17, 3, 8, 20, 10, 27, 20,
12, 9, 18, 1, 10, 18, 21, 2, 9, 27, 11, 9, 18, 3, 27,
19), 27, 6, byrow = T)
} else if (all(selection == 171, type == "R")) {
sequences <- matrix(c(2, 9, 3, 5, 17, 26, 17, 16, 23, 3, 19, 12, 9, 2, 19,
10, 12, 24, 16, 23, 10, 24, 26, 5, 1, 15, 7, 14, 24,
3, 10, 17, 1, 15, 21, 28, 22, 8, 24, 28, 3, 21, 8, 22,
14, 7, 10, 17, 4, 1, 25, 2, 8, 16, 23, 25, 15, 9, 22,
4, 18, 11, 9, 23, 1, 8, 11, 18, 2, 22, 16, 15, 3, 10,
6, 18, 4, 27, 27, 24, 17, 11, 6, 25, 24, 4, 18, 17,
13, 20, 25, 3, 13, 20, 11, 10, 6, 5, 12, 1, 20, 22,
15, 27, 8, 12, 5, 13, 20, 19, 26, 8, 15, 6, 26, 13,
22, 19, 27, 1, 5, 28, 11, 4, 7, 19, 7, 12, 28, 26, 25,
18, 19, 21, 5, 25, 18, 14, 12, 26, 4, 21, 14, 11, 13,
7, 21, 6, 23, 2, 28, 14, 20, 27, 2, 23, 21, 20, 27,
16, 9, 7, 14, 6, 16, 13, 28, 9), 28, 6, byrow = T)
} else if (all(selection == 172, type == "R")) {
sequences <- matrix(c(1, 2, 5, 8, 3, 6, 9, 2, 3, 6, 9, 4, 7, 1, 3, 4, 7, 1,
5, 8, 2, 4, 5, 8, 2, 6, 9, 3, 5, 6, 9, 3, 7, 1, 4, 6,
7, 1, 4, 8, 2, 5, 7, 8, 2, 5, 9, 3, 6, 8, 9, 3, 6, 1,
4, 7, 9, 1, 4, 7, 2, 5, 8), 9, 7, byrow = T)
} else if (all(selection == 175, type == "R")) {
sequences <- matrix(c(1, 2, 3, 4, 6, 7, 11, 2, 3, 4, 5, 7, 8, 12, 3, 4, 5,
6, 8, 9, 1, 4, 5, 6, 7, 9, 10, 2, 5, 6, 7, 8, 10, 11,
3, 6, 7, 8, 9, 11, 12, 4, 7, 8, 9, 10, 12, 1, 5, 8, 9,
10, 11, 1, 2, 6, 9, 10, 11, 12, 2, 3, 7, 10, 11, 12,
1, 3, 4, 8, 11, 12, 1, 2, 4, 5, 9, 12, 1, 2, 3, 5, 6,
10), 12, 7, byrow = T)
} else if (all(selection == 176, type == "R")) {
sequences <- matrix(c(3, 5, 8, 9, 10, 11, 12, 4, 6, 9, 10, 11, 12, 1, 5, 7,
10, 11, 12, 1, 2, 6, 8, 11, 12, 1, 2, 3, 7, 9, 12, 1,
2, 3, 4, 8, 10, 1, 2, 3, 4, 5, 9, 11, 2, 3, 4, 5, 6,
10, 12, 3, 4, 5, 6, 7, 11, 1, 4, 5, 6, 7, 8, 12, 2, 5,
6, 7, 8, 9, 1, 3, 6, 7, 8, 9, 10, 2, 4, 7, 8, 9, 10,
11), 12, 7, byrow = T)
} else if (all(selection == 177, type == "R")) {
sequences <- matrix(c(1, 8, 10, 9, 3, 2, 4, 11, 1, 8, 2, 9, 3, 10, 6, 13, 1,
8, 2, 5, 12, 12, 6, 9, 1, 8, 13, 5, 4, 11, 5, 7, 1, 8,
14, 14, 4, 11, 12, 7, 1, 8, 7, 14, 13, 3, 6, 10, 1, 8,
10, 6, 13, 14, 7, 3, 2, 9, 3, 5, 12, 14, 7, 10, 12, 7,
14, 5, 9, 2, 9, 7, 2, 6, 13, 4, 11, 13, 2, 14, 11, 4,
6, 9, 3, 5, 12, 4, 10, 11, 6, 5, 3, 4, 10, 11, 12,
13), 14, 7, byrow = T)
} else if (all(selection == 186, type == "R")) {
sequences <- matrix(c(3, 4, 6, 8, 9, 10, 11, 12, 4, 5, 7, 9, 10, 11, 12, 1,
5, 6, 8, 10, 11, 12, 1, 2, 6, 7, 9, 11, 12, 1, 2, 3,
7, 8, 10, 12, 1, 2, 3, 4, 8, 9, 11, 1, 2, 3, 4, 5, 9,
10, 12, 2, 3, 4, 5, 6, 10, 11, 1, 3, 4, 5, 6, 7, 11,
12, 2, 4, 5, 6, 7, 8, 12, 1, 3, 5, 6, 7, 8, 9, 1, 2,
4, 6, 7, 8, 9, 10, 2, 3, 5, 7, 8, 9, 10, 11), 12, 8,
byrow = T)
} else if (all(selection == 193, type == "R")) {
sequences <- matrix(c(1, 2, 5, 8, 11, 3, 6, 9, 12, 2, 3, 6, 9, 12, 4, 7, 10,
1, 3, 4, 7, 10, 1, 5, 8, 11, 2, 4, 5, 8, 11, 2, 6, 9,
12, 3, 5, 6, 9, 12, 3, 7, 10, 1, 4, 6, 7, 10, 1, 4, 8,
11, 2, 5, 7, 8, 11, 2, 5, 9, 12, 3, 6, 8, 9, 12, 3, 6,
10, 1, 4, 7, 9, 10, 1, 4, 7, 11, 2, 5, 8, 10, 11, 2,
5, 8, 12, 3, 6, 9, 11, 12, 3, 6, 9, 1, 4, 7, 10, 12,
1, 4, 7, 10, 2, 5, 8, 11), 12, 9, byrow = T)
} else if (all(selection == 203, type == "R")) {
sequences <- matrix(c(1, 2, 3, 4, 6, 7, 8, 10, 11, 12, 2, 3, 4, 5, 7, 8, 9,
11, 12, 1, 3, 4, 5, 6, 8, 9, 10, 12, 1, 2, 4, 5, 6, 7,
9, 10, 11, 1, 2, 3, 5, 6, 7, 8, 10, 11, 12, 2, 3, 4,
6, 7, 8, 9, 11, 12, 1, 3, 4, 5, 7, 8, 9, 10, 12, 1, 2,
4, 5, 6, 8, 9, 10, 11, 1, 2, 3, 5, 6, 7, 9, 10, 11,
12, 2, 3, 4, 6, 7, 8, 10, 11, 12, 1, 3, 4, 5, 7, 8, 9,
11, 12, 1, 2, 4, 5, 6, 8, 9, 10, 12, 1, 2, 3, 5, 6, 7,
9, 10, 11), 12, 10, byrow = T)
} else if (all(selection == 1, type == "S")) {
sequences <- matrix(c(1, 4, 2, 5, 2, 5, 3, 6, 3, 6, 1, 4), 3, 4, byrow = T)
} else if (all(selection == 3, type == "S")) {
sequences <- matrix(c(1, 4, 2, 5, 2, 5, 3, 6, 3, 6, 1, 4, 1, 4, 2, 5, 2, 5,
3, 6, 3, 6, 1, 4, 1, 4, 2, 5, 2, 5, 3, 6, 3, 6, 1, 4),
9, 4, byrow = T)
} else if (all(selection == 6, type == "S")) {
sequences <- matrix(c(1, 5, 2, 6, 3, 7, 4, 8, 1, 5, 3, 7, 2, 6, 4, 8, 1, 5,
4, 8, 2, 6, 3, 7), 6, 4, byrow = T)
} else if (all(selection == 7, type == "S")) {
sequences <- matrix(c(1, 5, 3, 7, 2, 6, 4, 8, 3, 7, 1, 5, 4, 8, 2, 6, 1, 5,
2, 6, 3, 7, 4, 8, 2, 6, 1, 5, 4, 8, 3, 7, 1, 5, 4, 8,
2, 6, 3, 7, 4, 8, 1, 5, 3, 7, 2, 6), 12, 4, byrow = T)
} else if (all(selection == 9, type == "S")) {
sequences <- matrix(c(1, 6, 2, 7, 2, 7, 3, 8, 3, 8, 4, 9, 4, 9, 5, 10, 5,
10, 1, 6, 6, 1, 8, 3, 7, 2, 9, 4, 8, 3, 10, 5, 9, 4,
6, 1, 10, 5, 7, 2), 10, 4, byrow = T)
} else if (all(selection == 11, type == "S")) {
sequences <- matrix(c(1, 7, 2, 8, 3, 9, 4, 10, 5, 11, 6, 12, 1, 7, 4, 10, 2,
8, 5, 11, 3, 9, 6, 12, 1, 7, 6, 12, 2, 8, 4, 10, 3, 9,
5, 11, 1, 7, 3, 9, 2, 8, 6, 12, 4, 10, 5, 11, 1, 7, 5,
11, 2, 8, 3, 9, 4, 10, 6, 12), 15, 4, byrow = T)
} else if (all(selection == 18, type == "S")) {
sequences <- matrix(c(1, 5, 2, 7, 3, 6, 2, 6, 3, 8, 4, 7, 3, 7, 4, 5, 1, 8,
4, 8, 1, 6, 2, 5), 4, 6, byrow = T)
} else if (all(selection == 21, type == "S")) {
sequences <- matrix(c(1, 4, 7, 2, 5, 8, 2, 5, 8, 3, 6, 9, 3, 6, 9, 1, 4, 7),
3, 6, byrow = T)
} else if (all(selection == 24, type == "S")) {
sequences <- matrix(c(1, 4, 7, 2, 5, 8, 2, 5, 8, 3, 6, 9, 3, 6, 9, 1, 4, 7,
1, 4, 7, 2, 5, 8, 2, 5, 8, 3, 6, 9, 3, 6, 9, 1, 4, 7,
1, 4, 7, 2, 5, 8, 2, 5, 8, 3, 6, 9, 3, 6, 9, 1, 4, 7,
1, 4, 7, 2, 5, 8, 2, 5, 8, 3, 6, 9, 3, 6, 9, 1, 4, 7,
1, 4, 7, 2, 5, 8, 2, 5, 8, 3, 6, 9, 3, 6, 9, 1, 4, 7),
15, 6, byrow = T)
} else if (all(selection == 26, type == "S")) {
sequences <- matrix(c(1, 6, 2, 7, 3, 8, 2, 7, 3, 8, 4, 9, 3, 8, 4, 9, 5, 10,
4, 9, 5, 10, 1, 6, 5, 10, 1, 6, 2, 7, 6, 1, 7, 2, 9,
4, 7, 2, 8, 3, 10, 5, 8, 3, 9, 4, 6, 1, 9, 4, 10, 5,
7, 2, 10, 5, 6, 1, 8, 3), 10, 6, byrow = T)
} else if (all(selection == 27, type == "S")) {
sequences <- matrix(c(1, 2, 5, 6, 9, 10, 3, 4, 7, 8, 11, 12, 9, 11, 1, 3, 5,
7, 10, 12, 2, 4, 6, 8, 5, 8, 9, 12, 1, 4, 6, 7, 10,
11, 2, 3), 6, 6, byrow = T)
} else if (all(selection == 28, type == "S")) {
sequences <- matrix(c(1, 7, 2, 8, 3, 9, 2, 8, 3, 9, 4, 10, 3, 9, 4, 10, 5,
11, 4, 10, 5, 11, 1, 7, 5, 11, 1, 7, 2, 8, 5, 11, 2,
8, 6, 12, 1, 7, 3, 9, 6, 12, 2, 8, 4, 10, 6, 12, 3, 9,
5, 11, 6, 12, 4, 10, 1, 7, 6, 12), 10, 6, byrow = T)
} else if (all(selection == 29, type == "S")) {
sequences <- matrix(c(1, 2, 5, 6, 9, 10, 3, 4, 7, 8, 11, 12, 9, 11, 1, 3, 5,
7, 10, 12, 2, 4, 6, 8, 5, 8, 9, 12, 1, 4, 6, 7, 10,
11, 2, 3, 2, 1, 6, 5, 10, 9, 4, 3, 8, 7, 12, 11, 11,
9, 3, 1, 7, 5, 12, 10, 4, 2, 8, 6, 8, 5, 12, 9, 4, 1,
7, 6, 11, 10, 3, 2), 12, 6, byrow = T)
} else if (all(selection == 31, type == "S")) {
sequences <- matrix(c(1, 7, 4, 10, 5, 11, 2, 8, 3, 9, 6, 12, 1, 7, 2, 8, 5,
11, 6, 12, 3, 9, 4, 10, 2, 8, 3, 9, 1, 7, 6, 12, 4,
10, 5, 11, 3, 9, 4, 10, 2, 8, 6, 12, 5, 11, 1, 7, 4,
10, 5, 11, 3, 9, 6, 12, 1, 7, 2, 8, 5, 11, 2, 8, 3, 9,
6, 12, 4, 10, 1, 7, 1, 7, 3, 9, 4, 10, 2, 8, 5, 11, 6,
12, 2, 8, 4, 10, 5, 11, 6, 12, 1, 7, 3, 9, 3, 9, 5,
11, 1, 7, 6, 12, 2, 8, 4, 10, 4, 10, 1, 7, 2, 8, 6,
12, 3, 9, 5, 11), 20, 6, byrow = T)
} else if (all(selection == 32, type == "S")) {
sequences <- matrix(c(1, 8, 2, 9, 4, 11, 2, 9, 3, 10, 5, 12, 3, 10, 4, 11,
6, 13, 4, 11, 5, 12, 7, 14, 5, 12, 6, 13, 1, 8, 6, 13,
7, 14, 2, 9, 7, 14, 1, 8, 3, 10), 7, 6, byrow = T)
} else if (all(selection == 34, type == "S")) {
sequences <- matrix(c(1, 8, 2, 9, 4, 11, 2, 9, 3, 10, 5, 12, 3, 10, 4, 11,
6, 13, 4, 11, 5, 12, 7, 14, 5, 12, 6, 13, 1, 8, 6, 13,
7, 14, 2, 9, 7, 14, 1, 8, 3, 10, 1, 8, 2, 9, 4, 11, 2,
9, 3, 10, 5, 12, 3, 10, 4, 11, 6, 13, 4, 11, 5, 12, 7,
14, 5, 12, 6, 13, 1, 8, 6, 13, 7, 14, 2, 9, 7, 14, 1,
8, 3, 10, 1, 8, 2, 9, 4, 11, 2, 9, 3, 10, 5, 12, 3,
10, 4, 11, 6, 13, 4, 11, 5, 12, 7, 14, 5, 12, 6, 13,
1, 8, 6, 13, 7, 14, 2, 9, 7, 14, 1, 8, 3, 10), 21, 6,
byrow = T)
} else if (all(selection == 35, type == "S")) {
sequences <- matrix(c(1, 6, 11, 2, 7, 12, 2, 7, 12, 3, 8, 13, 3, 8, 13, 4,
9, 14, 4, 9, 14, 5, 10, 15, 5, 10, 15, 1, 6, 11, 1, 6,
11, 3, 8, 13, 2, 7, 12, 4, 9, 14, 3, 8, 13, 5, 10, 15,
4, 9, 14, 1, 6, 11, 5, 10, 15, 2, 7, 12), 10, 6,
byrow = T)
} else if (all(selection == 37, type == "S")) {
sequences <- matrix(c(1, 10, 4, 13, 7, 16, 2, 11, 5, 14, 8, 17, 3, 12, 6,
15, 9, 18, 2, 11, 3, 12, 4, 13, 5, 14, 6, 15, 7, 16,
8, 17, 9, 18, 1, 10, 3, 12, 1, 10, 5, 14, 6, 15, 4,
13, 8, 17, 9, 18, 7, 16, 2, 11, 1, 10, 2, 11, 6, 15,
4, 13, 5, 14, 9, 18, 7, 16, 8, 17, 3, 12), 12, 6,
byrow = T)
} else if (all(selection == 38, type == "S")) {
sequences <- matrix(c(1, 7, 13, 2, 8, 14, 3, 9, 15, 4, 10, 16, 5, 11, 17, 6,
12, 18, 1, 7, 13, 3, 9, 15, 2, 8, 14, 6, 12, 18, 4,
10, 16, 5, 11, 17, 1, 7, 13, 4, 10, 16, 2, 8, 14, 5,
11, 17, 3, 9, 15, 6, 12, 18, 1, 7, 13, 5, 11, 17, 2,
8, 14, 3, 9, 15, 4, 10, 16, 6, 12, 18, 1, 7, 13, 6,
12, 18, 2, 8, 14, 4, 10, 16, 3, 9, 15, 5, 11, 17), 15,
6, byrow = T)
} else if (all(selection == 51, type == "S")) {
sequences <- matrix(c(1, 6, 2, 7, 3, 8, 4, 9, 2, 7, 3, 8, 4, 9, 5, 10, 3, 8,
4, 9, 5, 10, 1, 6, 4, 9, 5, 10, 1, 6, 2, 7, 5, 10, 1,
6, 2, 7, 3, 8), 5, 8, byrow = T)
} else if (all(selection == 52, type == "S")) {
sequences <- matrix(c(1, 6, 2, 7, 3, 8, 4, 9, 2, 7, 3, 8, 4, 9, 5, 10, 3, 8,
4, 9, 5, 10, 1, 6, 4, 9, 5, 10, 1, 6, 2, 7, 5, 10, 1,
6, 2, 7, 3, 8, 6, 1, 7, 2, 8, 3, 9, 4, 7, 2, 8, 3, 9,
4, 10, 5, 8, 3, 9, 4, 10, 5, 6, 1, 9, 4, 10, 5, 6, 1,
7, 2, 10, 5, 6, 1, 7, 2, 8, 3), 10, 8, byrow = T)
} else if (all(selection == 53, type == "S")) {
sequences <- matrix(c(1, 4, 7, 10, 2, 5, 8, 11, 2, 5, 8, 11, 3, 6, 9, 12, 3,
6, 9, 12, 1, 4, 7, 10), 3, 8, byrow = T)
} else if (all(selection == 58, type == "S")) {
sequences <- matrix(c(3, 9, 4, 10, 5, 11, 6, 12, 2, 8, 4, 10, 5, 11, 6, 12,
2, 8, 3, 9, 5, 11, 6, 12, 2, 8, 3, 9, 4, 10, 6, 12, 2,
8, 3, 9, 4, 10, 5, 11, 1, 7, 6, 12, 4, 10, 5, 11, 1,
7, 3, 9, 5, 11, 6, 12, 1, 7, 3, 9, 4, 10, 6, 12, 1, 7,
3, 9, 4, 10, 5, 11, 1, 7, 2, 8, 5, 11, 6, 12, 1, 7, 2,
8, 4, 10, 6, 12, 1, 7, 2, 8, 4, 10, 5, 11, 1, 7, 2, 8,
3, 9, 6, 12, 1, 7, 2, 8, 3, 9, 5, 11, 1, 7, 2, 8, 3,
9, 4, 10), 15, 8, byrow = T)
} else if (all(selection == 59, type == "S")) {
sequences <- matrix(c(7, 14, 6, 13, 5, 12, 3, 10, 1, 8, 7, 14, 6, 13, 4, 11,
2, 9, 1, 8, 7, 14, 5, 12, 3, 10, 2, 9, 1, 8, 6, 13, 4,
11, 3, 10, 2, 9, 7, 14, 5, 12, 4, 11, 3, 10, 1, 8, 6,
13, 5, 12, 4, 11, 2, 9), 7, 8, byrow = T)
} else if (all(selection == 61, type == "S")) {
sequences <- matrix(c(1, 5, 9, 13, 2, 6, 10, 14, 3, 7, 11, 15, 4, 8, 12, 16,
1, 5, 9, 13, 3, 7, 11, 15, 2, 6, 10, 14, 4, 8, 12, 16,
1, 5, 9, 13, 4, 8, 12, 16, 2, 6, 10, 14, 3, 7, 11,
15), 6, 8, byrow = T)
} else if (all(selection == 63, type == "S")) {
sequences <- matrix(c(1, 9, 2, 10, 4, 12, 7, 15, 8, 16, 3, 11, 6, 14, 5, 13,
2, 10, 3, 11, 5, 13, 1, 9, 8, 16, 4, 12, 7, 15, 6, 14,
3, 11, 4, 12, 6, 14, 2, 10, 8, 16, 5, 13, 1, 9, 7, 15,
4, 12, 5, 13, 7, 15, 3, 11, 8, 16, 6, 14, 2, 10, 1, 9,
5, 13, 6, 14, 1, 9, 4, 12, 8, 16, 7, 15, 3, 11, 2, 10,
6, 14, 7, 15, 2, 10, 5, 13, 8, 16, 1, 9, 4, 12, 3, 11,
7, 15, 1, 9, 3, 11, 6, 14, 8, 16, 2, 10, 5, 13, 4,
12), 14, 8, byrow = T)
} else if (all(selection == 65, type == "S")) {
sequences <- matrix(c(1, 10, 2, 11, 3, 12, 4, 13, 6, 15, 1, 10, 2, 11, 5,
14, 7, 16, 8, 17, 1, 10, 2, 11, 5, 14, 3, 12, 7, 16,
1, 10, 10, 1, 6, 15, 8, 17, 13, 4, 15, 6, 10, 1, 12,
3, 9, 18, 9, 18, 4, 13, 10, 1, 8, 17, 18, 9, 5, 14,
16, 7, 10, 1, 2, 11, 12, 3, 17, 8, 18, 9, 4, 13, 11,
2, 9, 18, 14, 5, 16, 7, 9, 18, 11, 2, 6, 15, 11, 2, 7,
16, 4, 13, 3, 12, 8, 17, 15, 6, 5, 14, 11, 2, 3, 12,
14, 5, 18, 9, 17, 8, 13, 4, 18, 9, 15, 6, 16, 7, 12,
3, 13, 4, 14, 5, 15, 6, 17, 8, 16, 7, 6, 15, 12, 3,
14, 5, 17, 8, 13, 4, 7, 16), 18, 8, byrow = T)
} else if (all(selection == 66, type == "S")) {
sequences <- matrix(c(1, 6, 11, 16, 2, 7, 12, 17, 2, 7, 12, 17, 3, 8, 13,
18, 3, 8, 13, 18, 4, 9, 14, 19, 4, 9, 14, 19, 5, 10,
15, 20, 5, 10, 15, 20, 1, 6, 11, 16, 1, 6, 11, 16, 3,
8, 13, 18, 2, 7, 12, 17, 4, 9, 14, 19, 3, 8, 13, 18,
5, 10, 15, 20, 4, 9, 14, 19, 1, 6, 11, 16, 5, 10, 15,
20, 2, 7, 12, 17), 10, 8, byrow = T)
} else if (all(selection == 67, type == "S")) {
sequences <- matrix(c(1, 11, 4, 14, 7, 17, 10, 20, 5, 15, 9, 19, 3, 13, 4,
14, 3, 13, 7, 17, 6, 16, 8, 18, 2, 12, 6, 16, 1, 11,
9, 19, 8, 18, 10, 20, 2, 12, 5, 15, 4, 14, 2, 12, 8,
18, 6, 16, 7, 17, 9, 19, 5, 15, 2, 12, 5, 15, 8, 18,
3, 13, 1, 11, 6, 16, 3, 13, 9, 19, 10, 20, 2, 12, 1,
11, 10, 20, 3, 13, 9, 19, 10, 20, 8, 18, 7, 17, 1, 11,
6, 16, 7, 17, 5, 15, 10, 20, 5, 15, 4, 14, 6, 16, 4,
14, 8, 18, 1, 11, 9, 19, 3, 13, 7, 17, 2, 12, 4, 14),
15, 8, byrow = T)
} else if (all(selection == 82, type == "S")) {
sequences <- matrix(c(1, 5, 9, 2, 6, 10, 3, 7, 11, 2, 6, 10, 3, 7, 11, 4, 8,
12, 3, 7, 11, 4, 8, 12, 1, 5, 9, 4, 8, 12, 1, 5, 9, 2,
6, 10), 4, 9, byrow = T)
} else if (all(selection == 85, type == "S")) {
sequences <- matrix(c(1, 6, 11, 2, 7, 12, 3, 8, 13, 2, 7, 12, 3, 8, 13, 4,
9, 14, 3, 8, 13, 4, 9, 14, 5, 10, 15, 4, 9, 14, 5, 10,
15, 1, 6, 11, 5, 10, 15, 1, 6, 11, 2, 7, 12, 1, 6, 11,
3, 8, 13, 4, 9, 14, 2, 7, 12, 4, 9, 14, 5, 10, 15, 3,
8, 13, 5, 10, 15, 1, 6, 11, 4, 9, 14, 1, 6, 11, 2, 7,
12, 5, 10, 15, 2, 7, 12, 3, 8, 13), 10, 9, byrow = T)
} else if (all(selection == 86, type == "S")) {
sequences <- matrix(c(1, 7, 13, 2, 8, 14, 3, 9, 15, 1, 7, 13, 2, 8, 14, 4,
10, 16, 1, 7, 13, 3, 9, 15, 6, 12, 18, 1, 7, 13, 4,
10, 16, 5, 11, 17, 1, 7, 13, 5, 11, 17, 6, 12, 18, 2,
8, 14, 3, 9, 15, 5, 11, 17, 2, 8, 14, 4, 10, 16, 6,
12, 18, 2, 8, 14, 5, 11, 17, 6, 12, 18, 3, 9, 15, 4,
10, 16, 5, 11, 17, 3, 9, 15, 4, 10, 16, 6, 12, 18),
10, 9, byrow = T)
} else if (all(selection == 88, type == "S")) {
sequences <- matrix(c(1, 8, 15, 2, 9, 16, 4, 11, 18, 2, 9, 16, 3, 10, 17, 5,
12, 19, 3, 10, 17, 4, 11, 18, 6, 13, 20, 4, 11, 18, 5,
12, 19, 7, 14, 21, 5, 12, 19, 6, 13, 20, 1, 8, 15, 6,
13, 20, 7, 14, 21, 2, 9, 16, 7, 14, 21, 1, 8, 15, 3,
10, 17), 7, 9, byrow = T)
} else if (all(selection == 91, type == "S")) {
sequences <- matrix(c(1, 10, 19, 4, 13, 22, 7, 16, 25, 2, 11, 20, 5, 14, 23,
8, 17, 26, 3, 12, 21, 6, 15, 24, 9, 18, 27, 2, 11, 20,
3, 12, 21, 4, 13, 22, 5, 14, 23, 6, 15, 24, 7, 16, 25,
8, 17, 26, 9, 18, 27, 1, 10, 19, 3, 12, 21, 1, 10, 19,
5, 14, 23, 6, 15, 24, 4, 13, 22, 8, 17, 26, 9, 18, 27,
7, 16, 25, 2, 11, 20, 1, 10, 19, 2, 11, 20, 6, 15, 24,
4, 13, 22, 5, 14, 23, 9, 18, 27, 7, 16, 25, 8, 17, 26,
3, 12, 21), 12, 9, byrow = T)
} else if (all(selection == 98, type == "S")) {
sequences <- matrix(c(1, 7, 2, 8, 3, 9, 4, 10, 5, 11, 2, 8, 3, 9, 4, 10, 5,
11, 6, 12, 3, 9, 4, 10, 5, 11, 6, 12, 1, 7, 4, 10, 5,
11, 6, 12, 1, 7, 2, 8, 5, 11, 6, 12, 1, 7, 2, 8, 3, 9,
6, 12, 1, 7, 2, 8, 3, 9, 4, 10), 6, 10, byrow = T)
} else if (all(selection == 101, type == "S")) {
sequences <- matrix(c(1, 4, 7, 10, 13, 2, 5, 8, 11, 14, 2, 5, 8, 11, 14, 3,
6, 9, 12, 15, 3, 6, 9, 12, 15, 1, 4, 7, 10, 13, 1, 4,
7, 10, 13, 2, 5, 8, 11, 14, 2, 5, 8, 11, 14, 3, 6, 9,
12, 15, 3, 6, 9, 12, 15, 1, 4, 7, 10, 13), 6, 10,
byrow = T)
} else if (all(selection == 106, type == "S")) {
sequences <- matrix(c(1, 5, 9, 13, 17, 2, 6, 10, 14, 18, 3, 7, 11, 15, 19,
4, 8, 12, 16, 20, 1, 5, 9, 13, 17, 3, 7, 11, 15, 19,
2, 6, 10, 14, 18, 4, 8, 12, 16, 20, 1, 5, 9, 13, 17,
4, 8, 12, 16, 20, 2, 6, 10, 14, 18, 3, 7, 11, 15, 19),
6, 10, byrow = T)
} else if (all(selection == 110, type == "S")) {
sequences <- matrix(c(1, 12, 4, 15, 5, 16, 9, 20, 3, 14, 2, 13, 5, 16, 6,
17, 10, 21, 4, 15, 3, 14, 6, 17, 7, 18, 11, 22, 5, 16,
4, 15, 7, 18, 8, 19, 1, 12, 6, 17, 5, 16, 8, 19, 9,
20, 2, 13, 7, 18, 6, 17, 9, 20, 10, 21, 3, 14, 8, 19,
7, 18, 10, 21, 11, 22, 4, 15, 9, 20, 8, 19, 11, 22, 1,
12, 5, 16, 10, 21, 9, 20, 1, 12, 2, 13, 6, 17, 11, 22,
10, 21, 2, 13, 3, 14, 7, 18, 1, 12, 11, 22, 3, 14, 4,
15, 8, 19, 2, 13), 11, 10, byrow = T)
} else if (all(selection == 116, type == "S")) {
sequences <- matrix(c(1, 8, 15, 22, 29, 2, 9, 16, 23, 30, 2, 9, 16, 23, 30,
3, 10, 17, 24, 31, 3, 10, 17, 24, 31, 4, 11, 18, 25,
32, 4, 11, 18, 25, 32, 5, 12, 19, 26, 33, 5, 12, 19,
26, 33, 6, 13, 20, 27, 34, 6, 13, 20, 27, 34, 7, 14,
21, 28, 35, 7, 14, 21, 28, 35, 1, 8, 15, 22, 29, 1, 8,
15, 22, 29, 3, 10, 17, 24, 31, 2, 9, 16, 23, 30, 4,
11, 18, 25, 32, 3, 10, 17, 24, 31, 5, 12, 19, 26, 33,
4, 11, 18, 25, 32, 6, 13, 20, 27, 34, 5, 12, 19, 26,
33, 7, 14, 21, 28, 35, 6, 13, 20, 27, 34, 1, 8, 15,
22, 29, 7, 14, 21, 28, 35, 2, 9, 16, 23, 30, 1, 8, 15,
22, 29, 4, 11, 18, 25, 32, 2, 9, 16, 23, 30, 5, 12,
19, 26, 33, 3, 10, 17, 24, 31, 6, 13, 20, 27, 34, 4,
11, 18, 25, 32, 7, 14, 21, 28, 35, 5, 12, 19, 26, 33,
8, 8, 15, 22, 29, 6, 13, 20, 27, 34, 2, 9, 16, 23, 30,
7, 14, 21, 28, 35, 3, 10, 17, 24, 31), 21, 10,
byrow = T)
} else if (all(selection == 1, type == "SR")) {
sequences <- matrix(c(1, 2, 3, 4, 4, 1, 2, 3), 4, 2, byrow = T)
} else if (all(selection == 3, type == "SR")) {
sequences <- matrix(c(1, 2, 3, 4, 4, 1, 2, 3, 1, 2, 3, 4, 4, 1, 2, 3, 1, 2,
3, 4, 4, 1, 2, 3), 12, 2, byrow = T)
} else if (all(selection == 6, type == "SR")) {
sequences <- matrix(c(1, 2, 3, 4, 5, 6, 1, 6, 3, 2, 5, 4, 1, 4, 3, 6, 5, 2),
9, 2, byrow = T)
} else if (all(selection == 7, type == "SR")) {
sequences <- matrix(c(1, 2, 3, 4, 5, 6, 4, 1, 6, 3, 2, 5, 2, 1, 4, 3, 6, 5,
1, 6, 3, 2, 5, 4, 1, 4, 3, 6, 5, 2, 6, 1, 2, 3, 4, 5),
18, 2, byrow = T)
} else if (all(selection == 9, type == "SR")) {
sequences <- matrix(c(1, 2, 3, 4, 5, 6, 7, 8, 6, 1, 8, 3, 2, 5, 4, 7, 1, 4,
3, 2, 5, 8, 7, 6, 8, 1, 6, 3, 4, 5, 2, 7), 16, 2,
byrow = T)
} else if (all(selection == 11, type == "SR")) {
sequences <- matrix(c(1, 2, 3, 10, 5, 8, 7, 6, 9, 4, 1, 8, 3, 6, 5, 4, 7, 2,
9, 10, 1, 4, 3, 2, 5, 10, 7, 8, 9, 6, 1, 10, 3, 8, 5,
6, 7, 4, 9, 2, 1, 6, 3, 4, 5, 2, 7, 10, 9, 8), 25, 2,
byrow = T)
} else if (all(selection == 18, type == "SR")) {
sequences <- matrix(c(1, 2, 3, 1, 5, 6, 2, 4, 6, 3, 4, 5), 4, 3, byrow = T)
} else if (all(selection == 19, type == "SR")) {
sequences <- matrix(c(1, 2, 3, 4, 5, 6, 1, 5, 3, 4, 2, 6, 1, 2, 6, 4, 5, 3,
1, 5, 6, 4, 2, 3), 8, 3, byrow = T)
} else if (all(selection == 23, type == "SR")) {
sequences <- matrix(c(1, 2, 3, 4, 5, 6, 7, 8, 9, 1, 5, 9, 2, 6, 7, 3, 4, 8,
1, 6, 8, 2, 4, 9, 3, 5, 7), 9, 3, byrow = T)
} else if (all(selection == 24, type == "SR")) {
sequences <- matrix(c(1, 2, 3, 4, 5, 6, 7, 8, 9, 1, 3, 5, 4, 6, 8, 2, 7, 9,
1, 6, 8, 4, 2, 9, 3, 5, 7, 1, 2, 6, 4, 5, 9, 3, 7, 8,
1, 5, 9, 3, 4, 8, 2, 6, 7, 1, 8, 9, 2, 3, 4, 5, 6, 7),
18, 3, byrow = T)
} else if (all(selection == 25, type == "SR")) {
sequences <- matrix(c(1, 2, 3, 4, 5, 6, 7, 8, 9, 1, 3, 5, 4, 6, 8, 2, 7, 9,
1, 2, 6, 4, 5, 9, 3, 7, 8, 1, 5, 6, 4, 8, 9, 2, 3, 7,
1, 2, 9, 3, 4, 5, 6, 7, 8, 1, 5, 9, 2, 6, 7, 3, 4, 8,
1, 3, 8, 2, 4, 6, 5, 7, 9, 1, 6, 8, 2, 4, 9, 3, 5, 7,
1, 8, 9, 2, 3, 4, 5, 6, 7), 27, 3, byrow = T)
} else if (all(selection == 26, type == "SR")) {
sequences <- matrix(c(1, 2, 3, 12, 8, 7, 9, 10, 5, 11, 4, 6, 1, 5, 6, 8, 3,
4, 9, 11, 7, 2, 12, 10, 1, 12, 11, 5, 7, 3, 6, 10, 8,
4, 2, 9, 1, 8, 9, 7, 6, 2, 10, 11, 3, 4, 12, 5), 16,
3, byrow = T)
} else if (all(selection == 35, type == "SR")) {
sequences <- matrix(c(1, 2, 3, 4, 5, 6, 1, 2, 3, 4, 5, 6, 1, 4, 3, 6, 5, 2,
1, 4, 3, 6, 5, 2, 1, 6, 3, 2, 5, 4, 1, 6, 3, 2, 5, 4),
9, 4, byrow = T)
} else if (all(selection == 36, type == "SR")) {
sequences <- matrix(c(1, 2, 3, 4, 5, 6, 7, 8, 2, 7, 8, 1, 6, 3, 4, 5, 3, 8,
1, 6, 7, 4, 5, 2, 4, 1, 6, 7, 8, 5, 2, 3), 8, 4,
byrow = T)
} else if (all(selection == "36a", type == "SR")) {
sequences <- matrix(c(2, 6, 3, 7, 4, 8, 7, 3, 8, 4, 1, 5, 8, 4, 1, 5, 6, 2,
1, 5, 6, 2, 7, 3), 4, 6, byrow = T)
} else if (all(selection == 37, type == "SR")) {
sequences <- matrix(c(1, 4, 6, 7, 3, 5, 6, 8, 2, 5, 7, 8, 1, 3, 6, 8, 1, 2,
4, 7, 2, 3, 4, 5, 1, 2, 3, 4, 1, 2, 3, 8, 3, 4, 5, 6,
4, 5, 6, 7, 1, 6, 7, 8, 2, 5, 7, 8), 12, 4, byrow = T)
} else if (all(selection == 41, type == "SR")) {
sequences <- matrix(c(1, 2, 3, 4, 7, 10, 5, 4, 6, 11, 9, 4, 1, 7, 6, 8, 11,
5, 2, 8, 10, 9, 3, 8, 1, 11, 10, 12, 9, 2, 7, 12, 5,
3, 6, 12), 9, 4, byrow = T)
} else if (all(selection == 42, type == "SR")) {
sequences <- matrix(c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 7, 8, 1, 10,
11, 12, 5, 2, 3, 4, 9, 6, 1, 6, 3, 12, 5, 10, 7, 4, 9,
2, 11, 8, 1, 2, 7, 12, 5, 6, 11, 4, 9, 10, 3, 8, 11,
4, 1, 10, 3, 8, 5, 2, 7, 12, 9, 6, 11, 8, 1, 6, 3, 12,
5, 10, 7, 4, 9, 2), 18, 4, byrow = T)
} else if (all(selection == 44, type == "SR")) {
sequences <- matrix(c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16,
1, 6, 11, 16, 2, 5, 12, 15, 3, 8, 9, 14, 4, 7, 10, 13,
1, 7, 12, 14, 2, 8, 11, 13, 3, 5, 10, 16, 4, 6, 9, 15,
1, 8, 10, 15, 2, 7, 9, 16, 3, 6, 12, 13, 4, 5, 11,
14), 16, 4, byrow = T)
} else if (all(selection == 46, type == "SR")) {
sequences <- matrix(c(1, 19, 20, 18, 1, 12, 10, 11, 6, 16, 17, 11, 16, 3,
18, 5, 7, 5, 2, 12, 4, 19, 6, 9, 8, 14, 9, 3, 14, 20,
7, 13, 15, 13, 4, 10, 15, 2, 8, 17, 1, 2, 3, 4, 1, 6,
7, 8, 19, 12, 14, 17, 12, 9, 18, 15, 20, 15, 5, 6, 13,
2, 19, 16, 10, 16, 9, 7, 10, 17, 3, 20, 18, 11, 13, 8,
11, 5, 4, 14, 1, 16, 14, 15, 9, 20, 11, 2, 13, 6, 12,
3, 17, 18, 7, 4, 5, 19, 8, 10), 25, 4, byrow = T)
} else if (all(selection == 52, type == "SR")) {
sequences <- matrix(c(1, 2, 3, 4, 5, 6, 7, 8, 9, 5, 1, 2, 8, 9, 10, 6, 7, 3,
4, 10, 1, 7, 3, 9, 5, 6, 2, 8, 4, 5, 1, 7, 8, 4, 10,
6, 2, 3, 9, 10), 8, 5, byrow = T)
} else if (all(selection == 53, type == "SR")) {
sequences <- matrix(c(6, 7, 3, 9, 10, 1, 7, 8, 4, 10, 6, 2, 8, 9, 5, 1, 7,
3, 9, 10, 1, 2, 8, 4, 10, 1, 2, 3, 9, 5, 6, 2, 3, 4,
10, 6, 7, 3, 4, 5, 6, 7, 8, 4, 5, 1, 7, 8, 9, 5, 6, 2,
8, 9, 10, 1, 2, 3, 4, 5), 12, 5, byrow = T)
} else if (all(selection == 54, type == "SR")) {
sequences <- matrix(c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 1, 2, 8, 9, 5, 6, 7, 3,
4, 10, 1, 2, 3, 4, 10, 6, 7, 8, 9, 5, 1, 2, 8, 9, 10,
6, 7, 3, 4, 5, 1, 7, 3, 9, 5, 6, 2, 8, 4, 10, 1, 7, 8,
4, 5, 6, 2, 3, 9, 10, 1, 7, 3, 9, 10, 6, 2, 8, 4, 5,
1, 7, 8, 4, 10, 6, 2, 3, 9, 5), 16, 5, byrow = T)
} else if (all(selection == 55, type == "SR")) {
sequences <- matrix(c(4, 2, 3, 1, 5, 6, 7, 3, 10, 4, 7, 1, 4, 5, 8, 2, 8, 6,
5, 9, 3, 9, 10, 7, 6, 8, 4, 10, 7, 1, 5, 9, 1, 8, 2,
1, 10, 9, 2, 3, 4, 3, 1, 2, 10, 5, 6, 2, 3, 4, 1, 7,
5, 4, 3, 6, 2, 8, 4, 5, 7, 3, 5, 9, 1, 2, 8, 4, 10, 6,
3, 5, 9, 6, 7, 8, 4, 7, 6, 10, 9, 5, 6, 8, 7, 9, 10,
7, 1, 8, 10, 1, 8, 9, 2, 10, 6, 2, 3, 9), 20, 5,
byrow = T)
} else if (all(selection == 56, type == "SR")) {
sequences <- matrix(c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 1,
7, 3, 14, 15, 6, 12, 8, 4, 5, 11, 2, 13, 9, 10, 1, 7,
13, 9, 5, 6, 12, 3, 14, 10, 11, 2, 8, 4, 15, 1, 2, 8,
14, 10, 6, 7, 13, 4, 15, 11, 12, 3, 9, 5, 1, 12, 13,
4, 10, 6, 2, 3, 9, 15, 11, 7, 8, 14, 5, 1, 12, 8, 9,
15, 6, 2, 13, 14, 5, 11, 7, 3, 4, 10), 18, 5,
byrow = T)
} else if (all(selection == 60, type == "SR")) {
sequences <- matrix(c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16,
17, 18, 19, 20, 21, 22, 23, 24, 25, 1, 7, 13, 19, 25,
2, 8, 14, 20, 21, 3, 9, 15, 16, 22, 4, 10, 11, 17, 23,
5, 6, 12, 18, 24, 1, 10, 14, 18, 22, 2, 6, 15, 19, 23,
3, 7, 11, 20, 24, 4, 8, 12, 16, 25, 5, 9, 13, 17, 21,
1, 9, 12, 20, 23, 2, 10, 13, 16, 24, 3, 6, 14, 17, 25,
4, 7, 15, 18, 21, 5, 8, 11, 19, 22, 1, 8, 15, 17, 24,
2, 9, 11, 18, 25, 3, 10, 12, 19, 21, 4, 6, 13, 20, 22,
5, 7, 14, 16, 23), 25, 5, byrow = T)
} else if (all(selection == 65, type == "SR")) {
sequences <- matrix(c(1, 2, 3, 5, 6, 4, 8, 1, 2, 3, 9, 7, 4, 9, 7, 8, 5, 6,
6, 7, 1, 9, 2, 5, 3, 4, 5, 1, 8, 9, 2, 6, 4, 7, 3, 8,
9, 8, 6, 2, 4, 1, 7, 5, 8, 6, 1, 3, 5, 3, 9, 4, 7, 2),
9, 6, byrow = T)
} else if (all(selection == 66, type == "SR")) {
sequences <- matrix(c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 5, 6, 1, 2, 9, 10, 11,
12, 7, 8, 3, 4, 11, 12, 10, 5, 12, 1, 8, 3, 4, 5, 12,
7, 2, 9, 4, 11, 6, 1, 8, 9, 10, 11, 6, 7, 2, 3), 8, 6,
byrow = T)
} else if (all(selection == 67, type == "SR")) {
sequences <- matrix(c(7, 8, 10, 11, 3, 12, 8, 9, 11, 12, 1, 4, 9, 10, 12, 5,
7, 2, 10, 11, 6, 1, 8, 3, 11, 12, 1, 2, 4, 9, 12, 1,
2, 3, 5, 10, 2, 3, 4, 7, 11, 6, 3, 4, 5, 8, 12, 7, 4,
5, 7, 6, 9, 8, 5, 6, 8, 9, 10, 1, 6, 7, 9, 10, 2, 11,
1, 2, 3, 4, 6, 5), 12, 6, byrow = T)
} else if (all(selection == 68, type == "SR")) {
sequences <- matrix(c(1, 4, 2, 5, 3, 6, 4, 8, 12, 9, 11, 1, 2, 5, 9, 10, 7,
12, 11, 3, 6, 7, 10, 8, 7, 2, 8, 3, 1, 9, 5, 12, 11,
1, 6, 7, 10, 6, 4, 8, 12, 2, 9, 10, 5, 11, 4, 3, 3, 1,
10, 12, 2, 11, 8, 9, 1, 6, 5, 10, 6, 11, 7, 2, 9, 4,
12, 7, 3, 4, 8, 5), 12, 6, byrow = T)
} else if (all(selection == 72, type == "SR")) {
sequences <- matrix(c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16,
17, 18, 2, 9, 16, 11, 18, 1, 8, 15, 4, 17, 6, 7, 14,
3, 10, 5, 12, 13, 3, 16, 17, 12, 1, 8, 9, 4, 5, 18, 7,
14, 15, 10, 11, 6, 13, 2, 4, 11, 12, 1, 14, 15, 10,
17, 18, 7, 2, 3, 16, 5, 6, 13, 8, 9, 5, 18, 1, 8, 15,
10, 11, 6, 7, 14, 3, 16, 17, 12, 13, 2, 9, 4, 6, 1,
14, 9, 10, 17, 12, 7, 2, 16, 15, 5, 18, 13, 8, 3, 4,
11), 18, 6, byrow = T)
} else if (all(selection == 73, type == "SR")) {
sequences <- matrix(c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16,
17, 18, 1, 2, 3, 10, 11, 12, 7, 8, 9, 16, 17, 18, 13,
14, 15, 4, 5, 6, 1, 2, 3, 16, 17, 18, 7, 8, 9, 4, 5,
6, 13, 14, 15, 10, 11, 12, 15, 4, 11, 18, 1, 8, 3, 10,
17, 6, 7, 14, 9, 16, 5, 12, 13, 2, 15, 10, 17, 6, 1,
8, 3, 16, 5, 12, 7, 14, 9, 4, 11, 18, 13, 2, 15, 16,
5, 12, 1, 8, 3, 4, 11, 18, 7, 14, 9, 10, 17, 6, 13, 2,
17, 12, 1, 14, 9, 4, 5, 18, 7, 2, 15, 10, 11, 6, 13,
8, 3, 16, 5, 18, 1, 14, 9, 10, 11, 6, 7, 2, 15, 16,
17, 12, 13, 8, 3, 4, 11, 6, 1, 14, 9, 16, 17, 12, 7,
2, 15, 4, 5, 18, 13, 8, 3, 10), 27, 6, byrow = T)
} else if (all(selection == 75, type == "SR")) {
sequences <- matrix(c(5, 8, 9, 22, 24, 25, 6, 9, 10, 23, 1, 26, 7, 10, 11,
24, 2, 27, 8, 11, 12, 1, 3, 28, 9, 12, 13, 2, 4, 29,
10, 13, 14, 3, 5, 30, 11, 14, 15, 4, 6, 25, 12, 15,
16, 5, 7, 26, 13, 16, 17, 6, 8, 27, 14, 17, 18, 7, 9,
28, 15, 18, 19, 8, 10, 29, 16, 19, 20, 9, 11, 30, 17,
20, 21, 10, 12, 25, 18, 21, 22, 11, 13, 26, 19, 22,
23, 12, 14, 27, 20, 23, 24, 13, 15, 28, 21, 24, 1, 14,
16, 29, 22, 1, 2, 15, 17, 30, 23, 2, 3, 16, 18, 25,
24, 3, 4, 17, 19, 26, 1, 4, 5, 18, 20, 27, 2, 5, 6,
19, 21, 28, 3, 6, 7, 20, 22, 29, 4, 7, 8, 21, 23, 30,
25, 26, 27, 28, 29, 30), 25, 6, byrow = T)
} else if (all(selection == 80, type == "SR")) {
sequences <- matrix(c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 5, 6, 7, 1, 2, 10,
11, 12, 13, 7, 8, 9, 3, 4, 12, 13, 7, 1, 9, 3, 11, 5,
13, 14, 8, 2, 10, 4, 5, 13, 14, 1, 9, 10, 4, 12, 6,
14, 8, 2, 3, 11, 12, 6, 14), 8, 7, byrow = T)
} else if (all(selection == 81, type == "SR")) {
sequences <- matrix(c(8, 9, 3, 11, 12, 13, 7, 1, 9, 10, 4, 12, 13, 14, 8, 2,
10, 11, 5, 13, 14, 1, 9, 3, 11, 12, 6, 14, 1, 2, 10,
4, 12, 13, 7, 1, 2, 3, 11, 5, 13, 14, 8, 2, 3, 4, 12,
6, 14, 8, 9, 3, 4, 5, 13, 7, 8, 9, 10, 4, 5, 6, 14, 1,
9, 10, 11, 5, 6, 7, 8, 2, 10, 11, 12, 6, 7, 1, 2, 3,
4, 5, 6, 7), 12, 7, byrow = T)
} else if (all(selection == 82, type == "SR")) {
sequences <- matrix(c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 5, 6, 7, 1, 2, 10,
11, 12, 13, 7, 8, 9, 3, 4, 12, 13, 7, 1, 9, 3, 11, 5,
13, 14, 8, 2, 10, 4, 5, 13, 14, 1, 9, 10, 4, 12, 6,
14, 8, 2, 3, 11, 12, 6, 14, 1, 2, 3, 4, 5, 6, 7, 8, 9,
10, 11, 5, 6, 7, 1, 2, 10, 11, 12, 13, 7, 8, 9, 3, 4,
12, 13, 7, 1, 9, 3, 11, 5, 13, 14, 8, 2, 10, 4, 5, 13,
14, 1, 9, 10, 4, 12, 6, 14, 8, 2, 3, 11, 12, 6, 14),
16, 7, byrow = T)
} else if (all(selection == 90, type == "SR")) {
sequences <- matrix(c(1, 3, 8, 6, 2, 5, 7, 4, 1, 7, 4, 10, 6, 5, 11, 12, 1,
11, 12, 2, 10, 5, 3, 8, 9, 7, 12, 6, 2, 1, 11, 8, 9,
11, 8, 10, 6, 1, 3, 4, 9, 3, 4, 2, 10, 1, 7, 12, 5,
11, 4, 6, 2, 9, 3, 12, 5, 3, 12, 10, 6, 9, 7, 8, 5, 7,
8, 2, 10, 9, 11, 4), 9, 8, byrow = T)
} else if (all(selection == 91, type == "SR")) {
sequences <- matrix(c(9, 10, 3, 12, 13, 14, 7, 8, 13, 10, 14, 15, 1, 11, 4,
8, 9, 2, 11, 12, 5, 14, 15, 16, 1, 10, 3, 12, 13, 6,
15, 16, 1, 2, 11, 4, 13, 14, 7, 16, 1, 2, 3, 14, 5,
12, 15, 8, 13, 6, 15, 16, 9, 2, 3, 4, 5, 14, 4, 16, 9,
10, 3, 7, 9, 4, 15, 8, 5, 10, 11, 6, 5, 11, 7, 16, 1,
10, 6, 12, 13, 6, 7, 8, 9, 2, 11, 12, 5, 6, 7, 8, 1,
2, 3, 4), 12, 8, byrow = T)
} else if (all(selection == 92, type == "SR")) {
sequences <- matrix(c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16,
10, 3, 12, 5, 14, 7, 16, 1, 2, 11, 4, 13, 6, 15, 8, 9,
11, 12, 5, 6, 15, 16, 1, 2, 3, 4, 13, 14, 7, 8, 9, 10,
4, 5, 14, 15, 8, 1, 10, 11, 12, 13, 6, 7, 16, 9, 2, 3,
13, 14, 15, 16, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12,
6, 15, 8, 1, 10, 3, 12, 13, 14, 7, 16, 9, 2, 11, 4, 5,
7, 8, 1, 2, 11, 12, 13, 14, 15, 16, 9, 10, 3, 4, 5, 6,
16, 1, 10, 11, 4, 13, 6, 7, 8, 9, 2, 3, 12, 5, 14,
15), 16, 8, byrow = T)
} else if (all(selection == 93, type == "SR")) {
sequences <- matrix(c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 3, 4, 13, 14, 15, 16,
14, 10, 11, 4, 5, 1, 15, 16, 9, 15, 11, 12, 5, 6, 2,
16, 9, 10, 3, 12, 13, 6, 7, 16, 1, 10, 11, 13, 4, 14,
7, 8, 1, 2, 11, 12, 5, 14, 15, 8, 1, 2, 16, 12, 13, 6,
15, 3, 1, 2, 3, 4, 13, 14, 7, 16, 9, 2, 3, 4, 5, 14,
15, 8, 5, 10, 15, 16, 1, 6, 3, 4, 5, 6, 11, 16, 9, 2,
7, 4, 5, 6, 7, 8, 1, 10, 3, 12, 9, 6, 7, 8, 13, 2, 11,
4, 5, 14, 7, 12, 9, 10, 3, 8, 13, 6, 15, 8, 9, 10, 11,
4, 5, 14, 7, 16, 9, 10, 11, 12, 13, 6, 15, 8, 1, 10,
11, 12, 13, 14, 7, 16, 1, 2, 11, 12, 13, 14, 15, 8, 9,
2, 3, 12), 20, 8, byrow = T)
} else if (all(selection == 94, type == "SR")) {
sequences <- matrix(c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16,
17, 18, 19, 20, 21, 22, 23, 24, 1, 2, 3, 12, 13, 14,
23, 24, 9, 10, 11, 20, 21, 22, 7, 8, 17, 18, 19, 4, 5,
6, 15, 16, 1, 2, 3, 20, 21, 22, 15, 16, 9, 10, 11, 4,
5, 6, 23, 24, 17, 18, 19, 12, 13, 14, 7, 8, 1, 10, 19,
4, 13, 22, 7, 16, 9, 18, 3, 12, 21, 6, 15, 24, 17, 2,
11, 20, 5, 14, 23, 8, 1, 10, 19, 12, 21, 6, 23, 8, 9,
18, 3, 20, 5, 14, 7, 16, 17, 2, 11, 4, 13, 22, 15, 24,
1, 10, 19, 20, 5, 14, 15, 24, 9, 18, 3, 4, 13, 22, 23,
8, 17, 2, 11, 12, 21, 6, 7, 16, 1, 18, 11, 4, 21, 14,
7, 24, 9, 2, 19, 12, 5, 22, 15, 8, 17, 10, 3, 20, 13,
6, 23, 16, 1, 18, 11, 12, 5, 22, 23, 16, 9, 2, 19, 20,
13, 6, 7, 24, 17, 10, 3, 4, 21, 14, 15, 8, 1, 18, 11,
20, 13, 6, 15, 8, 9, 2, 19, 4, 21, 14, 23, 16, 17, 10,
3, 12, 5, 22, 7, 24), 27, 8, byrow = T)
} else if (all(selection == 99, type == "SR")) {
sequences <- matrix(c(10, 11, 3, 9, 8, 15, 7, 14, 13, 1, 16, 12, 4, 14, 8,
11, 15, 9, 10, 2, 12, 13, 5, 15, 16, 17, 9, 1, 11, 6,
13, 14, 3, 16, 17, 18, 17, 14, 15, 7, 4, 12, 1, 2, 18,
13, 5, 15, 16, 2, 18, 1, 8, 3, 4, 14, 6, 16, 17, 9,
10, 2, 3, 4, 5, 3, 7, 17, 18, 10, 11, 15, 16, 8, 18,
10, 11, 5, 4, 12, 6, 13, 17, 9, 1, 11, 12, 7, 5, 6, 7,
8, 18, 10, 2, 6, 13, 14, 12, 7, 2, 9, 1, 6, 3, 4, 5,
8), 12, 9, byrow = T)
} else if (all(selection == 100, type == "SR")) {
sequences <- matrix(c(1, 2, 3, 4, 5, 6, 7, 8, 9, 1, 2, 3, 4, 14, 15, 7, 17,
18, 1, 2, 3, 13, 5, 15, 16, 8, 18, 1, 2, 3, 13, 14, 6,
16, 17, 9, 1, 11, 12, 4, 5, 6, 7, 17, 18, 1, 11, 12,
4, 14, 15, 7, 8, 9, 1, 11, 12, 13, 5, 15, 16, 17, 9,
1, 11, 12, 13, 14, 6, 16, 8, 18, 10, 2, 12, 4, 5, 6,
16, 8, 18, 10, 2, 12, 4, 14, 15, 16, 17, 9, 10, 2, 12,
13, 5, 15, 7, 8, 9, 10, 2, 12, 13, 14, 6, 7, 17, 18,
10, 11, 3, 4, 5, 6, 16, 17, 9, 10, 11, 3, 4, 14, 15,
16, 8, 18, 10, 11, 3, 13, 5, 15, 7, 17, 18, 10, 11, 3,
13, 14, 6, 7, 8, 9), 16, 9, byrow = T)
} else if (all(selection == 106, type == "SR")) {
sequences <- matrix(c(11, 12, 3, 14, 15, 16, 7, 8, 9, 20, 16, 12, 13, 4, 15,
1, 17, 8, 9, 10, 11, 2, 13, 17, 5, 16, 14, 18, 9, 10,
1, 12, 3, 14, 15, 6, 17, 18, 19, 10, 1, 2, 13, 4, 16,
15, 7, 18, 19, 20, 1, 2, 3, 14, 5, 16, 17, 8, 19, 20,
4, 17, 18, 9, 20, 11, 2, 3, 6, 15, 16, 7, 18, 19, 10,
11, 12, 3, 4, 5, 11, 17, 8, 19, 20, 6, 12, 13, 4, 5,
6, 7, 18, 9, 20, 1, 12, 13, 14, 5, 6, 7, 8, 19, 10,
11, 2, 13, 14, 15, 6, 5, 8, 9, 10, 1, 2, 3, 4, 7), 12,
10, byrow = T)
} else if (all(selection == 109, type == "SR")) {
sequences <- matrix(c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16,
17, 18, 19, 10, 21, 22, 23, 24, 25, 26, 27, 28, 29,
10, 1, 2, 3, 14, 15, 16, 27, 28, 29, 20, 11, 12, 13,
24, 25, 26, 7, 8, 9, 20, 21, 22, 23, 4, 5, 6, 17, 18,
19, 20, 1, 2, 3, 24, 25, 26, 17, 18, 19, 30, 11, 12,
13, 4, 5, 6, 27, 28, 29, 30, 21, 22, 23, 14, 15, 16,
7, 8, 9, 30, 1, 12, 23, 4, 15, 26, 7, 18, 29, 10, 11,
22, 3, 14, 25, 6, 17, 28, 9, 10, 21, 2, 13, 24, 5, 16,
27, 8, 19, 10, 1, 12, 23, 14, 25, 6, 27, 8, 19, 20,
11, 22, 3, 24, 5, 16, 7, 18, 29, 20, 21, 2, 13, 4, 15,
26, 17, 28, 9, 20, 1, 12, 23, 24, 5, 16, 17, 28, 9,
30, 11, 22, 3, 4, 15, 26, 27, 8, 19, 30, 21, 2, 13,
14, 25, 6, 7, 18, 29, 30, 1, 22, 13, 4, 25, 16, 7, 28,
19, 10, 11, 2, 23, 14, 5, 26, 17, 8, 29, 10, 21, 12,
3, 24, 15, 6, 27, 18, 9, 10, 1, 22, 13, 14, 5, 26, 27,
18, 9, 20, 11, 2, 23, 24, 15, 6, 7, 28, 19, 20, 21,
12, 3, 4, 25, 16, 17, 8, 29, 20, 1, 22, 13, 24, 15, 6,
17, 8, 29, 30, 11, 2, 23, 4, 25, 16, 27, 18, 9, 30,
21, 12, 3, 14, 5, 26, 7, 28, 19, 30), 27, 10,
byrow = T)
}
if (summary) {
message("...completed the design specification. Preparing outputs...")
}
D <- length(unique(as.vector(sequences)))
if (!missing(labels)) {
check_labels(labels, D)
} else {
labels <- 0:(D - 1)
}
sequences <- convert_labels(sequences, D, labels, 1:D)
sequences <- transform_to_xover(sequences, labels, as_matrix)
##### Outputting #############################################################
if (summary) {
message("...outputting.")
}
return(sequences)
}
mjg211/xover documentation built on Oct. 16, 2019, 10:46 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 seq_clatworthy
Documented in seq_clatworthy
#' Clatworthy (1973) cross-over design specification
#'
#' Specifies cross-over designs from Clatworthy (1973).
#'
#' \code{seq_clatworthy()} supports the specification of designs from
#' Clatworthy (1973). Designs for a large array of values of the number of
#' treatments and periods are available (accessible by setting \code{selection}
#' and \code{type} carefully), for any chosen treatment labels (see
#' \code{labels}). In addition, the designs can be returned in
#' \code{\link[base]{matrix}} or \code{\link[tibble]{tibble}} form (see
#' \code{as_matrix}).
#'
#' Precisely, \code{type} must be set as one of \code{"R"}, \code{"S"}, and
#' \code{"SR"}. Then, \code{selection} can take one of a particular set of
#' \code{\link[base]{numeric}} or \code{\link[base]{character}} values. The best
#' way to ascertain which values are allowed is to use the utility function
#' \code{\link[xover]{summary_seq_clatworthy}}. Ultimately, the
#' \ifelse{html}{\out{(<i>k</i>,<i>j</i>)}}{\eqn{(k,j)}}th element of the
#' cross-over design matrix corresponds to the treatment a subject on the
#' \ifelse{html}{\out{<i>k</i>}}{\eqn{k}}th sequence would receive in the
#' \ifelse{html}{\out{<i>j</i>}}{\eqn{j}}th period.
#'
#' @param type A \code{\link[base]{character}} string indicating which type of
#' sequences to return. Must be one of \code{"R"}, \code{"S"}, and \code{"SR"}.
#' Defaults to \code{"R"}.
#' @param selection A \code{\link[base]{numeric}} integer or
#' \code{\link[base]{character}} string indicating which design to return, for
#' the chosen value of \code{type}. See \strong{Details} for information on how
#' to ascertain supported values. Defaults to \code{1}.
#' @param labels A \code{\link[base]{vector}} of labels for the treatments.
#' If specified, should have \code{\link[base]{length}} corresponding to the
#' number of treatments in the chosen design, containing unique elements. If
#' missing, will internally default to \code{0:(D - 1)}, where \code{D} is the
#' number of treatments.
#' @param as_matrix A \code{\link[base]{logical}} variable indicating whether
#' the design should be returned as a \code{\link[base]{matrix}}, or a
#' \code{\link[tibble]{tibble}}. Defaults to \code{T}.
#' @param summary A \code{\link[base]{logical}} variable indicating whether a
#' summary of the function's progress should be printed to the console. Defaults
#' to \code{T}.
#' @return Either a \code{\link[base]{matrix}} if \code{as_matrix = T} (with
#' rows corresponding to sequences and columns to periods), or a
#' \code{\link[tibble]{tibble}} if \code{as_matrix = F} (with rows corresponding
#' to a particular period on a particular sequence). In either case, the
#' returned object will have class \code{xover_seq}.
#' @examples
#' # A selection of designs for four treatments from Clatworthy (1973)
#' clatworthy1 <- seq_clatworthy()
#' clatworthy2 <- seq_clatworthy(selection = 2)
#' clatworthy3 <- seq_clatworthy(selection = 3)
#' clatworthy4 <- seq_clatworthy(selection = 4)
#' # Using different labels
#' clatworthy1_ABCD <- seq_clatworthy(labels = LETTERS[1:4])
#' clatworthy2_ABCD <- seq_clatworthy(selection = 2, labels = LETTERS[1:4])
#' clatworthy3_ABCD <- seq_clatworthy(selection = 3, labels = LETTERS[1:4])
#' clatworthy4_ABCD <- seq_clatworthy(selection = 4, labels = LETTERS[1:4])
#' # Returning in tibble form
#' clatworthy1_tibble <- seq_clatworthy(as_matrix = F)
#' clatworthy2_tibble <- seq_clatworthy(selection = 2, as_matrix = F)
#' clatworthy3_tibble <- seq_clatworthy(selection = 3, as_matrix = F)
#' clatworthy4_tibble <- seq_clatworthy(selection = 4, as_matrix = F)
#' @references Clatworthy WH, Cameron JM, Speckman JA (1973) Tables of
#' two-associate-class partially balanced designs. \emph{US Government Printing
#' Office}.
#' @author Based on data from the \code{\link[Crossover]{Crossover}} package by
#' Kornelius Rohmeyer.
#' @export
seq_clatworthy <- function(type = "R", selection = 1, labels, as_matrix = T,
summary = T) {
##### Input checking #########################################################
check_type(type)
if (type == "R") {
if (!(any(selection %in%
c(1, 2, 3, 4, 5, 6, 7, 10, 13, 15, 16, 17, 18, 19, 20, 21, 22,
24, 25, 26, 27, 29, 30, 31, 32, 34, 35, 36, 37, 38, 39, 40,
41, 42, 43, 44, 45, 46, 47, 48, 50, 51, 52, 54, 56, 58, 59,
60, 61, 62, 63, 65, 66, 67, 68, 69, 70, 71, 72, 73, 75, 78,
79, 80, 81, 82, 84, 85, 86, 89, 91, 93, 94, 95, 96, 97, 98,
101, 103, 104, 106, 109, 111, 112, 114, 115, 117, 118, 119,
133, 134, 137, 139, 140, 143, 144, 145, 150, 153, 164, 165,
169, 170, 171, 172, 175, 176, 177, 186, 193, 203),
selection == "153a"))) {
stop("For type = \"R\" selection must be one of 1-7, 10, 13, 15-22, ",
"24-27, 29-32, 34-48, 50-52, 54, 56, 58-63, 65-73, 75, 78-82, ",
"84-86, 89, 91, 93-98, 101, 103, 104, 106, 109, 111, 112, 114, 115,",
" 117-119, 133, 134, 137, 139, 140, 143-145, 150, 153, 153a, 164,",
" 165, 169, 170-172, 175-177, 186, 193, or 203")
}
} else if (type == "S") {
if (!(selection %in%
c(1, 3, 6, 7, 9, 11, 18, 21, 24, 26, 27, 28, 29, 31, 32, 34, 35, 37,
38, 51, 52, 53, 58, 59, 61, 63, 65, 66, 67, 82, 85, 86, 88, 91,
98, 101, 106, 110, 116))) {
stop("For type = \"S\" selection must be one of 1, 3, 6, 7, 9, 11, 18, ",
"21, 24, 26-29, 31, 32, 34, 35, 37, 38, 51-53, 58, 59, 61, 63, ",
"65-67, 82, 85, 86, 88, 91, 98, 101, 106, 110, or 116")
}
} else {
if (!(any(selection %in%
c(1, 3, 6, 7, 9, 11, 18, 19, 23, 24, 25, 26, 35, 36, 37, 41, 42,
44, 46, 52, 53, 54, 55, 56, 60, 65, 66, 67, 68, 72, 73, 75,
80, 81, 82, 90, 91, 92, 93, 94, 99, 100, 106, 109),
selection == "36a"))) {
stop("For type = \"SR\" selection must be one of 1, 3, 6, 7, 9, 11, 18,",
" 19, 23-26, 35, 36, 36a, 37, 41, 42, 44, 46, 52-56, 60, 65-68, 72,",
" 73, 75, 80-82, 90-94, 99, 100, 106, or 109")
}
}
check_logical(as_matrix, "as_matrix")
check_logical(summary, "summary")
##### Main computations ######################################################
if (summary) {
message(" Beginning the design specification...")
}
if (all(selection == 1, type == "R")) {
sequences <- matrix(c(1, 3, 2, 4, 2, 4, 1, 3, 1, 2, 3, 4, 1, 4, 2, 3), 8, 2,
byrow = T)
} else if (all(selection == 2, type == "R")) {
sequences <- matrix(c(1, 3, 2, 4, 1, 2, 3, 4, 1, 3, 2, 4, 1, 4, 2, 3, 1, 3,
2, 4), 10, 2, byrow = T)
} else if (all(selection == 3, type == "R")) {
sequences <- matrix(c(1, 3, 2, 4, 1, 4, 2, 3, 1, 2, 3, 4, 1, 4, 2, 3, 1, 2,
3, 4), 10, 2, byrow = T)
} else if (all(selection == 4, type == "R")) {
sequences <- matrix(c(1, 3, 2, 4, 1, 3, 2, 4, 1, 3, 2, 4, 1, 2, 3, 4, 1, 3,
2, 4, 1, 4, 2, 3), 12, 2, byrow = T)
} else if (all(selection == 5, type == "R")) {
sequences <- matrix(c(1, 3, 2, 4, 1, 3, 2, 4, 1, 3, 2, 4, 1, 2, 3, 4, 1, 3,
2, 4, 1, 4, 2, 3, 1, 3, 2, 4), 14, 2, byrow = T)
} else if (all(selection == 6, type == "R")) {
sequences <- matrix(c(1, 3, 2, 4, 1, 2, 3, 4, 1, 3, 2, 4, 1, 4, 2, 3, 1, 3,
2, 4, 1, 4, 2, 3, 1, 2, 3, 4), 14, 2, byrow = T)
} else if (all(selection == 7, type == "R")) {
sequences <- matrix(c(1, 3, 2, 4, 1, 4, 2, 3, 1, 2, 3, 4, 1, 4, 2, 3, 1, 2,
3, 4, 1, 4, 2, 3, 1, 2, 3, 4), 14, 2, byrow = T)
} else if (all(selection == 10, type == "R")) {
sequences <- matrix(c(1, 3, 2, 4, 1, 2, 3, 4, 1, 3, 2, 4, 1, 4, 2, 3, 1, 2,
3, 4, 1, 4, 2, 3, 1, 2, 3, 4, 1, 4, 2, 3), 16, 2,
byrow = T)
} else if (all(selection == 13, type == "R")) {
sequences <- matrix(c(1, 3, 2, 4, 1, 2, 3, 4, 1, 4, 2, 3, 1, 2, 3, 4, 1, 2,
3, 4, 1, 4, 2, 3, 1, 2, 3, 4, 1, 4, 2, 3, 1, 4, 2, 3),
18, 2, byrow = T)
} else if (all(selection == 15, type == "R")) {
sequences <- matrix(c(1, 3, 2, 4, 1, 3, 2, 4, 1, 4, 2, 3, 1, 3, 2, 4, 1, 3,
2, 4, 1, 4, 2, 3, 1, 3, 2, 4, 1, 2, 3, 4, 1, 3, 2, 4,
1, 2, 3, 4), 20, 2, byrow = T)
} else if (all(selection == 16, type == "R")) {
sequences <- matrix(c(1, 3, 2, 4, 1, 2, 3, 4, 1, 4, 2, 3, 1, 3, 2, 4, 1, 2,
3, 4, 1, 4, 2, 3, 1, 3, 2, 4, 1, 2, 3, 4, 1, 3, 2, 4,
1, 4, 2, 3), 20, 2, byrow = T)
} else if (all(selection == 17, type == "R")) {
sequences <- matrix(c(1, 3, 2, 4, 1, 2, 3, 4, 1, 4, 2, 3, 1, 3, 2, 4, 1, 2,
3, 4, 1, 4, 2, 3, 1, 2, 3, 4, 1, 4, 2, 3, 1, 2, 3, 4,
1, 4, 2, 3), 20, 2, byrow = T)
} else if (all(selection == 18, type == "R")) {
sequences <- matrix(c(1, 2, 3, 5, 4, 6, 1, 3, 2, 4, 5, 6, 1, 5, 2, 6, 3, 4,
1, 6, 2, 3, 4, 5), 12, 2, byrow = T)
} else if (all(selection == 19, type == "R")) {
sequences <- matrix(c(1, 4, 2, 5, 3, 6, 1, 3, 2, 6, 4, 5, 1, 4, 2, 5, 3, 6,
1, 5, 2, 3, 4, 6, 1, 2, 3, 4, 5, 6, 1, 6, 2, 4, 3, 5),
18, 2, byrow = T)
} else if (all(selection == 20, type == "R")) {
sequences <- matrix(c(1, 3, 2, 4, 5, 6, 3, 5, 2, 6, 1, 4, 1, 3, 2, 6, 4, 5,
3, 5, 4, 6, 1, 2, 1, 5, 2, 4, 3, 6, 1, 6, 2, 5, 3, 4,
1, 5, 4, 6, 2, 3), 21, 2, byrow = T)
} else if (all(selection == 21, type == "R")) {
sequences <- matrix(c(1, 4, 2, 5, 3, 6, 1, 3, 2, 6, 4, 5, 1, 4, 2, 5, 3, 6,
1, 5, 2, 3, 4, 6, 1, 4, 2, 5, 3, 6, 1, 6, 2, 4, 3, 5,
1, 2, 3, 4, 5, 6), 21, 2, byrow = T)
} else if (all(selection == 22, type == "R")) {
sequences <- matrix(c(1, 4, 2, 5, 3, 6, 1, 2, 3, 5, 4, 6, 1, 4, 2, 5, 3, 6,
1, 3, 2, 4, 5, 6, 1, 4, 2, 5, 3, 6, 1, 5, 2, 6, 3, 4,
1, 4, 2, 5, 3, 6, 1, 6, 2, 3, 4, 5), 24, 2, byrow = T)
} else if (all(selection == 24, type == "R")) {
sequences <- matrix(c(1, 2, 3, 6, 5, 4, 1, 5, 2, 6, 3, 4, 1, 4, 3, 2, 5, 6,
1, 2, 3, 5, 4, 6, 1, 6, 3, 4, 2, 5, 1, 4, 2, 5, 3, 6,
1, 3, 2, 4, 5, 6, 1, 6, 2, 3, 4, 5), 24, 2, byrow = T)
} else if (all(selection == 25, type == "R")) {
sequences <- matrix(c(1, 3, 2, 4, 5, 6, 1, 3, 2, 5, 4, 6, 1, 3, 2, 6, 4, 5,
1, 5, 2, 4, 3, 6, 1, 6, 2, 4, 3, 5, 1, 5, 2, 6, 3, 4,
1, 2, 3, 5, 4, 6, 1, 5, 2, 3, 4, 6, 1, 4, 2, 6, 3, 5),
27, 2, byrow = T)
} else if (all(selection == 26, type == "R")) {
sequences <- matrix(c(1, 4, 2, 5, 3, 6, 1, 4, 2, 5, 3, 6, 1, 3, 2, 4, 5, 6,
1, 4, 2, 5, 3, 6, 1, 4, 2, 5, 3, 6, 1, 5, 2, 6, 3, 4,
1, 4, 2, 5, 3, 6, 1, 2, 3, 5, 4, 6, 1, 6, 2, 3, 4, 5),
27, 2, byrow = T)
} else if (all(selection == 27, type == "R")) {
sequences <- matrix(c(1, 4, 2, 5, 3, 6, 1, 3, 2, 4, 5, 6, 1, 5, 2, 6, 3, 4,
1, 2, 3, 5, 4, 6, 1, 3, 2, 4, 5, 6, 1, 6, 2, 3, 4, 5,
1, 2, 3, 5, 4, 6, 1, 5, 2, 6, 3, 4, 1, 6, 2, 3, 4, 5),
27, 2, byrow = T)
} else if (all(selection == 29, type == "R")) {
sequences <- matrix(c(1, 2, 3, 5, 4, 7, 6, 8, 1, 6, 2, 4, 3, 8, 5, 7, 1, 3,
2, 7, 4, 6, 5, 8, 1, 7, 2, 8, 3, 6, 4, 5, 1, 4, 2, 3,
5, 6, 7, 8, 1, 8, 2, 5, 3, 4, 6, 7), 24, 2, byrow = T)
} else if (all(selection == 30, type == "R")) {
sequences <- matrix(c(1, 8, 2, 5, 3, 7, 4, 6, 1, 7, 2, 6, 3, 5, 4, 8, 1, 3,
2, 7, 5, 4, 6, 8, 1, 2, 3, 7, 4, 8, 5, 6, 1, 6, 2, 3,
4, 7, 5, 8, 1, 4, 2, 8, 3, 6, 5, 7, 1, 5, 2, 6, 3, 4,
7, 8, 1, 5, 2, 4, 6, 7, 3, 8), 32, 2, byrow = T)
} else if (all(selection == 31, type == "R")) {
sequences <- matrix(c(1, 5, 2, 6, 3, 7, 4, 8, 1, 6, 2, 3, 4, 7, 5, 8, 1, 2,
3, 7, 4, 8, 5, 6, 1, 8, 2, 5, 3, 7, 4, 6, 1, 5, 2, 6,
3, 4, 7, 8, 1, 4, 2, 8, 3, 6, 5, 7, 1, 3, 2, 7, 4, 5,
6, 8, 1, 7, 2, 6, 3, 5, 4, 8, 1, 5, 2, 4, 3, 8, 6, 7),
36, 2, byrow = T)
} else if (all(selection == 32, type == "R")) {
sequences <- matrix(c(1, 2, 3, 8, 5, 6, 7, 4, 1, 3, 5, 7, 2, 4, 6, 8, 1, 7,
3, 5, 2, 8, 4, 6, 1, 4, 3, 2, 5, 8, 7, 6, 1, 3, 5, 7,
2, 4, 6, 8, 1, 7, 3, 5, 2, 8, 4, 6, 1, 6, 3, 4, 5, 2,
7, 8, 1, 5, 3, 7, 2, 6, 4, 8, 1, 8, 3, 6, 5, 4, 7, 2,
1, 5, 3, 7, 2, 6, 4, 8), 40, 2, byrow = T)
} else if (all(selection == 34, type == "R")) {
sequences <- matrix(c(1, 2, 3, 1, 2, 3, 4, 9, 6, 4, 9, 5, 5, 7, 8, 6, 7, 8,
1, 9, 5, 1, 2, 6, 9, 2, 3, 8, 6, 7, 7, 3, 8, 4, 4, 5,
1, 6, 4, 2, 3, 4, 5, 3, 7, 9, 2, 7, 8, 1, 6, 5, 9, 8),
27, 2, byrow = T)
} else if (all(selection == 35, type == "R")) {
sequences <- matrix(c(1, 9, 4, 1, 2, 5, 3, 6, 9, 2, 5, 7, 6, 8, 7, 3, 8, 4,
1, 4, 7, 1, 4, 2, 2, 5, 3, 8, 9, 3, 5, 6, 6, 7, 8, 9,
1, 5, 8, 1, 2, 8, 7, 2, 3, 4, 5, 3, 4, 7, 6, 9, 9, 6,
2, 1, 1, 6, 3, 9, 8, 2, 6, 3, 4, 5, 5, 8, 7, 4, 9, 7,
1, 3, 7, 1, 2, 6, 3, 2, 9, 5, 6, 4, 4, 9, 5, 8, 8, 7),
45, 2, byrow = T)
} else if (all(selection == 36, type == "R")) {
sequences <- matrix(c(1, 2, 3, 9, 4, 7, 5, 8, 6, 10, 1, 7, 2, 10, 3, 4, 5,
6, 8, 9, 1, 3, 2, 6, 4, 5, 7, 9, 8, 10, 1, 8, 2, 3, 4,
10, 5, 9, 6, 7, 1, 4, 2, 8, 3, 6, 5, 7, 9, 10, 1, 9,
2, 4, 3, 5, 6, 8, 7, 10, 1, 5, 2, 9, 3, 10, 4, 6, 7,
8, 1, 10, 2, 5, 3, 7, 4, 8, 6, 9), 40, 2, byrow = T)
} else if (all(selection == 37, type == "R")) {
sequences <- matrix(c(1, 6, 2, 7, 3, 8, 4, 9, 5, 10, 1, 4, 2, 5, 3, 6, 7,
10, 8, 9, 1, 9, 2, 3, 4, 10, 5, 7, 6, 8, 1, 6, 2, 7,
3, 8, 4, 9, 5, 10, 1, 5, 2, 8, 3, 10, 4, 6, 7, 9, 1,
10, 2, 4, 3, 5, 6, 9, 7, 8, 1, 2, 3, 7, 4, 8, 5, 9, 6,
10, 1, 7, 2, 9, 3, 4, 5, 6, 8, 10, 1, 3, 2, 6, 4, 7,
5, 8, 9, 10, 1, 8, 2, 10, 3, 9, 4, 5, 6, 7), 50, 2,
byrow = T)
} else if (all(selection == 38, type == "R")) {
sequences <- matrix(c(1, 2, 3, 8, 4, 12, 5, 6, 7, 12, 10, 9, 1, 8, 2, 9, 3,
10, 4, 6, 5, 7, 11, 12, 1, 3, 2, 4, 5, 9, 6, 8, 7, 11,
10, 11, 1, 9, 2, 12, 3, 11, 4, 8, 5, 10, 6, 7, 1, 5,
2, 7, 3, 4, 6, 11, 8, 9, 10, 12, 1, 11, 2, 3, 4, 9, 5,
12, 6, 10, 7, 8, 1, 6, 2, 10, 3, 7, 4, 5, 8, 12, 9,
11, 1, 12, 2, 6, 3, 5, 4, 11, 7, 9, 8, 10), 48, 2,
byrow = T)
} else if (all(selection == 39, type == "R")) {
sequences <- matrix(c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 7, 2, 8, 3,
9, 4, 10, 5, 11, 6, 12, 1, 8, 2, 7, 3, 12, 4, 9, 5,
10, 6, 11, 1, 3, 2, 4, 5, 7, 6, 8, 9, 11, 10, 12, 9,
12, 1, 10, 2, 11, 3, 8, 4, 5, 6, 7, 1, 11, 2, 12, 3,
10, 4, 7, 5, 8, 6, 9, 1, 4, 2, 5, 3, 6, 7, 12, 8, 9,
10, 11, 1, 6, 2, 3, 4, 11, 5, 12, 7, 9, 8, 10, 1, 12,
2, 9, 3, 5, 4, 6, 7, 10, 8, 11), 54, 2, byrow = T)
} else if (all(selection == 40, type == "R")) {
sequences <- matrix(c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 4, 2, 6, 3,
5, 7, 10, 8, 12, 9, 11, 1, 6, 2, 3, 4, 5, 7, 12, 8, 9,
10, 11, 1, 8, 2, 7, 3, 10, 4, 9, 5, 12, 6, 11, 1, 10,
2, 12, 3, 11, 4, 7, 6, 8, 5, 9, 1, 12, 2, 9, 4, 11, 6,
7, 3, 8, 5, 10, 1, 3, 2, 5, 4, 6, 7, 9, 8, 11, 10, 12,
1, 5, 2, 4, 3, 6, 7, 11, 8, 10, 9, 12, 1, 9, 2, 11, 4,
12, 3, 7, 5, 8, 6, 10, 1, 11, 2, 10, 3, 12, 5, 7, 4,
8, 6, 9), 60, 2, byrow = T)
} else if (all(selection == 41, type == "R")) {
sequences <- matrix(c(1, 2, 1, 3, 2, 3, 4, 5, 4, 6, 5, 6, 7, 8, 7, 9, 8, 9,
10, 11, 10, 12, 11, 12, 13, 14, 13, 15, 14, 15, 3, 5,
3, 7, 5, 7, 6, 8, 6, 10, 8, 10, 9, 11, 9, 13, 11, 13,
1, 12, 1, 14, 12, 14, 2, 4, 2, 15, 4, 15, 1, 5, 1, 9,
5, 9, 4, 8, 4, 12, 8, 12, 7, 11, 7, 15, 11, 15, 3, 10,
14, 10, 3, 14, 2, 6, 2, 13, 6, 13, 1, 11, 1, 6, 6, 11,
2, 7, 2, 12, 7, 12, 3, 8, 3, 13, 8, 13, 5, 10, 5, 15,
10, 15, 4, 9, 4, 14, 9, 14, 1, 8, 1, 15, 8, 15, 3, 4,
3, 11, 4, 11, 6, 7, 6, 14, 7, 14, 2, 9, 2, 10, 9, 10,
5, 12, 5, 13, 12, 13), 75, 2, byrow = T)
} else if (all(selection == 42, type == "R")) {
sequences <- matrix(c(1, 2, 4, 2, 3, 5, 3, 4, 6, 4, 5, 1, 5, 6, 2, 6, 1, 3),
6, 3, byrow = T)
} else if (all(selection == 43, type == "R")) {
sequences <- matrix(c(2, 4, 6, 1, 3, 2, 5, 1, 4, 3, 6, 5, 2, 4, 6, 1, 3, 4,
6, 5, 1, 3, 2, 5, 4, 6, 2, 6, 1, 3, 5, 2, 1, 4, 5, 3),
12, 3, byrow = T)
} else if (all(selection == 44, type == "R")) {
sequences <- matrix(c(1, 4, 2, 3, 6, 5, 4, 1, 3, 2, 5, 6, 1, 5, 4, 6, 3, 2,
4, 6, 1, 5, 2, 3, 2, 1, 5, 3, 4, 6, 5, 2, 4, 6, 3, 1),
12, 3, byrow = T)
} else if (all(selection == 45, type == "R")) {
sequences <- matrix(c(1, 3, 5, 1, 2, 4, 2, 3, 6, 4, 5, 6, 1, 3, 5, 2, 4, 6,
1, 3, 5, 1, 2, 6, 2, 4, 5, 3, 4, 6, 1, 3, 5, 1, 4, 6,
2, 3, 4, 2, 5, 6), 14, 3, byrow = T)
} else if (all(selection == 46, type == "R")) {
sequences <- matrix(c(1, 2, 5, 2, 3, 6, 3, 4, 1, 4, 5, 2, 5, 6, 3, 6, 1, 4,
1, 2, 3, 2, 3, 4, 3, 4, 5, 4, 5, 6, 5, 6, 1, 6, 1, 2,
1, 3, 5, 2, 4, 6), 14, 3, byrow = T)
} else if (all(selection == 47, type == "R")) {
sequences <- matrix(c(1, 3, 5, 1, 3, 5, 2, 4, 6, 2, 4, 6, 1, 3, 5, 1, 4, 6,
2, 3, 4, 2, 5, 6, 1, 3, 5, 1, 2, 4, 2, 3, 6, 4, 5, 6,
1, 3, 5, 1, 2, 6, 2, 4, 5, 3, 4, 6), 16, 3, byrow = T)
} else if (all(selection == 48, type == "R")) {
sequences <- matrix(c(1, 2, 3, 1, 5, 6, 2, 4, 6, 3, 5, 4, 1, 4, 2, 3, 5, 6,
1, 4, 5, 2, 3, 6, 1, 3, 4, 2, 5, 6, 1, 4, 6, 2, 5, 3,
1, 2, 5, 3, 4, 6, 1, 3, 6, 2, 4, 5), 16, 3, byrow = T)
} else if (all(selection == 50, type == "R")) {
sequences <- matrix(c(1, 2, 4, 2, 3, 5, 3, 4, 6, 4, 5, 1, 5, 6, 2, 6, 1, 3,
1, 2, 4, 2, 3, 5, 3, 4, 6, 4, 5, 1, 5, 6, 2, 6, 1, 3,
1, 2, 4, 2, 3, 5, 3, 4, 6, 4, 5, 1, 5, 6, 2, 6, 1, 3),
18, 3, byrow = T)
} else if (all(selection == 51, type == "R")) {
sequences <- matrix(c(1, 2, 3, 1, 2, 4, 1, 3, 5, 1, 4, 6, 1, 5, 6, 2, 3, 6,
2, 4, 5, 2, 5, 6, 3, 4, 5, 3, 4, 6, 1, 2, 3, 1, 5, 6,
4, 2, 6, 4, 3, 5, 1, 2, 3, 1, 5, 6, 4, 2, 6, 4, 3, 5),
18, 3, byrow = T)
} else if (all(selection == 52, type == "R")) {
sequences <- matrix(c(1, 2, 3, 4, 5, 6, 3, 1, 4, 5, 6, 2, 6, 3, 1, 2, 4, 5,
1, 5, 2, 3, 4, 6, 4, 1, 5, 6, 2, 3, 5, 6, 1, 2, 3, 4,
3, 5, 2, 1, 4, 6, 4, 3, 5, 6, 2, 1, 5, 6, 3, 2, 1, 4),
18, 3, byrow = T)
} else if (all(selection == 54, type == "R")) {
sequences <- matrix(c(1, 2, 4, 2, 3, 5, 3, 4, 6, 4, 5, 7, 5, 6, 8, 6, 7, 1,
7, 8, 2, 8, 1, 3), 8, 3, byrow = T)
} else if (all(selection == 56, type == "R")) {
sequences <- matrix(c(1, 5, 2, 2, 6, 3, 3, 7, 4, 4, 8, 1, 5, 4, 8, 6, 1, 5,
7, 2, 6, 8, 3, 7, 1, 5, 3, 2, 6, 4, 3, 7, 1, 4, 8, 2,
5, 3, 7, 6, 4, 8, 7, 1, 5, 8, 2, 6, 1, 5, 4, 2, 6, 1,
3, 7, 2, 4, 8, 3, 5, 2, 6, 6, 3, 7, 7, 4, 8, 8, 1, 5),
24, 3, byrow = T)
} else if (all(selection == 58, type == "R")) {
sequences <- matrix(c(1, 3, 4, 3, 5, 6, 5, 7, 8, 7, 1, 2, 6, 8, 1, 8, 2, 3,
2, 4, 5, 4, 6, 7, 1, 5, 6, 3, 7, 8, 5, 1, 2, 7, 3, 4,
4, 8, 1, 6, 2, 3, 8, 4, 5, 2, 6, 7, 1, 7, 8, 3, 1, 2,
5, 3, 4, 7, 5, 6, 4, 6, 1, 6, 8, 3, 8, 2, 5, 2, 4, 7),
24, 3, byrow = T)
} else if (all(selection == 59, type == "R")) {
sequences <- matrix(c(1, 2, 3, 4, 5, 6, 7, 8, 9, 1, 5, 9, 2, 6, 7, 3, 4, 8,
1, 4, 7, 2, 5, 8, 3, 6, 9, 1, 6, 8, 2, 4, 9, 3, 5, 7,
1, 4, 7, 2, 5, 8, 3, 6, 9), 15, 3, byrow = T)
} else if (all(selection == 60, type == "R")) {
sequences <- matrix(c(7, 4, 1, 8, 5, 2, 3, 9, 6, 1, 2, 3, 4, 6, 5, 7, 8, 9,
1, 7, 4, 2, 8, 5, 3, 6, 9, 6, 1, 8, 9, 4, 2, 5, 3, 7,
4, 1, 7, 5, 2, 8, 6, 9, 3, 9, 5, 1, 8, 3, 4, 2, 7, 6),
18, 3, byrow = T)
} else if (all(selection == 61, type == "R")) {
sequences <- matrix(c(1, 2, 3, 4, 5, 6, 7, 8, 9, 1, 4, 7, 1, 4, 7, 1, 4, 7,
1, 4, 7, 2, 5, 8, 2, 5, 8, 2, 5, 8, 2, 5, 8, 3, 6, 9,
3, 6, 9, 3, 6, 9, 3, 6, 9, 1, 5, 9, 2, 6, 7, 3, 4, 8,
1, 6, 8, 2, 4, 9, 3, 5, 7), 21, 3, byrow = T)
} else if (all(selection == 62, type == "R")) {
sequences <- matrix(c(1, 2, 3, 4, 5, 6, 7, 8, 9, 1, 2, 3, 4, 5, 6, 7, 8, 9,
1, 4, 7, 2, 5, 8, 3, 6, 9, 1, 5, 9, 2, 6, 7, 3, 4, 8,
1, 5, 9, 2, 6, 7, 3, 4, 8, 1, 6, 8, 2, 4, 9, 3, 5, 7,
1, 6, 8, 2, 4, 9, 3, 5, 7), 21, 3, byrow = T)
} else if (all(selection == 63, type == "R")) {
sequences <- matrix(c(1, 4, 7, 1, 4, 7, 2, 5, 8, 1, 2, 5, 1, 3, 6, 2, 4, 8,
3, 4, 9, 5, 7, 8, 6, 7, 9, 2, 6, 9, 3, 5, 9, 3, 6, 8,
1, 4, 7, 2, 5, 8, 3, 6, 9, 1, 4, 7, 2, 5, 8, 3, 6, 9,
1, 4, 7, 2, 5, 8, 3, 6, 9, 1, 8, 9, 2, 3, 7, 4, 5, 6),
24, 3, byrow = T)
} else if (all(selection == 65, type == "R")) {
sequences <- matrix(c(1, 2, 3, 4, 5, 6, 7, 8, 9, 1, 2, 3, 4, 5, 6, 7, 8, 9,
1, 4, 7, 2, 5, 8, 3, 6, 9, 1, 4, 7, 2, 5, 8, 3, 6, 9,
1, 4, 7, 2, 5, 8, 3, 6, 9, 1, 5, 9, 2, 6, 7, 3, 4, 8,
1, 5, 9, 2, 6, 7, 3, 4, 8, 1, 6, 8, 2, 4, 9, 3, 5, 7,
1, 6, 8, 2, 4, 9, 3, 5, 7), 27, 3, byrow = T)
} else if (all(selection == 66, type == "R")) {
sequences <- matrix(c(1, 4, 7, 1, 4, 7, 2, 5, 8, 1, 2, 5, 1, 3, 6, 2, 4, 8,
3, 4, 9, 5, 7, 8, 6, 7, 9, 2, 6, 9, 3, 5, 9, 3, 6, 8,
1, 4, 7, 2, 5, 8, 3, 6, 9, 1, 4, 7, 2, 5, 8, 3, 6, 9,
1, 4, 7, 2, 5, 8, 3, 6, 9, 1, 8, 9, 2, 3, 7, 4, 5, 6,
1, 4, 7, 2, 5, 8, 3, 6, 9, 1, 4, 7, 2, 5, 8, 3, 6, 9),
30, 3, byrow = T)
} else if (all(selection == 67, type == "R")) {
sequences <- matrix(c(1, 2, 4, 2, 3, 5, 3, 4, 6, 4, 5, 7, 5, 6, 8, 6, 7, 9,
7, 8, 1, 8, 9, 2, 9, 1, 3, 1, 4, 7, 2, 5, 8, 3, 6, 9,
1, 2, 5, 2, 3, 6, 3, 4, 7, 4, 5, 8, 5, 6, 9, 6, 7, 1,
7, 8, 2, 8, 9, 3, 9, 1, 4, 1, 3, 6, 2, 4, 7, 3, 5, 8,
4, 6, 9, 5, 7, 1, 6, 8, 2, 7, 9, 3, 8, 1, 4, 9, 2, 5),
30, 3, byrow = T)
} else if (all(selection == 68, type == "R")) {
sequences <- matrix(c(1, 2, 3, 4, 5, 6, 7, 8, 9, 1, 2, 3, 4, 5, 6, 7, 8, 9,
1, 2, 3, 4, 5, 6, 7, 8, 9, 1, 4, 7, 2, 5, 8, 3, 6, 9,
1, 5, 9, 2, 6, 7, 3, 4, 8, 1, 5, 9, 2, 6, 7, 3, 4, 8,
1, 5, 9, 2, 6, 7, 3, 4, 8, 1, 6, 8, 2, 4, 9, 3, 5, 7,
1, 6, 8, 2, 4, 9, 3, 5, 7, 1, 6, 8, 2, 4, 9, 3, 5, 7),
30, 3, byrow = T)
} else if (all(selection == 69, type == "R")) {
sequences <- matrix(c(1, 6, 2, 2, 7, 3, 3, 8, 4, 4, 9, 5, 5, 10, 1, 7, 1, 6,
8, 2, 7, 9, 3, 8, 10, 4, 9, 6, 5, 10, 1, 6, 3, 2, 7,
4, 3, 8, 5, 4, 9, 1, 5, 10, 2, 8, 1, 6, 9, 2, 7, 10,
3, 8, 6, 4, 9, 7, 5, 10), 20, 3, byrow = T)
} else if (all(selection == 70, type == "R")) {
sequences <- matrix(c(1, 3, 4, 2, 9, 7, 3, 5, 12, 9, 6, 10, 6, 8, 1, 11, 4,
2, 8, 7, 3, 4, 12, 9, 7, 10, 5, 10, 1, 11, 2, 5, 6, 3,
6, 11, 9, 11, 8, 5, 8, 4, 6, 4, 7, 11, 7, 12, 8, 12,
10, 12, 1, 2, 10, 2, 3, 1, 9, 5), 20, 3, byrow = T)
} else if (all(selection == 71, type == "R")) {
sequences <- matrix(c(1, 7, 2, 3, 8, 2, 7, 9, 3, 8, 1, 7, 9, 2, 8, 9, 3, 1,
1, 5, 6, 2, 6, 4, 3, 4, 5, 7, 11, 4, 8, 10, 5, 10, 4,
9, 11, 1, 12, 12, 2, 10, 11, 3, 10, 5, 7, 12, 6, 8,
11, 5, 11, 9, 4, 10, 1, 2, 5, 11, 6, 12, 3, 10, 6, 7,
4, 12, 8, 12, 9, 6), 24, 3, byrow = T)
} else if (all(selection == 72, type == "R")) {
sequences <- matrix(c(1, 4, 7, 2, 5, 8, 3, 6, 9, 10, 11, 12, 1, 6, 8, 2, 3,
10, 7, 9, 11, 4, 5, 12, 1, 7, 10, 3, 4, 8, 2, 5, 11,
6, 9, 12, 1, 4, 10, 2, 6, 7, 3, 9, 12, 5, 8, 11, 1, 3,
11, 2, 4, 9, 7, 8, 12, 5, 6, 10, 1, 5, 9, 2, 8, 11, 3,
6, 12, 4, 7, 10, 1, 2, 12, 3, 5, 7, 4, 6, 11, 8, 9,
10), 28, 3, byrow = T)
} else if (all(selection == 73, type == "R")) {
sequences <- matrix(c(1, 7, 5, 1, 7, 6, 1, 7, 11, 1, 7, 12, 1, 2, 8, 1, 3,
9, 1, 4, 10, 2, 3, 8, 2, 4, 10, 2, 5, 11, 2, 6, 12, 2,
7, 8, 2, 8, 9, 5, 8, 11, 3, 4, 9, 3, 5, 11, 3, 6, 12,
3, 7, 9, 3, 9, 10, 5, 9, 11, 5, 10, 12, 4, 5, 6, 4, 7,
10, 4, 8, 10, 4, 11, 12, 6, 8, 12, 6, 9, 12, 6, 10,
11), 28, 3, byrow = T)
} else if (all(selection == 75, type == "R")) {
sequences <- matrix(c(1, 2, 4, 2, 3, 5, 3, 4, 6, 4, 5, 7, 5, 6, 8, 6, 7, 9,
7, 8, 10, 8, 9, 11, 9, 10, 12, 10, 11, 1, 11, 12, 2,
12, 1, 3, 1, 2, 7, 2, 3, 8, 3, 4, 9, 4, 5, 10, 5, 6,
11, 6, 7, 12, 7, 8, 1, 8, 9, 2, 9, 10, 3, 10, 11, 4,
11, 12, 5, 12, 1, 6, 1, 3, 6, 2, 4, 7, 3, 5, 8, 4, 6,
9, 5, 7, 10, 6, 8, 11, 7, 9, 12, 8, 10, 1, 9, 11, 2,
10, 12, 3, 11, 1, 4, 12, 2, 5), 36, 3, byrow = T)
} else if (all(selection == 78, type == "R")) {
sequences <- matrix(c(1, 2, 4, 2, 3, 5, 3, 4, 6, 4, 5, 7, 5, 6, 8, 6, 7, 9,
7, 8, 10, 8, 9, 11, 9, 10, 12, 10, 11, 1, 11, 12, 2,
12, 1, 3, 1, 5, 9, 2, 6, 10, 3, 7, 11, 4, 8, 12, 1, 2,
7, 2, 3, 8, 3, 4, 9, 4, 5, 10, 5, 6, 11, 6, 7, 12, 7,
8, 1, 8, 9, 2, 9, 10, 3, 10, 11, 4, 11, 12, 5, 12, 1,
6, 1, 3, 6, 2, 4, 7, 3, 5, 8, 4, 6, 9, 5, 7, 10, 6, 8,
11, 7, 9, 12, 8, 10, 1, 9, 11, 2, 10, 12, 3, 11, 1, 4,
12, 2, 5), 40, 3, byrow = T)
} else if (all(selection == 79, type == "R")) {
sequences <- matrix(c(2, 7, 8, 3, 1, 9, 4, 2, 10, 5, 3, 11, 6, 4, 12, 7, 5,
13, 1, 6, 14, 8, 6, 3, 9, 7, 4, 10, 1, 5, 11, 2, 6,
12, 3, 7, 13, 4, 1, 14, 5, 2, 4, 8, 5, 5, 9, 6, 6, 10,
7, 7, 11, 1, 1, 12, 2, 2, 13, 3, 3, 14, 4, 9, 10, 12,
10, 11, 13, 11, 12, 14, 12, 13, 8, 13, 14, 9, 14, 8,
10, 8, 9, 11), 28, 3, byrow = T)
} else if (all(selection == 80, type == "R")) {
sequences <- matrix(c(1, 2, 8, 2, 3, 9, 3, 4, 10, 4, 5, 11, 5, 6, 12, 6, 7,
13, 7, 1, 14, 1, 8, 9, 2, 9, 10, 3, 10, 11, 4, 11, 12,
5, 12, 13, 6, 13, 14, 7, 14, 8, 1, 3, 8, 2, 4, 9, 3,
5, 10, 4, 6, 11, 5, 7, 12, 6, 1, 13, 7, 2, 14, 1, 8,
10, 2, 9, 11, 3, 10, 12, 4, 11, 13, 5, 12, 14, 6, 13,
8, 7, 14, 9, 1, 4, 8, 2, 5, 9, 3, 6, 10, 4, 7, 11, 5,
1, 12, 6, 2, 13, 7, 3, 14, 1, 8, 11, 2, 9, 12, 3, 10,
13, 4, 11, 14, 5, 12, 8, 6, 13, 9, 7, 14, 10), 42, 3,
byrow = T)
} else if (all(selection == 81, type == "R")) {
sequences <- matrix(c(2, 5, 6, 3, 1, 7, 4, 2, 8, 5, 3, 9, 1, 4, 10, 8, 9,
11, 9, 10, 12, 10, 6, 13, 6, 7, 14, 7, 8, 15, 12, 15,
1, 13, 11, 2, 14, 12, 3, 15, 13, 4, 11, 14, 5, 13, 14,
1, 14, 15, 2, 15, 11, 3, 11, 12, 4, 12, 13, 5, 3, 4,
6, 4, 5, 7, 5, 1, 8, 1, 2, 9, 2, 3, 10, 7, 10, 11, 8,
6, 12, 9, 7, 13, 10, 8, 14, 6, 9, 15), 30, 3,
byrow = T)
} else if (all(selection == 82, type == "R")) {
sequences <- matrix(c(1, 6, 11, 2, 7, 12, 3, 8, 13, 4, 9, 14, 5, 10, 15, 1,
7, 15, 6, 13, 4, 11, 2, 10, 12, 8, 14, 3, 9, 5, 1, 8,
9, 6, 3, 10, 11, 12, 13, 2, 4, 15, 7, 14, 5, 1, 6, 11,
2, 7, 12, 3, 8, 13, 4, 9, 14, 5, 10, 15, 1, 13, 5, 6,
2, 14, 11, 7, 9, 12, 3, 15, 8, 4, 10, 1, 14, 10, 6,
12, 5, 11, 8, 15, 2, 13, 9, 7, 3, 4, 1, 2, 3, 6, 7, 8,
11, 4, 5, 12, 9, 10, 13, 14, 15, 1, 12, 4, 6, 9, 15,
11, 3, 14, 2, 8, 5, 7, 13, 10), 40, 3, byrow = T)
} else if (all(selection == 84, type == "R")) {
sequences <- matrix(c(2, 5, 6, 3, 1, 7, 4, 2, 8, 5, 3, 9, 1, 4, 10, 8, 9,
11, 9, 10, 12, 10, 6, 13, 6, 7, 14, 7, 8, 15, 12, 15,
1, 13, 11, 2, 14, 12, 3, 15, 13, 4, 11, 14, 5, 13, 14,
1, 14, 15, 2, 15, 11, 3, 11, 12, 4, 12, 13, 5, 3, 4,
6, 4, 5, 7, 5, 1, 8, 1, 2, 9, 2, 3, 10, 7, 10, 11, 8,
6, 12, 9, 7, 13, 10, 8, 14, 6, 9, 15, 1, 6, 11, 2, 7,
12, 3, 8, 13, 4, 9, 14, 5, 10, 15, 6, 11, 1, 7, 12, 2,
8, 13, 3, 9, 14, 4, 10, 15, 5, 11, 1, 6, 12, 2, 7, 13,
3, 8, 14, 4, 9, 15, 5, 10), 45, 3, byrow = T)
} else if (all(selection == 85, type == "R")) {
sequences <- matrix(c(1, 4, 10, 2, 5, 6, 3, 1, 7, 4, 2, 8, 5, 3, 9, 6, 7,
14, 7, 8, 15, 8, 9, 11, 9, 10, 12, 10, 6, 13, 12, 15,
1, 13, 11, 2, 14, 12, 3, 15, 13, 4, 11, 14, 5, 1, 2,
9, 2, 3, 10, 3, 4, 6, 4, 5, 7, 5, 1, 8, 7, 10, 11, 8,
6, 12, 9, 7, 13, 10, 8, 14, 6, 9, 15, 14, 13, 1, 15,
14, 2, 11, 15, 3, 12, 11, 4, 13, 12, 5, 1, 6, 11, 1,
6, 11, 1, 6, 11, 1, 6, 11, 2, 7, 12, 2, 7, 12, 2, 7,
12, 2, 7, 12, 3, 8, 13, 3, 8, 13, 3, 8, 13, 3, 8, 13,
4, 9, 14, 4, 9, 14, 4, 9, 14, 4, 9, 14, 5, 10, 15, 5,
10, 15, 5, 10, 15, 5, 10, 15), 50, 3, byrow = T)
} else if (all(selection == 86, type == "R")) {
sequences <- matrix(c(1, 2, 11, 2, 3, 12, 3, 4, 13, 4, 5, 14, 5, 6, 15, 6,
7, 16, 7, 8, 1, 8, 9, 2, 9, 10, 3, 10, 11, 4, 11, 12,
5, 12, 13, 6, 13, 14, 7, 14, 15, 8, 15, 16, 9, 16, 1,
10, 1, 3, 6, 2, 4, 7, 3, 5, 8, 4, 6, 9, 5, 7, 10, 6,
8, 11, 7, 9, 12, 8, 10, 13, 9, 11, 14, 10, 12, 15, 11,
13, 16, 12, 14, 1, 13, 15, 2, 14, 16, 3, 15, 1, 4, 16,
2, 5), 32, 3, byrow = T)
} else if (all(selection == 89, type == "R")) {
sequences <- matrix(c(1, 13, 11, 2, 14, 12, 3, 15, 13, 4, 16, 14, 5, 17, 15,
6, 18, 16, 7, 10, 17, 8, 11, 18, 9, 12, 10, 14, 1, 10,
15, 2, 11, 16, 3, 12, 17, 4, 13, 18, 5, 14, 10, 6, 15,
11, 7, 16, 12, 8, 17, 13, 9, 18, 1, 15, 18, 2, 16, 10,
3, 17, 11, 4, 18, 12, 5, 10, 13, 6, 11, 14, 7, 12, 15,
8, 13, 16, 9, 14, 17, 16, 17, 1, 17, 18, 2, 18, 10, 3,
10, 11, 4, 11, 12, 5, 12, 13, 6, 13, 14, 7, 14, 15, 8,
15, 16, 9, 1, 2, 5, 2, 3, 6, 3, 4, 7, 4, 5, 8, 5, 6,
9, 6, 7, 1, 7, 8, 2, 8, 9, 3, 9, 1, 4, 12, 1, 3, 13,
2, 4, 14, 3, 5, 15, 4, 6, 16, 5, 7, 17, 6, 8, 18, 7,
9, 10, 8, 1, 11, 9, 2), 54, 3, byrow = T)
} else if (all(selection == 91, type == "R")) {
sequences <- matrix(c(1, 2, 11, 2, 3, 12, 3, 4, 13, 4, 5, 14, 5, 6, 15, 6,
7, 16, 7, 8, 17, 8, 9, 18, 9, 10, 19, 10, 11, 20, 11,
12, 21, 12, 13, 1, 13, 14, 2, 14, 15, 3, 15, 16, 4,
16, 17, 5, 17, 18, 6, 18, 19, 7, 19, 20, 8, 20, 21, 9,
21, 1, 10, 1, 3, 7, 2, 4, 8, 3, 5, 9, 4, 6, 10, 5, 7,
11, 6, 8, 12, 7, 9, 13, 8, 10, 14, 9, 11, 15, 10, 12,
16, 11, 13, 17, 12, 14, 18, 13, 15, 19, 14, 16, 20,
15, 17, 21, 16, 18, 1, 17, 19, 2, 18, 20, 3, 19, 21,
4, 20, 1, 5, 21, 2, 6, 1, 4, 9, 2, 5, 10, 3, 6, 11, 4,
7, 12, 5, 8, 13, 6, 9, 14, 7, 10, 15, 8, 11, 16, 9,
12, 17, 10, 13, 18, 11, 14, 19, 12, 15, 20, 13, 16,
21, 14, 17, 1, 15, 18, 2, 16, 19, 3, 17, 20, 4, 18,
21, 5, 19, 1, 6, 20, 2, 7, 21, 3, 8), 63, 3,
byrow = T)
} else if (all(selection == 93, type == "R")) {
sequences <- matrix(c(1, 2, 21, 2, 7, 22, 7, 8, 3, 8, 13, 4, 13, 14, 9, 14,
19, 10, 19, 20, 15, 20, 1, 16, 1, 14, 22, 2, 19, 3, 7,
20, 4, 8, 1, 9, 13, 2, 10, 14, 7, 15, 19, 8, 16, 20,
13, 21, 1, 4, 17, 2, 9, 18, 7, 10, 23, 8, 15, 24, 13,
16, 5, 14, 21, 6, 19, 22, 11, 20, 3, 12, 5, 2, 15, 6,
7, 16, 11, 8, 21, 3, 4, 23, 4, 9, 24, 9, 10, 5, 10,
15, 6, 15, 16, 11, 16, 21, 12, 21, 22, 17, 22, 3, 18,
3, 16, 24, 4, 21, 5, 9, 22, 6, 10, 3, 11, 15, 4, 12,
16, 9, 17, 21, 10, 18, 22, 15, 23, 3, 6, 13, 4, 11,
14, 9, 12, 19, 10, 17, 20, 15, 18, 1, 16, 23, 2, 21,
24, 7, 22, 5, 8, 12, 13, 22, 17, 14, 3, 18, 19, 4, 1,
3, 5, 2, 4, 6, 7, 9, 11, 8, 10, 12, 13, 15, 17, 14,
16, 18, 19, 21, 23, 20, 22, 24, 5, 6, 19, 6, 11, 20,
11, 12, 1, 12, 17, 2, 17, 18, 7, 18, 23, 8, 23, 24,
13, 24, 5, 14, 5, 18, 20, 6, 23, 1, 11, 24, 2, 12, 5,
7, 17, 6, 8, 18, 11, 13, 23, 12, 14, 24, 17, 19, 23,
20, 9, 24, 1, 10), 80, 3, byrow = T)
} else if (all(selection == 94, type == "R")) {
sequences <- matrix(c(1, 2, 4, 6, 2, 3, 5, 1, 3, 4, 6, 2, 4, 5, 1, 3, 5, 6,
2, 4, 6, 1, 3, 5), 6, 4, byrow = T)
} else if (all(selection == 95, type == "R")) {
sequences <- matrix(c(1, 2, 4, 6, 3, 4, 6, 2, 5, 6, 2, 4, 2, 1, 3, 5, 4, 3,
5, 1, 6, 5, 1, 3, 1, 2, 4, 6, 3, 4, 6, 2, 5, 6, 2, 4,
2, 1, 3, 5, 4, 3, 5, 1, 6, 5, 1, 3), 12, 4, byrow = T)
} else if (all(selection == 96, type == "R")) {
sequences <- matrix(c(3, 6, 5, 4, 4, 1, 6, 2, 1, 5, 2, 3, 5, 6, 2, 4, 5, 1,
6, 3, 4, 2, 3, 1, 2, 3, 4, 5, 1, 4, 5, 6, 6, 2, 3, 1,
2, 3, 4, 6, 3, 4, 1, 5, 6, 5, 1, 2), 12, 4, byrow = T)
} else if (all(selection == 97, type == "R")) {
sequences <- matrix(c(1, 5, 3, 4, 1, 5, 7, 8, 2, 6, 7, 4, 2, 6, 3, 8, 1, 5,
2, 6, 3, 7, 4, 8, 3, 7, 1, 2, 3, 7, 5, 6, 4, 8, 1, 6,
4, 8, 2, 5), 10, 4, byrow = T)
} else if (all(selection == 98, type == "R")) {
sequences <- matrix(c(1, 2, 3, 4, 5, 6, 7, 8, 1, 3, 6, 8, 2, 4, 5, 7, 1, 2,
5, 6, 3, 4, 7, 8, 1, 4, 5, 8, 2, 3, 6, 7, 1, 2, 7, 8,
3, 4, 5, 6, 1, 4, 6, 7, 2, 3, 5, 8, 1, 3, 5, 7, 2, 4,
6, 8, 1, 3, 5, 7, 2, 4, 6, 8), 16, 4, byrow = T)
} else if (all(selection == 101, type == "R")) {
sequences <- matrix(c(1, 2, 3, 4, 1, 6, 7, 8, 1, 3, 6, 8, 2, 3, 4, 5, 2, 5,
7, 8, 4, 5, 6, 7, 1, 2, 4, 7, 1, 2, 3, 8, 1, 4, 6, 7,
2, 5, 7, 8, 3, 4, 5, 6, 3, 5, 6, 8, 1, 5, 2, 6, 3, 7,
4, 8, 1, 5, 3, 7, 2, 6, 4, 8, 1, 5, 4, 8, 2, 6, 3, 7),
18, 4, byrow = T)
} else if (all(selection == 103, type == "R")) {
sequences <- matrix(c(1, 2, 3, 4, 5, 6, 7, 8, 1, 3, 6, 8, 2, 4, 5, 7, 1, 2,
5, 6, 3, 4, 7, 8, 1, 4, 5, 8, 2, 3, 6, 7, 1, 5, 3, 7,
2, 6, 4, 8, 1, 2, 7, 8, 3, 4, 5, 6, 1, 4, 6, 7, 2, 3,
5, 8, 1, 3, 5, 7, 2, 4, 6, 8, 1, 5, 2, 6, 3, 7, 4, 8,
1, 5, 4, 8, 2, 6, 3, 7), 20, 4, byrow = T)
} else if (all(selection == 104, type == "R")) {
sequences <- matrix(c(1, 4, 7, 2, 2, 5, 8, 3, 3, 6, 9, 4, 4, 7, 1, 5, 5, 8,
2, 6, 6, 9, 3, 7, 7, 1, 4, 8, 8, 2, 5, 9, 9, 3, 6, 1),
9, 4, byrow = T)
} else if (all(selection == 106, type == "R")) {
sequences <- matrix(c(1, 7, 8, 10, 2, 8, 9, 6, 3, 9, 10, 7, 4, 10, 6, 8, 5,
6, 7, 9, 6, 2, 3, 5, 7, 3, 4, 1, 8, 4, 5, 2, 9, 5, 1,
3, 10, 1, 2, 4, 1, 8, 9, 10, 2, 9, 10, 6, 3, 10, 6, 7,
4, 6, 7, 8, 5, 7, 8, 9, 6, 3, 4, 5, 7, 4, 5, 1, 8, 5,
1, 2, 9, 1, 2, 3, 10, 2, 3, 4), 20, 4, byrow = T)
} else if (all(selection == 109, type == "R")) {
sequences <- matrix(c(1, 2, 5, 7, 2, 3, 6, 8, 3, 4, 7, 9, 4, 5, 8, 10, 5, 6,
9, 11, 6, 7, 10, 12, 7, 8, 11, 1, 8, 9, 12, 2, 9, 10,
1, 3, 10, 11, 2, 4, 11, 12, 3, 5, 12, 1, 4, 6), 12, 4,
byrow = T)
} else if (all(selection == 111, type == "R")) {
sequences <- matrix(c(1, 3, 7, 5, 4, 6, 10, 2, 8, 9, 7, 6, 11, 12, 10, 3, 8,
11, 1, 4, 9, 12, 2, 5, 9, 2, 3, 4, 6, 11, 12, 7, 10,
12, 4, 8, 1, 2, 9, 11, 7, 8, 3, 5, 6, 10, 5, 1, 3, 8,
9, 10, 7, 9, 1, 11, 12, 5, 6, 1, 3, 7, 2, 4, 4, 5, 12,
8, 10, 11, 6, 2, 2, 7, 8, 6, 5, 10, 11, 3, 2, 3, 1,
12, 9, 1, 8, 10, 5, 6, 4, 9, 12, 4, 11, 7, 8, 1, 2,
12, 11, 4, 5, 9, 1, 4, 3, 6, 2, 5, 7, 10, 3, 6, 8, 11,
7, 10, 9, 12), 30, 4, byrow = T)
} else if (all(selection == 112, type == "R")) {
sequences <- matrix(c(1, 2, 5, 7, 2, 3, 6, 8, 3, 4, 7, 9, 4, 5, 8, 10, 5, 6,
9, 11, 6, 7, 10, 12, 7, 8, 11, 13, 8, 9, 12, 14, 9,
10, 13, 1, 10, 11, 14, 2, 11, 12, 1, 3, 12, 13, 2, 4,
13, 14, 3, 5, 14, 1, 4, 6), 14, 4, byrow = T)
} else if (all(selection == 114, type == "R")) {
sequences <- matrix(c(2, 4, 5, 13, 3, 5, 6, 14, 4, 6, 7, 15, 5, 7, 8, 1, 6,
8, 9, 2, 7, 9, 10, 3, 8, 10, 11, 4, 9, 11, 12, 5, 10,
12, 13, 6, 11, 13, 14, 7, 12, 14, 15, 8, 13, 15, 1, 9,
14, 1, 2, 10, 15, 2, 3, 11, 1, 3, 4, 12), 15, 4,
byrow = T)
} else if (all(selection == 115, type == "R")) {
sequences <- matrix(c(1, 6, 11, 2, 2, 7, 12, 3, 3, 8, 13, 4, 4, 9, 14, 5, 5,
10, 15, 1, 7, 1, 6, 11, 8, 2, 7, 12, 9, 3, 8, 13, 10,
4, 9, 14, 6, 5, 10, 15, 11, 12, 1, 6, 12, 13, 2, 7,
13, 14, 3, 8, 14, 15, 4, 9, 15, 11, 5, 10, 1, 6, 11,
3, 2, 7, 12, 4, 3, 8, 13, 5, 4, 9, 14, 1, 5, 10, 15,
2, 8, 1, 6, 11, 9, 2, 7, 12, 10, 3, 8, 13, 6, 4, 9,
14, 7, 5, 10, 15, 13, 11, 1, 6, 14, 12, 2, 7, 15, 13,
3, 8, 11, 14, 4, 9, 12, 15, 5, 10), 30, 4, byrow = T)
} else if (all(selection == 117, type == "R")) {
sequences <- matrix(c(1, 13, 8, 9, 4, 1, 11, 12, 7, 4, 14, 15, 10, 7, 2, 3,
13, 10, 5, 6, 2, 14, 9, 7, 5, 2, 12, 10, 8, 5, 15, 13,
11, 8, 3, 1, 14, 11, 6, 4, 3, 15, 7, 8, 6, 3, 10, 11,
9, 6, 13, 14, 12, 9, 1, 2, 15, 12, 4, 5, 1, 7, 5, 6,
4, 10, 8, 9, 7, 13, 11, 12, 10, 1, 14, 15, 13, 4, 2,
3, 2, 8, 6, 4, 5, 11, 9, 7, 8, 14, 12, 10, 11, 2, 15,
13, 14, 5, 3, 1, 3, 9, 4, 5, 6, 12, 7, 8, 9, 15, 10,
11, 12, 3, 13, 14, 15, 6, 1, 2), 30, 4, byrow = T)
} else if (all(selection == 118, type == "R")) {
sequences <- matrix(c(1, 2, 6, 9, 3, 4, 8, 11, 5, 10, 13, 14, 7, 12, 15, 16,
2, 5, 6, 13, 4, 7, 8, 15, 1, 9, 10, 14, 3, 11, 12, 16,
15, 13, 3, 1, 16, 14, 4, 2, 5, 7, 9, 11, 6, 8, 10, 12,
2, 3, 7, 10, 1, 4, 5, 12, 6, 11, 14, 15, 8, 9, 13, 16,
14, 6, 7, 3, 16, 8, 5, 1, 15, 10, 11, 2, 13, 12, 9, 4,
16, 10, 6, 4, 15, 9, 5, 3, 13, 11, 7, 1, 14, 12, 8,
2), 24, 4, byrow = T)
} else if (all(selection == 119, type == "R")) {
sequences <- matrix(c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16,
1, 5, 9, 13, 2, 6, 10, 14, 3, 7, 11, 15, 4, 8, 12, 16,
1, 5, 9, 13, 2, 6, 10, 14, 3, 7, 11, 15, 4, 8, 12, 16,
1, 5, 9, 13, 2, 6, 10, 14, 3, 7, 11, 15, 4, 8, 12, 16,
1, 6, 11, 16, 2, 5, 12, 15, 3, 8, 9, 14, 4, 7, 10, 13,
1, 7, 12, 14, 2, 8, 11, 13, 3, 5, 10, 16, 4, 6, 9, 15,
1, 8, 10, 15, 2, 7, 9, 16, 3, 6, 12, 13, 4, 5, 11,
14), 28, 4, byrow = T)
} else if (all(selection == 133, type == "R")) {
sequences <- matrix(c(1, 2, 3, 5, 7, 2, 3, 4, 6, 8, 3, 4, 5, 7, 1, 4, 5, 6,
8, 2, 5, 6, 7, 1, 3, 6, 7, 8, 2, 4, 7, 8, 1, 3, 5, 8,
1, 2, 4, 6), 8, 5, byrow = T)
} else if (all(selection == 134, type == "R")) {
sequences <- matrix(c(1, 3, 4, 5, 6, 2, 4, 5, 6, 7, 3, 5, 6, 7, 8, 4, 6, 7,
8, 1, 5, 7, 8, 1, 2, 6, 8, 1, 2, 3, 7, 1, 2, 3, 4, 8,
2, 3, 4, 5), 8, 5, byrow = T)
} else if (all(selection == 137, type == "R")) {
sequences <- matrix(c(1, 3, 4, 6, 7, 2, 4, 5, 7, 8, 3, 5, 6, 8, 9, 4, 6, 7,
9, 1, 5, 7, 8, 1, 2, 6, 8, 9, 2, 3, 7, 9, 1, 3, 4, 8,
1, 2, 4, 5, 9, 2, 3, 5, 6), 9, 5, byrow = T)
} else if (all(selection == 139, type == "R")) {
sequences <- matrix(c(1, 2, 3, 6, 8, 2, 3, 4, 7, 9, 3, 4, 5, 8, 10, 4, 5, 6,
9, 1, 5, 6, 7, 10, 2, 6, 7, 8, 1, 3, 7, 8, 9, 2, 4, 8,
9, 10, 3, 5, 9, 10, 1, 4, 6, 10, 1, 2, 5, 7), 10, 5,
byrow = T)
} else if (all(selection == 140, type == "R")) {
sequences <- matrix(c(1, 2, 5, 6, 10, 1, 6, 7, 8, 9, 1, 3, 5, 6, 8, 1, 4, 6,
9, 10, 1, 2, 3, 7, 9, 1, 2, 4, 5, 7, 1, 3, 4, 8, 10,
2, 3, 6, 7, 10, 2, 4, 6, 7, 8, 3, 4, 5, 6, 9, 2, 3, 4,
8, 9, 2, 5, 8, 9, 10, 3, 5, 7, 8, 10, 4, 5, 7, 9, 10),
14, 5, byrow = T)
} else if (all(selection == 143, type == "R")) {
sequences <- matrix(c(1, 2, 4, 7, 10, 2, 3, 5, 8, 11, 3, 4, 6, 9, 12, 4, 5,
7, 10, 1, 5, 6, 8, 11, 2, 6, 7, 9, 12, 3, 7, 8, 10, 1,
4, 8, 9, 11, 2, 5, 9, 10, 12, 3, 6, 10, 11, 1, 4, 7,
11, 12, 2, 5, 8, 12, 1, 3, 6, 9), 12, 5, byrow = T)
} else if (all(selection == 144, type == "R")) {
sequences <- matrix(c(1, 2, 4, 9, 12, 2, 3, 5, 10, 1, 3, 4, 6, 11, 2, 4, 5,
7, 12, 3, 5, 6, 8, 1, 4, 6, 7, 9, 2, 5, 7, 8, 10, 3,
6, 8, 9, 11, 4, 7, 9, 10, 12, 5, 8, 10, 11, 1, 6, 9,
11, 12, 2, 7, 10, 12, 1, 3, 8, 11), 12, 5, byrow = T)
} else if (all(selection == 145, type == "R")) {
sequences <- matrix(c(1, 2, 4, 6, 7, 2, 3, 5, 7, 8, 3, 4, 6, 8, 9, 4, 5, 7,
9, 10, 5, 6, 8, 10, 11, 6, 7, 9, 11, 12, 7, 8, 10, 12,
1, 8, 9, 11, 1, 2, 9, 10, 12, 2, 3, 10, 11, 1, 3, 4,
11, 12, 2, 4, 5, 12, 1, 3, 5, 6), 12, 5, byrow = T)
} else if (all(selection == 150, type == "R")) {
sequences <- matrix(c(1, 6, 12, 13, 15, 2, 7, 13, 14, 11, 3, 8, 14, 15, 12,
4, 9, 15, 11, 13, 5, 10, 11, 12, 14, 6, 11, 2, 3, 5,
7, 12, 3, 4, 1, 8, 13, 4, 5, 2, 9, 14, 5, 1, 3, 10,
15, 1, 2, 4, 11, 1, 7, 8, 10, 12, 2, 8, 9, 6, 13, 3,
9, 10, 7, 14, 4, 10, 6, 8, 15, 5, 6, 7, 9, 1, 6, 12,
13, 14, 2, 7, 13, 14, 15, 3, 8, 14, 15, 11, 4, 9, 15,
11, 12, 5, 10, 11, 12, 13, 6, 11, 2, 3, 4, 7, 12, 3,
4, 5, 8, 13, 4, 5, 1, 9, 14, 5, 1, 2, 10, 15, 1, 2, 3,
11, 1, 7, 8, 9, 12, 2, 8, 9, 10, 13, 3, 9, 10, 6, 14,
4, 10, 6, 7, 15, 5, 6, 7, 8), 30, 5, byrow = T)
} else if (all(selection == 153, type == "R")) {
sequences <- matrix(c(1, 2, 5, 10, 12, 2, 3, 6, 11, 13, 3, 4, 7, 12, 14, 4,
5, 8, 13, 15, 5, 6, 9, 14, 16, 6, 7, 10, 15, 17, 7, 8,
11, 16, 18, 8, 9, 12, 17, 19, 9, 10, 13, 18, 20, 10,
11, 14, 19, 21, 11, 12, 15, 20, 22, 12, 13, 16, 21,
23, 13, 14, 17, 22, 24, 14, 15, 18, 23, 1, 15, 16, 19,
24, 2, 16, 17, 20, 1, 3, 17, 18, 21, 2, 4, 18, 19, 22,
3, 5, 19, 20, 23, 4, 6, 20, 21, 24, 5, 7, 21, 22, 1,
6, 8, 22, 23, 2, 7, 9, 23, 24, 3, 8, 10, 24, 1, 4, 9,
11), 24, 5, byrow = T)
} else if (all(selection == "153a", type == "R")) {
sequences <- matrix(c(1, 2, 5, 10, 12, 2, 3, 6, 11, 13, 3, 4, 7, 12, 14, 4,
5, 8, 13, 15, 5, 6, 9, 14, 16, 6, 7, 10, 15, 17, 7, 8,
11, 16, 18, 8, 9, 12, 17, 19, 9, 10, 13, 18, 20, 10,
11, 14, 19, 21, 11, 12, 15, 20, 22, 12, 13, 16, 21,
23, 13, 14, 17, 22, 24, 14, 15, 18, 23, 1, 15, 16, 19,
24, 2, 16, 17, 20, 1, 3, 17, 18, 21, 2, 4, 18, 19, 22,
3, 5, 19, 20, 23, 4, 6, 20, 21, 24, 5, 7, 21, 22, 1,
6, 8, 22, 23, 2, 7, 9, 23, 24, 3, 8, 10, 24, 1, 4, 9,
11), 24, 5, byrow = T)
} else if (all(selection == 164, type == "R")) {
sequences <- matrix(c(1, 3, 5, 7, 2, 4, 1, 3, 5, 7, 6, 8, 2, 4, 6, 8, 1, 3,
2, 4, 6, 8, 5, 7, 1, 3, 5, 7, 2, 6, 1, 3, 5, 7, 4, 8,
2, 4, 6, 8, 1, 5, 2, 4, 6, 8, 3, 7, 1, 3, 5, 7, 2, 8,
1, 3, 5, 7, 4, 6, 2, 4, 6, 8, 1, 7, 2, 4, 6, 8, 3, 5),
12, 6, byrow = T)
} else if (all(selection == 165, type == "R")) {
sequences <- matrix(c(4, 5, 6, 7, 8, 9, 1, 2, 3, 7, 8, 9, 1, 2, 3, 4, 5, 6,
2, 5, 8, 3, 6, 9, 1, 4, 7, 3, 6, 9, 1, 4, 7, 2, 5, 8,
2, 6, 7, 3, 4, 8, 1, 5, 9, 3, 4, 8, 1, 5, 9, 2, 6, 7,
2, 4, 9, 3, 5, 7, 1, 6, 8, 3, 5, 7, 1, 6, 8, 2, 4, 9,
1, 4, 7, 2, 5, 8, 2, 5, 8, 3, 6, 9, 3, 6, 9, 1, 4, 7),
15, 6, byrow = T)
} else if (all(selection == 169, type == "R")) {
sequences <- matrix(c(1, 7, 13, 2, 8, 14, 1, 7, 13, 3, 9, 15, 2, 8, 14, 3,
9, 15, 4, 10, 16, 5, 11, 17, 4, 10, 16, 6, 12, 18, 5,
11, 17, 6, 12, 18, 1, 7, 13, 4, 5, 6, 1, 7, 13, 10,
11, 12, 1, 7, 13, 16, 17, 18, 2, 8, 14, 4, 11, 18, 2,
8, 14, 6, 10, 17, 2, 8, 14, 5, 12, 16, 3, 9, 15, 4,
12, 17, 3, 9, 15, 5, 10, 18, 3, 9, 15, 6, 11, 16, 4,
10, 16, 1, 2, 3, 4, 10, 16, 7, 8, 9, 4, 10, 16, 13,
14, 15, 5, 11, 17, 1, 8, 15, 5, 11, 17, 3, 7, 14, 5,
11, 17, 2, 9, 13, 6, 12, 18, 1, 9, 14, 6, 12, 18, 2,
7, 15, 6, 12, 18, 3, 8, 13), 24, 6, byrow = T)
} else if (all(selection == 170, type == "R")) {
sequences <- matrix(c(1, 10, 19, 6, 5, 4, 14, 1, 10, 13, 19, 15, 19, 22, 1,
23, 10, 24, 2, 11, 20, 24, 4, 14, 15, 2, 11, 20, 22,
5, 20, 23, 2, 11, 6, 13, 3, 15, 23, 4, 12, 21, 5, 13,
24, 21, 3, 12, 6, 12, 22, 14, 21, 3, 22, 4, 13, 7, 8,
9, 13, 16, 4, 22, 17, 18, 4, 26, 27, 25, 13, 22, 23,
5, 14, 27, 7, 17, 8, 25, 5, 18, 14, 23, 16, 14, 9, 5,
23, 26, 18, 6, 26, 15, 24, 7, 24, 27, 6, 16, 15, 8, 9,
24, 15, 17, 25, 6, 7, 3, 16, 1, 2, 25, 12, 7, 25, 10,
11, 16, 25, 21, 7, 19, 16, 20, 21, 8, 17, 26, 1, 11,
17, 19, 8, 12, 26, 2, 26, 17, 3, 8, 20, 10, 27, 20,
12, 9, 18, 1, 10, 18, 21, 2, 9, 27, 11, 9, 18, 3, 27,
19), 27, 6, byrow = T)
} else if (all(selection == 171, type == "R")) {
sequences <- matrix(c(2, 9, 3, 5, 17, 26, 17, 16, 23, 3, 19, 12, 9, 2, 19,
10, 12, 24, 16, 23, 10, 24, 26, 5, 1, 15, 7, 14, 24,
3, 10, 17, 1, 15, 21, 28, 22, 8, 24, 28, 3, 21, 8, 22,
14, 7, 10, 17, 4, 1, 25, 2, 8, 16, 23, 25, 15, 9, 22,
4, 18, 11, 9, 23, 1, 8, 11, 18, 2, 22, 16, 15, 3, 10,
6, 18, 4, 27, 27, 24, 17, 11, 6, 25, 24, 4, 18, 17,
13, 20, 25, 3, 13, 20, 11, 10, 6, 5, 12, 1, 20, 22,
15, 27, 8, 12, 5, 13, 20, 19, 26, 8, 15, 6, 26, 13,
22, 19, 27, 1, 5, 28, 11, 4, 7, 19, 7, 12, 28, 26, 25,
18, 19, 21, 5, 25, 18, 14, 12, 26, 4, 21, 14, 11, 13,
7, 21, 6, 23, 2, 28, 14, 20, 27, 2, 23, 21, 20, 27,
16, 9, 7, 14, 6, 16, 13, 28, 9), 28, 6, byrow = T)
} else if (all(selection == 172, type == "R")) {
sequences <- matrix(c(1, 2, 5, 8, 3, 6, 9, 2, 3, 6, 9, 4, 7, 1, 3, 4, 7, 1,
5, 8, 2, 4, 5, 8, 2, 6, 9, 3, 5, 6, 9, 3, 7, 1, 4, 6,
7, 1, 4, 8, 2, 5, 7, 8, 2, 5, 9, 3, 6, 8, 9, 3, 6, 1,
4, 7, 9, 1, 4, 7, 2, 5, 8), 9, 7, byrow = T)
} else if (all(selection == 175, type == "R")) {
sequences <- matrix(c(1, 2, 3, 4, 6, 7, 11, 2, 3, 4, 5, 7, 8, 12, 3, 4, 5,
6, 8, 9, 1, 4, 5, 6, 7, 9, 10, 2, 5, 6, 7, 8, 10, 11,
3, 6, 7, 8, 9, 11, 12, 4, 7, 8, 9, 10, 12, 1, 5, 8, 9,
10, 11, 1, 2, 6, 9, 10, 11, 12, 2, 3, 7, 10, 11, 12,
1, 3, 4, 8, 11, 12, 1, 2, 4, 5, 9, 12, 1, 2, 3, 5, 6,
10), 12, 7, byrow = T)
} else if (all(selection == 176, type == "R")) {
sequences <- matrix(c(3, 5, 8, 9, 10, 11, 12, 4, 6, 9, 10, 11, 12, 1, 5, 7,
10, 11, 12, 1, 2, 6, 8, 11, 12, 1, 2, 3, 7, 9, 12, 1,
2, 3, 4, 8, 10, 1, 2, 3, 4, 5, 9, 11, 2, 3, 4, 5, 6,
10, 12, 3, 4, 5, 6, 7, 11, 1, 4, 5, 6, 7, 8, 12, 2, 5,
6, 7, 8, 9, 1, 3, 6, 7, 8, 9, 10, 2, 4, 7, 8, 9, 10,
11), 12, 7, byrow = T)
} else if (all(selection == 177, type == "R")) {
sequences <- matrix(c(1, 8, 10, 9, 3, 2, 4, 11, 1, 8, 2, 9, 3, 10, 6, 13, 1,
8, 2, 5, 12, 12, 6, 9, 1, 8, 13, 5, 4, 11, 5, 7, 1, 8,
14, 14, 4, 11, 12, 7, 1, 8, 7, 14, 13, 3, 6, 10, 1, 8,
10, 6, 13, 14, 7, 3, 2, 9, 3, 5, 12, 14, 7, 10, 12, 7,
14, 5, 9, 2, 9, 7, 2, 6, 13, 4, 11, 13, 2, 14, 11, 4,
6, 9, 3, 5, 12, 4, 10, 11, 6, 5, 3, 4, 10, 11, 12,
13), 14, 7, byrow = T)
} else if (all(selection == 186, type == "R")) {
sequences <- matrix(c(3, 4, 6, 8, 9, 10, 11, 12, 4, 5, 7, 9, 10, 11, 12, 1,
5, 6, 8, 10, 11, 12, 1, 2, 6, 7, 9, 11, 12, 1, 2, 3,
7, 8, 10, 12, 1, 2, 3, 4, 8, 9, 11, 1, 2, 3, 4, 5, 9,
10, 12, 2, 3, 4, 5, 6, 10, 11, 1, 3, 4, 5, 6, 7, 11,
12, 2, 4, 5, 6, 7, 8, 12, 1, 3, 5, 6, 7, 8, 9, 1, 2,
4, 6, 7, 8, 9, 10, 2, 3, 5, 7, 8, 9, 10, 11), 12, 8,
byrow = T)
} else if (all(selection == 193, type == "R")) {
sequences <- matrix(c(1, 2, 5, 8, 11, 3, 6, 9, 12, 2, 3, 6, 9, 12, 4, 7, 10,
1, 3, 4, 7, 10, 1, 5, 8, 11, 2, 4, 5, 8, 11, 2, 6, 9,
12, 3, 5, 6, 9, 12, 3, 7, 10, 1, 4, 6, 7, 10, 1, 4, 8,
11, 2, 5, 7, 8, 11, 2, 5, 9, 12, 3, 6, 8, 9, 12, 3, 6,
10, 1, 4, 7, 9, 10, 1, 4, 7, 11, 2, 5, 8, 10, 11, 2,
5, 8, 12, 3, 6, 9, 11, 12, 3, 6, 9, 1, 4, 7, 10, 12,
1, 4, 7, 10, 2, 5, 8, 11), 12, 9, byrow = T)
} else if (all(selection == 203, type == "R")) {
sequences <- matrix(c(1, 2, 3, 4, 6, 7, 8, 10, 11, 12, 2, 3, 4, 5, 7, 8, 9,
11, 12, 1, 3, 4, 5, 6, 8, 9, 10, 12, 1, 2, 4, 5, 6, 7,
9, 10, 11, 1, 2, 3, 5, 6, 7, 8, 10, 11, 12, 2, 3, 4,
6, 7, 8, 9, 11, 12, 1, 3, 4, 5, 7, 8, 9, 10, 12, 1, 2,
4, 5, 6, 8, 9, 10, 11, 1, 2, 3, 5, 6, 7, 9, 10, 11,
12, 2, 3, 4, 6, 7, 8, 10, 11, 12, 1, 3, 4, 5, 7, 8, 9,
11, 12, 1, 2, 4, 5, 6, 8, 9, 10, 12, 1, 2, 3, 5, 6, 7,
9, 10, 11), 12, 10, byrow = T)
} else if (all(selection == 1, type == "S")) {
sequences <- matrix(c(1, 4, 2, 5, 2, 5, 3, 6, 3, 6, 1, 4), 3, 4, byrow = T)
} else if (all(selection == 3, type == "S")) {
sequences <- matrix(c(1, 4, 2, 5, 2, 5, 3, 6, 3, 6, 1, 4, 1, 4, 2, 5, 2, 5,
3, 6, 3, 6, 1, 4, 1, 4, 2, 5, 2, 5, 3, 6, 3, 6, 1, 4),
9, 4, byrow = T)
} else if (all(selection == 6, type == "S")) {
sequences <- matrix(c(1, 5, 2, 6, 3, 7, 4, 8, 1, 5, 3, 7, 2, 6, 4, 8, 1, 5,
4, 8, 2, 6, 3, 7), 6, 4, byrow = T)
} else if (all(selection == 7, type == "S")) {
sequences <- matrix(c(1, 5, 3, 7, 2, 6, 4, 8, 3, 7, 1, 5, 4, 8, 2, 6, 1, 5,
2, 6, 3, 7, 4, 8, 2, 6, 1, 5, 4, 8, 3, 7, 1, 5, 4, 8,
2, 6, 3, 7, 4, 8, 1, 5, 3, 7, 2, 6), 12, 4, byrow = T)
} else if (all(selection == 9, type == "S")) {
sequences <- matrix(c(1, 6, 2, 7, 2, 7, 3, 8, 3, 8, 4, 9, 4, 9, 5, 10, 5,
10, 1, 6, 6, 1, 8, 3, 7, 2, 9, 4, 8, 3, 10, 5, 9, 4,
6, 1, 10, 5, 7, 2), 10, 4, byrow = T)
} else if (all(selection == 11, type == "S")) {
sequences <- matrix(c(1, 7, 2, 8, 3, 9, 4, 10, 5, 11, 6, 12, 1, 7, 4, 10, 2,
8, 5, 11, 3, 9, 6, 12, 1, 7, 6, 12, 2, 8, 4, 10, 3, 9,
5, 11, 1, 7, 3, 9, 2, 8, 6, 12, 4, 10, 5, 11, 1, 7, 5,
11, 2, 8, 3, 9, 4, 10, 6, 12), 15, 4, byrow = T)
} else if (all(selection == 18, type == "S")) {
sequences <- matrix(c(1, 5, 2, 7, 3, 6, 2, 6, 3, 8, 4, 7, 3, 7, 4, 5, 1, 8,
4, 8, 1, 6, 2, 5), 4, 6, byrow = T)
} else if (all(selection == 21, type == "S")) {
sequences <- matrix(c(1, 4, 7, 2, 5, 8, 2, 5, 8, 3, 6, 9, 3, 6, 9, 1, 4, 7),
3, 6, byrow = T)
} else if (all(selection == 24, type == "S")) {
sequences <- matrix(c(1, 4, 7, 2, 5, 8, 2, 5, 8, 3, 6, 9, 3, 6, 9, 1, 4, 7,
1, 4, 7, 2, 5, 8, 2, 5, 8, 3, 6, 9, 3, 6, 9, 1, 4, 7,
1, 4, 7, 2, 5, 8, 2, 5, 8, 3, 6, 9, 3, 6, 9, 1, 4, 7,
1, 4, 7, 2, 5, 8, 2, 5, 8, 3, 6, 9, 3, 6, 9, 1, 4, 7,
1, 4, 7, 2, 5, 8, 2, 5, 8, 3, 6, 9, 3, 6, 9, 1, 4, 7),
15, 6, byrow = T)
} else if (all(selection == 26, type == "S")) {
sequences <- matrix(c(1, 6, 2, 7, 3, 8, 2, 7, 3, 8, 4, 9, 3, 8, 4, 9, 5, 10,
4, 9, 5, 10, 1, 6, 5, 10, 1, 6, 2, 7, 6, 1, 7, 2, 9,
4, 7, 2, 8, 3, 10, 5, 8, 3, 9, 4, 6, 1, 9, 4, 10, 5,
7, 2, 10, 5, 6, 1, 8, 3), 10, 6, byrow = T)
} else if (all(selection == 27, type == "S")) {
sequences <- matrix(c(1, 2, 5, 6, 9, 10, 3, 4, 7, 8, 11, 12, 9, 11, 1, 3, 5,
7, 10, 12, 2, 4, 6, 8, 5, 8, 9, 12, 1, 4, 6, 7, 10,
11, 2, 3), 6, 6, byrow = T)
} else if (all(selection == 28, type == "S")) {
sequences <- matrix(c(1, 7, 2, 8, 3, 9, 2, 8, 3, 9, 4, 10, 3, 9, 4, 10, 5,
11, 4, 10, 5, 11, 1, 7, 5, 11, 1, 7, 2, 8, 5, 11, 2,
8, 6, 12, 1, 7, 3, 9, 6, 12, 2, 8, 4, 10, 6, 12, 3, 9,
5, 11, 6, 12, 4, 10, 1, 7, 6, 12), 10, 6, byrow = T)
} else if (all(selection == 29, type == "S")) {
sequences <- matrix(c(1, 2, 5, 6, 9, 10, 3, 4, 7, 8, 11, 12, 9, 11, 1, 3, 5,
7, 10, 12, 2, 4, 6, 8, 5, 8, 9, 12, 1, 4, 6, 7, 10,
11, 2, 3, 2, 1, 6, 5, 10, 9, 4, 3, 8, 7, 12, 11, 11,
9, 3, 1, 7, 5, 12, 10, 4, 2, 8, 6, 8, 5, 12, 9, 4, 1,
7, 6, 11, 10, 3, 2), 12, 6, byrow = T)
} else if (all(selection == 31, type == "S")) {
sequences <- matrix(c(1, 7, 4, 10, 5, 11, 2, 8, 3, 9, 6, 12, 1, 7, 2, 8, 5,
11, 6, 12, 3, 9, 4, 10, 2, 8, 3, 9, 1, 7, 6, 12, 4,
10, 5, 11, 3, 9, 4, 10, 2, 8, 6, 12, 5, 11, 1, 7, 4,
10, 5, 11, 3, 9, 6, 12, 1, 7, 2, 8, 5, 11, 2, 8, 3, 9,
6, 12, 4, 10, 1, 7, 1, 7, 3, 9, 4, 10, 2, 8, 5, 11, 6,
12, 2, 8, 4, 10, 5, 11, 6, 12, 1, 7, 3, 9, 3, 9, 5,
11, 1, 7, 6, 12, 2, 8, 4, 10, 4, 10, 1, 7, 2, 8, 6,
12, 3, 9, 5, 11), 20, 6, byrow = T)
} else if (all(selection == 32, type == "S")) {
sequences <- matrix(c(1, 8, 2, 9, 4, 11, 2, 9, 3, 10, 5, 12, 3, 10, 4, 11,
6, 13, 4, 11, 5, 12, 7, 14, 5, 12, 6, 13, 1, 8, 6, 13,
7, 14, 2, 9, 7, 14, 1, 8, 3, 10), 7, 6, byrow = T)
} else if (all(selection == 34, type == "S")) {
sequences <- matrix(c(1, 8, 2, 9, 4, 11, 2, 9, 3, 10, 5, 12, 3, 10, 4, 11,
6, 13, 4, 11, 5, 12, 7, 14, 5, 12, 6, 13, 1, 8, 6, 13,
7, 14, 2, 9, 7, 14, 1, 8, 3, 10, 1, 8, 2, 9, 4, 11, 2,
9, 3, 10, 5, 12, 3, 10, 4, 11, 6, 13, 4, 11, 5, 12, 7,
14, 5, 12, 6, 13, 1, 8, 6, 13, 7, 14, 2, 9, 7, 14, 1,
8, 3, 10, 1, 8, 2, 9, 4, 11, 2, 9, 3, 10, 5, 12, 3,
10, 4, 11, 6, 13, 4, 11, 5, 12, 7, 14, 5, 12, 6, 13,
1, 8, 6, 13, 7, 14, 2, 9, 7, 14, 1, 8, 3, 10), 21, 6,
byrow = T)
} else if (all(selection == 35, type == "S")) {
sequences <- matrix(c(1, 6, 11, 2, 7, 12, 2, 7, 12, 3, 8, 13, 3, 8, 13, 4,
9, 14, 4, 9, 14, 5, 10, 15, 5, 10, 15, 1, 6, 11, 1, 6,
11, 3, 8, 13, 2, 7, 12, 4, 9, 14, 3, 8, 13, 5, 10, 15,
4, 9, 14, 1, 6, 11, 5, 10, 15, 2, 7, 12), 10, 6,
byrow = T)
} else if (all(selection == 37, type == "S")) {
sequences <- matrix(c(1, 10, 4, 13, 7, 16, 2, 11, 5, 14, 8, 17, 3, 12, 6,
15, 9, 18, 2, 11, 3, 12, 4, 13, 5, 14, 6, 15, 7, 16,
8, 17, 9, 18, 1, 10, 3, 12, 1, 10, 5, 14, 6, 15, 4,
13, 8, 17, 9, 18, 7, 16, 2, 11, 1, 10, 2, 11, 6, 15,
4, 13, 5, 14, 9, 18, 7, 16, 8, 17, 3, 12), 12, 6,
byrow = T)
} else if (all(selection == 38, type == "S")) {
sequences <- matrix(c(1, 7, 13, 2, 8, 14, 3, 9, 15, 4, 10, 16, 5, 11, 17, 6,
12, 18, 1, 7, 13, 3, 9, 15, 2, 8, 14, 6, 12, 18, 4,
10, 16, 5, 11, 17, 1, 7, 13, 4, 10, 16, 2, 8, 14, 5,
11, 17, 3, 9, 15, 6, 12, 18, 1, 7, 13, 5, 11, 17, 2,
8, 14, 3, 9, 15, 4, 10, 16, 6, 12, 18, 1, 7, 13, 6,
12, 18, 2, 8, 14, 4, 10, 16, 3, 9, 15, 5, 11, 17), 15,
6, byrow = T)
} else if (all(selection == 51, type == "S")) {
sequences <- matrix(c(1, 6, 2, 7, 3, 8, 4, 9, 2, 7, 3, 8, 4, 9, 5, 10, 3, 8,
4, 9, 5, 10, 1, 6, 4, 9, 5, 10, 1, 6, 2, 7, 5, 10, 1,
6, 2, 7, 3, 8), 5, 8, byrow = T)
} else if (all(selection == 52, type == "S")) {
sequences <- matrix(c(1, 6, 2, 7, 3, 8, 4, 9, 2, 7, 3, 8, 4, 9, 5, 10, 3, 8,
4, 9, 5, 10, 1, 6, 4, 9, 5, 10, 1, 6, 2, 7, 5, 10, 1,
6, 2, 7, 3, 8, 6, 1, 7, 2, 8, 3, 9, 4, 7, 2, 8, 3, 9,
4, 10, 5, 8, 3, 9, 4, 10, 5, 6, 1, 9, 4, 10, 5, 6, 1,
7, 2, 10, 5, 6, 1, 7, 2, 8, 3), 10, 8, byrow = T)
} else if (all(selection == 53, type == "S")) {
sequences <- matrix(c(1, 4, 7, 10, 2, 5, 8, 11, 2, 5, 8, 11, 3, 6, 9, 12, 3,
6, 9, 12, 1, 4, 7, 10), 3, 8, byrow = T)
} else if (all(selection == 58, type == "S")) {
sequences <- matrix(c(3, 9, 4, 10, 5, 11, 6, 12, 2, 8, 4, 10, 5, 11, 6, 12,
2, 8, 3, 9, 5, 11, 6, 12, 2, 8, 3, 9, 4, 10, 6, 12, 2,
8, 3, 9, 4, 10, 5, 11, 1, 7, 6, 12, 4, 10, 5, 11, 1,
7, 3, 9, 5, 11, 6, 12, 1, 7, 3, 9, 4, 10, 6, 12, 1, 7,
3, 9, 4, 10, 5, 11, 1, 7, 2, 8, 5, 11, 6, 12, 1, 7, 2,
8, 4, 10, 6, 12, 1, 7, 2, 8, 4, 10, 5, 11, 1, 7, 2, 8,
3, 9, 6, 12, 1, 7, 2, 8, 3, 9, 5, 11, 1, 7, 2, 8, 3,
9, 4, 10), 15, 8, byrow = T)
} else if (all(selection == 59, type == "S")) {
sequences <- matrix(c(7, 14, 6, 13, 5, 12, 3, 10, 1, 8, 7, 14, 6, 13, 4, 11,
2, 9, 1, 8, 7, 14, 5, 12, 3, 10, 2, 9, 1, 8, 6, 13, 4,
11, 3, 10, 2, 9, 7, 14, 5, 12, 4, 11, 3, 10, 1, 8, 6,
13, 5, 12, 4, 11, 2, 9), 7, 8, byrow = T)
} else if (all(selection == 61, type == "S")) {
sequences <- matrix(c(1, 5, 9, 13, 2, 6, 10, 14, 3, 7, 11, 15, 4, 8, 12, 16,
1, 5, 9, 13, 3, 7, 11, 15, 2, 6, 10, 14, 4, 8, 12, 16,
1, 5, 9, 13, 4, 8, 12, 16, 2, 6, 10, 14, 3, 7, 11,
15), 6, 8, byrow = T)
} else if (all(selection == 63, type == "S")) {
sequences <- matrix(c(1, 9, 2, 10, 4, 12, 7, 15, 8, 16, 3, 11, 6, 14, 5, 13,
2, 10, 3, 11, 5, 13, 1, 9, 8, 16, 4, 12, 7, 15, 6, 14,
3, 11, 4, 12, 6, 14, 2, 10, 8, 16, 5, 13, 1, 9, 7, 15,
4, 12, 5, 13, 7, 15, 3, 11, 8, 16, 6, 14, 2, 10, 1, 9,
5, 13, 6, 14, 1, 9, 4, 12, 8, 16, 7, 15, 3, 11, 2, 10,
6, 14, 7, 15, 2, 10, 5, 13, 8, 16, 1, 9, 4, 12, 3, 11,
7, 15, 1, 9, 3, 11, 6, 14, 8, 16, 2, 10, 5, 13, 4,
12), 14, 8, byrow = T)
} else if (all(selection == 65, type == "S")) {
sequences <- matrix(c(1, 10, 2, 11, 3, 12, 4, 13, 6, 15, 1, 10, 2, 11, 5,
14, 7, 16, 8, 17, 1, 10, 2, 11, 5, 14, 3, 12, 7, 16,
1, 10, 10, 1, 6, 15, 8, 17, 13, 4, 15, 6, 10, 1, 12,
3, 9, 18, 9, 18, 4, 13, 10, 1, 8, 17, 18, 9, 5, 14,
16, 7, 10, 1, 2, 11, 12, 3, 17, 8, 18, 9, 4, 13, 11,
2, 9, 18, 14, 5, 16, 7, 9, 18, 11, 2, 6, 15, 11, 2, 7,
16, 4, 13, 3, 12, 8, 17, 15, 6, 5, 14, 11, 2, 3, 12,
14, 5, 18, 9, 17, 8, 13, 4, 18, 9, 15, 6, 16, 7, 12,
3, 13, 4, 14, 5, 15, 6, 17, 8, 16, 7, 6, 15, 12, 3,
14, 5, 17, 8, 13, 4, 7, 16), 18, 8, byrow = T)
} else if (all(selection == 66, type == "S")) {
sequences <- matrix(c(1, 6, 11, 16, 2, 7, 12, 17, 2, 7, 12, 17, 3, 8, 13,
18, 3, 8, 13, 18, 4, 9, 14, 19, 4, 9, 14, 19, 5, 10,
15, 20, 5, 10, 15, 20, 1, 6, 11, 16, 1, 6, 11, 16, 3,
8, 13, 18, 2, 7, 12, 17, 4, 9, 14, 19, 3, 8, 13, 18,
5, 10, 15, 20, 4, 9, 14, 19, 1, 6, 11, 16, 5, 10, 15,
20, 2, 7, 12, 17), 10, 8, byrow = T)
} else if (all(selection == 67, type == "S")) {
sequences <- matrix(c(1, 11, 4, 14, 7, 17, 10, 20, 5, 15, 9, 19, 3, 13, 4,
14, 3, 13, 7, 17, 6, 16, 8, 18, 2, 12, 6, 16, 1, 11,
9, 19, 8, 18, 10, 20, 2, 12, 5, 15, 4, 14, 2, 12, 8,
18, 6, 16, 7, 17, 9, 19, 5, 15, 2, 12, 5, 15, 8, 18,
3, 13, 1, 11, 6, 16, 3, 13, 9, 19, 10, 20, 2, 12, 1,
11, 10, 20, 3, 13, 9, 19, 10, 20, 8, 18, 7, 17, 1, 11,
6, 16, 7, 17, 5, 15, 10, 20, 5, 15, 4, 14, 6, 16, 4,
14, 8, 18, 1, 11, 9, 19, 3, 13, 7, 17, 2, 12, 4, 14),
15, 8, byrow = T)
} else if (all(selection == 82, type == "S")) {
sequences <- matrix(c(1, 5, 9, 2, 6, 10, 3, 7, 11, 2, 6, 10, 3, 7, 11, 4, 8,
12, 3, 7, 11, 4, 8, 12, 1, 5, 9, 4, 8, 12, 1, 5, 9, 2,
6, 10), 4, 9, byrow = T)
} else if (all(selection == 85, type == "S")) {
sequences <- matrix(c(1, 6, 11, 2, 7, 12, 3, 8, 13, 2, 7, 12, 3, 8, 13, 4,
9, 14, 3, 8, 13, 4, 9, 14, 5, 10, 15, 4, 9, 14, 5, 10,
15, 1, 6, 11, 5, 10, 15, 1, 6, 11, 2, 7, 12, 1, 6, 11,
3, 8, 13, 4, 9, 14, 2, 7, 12, 4, 9, 14, 5, 10, 15, 3,
8, 13, 5, 10, 15, 1, 6, 11, 4, 9, 14, 1, 6, 11, 2, 7,
12, 5, 10, 15, 2, 7, 12, 3, 8, 13), 10, 9, byrow = T)
} else if (all(selection == 86, type == "S")) {
sequences <- matrix(c(1, 7, 13, 2, 8, 14, 3, 9, 15, 1, 7, 13, 2, 8, 14, 4,
10, 16, 1, 7, 13, 3, 9, 15, 6, 12, 18, 1, 7, 13, 4,
10, 16, 5, 11, 17, 1, 7, 13, 5, 11, 17, 6, 12, 18, 2,
8, 14, 3, 9, 15, 5, 11, 17, 2, 8, 14, 4, 10, 16, 6,
12, 18, 2, 8, 14, 5, 11, 17, 6, 12, 18, 3, 9, 15, 4,
10, 16, 5, 11, 17, 3, 9, 15, 4, 10, 16, 6, 12, 18),
10, 9, byrow = T)
} else if (all(selection == 88, type == "S")) {
sequences <- matrix(c(1, 8, 15, 2, 9, 16, 4, 11, 18, 2, 9, 16, 3, 10, 17, 5,
12, 19, 3, 10, 17, 4, 11, 18, 6, 13, 20, 4, 11, 18, 5,
12, 19, 7, 14, 21, 5, 12, 19, 6, 13, 20, 1, 8, 15, 6,
13, 20, 7, 14, 21, 2, 9, 16, 7, 14, 21, 1, 8, 15, 3,
10, 17), 7, 9, byrow = T)
} else if (all(selection == 91, type == "S")) {
sequences <- matrix(c(1, 10, 19, 4, 13, 22, 7, 16, 25, 2, 11, 20, 5, 14, 23,
8, 17, 26, 3, 12, 21, 6, 15, 24, 9, 18, 27, 2, 11, 20,
3, 12, 21, 4, 13, 22, 5, 14, 23, 6, 15, 24, 7, 16, 25,
8, 17, 26, 9, 18, 27, 1, 10, 19, 3, 12, 21, 1, 10, 19,
5, 14, 23, 6, 15, 24, 4, 13, 22, 8, 17, 26, 9, 18, 27,
7, 16, 25, 2, 11, 20, 1, 10, 19, 2, 11, 20, 6, 15, 24,
4, 13, 22, 5, 14, 23, 9, 18, 27, 7, 16, 25, 8, 17, 26,
3, 12, 21), 12, 9, byrow = T)
} else if (all(selection == 98, type == "S")) {
sequences <- matrix(c(1, 7, 2, 8, 3, 9, 4, 10, 5, 11, 2, 8, 3, 9, 4, 10, 5,
11, 6, 12, 3, 9, 4, 10, 5, 11, 6, 12, 1, 7, 4, 10, 5,
11, 6, 12, 1, 7, 2, 8, 5, 11, 6, 12, 1, 7, 2, 8, 3, 9,
6, 12, 1, 7, 2, 8, 3, 9, 4, 10), 6, 10, byrow = T)
} else if (all(selection == 101, type == "S")) {
sequences <- matrix(c(1, 4, 7, 10, 13, 2, 5, 8, 11, 14, 2, 5, 8, 11, 14, 3,
6, 9, 12, 15, 3, 6, 9, 12, 15, 1, 4, 7, 10, 13, 1, 4,
7, 10, 13, 2, 5, 8, 11, 14, 2, 5, 8, 11, 14, 3, 6, 9,
12, 15, 3, 6, 9, 12, 15, 1, 4, 7, 10, 13), 6, 10,
byrow = T)
} else if (all(selection == 106, type == "S")) {
sequences <- matrix(c(1, 5, 9, 13, 17, 2, 6, 10, 14, 18, 3, 7, 11, 15, 19,
4, 8, 12, 16, 20, 1, 5, 9, 13, 17, 3, 7, 11, 15, 19,
2, 6, 10, 14, 18, 4, 8, 12, 16, 20, 1, 5, 9, 13, 17,
4, 8, 12, 16, 20, 2, 6, 10, 14, 18, 3, 7, 11, 15, 19),
6, 10, byrow = T)
} else if (all(selection == 110, type == "S")) {
sequences <- matrix(c(1, 12, 4, 15, 5, 16, 9, 20, 3, 14, 2, 13, 5, 16, 6,
17, 10, 21, 4, 15, 3, 14, 6, 17, 7, 18, 11, 22, 5, 16,
4, 15, 7, 18, 8, 19, 1, 12, 6, 17, 5, 16, 8, 19, 9,
20, 2, 13, 7, 18, 6, 17, 9, 20, 10, 21, 3, 14, 8, 19,
7, 18, 10, 21, 11, 22, 4, 15, 9, 20, 8, 19, 11, 22, 1,
12, 5, 16, 10, 21, 9, 20, 1, 12, 2, 13, 6, 17, 11, 22,
10, 21, 2, 13, 3, 14, 7, 18, 1, 12, 11, 22, 3, 14, 4,
15, 8, 19, 2, 13), 11, 10, byrow = T)
} else if (all(selection == 116, type == "S")) {
sequences <- matrix(c(1, 8, 15, 22, 29, 2, 9, 16, 23, 30, 2, 9, 16, 23, 30,
3, 10, 17, 24, 31, 3, 10, 17, 24, 31, 4, 11, 18, 25,
32, 4, 11, 18, 25, 32, 5, 12, 19, 26, 33, 5, 12, 19,
26, 33, 6, 13, 20, 27, 34, 6, 13, 20, 27, 34, 7, 14,
21, 28, 35, 7, 14, 21, 28, 35, 1, 8, 15, 22, 29, 1, 8,
15, 22, 29, 3, 10, 17, 24, 31, 2, 9, 16, 23, 30, 4,
11, 18, 25, 32, 3, 10, 17, 24, 31, 5, 12, 19, 26, 33,
4, 11, 18, 25, 32, 6, 13, 20, 27, 34, 5, 12, 19, 26,
33, 7, 14, 21, 28, 35, 6, 13, 20, 27, 34, 1, 8, 15,
22, 29, 7, 14, 21, 28, 35, 2, 9, 16, 23, 30, 1, 8, 15,
22, 29, 4, 11, 18, 25, 32, 2, 9, 16, 23, 30, 5, 12,
19, 26, 33, 3, 10, 17, 24, 31, 6, 13, 20, 27, 34, 4,
11, 18, 25, 32, 7, 14, 21, 28, 35, 5, 12, 19, 26, 33,
8, 8, 15, 22, 29, 6, 13, 20, 27, 34, 2, 9, 16, 23, 30,
7, 14, 21, 28, 35, 3, 10, 17, 24, 31), 21, 10,
byrow = T)
} else if (all(selection == 1, type == "SR")) {
sequences <- matrix(c(1, 2, 3, 4, 4, 1, 2, 3), 4, 2, byrow = T)
} else if (all(selection == 3, type == "SR")) {
sequences <- matrix(c(1, 2, 3, 4, 4, 1, 2, 3, 1, 2, 3, 4, 4, 1, 2, 3, 1, 2,
3, 4, 4, 1, 2, 3), 12, 2, byrow = T)
} else if (all(selection == 6, type == "SR")) {
sequences <- matrix(c(1, 2, 3, 4, 5, 6, 1, 6, 3, 2, 5, 4, 1, 4, 3, 6, 5, 2),
9, 2, byrow = T)
} else if (all(selection == 7, type == "SR")) {
sequences <- matrix(c(1, 2, 3, 4, 5, 6, 4, 1, 6, 3, 2, 5, 2, 1, 4, 3, 6, 5,
1, 6, 3, 2, 5, 4, 1, 4, 3, 6, 5, 2, 6, 1, 2, 3, 4, 5),
18, 2, byrow = T)
} else if (all(selection == 9, type == "SR")) {
sequences <- matrix(c(1, 2, 3, 4, 5, 6, 7, 8, 6, 1, 8, 3, 2, 5, 4, 7, 1, 4,
3, 2, 5, 8, 7, 6, 8, 1, 6, 3, 4, 5, 2, 7), 16, 2,
byrow = T)
} else if (all(selection == 11, type == "SR")) {
sequences <- matrix(c(1, 2, 3, 10, 5, 8, 7, 6, 9, 4, 1, 8, 3, 6, 5, 4, 7, 2,
9, 10, 1, 4, 3, 2, 5, 10, 7, 8, 9, 6, 1, 10, 3, 8, 5,
6, 7, 4, 9, 2, 1, 6, 3, 4, 5, 2, 7, 10, 9, 8), 25, 2,
byrow = T)
} else if (all(selection == 18, type == "SR")) {
sequences <- matrix(c(1, 2, 3, 1, 5, 6, 2, 4, 6, 3, 4, 5), 4, 3, byrow = T)
} else if (all(selection == 19, type == "SR")) {
sequences <- matrix(c(1, 2, 3, 4, 5, 6, 1, 5, 3, 4, 2, 6, 1, 2, 6, 4, 5, 3,
1, 5, 6, 4, 2, 3), 8, 3, byrow = T)
} else if (all(selection == 23, type == "SR")) {
sequences <- matrix(c(1, 2, 3, 4, 5, 6, 7, 8, 9, 1, 5, 9, 2, 6, 7, 3, 4, 8,
1, 6, 8, 2, 4, 9, 3, 5, 7), 9, 3, byrow = T)
} else if (all(selection == 24, type == "SR")) {
sequences <- matrix(c(1, 2, 3, 4, 5, 6, 7, 8, 9, 1, 3, 5, 4, 6, 8, 2, 7, 9,
1, 6, 8, 4, 2, 9, 3, 5, 7, 1, 2, 6, 4, 5, 9, 3, 7, 8,
1, 5, 9, 3, 4, 8, 2, 6, 7, 1, 8, 9, 2, 3, 4, 5, 6, 7),
18, 3, byrow = T)
} else if (all(selection == 25, type == "SR")) {
sequences <- matrix(c(1, 2, 3, 4, 5, 6, 7, 8, 9, 1, 3, 5, 4, 6, 8, 2, 7, 9,
1, 2, 6, 4, 5, 9, 3, 7, 8, 1, 5, 6, 4, 8, 9, 2, 3, 7,
1, 2, 9, 3, 4, 5, 6, 7, 8, 1, 5, 9, 2, 6, 7, 3, 4, 8,
1, 3, 8, 2, 4, 6, 5, 7, 9, 1, 6, 8, 2, 4, 9, 3, 5, 7,
1, 8, 9, 2, 3, 4, 5, 6, 7), 27, 3, byrow = T)
} else if (all(selection == 26, type == "SR")) {
sequences <- matrix(c(1, 2, 3, 12, 8, 7, 9, 10, 5, 11, 4, 6, 1, 5, 6, 8, 3,
4, 9, 11, 7, 2, 12, 10, 1, 12, 11, 5, 7, 3, 6, 10, 8,
4, 2, 9, 1, 8, 9, 7, 6, 2, 10, 11, 3, 4, 12, 5), 16,
3, byrow = T)
} else if (all(selection == 35, type == "SR")) {
sequences <- matrix(c(1, 2, 3, 4, 5, 6, 1, 2, 3, 4, 5, 6, 1, 4, 3, 6, 5, 2,
1, 4, 3, 6, 5, 2, 1, 6, 3, 2, 5, 4, 1, 6, 3, 2, 5, 4),
9, 4, byrow = T)
} else if (all(selection == 36, type == "SR")) {
sequences <- matrix(c(1, 2, 3, 4, 5, 6, 7, 8, 2, 7, 8, 1, 6, 3, 4, 5, 3, 8,
1, 6, 7, 4, 5, 2, 4, 1, 6, 7, 8, 5, 2, 3), 8, 4,
byrow = T)
} else if (all(selection == "36a", type == "SR")) {
sequences <- matrix(c(2, 6, 3, 7, 4, 8, 7, 3, 8, 4, 1, 5, 8, 4, 1, 5, 6, 2,
1, 5, 6, 2, 7, 3), 4, 6, byrow = T)
} else if (all(selection == 37, type == "SR")) {
sequences <- matrix(c(1, 4, 6, 7, 3, 5, 6, 8, 2, 5, 7, 8, 1, 3, 6, 8, 1, 2,
4, 7, 2, 3, 4, 5, 1, 2, 3, 4, 1, 2, 3, 8, 3, 4, 5, 6,
4, 5, 6, 7, 1, 6, 7, 8, 2, 5, 7, 8), 12, 4, byrow = T)
} else if (all(selection == 41, type == "SR")) {
sequences <- matrix(c(1, 2, 3, 4, 7, 10, 5, 4, 6, 11, 9, 4, 1, 7, 6, 8, 11,
5, 2, 8, 10, 9, 3, 8, 1, 11, 10, 12, 9, 2, 7, 12, 5,
3, 6, 12), 9, 4, byrow = T)
} else if (all(selection == 42, type == "SR")) {
sequences <- matrix(c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 7, 8, 1, 10,
11, 12, 5, 2, 3, 4, 9, 6, 1, 6, 3, 12, 5, 10, 7, 4, 9,
2, 11, 8, 1, 2, 7, 12, 5, 6, 11, 4, 9, 10, 3, 8, 11,
4, 1, 10, 3, 8, 5, 2, 7, 12, 9, 6, 11, 8, 1, 6, 3, 12,
5, 10, 7, 4, 9, 2), 18, 4, byrow = T)
} else if (all(selection == 44, type == "SR")) {
sequences <- matrix(c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16,
1, 6, 11, 16, 2, 5, 12, 15, 3, 8, 9, 14, 4, 7, 10, 13,
1, 7, 12, 14, 2, 8, 11, 13, 3, 5, 10, 16, 4, 6, 9, 15,
1, 8, 10, 15, 2, 7, 9, 16, 3, 6, 12, 13, 4, 5, 11,
14), 16, 4, byrow = T)
} else if (all(selection == 46, type == "SR")) {
sequences <- matrix(c(1, 19, 20, 18, 1, 12, 10, 11, 6, 16, 17, 11, 16, 3,
18, 5, 7, 5, 2, 12, 4, 19, 6, 9, 8, 14, 9, 3, 14, 20,
7, 13, 15, 13, 4, 10, 15, 2, 8, 17, 1, 2, 3, 4, 1, 6,
7, 8, 19, 12, 14, 17, 12, 9, 18, 15, 20, 15, 5, 6, 13,
2, 19, 16, 10, 16, 9, 7, 10, 17, 3, 20, 18, 11, 13, 8,
11, 5, 4, 14, 1, 16, 14, 15, 9, 20, 11, 2, 13, 6, 12,
3, 17, 18, 7, 4, 5, 19, 8, 10), 25, 4, byrow = T)
} else if (all(selection == 52, type == "SR")) {
sequences <- matrix(c(1, 2, 3, 4, 5, 6, 7, 8, 9, 5, 1, 2, 8, 9, 10, 6, 7, 3,
4, 10, 1, 7, 3, 9, 5, 6, 2, 8, 4, 5, 1, 7, 8, 4, 10,
6, 2, 3, 9, 10), 8, 5, byrow = T)
} else if (all(selection == 53, type == "SR")) {
sequences <- matrix(c(6, 7, 3, 9, 10, 1, 7, 8, 4, 10, 6, 2, 8, 9, 5, 1, 7,
3, 9, 10, 1, 2, 8, 4, 10, 1, 2, 3, 9, 5, 6, 2, 3, 4,
10, 6, 7, 3, 4, 5, 6, 7, 8, 4, 5, 1, 7, 8, 9, 5, 6, 2,
8, 9, 10, 1, 2, 3, 4, 5), 12, 5, byrow = T)
} else if (all(selection == 54, type == "SR")) {
sequences <- matrix(c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 1, 2, 8, 9, 5, 6, 7, 3,
4, 10, 1, 2, 3, 4, 10, 6, 7, 8, 9, 5, 1, 2, 8, 9, 10,
6, 7, 3, 4, 5, 1, 7, 3, 9, 5, 6, 2, 8, 4, 10, 1, 7, 8,
4, 5, 6, 2, 3, 9, 10, 1, 7, 3, 9, 10, 6, 2, 8, 4, 5,
1, 7, 8, 4, 10, 6, 2, 3, 9, 5), 16, 5, byrow = T)
} else if (all(selection == 55, type == "SR")) {
sequences <- matrix(c(4, 2, 3, 1, 5, 6, 7, 3, 10, 4, 7, 1, 4, 5, 8, 2, 8, 6,
5, 9, 3, 9, 10, 7, 6, 8, 4, 10, 7, 1, 5, 9, 1, 8, 2,
1, 10, 9, 2, 3, 4, 3, 1, 2, 10, 5, 6, 2, 3, 4, 1, 7,
5, 4, 3, 6, 2, 8, 4, 5, 7, 3, 5, 9, 1, 2, 8, 4, 10, 6,
3, 5, 9, 6, 7, 8, 4, 7, 6, 10, 9, 5, 6, 8, 7, 9, 10,
7, 1, 8, 10, 1, 8, 9, 2, 10, 6, 2, 3, 9), 20, 5,
byrow = T)
} else if (all(selection == 56, type == "SR")) {
sequences <- matrix(c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 1,
7, 3, 14, 15, 6, 12, 8, 4, 5, 11, 2, 13, 9, 10, 1, 7,
13, 9, 5, 6, 12, 3, 14, 10, 11, 2, 8, 4, 15, 1, 2, 8,
14, 10, 6, 7, 13, 4, 15, 11, 12, 3, 9, 5, 1, 12, 13,
4, 10, 6, 2, 3, 9, 15, 11, 7, 8, 14, 5, 1, 12, 8, 9,
15, 6, 2, 13, 14, 5, 11, 7, 3, 4, 10), 18, 5,
byrow = T)
} else if (all(selection == 60, type == "SR")) {
sequences <- matrix(c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16,
17, 18, 19, 20, 21, 22, 23, 24, 25, 1, 7, 13, 19, 25,
2, 8, 14, 20, 21, 3, 9, 15, 16, 22, 4, 10, 11, 17, 23,
5, 6, 12, 18, 24, 1, 10, 14, 18, 22, 2, 6, 15, 19, 23,
3, 7, 11, 20, 24, 4, 8, 12, 16, 25, 5, 9, 13, 17, 21,
1, 9, 12, 20, 23, 2, 10, 13, 16, 24, 3, 6, 14, 17, 25,
4, 7, 15, 18, 21, 5, 8, 11, 19, 22, 1, 8, 15, 17, 24,
2, 9, 11, 18, 25, 3, 10, 12, 19, 21, 4, 6, 13, 20, 22,
5, 7, 14, 16, 23), 25, 5, byrow = T)
} else if (all(selection == 65, type == "SR")) {
sequences <- matrix(c(1, 2, 3, 5, 6, 4, 8, 1, 2, 3, 9, 7, 4, 9, 7, 8, 5, 6,
6, 7, 1, 9, 2, 5, 3, 4, 5, 1, 8, 9, 2, 6, 4, 7, 3, 8,
9, 8, 6, 2, 4, 1, 7, 5, 8, 6, 1, 3, 5, 3, 9, 4, 7, 2),
9, 6, byrow = T)
} else if (all(selection == 66, type == "SR")) {
sequences <- matrix(c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 5, 6, 1, 2, 9, 10, 11,
12, 7, 8, 3, 4, 11, 12, 10, 5, 12, 1, 8, 3, 4, 5, 12,
7, 2, 9, 4, 11, 6, 1, 8, 9, 10, 11, 6, 7, 2, 3), 8, 6,
byrow = T)
} else if (all(selection == 67, type == "SR")) {
sequences <- matrix(c(7, 8, 10, 11, 3, 12, 8, 9, 11, 12, 1, 4, 9, 10, 12, 5,
7, 2, 10, 11, 6, 1, 8, 3, 11, 12, 1, 2, 4, 9, 12, 1,
2, 3, 5, 10, 2, 3, 4, 7, 11, 6, 3, 4, 5, 8, 12, 7, 4,
5, 7, 6, 9, 8, 5, 6, 8, 9, 10, 1, 6, 7, 9, 10, 2, 11,
1, 2, 3, 4, 6, 5), 12, 6, byrow = T)
} else if (all(selection == 68, type == "SR")) {
sequences <- matrix(c(1, 4, 2, 5, 3, 6, 4, 8, 12, 9, 11, 1, 2, 5, 9, 10, 7,
12, 11, 3, 6, 7, 10, 8, 7, 2, 8, 3, 1, 9, 5, 12, 11,
1, 6, 7, 10, 6, 4, 8, 12, 2, 9, 10, 5, 11, 4, 3, 3, 1,
10, 12, 2, 11, 8, 9, 1, 6, 5, 10, 6, 11, 7, 2, 9, 4,
12, 7, 3, 4, 8, 5), 12, 6, byrow = T)
} else if (all(selection == 72, type == "SR")) {
sequences <- matrix(c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16,
17, 18, 2, 9, 16, 11, 18, 1, 8, 15, 4, 17, 6, 7, 14,
3, 10, 5, 12, 13, 3, 16, 17, 12, 1, 8, 9, 4, 5, 18, 7,
14, 15, 10, 11, 6, 13, 2, 4, 11, 12, 1, 14, 15, 10,
17, 18, 7, 2, 3, 16, 5, 6, 13, 8, 9, 5, 18, 1, 8, 15,
10, 11, 6, 7, 14, 3, 16, 17, 12, 13, 2, 9, 4, 6, 1,
14, 9, 10, 17, 12, 7, 2, 16, 15, 5, 18, 13, 8, 3, 4,
11), 18, 6, byrow = T)
} else if (all(selection == 73, type == "SR")) {
sequences <- matrix(c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16,
17, 18, 1, 2, 3, 10, 11, 12, 7, 8, 9, 16, 17, 18, 13,
14, 15, 4, 5, 6, 1, 2, 3, 16, 17, 18, 7, 8, 9, 4, 5,
6, 13, 14, 15, 10, 11, 12, 15, 4, 11, 18, 1, 8, 3, 10,
17, 6, 7, 14, 9, 16, 5, 12, 13, 2, 15, 10, 17, 6, 1,
8, 3, 16, 5, 12, 7, 14, 9, 4, 11, 18, 13, 2, 15, 16,
5, 12, 1, 8, 3, 4, 11, 18, 7, 14, 9, 10, 17, 6, 13, 2,
17, 12, 1, 14, 9, 4, 5, 18, 7, 2, 15, 10, 11, 6, 13,
8, 3, 16, 5, 18, 1, 14, 9, 10, 11, 6, 7, 2, 15, 16,
17, 12, 13, 8, 3, 4, 11, 6, 1, 14, 9, 16, 17, 12, 7,
2, 15, 4, 5, 18, 13, 8, 3, 10), 27, 6, byrow = T)
} else if (all(selection == 75, type == "SR")) {
sequences <- matrix(c(5, 8, 9, 22, 24, 25, 6, 9, 10, 23, 1, 26, 7, 10, 11,
24, 2, 27, 8, 11, 12, 1, 3, 28, 9, 12, 13, 2, 4, 29,
10, 13, 14, 3, 5, 30, 11, 14, 15, 4, 6, 25, 12, 15,
16, 5, 7, 26, 13, 16, 17, 6, 8, 27, 14, 17, 18, 7, 9,
28, 15, 18, 19, 8, 10, 29, 16, 19, 20, 9, 11, 30, 17,
20, 21, 10, 12, 25, 18, 21, 22, 11, 13, 26, 19, 22,
23, 12, 14, 27, 20, 23, 24, 13, 15, 28, 21, 24, 1, 14,
16, 29, 22, 1, 2, 15, 17, 30, 23, 2, 3, 16, 18, 25,
24, 3, 4, 17, 19, 26, 1, 4, 5, 18, 20, 27, 2, 5, 6,
19, 21, 28, 3, 6, 7, 20, 22, 29, 4, 7, 8, 21, 23, 30,
25, 26, 27, 28, 29, 30), 25, 6, byrow = T)
} else if (all(selection == 80, type == "SR")) {
sequences <- matrix(c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 5, 6, 7, 1, 2, 10,
11, 12, 13, 7, 8, 9, 3, 4, 12, 13, 7, 1, 9, 3, 11, 5,
13, 14, 8, 2, 10, 4, 5, 13, 14, 1, 9, 10, 4, 12, 6,
14, 8, 2, 3, 11, 12, 6, 14), 8, 7, byrow = T)
} else if (all(selection == 81, type == "SR")) {
sequences <- matrix(c(8, 9, 3, 11, 12, 13, 7, 1, 9, 10, 4, 12, 13, 14, 8, 2,
10, 11, 5, 13, 14, 1, 9, 3, 11, 12, 6, 14, 1, 2, 10,
4, 12, 13, 7, 1, 2, 3, 11, 5, 13, 14, 8, 2, 3, 4, 12,
6, 14, 8, 9, 3, 4, 5, 13, 7, 8, 9, 10, 4, 5, 6, 14, 1,
9, 10, 11, 5, 6, 7, 8, 2, 10, 11, 12, 6, 7, 1, 2, 3,
4, 5, 6, 7), 12, 7, byrow = T)
} else if (all(selection == 82, type == "SR")) {
sequences <- matrix(c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 5, 6, 7, 1, 2, 10,
11, 12, 13, 7, 8, 9, 3, 4, 12, 13, 7, 1, 9, 3, 11, 5,
13, 14, 8, 2, 10, 4, 5, 13, 14, 1, 9, 10, 4, 12, 6,
14, 8, 2, 3, 11, 12, 6, 14, 1, 2, 3, 4, 5, 6, 7, 8, 9,
10, 11, 5, 6, 7, 1, 2, 10, 11, 12, 13, 7, 8, 9, 3, 4,
12, 13, 7, 1, 9, 3, 11, 5, 13, 14, 8, 2, 10, 4, 5, 13,
14, 1, 9, 10, 4, 12, 6, 14, 8, 2, 3, 11, 12, 6, 14),
16, 7, byrow = T)
} else if (all(selection == 90, type == "SR")) {
sequences <- matrix(c(1, 3, 8, 6, 2, 5, 7, 4, 1, 7, 4, 10, 6, 5, 11, 12, 1,
11, 12, 2, 10, 5, 3, 8, 9, 7, 12, 6, 2, 1, 11, 8, 9,
11, 8, 10, 6, 1, 3, 4, 9, 3, 4, 2, 10, 1, 7, 12, 5,
11, 4, 6, 2, 9, 3, 12, 5, 3, 12, 10, 6, 9, 7, 8, 5, 7,
8, 2, 10, 9, 11, 4), 9, 8, byrow = T)
} else if (all(selection == 91, type == "SR")) {
sequences <- matrix(c(9, 10, 3, 12, 13, 14, 7, 8, 13, 10, 14, 15, 1, 11, 4,
8, 9, 2, 11, 12, 5, 14, 15, 16, 1, 10, 3, 12, 13, 6,
15, 16, 1, 2, 11, 4, 13, 14, 7, 16, 1, 2, 3, 14, 5,
12, 15, 8, 13, 6, 15, 16, 9, 2, 3, 4, 5, 14, 4, 16, 9,
10, 3, 7, 9, 4, 15, 8, 5, 10, 11, 6, 5, 11, 7, 16, 1,
10, 6, 12, 13, 6, 7, 8, 9, 2, 11, 12, 5, 6, 7, 8, 1,
2, 3, 4), 12, 8, byrow = T)
} else if (all(selection == 92, type == "SR")) {
sequences <- matrix(c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16,
10, 3, 12, 5, 14, 7, 16, 1, 2, 11, 4, 13, 6, 15, 8, 9,
11, 12, 5, 6, 15, 16, 1, 2, 3, 4, 13, 14, 7, 8, 9, 10,
4, 5, 14, 15, 8, 1, 10, 11, 12, 13, 6, 7, 16, 9, 2, 3,
13, 14, 15, 16, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12,
6, 15, 8, 1, 10, 3, 12, 13, 14, 7, 16, 9, 2, 11, 4, 5,
7, 8, 1, 2, 11, 12, 13, 14, 15, 16, 9, 10, 3, 4, 5, 6,
16, 1, 10, 11, 4, 13, 6, 7, 8, 9, 2, 3, 12, 5, 14,
15), 16, 8, byrow = T)
} else if (all(selection == 93, type == "SR")) {
sequences <- matrix(c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 3, 4, 13, 14, 15, 16,
14, 10, 11, 4, 5, 1, 15, 16, 9, 15, 11, 12, 5, 6, 2,
16, 9, 10, 3, 12, 13, 6, 7, 16, 1, 10, 11, 13, 4, 14,
7, 8, 1, 2, 11, 12, 5, 14, 15, 8, 1, 2, 16, 12, 13, 6,
15, 3, 1, 2, 3, 4, 13, 14, 7, 16, 9, 2, 3, 4, 5, 14,
15, 8, 5, 10, 15, 16, 1, 6, 3, 4, 5, 6, 11, 16, 9, 2,
7, 4, 5, 6, 7, 8, 1, 10, 3, 12, 9, 6, 7, 8, 13, 2, 11,
4, 5, 14, 7, 12, 9, 10, 3, 8, 13, 6, 15, 8, 9, 10, 11,
4, 5, 14, 7, 16, 9, 10, 11, 12, 13, 6, 15, 8, 1, 10,
11, 12, 13, 14, 7, 16, 1, 2, 11, 12, 13, 14, 15, 8, 9,
2, 3, 12), 20, 8, byrow = T)
} else if (all(selection == 94, type == "SR")) {
sequences <- matrix(c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16,
17, 18, 19, 20, 21, 22, 23, 24, 1, 2, 3, 12, 13, 14,
23, 24, 9, 10, 11, 20, 21, 22, 7, 8, 17, 18, 19, 4, 5,
6, 15, 16, 1, 2, 3, 20, 21, 22, 15, 16, 9, 10, 11, 4,
5, 6, 23, 24, 17, 18, 19, 12, 13, 14, 7, 8, 1, 10, 19,
4, 13, 22, 7, 16, 9, 18, 3, 12, 21, 6, 15, 24, 17, 2,
11, 20, 5, 14, 23, 8, 1, 10, 19, 12, 21, 6, 23, 8, 9,
18, 3, 20, 5, 14, 7, 16, 17, 2, 11, 4, 13, 22, 15, 24,
1, 10, 19, 20, 5, 14, 15, 24, 9, 18, 3, 4, 13, 22, 23,
8, 17, 2, 11, 12, 21, 6, 7, 16, 1, 18, 11, 4, 21, 14,
7, 24, 9, 2, 19, 12, 5, 22, 15, 8, 17, 10, 3, 20, 13,
6, 23, 16, 1, 18, 11, 12, 5, 22, 23, 16, 9, 2, 19, 20,
13, 6, 7, 24, 17, 10, 3, 4, 21, 14, 15, 8, 1, 18, 11,
20, 13, 6, 15, 8, 9, 2, 19, 4, 21, 14, 23, 16, 17, 10,
3, 12, 5, 22, 7, 24), 27, 8, byrow = T)
} else if (all(selection == 99, type == "SR")) {
sequences <- matrix(c(10, 11, 3, 9, 8, 15, 7, 14, 13, 1, 16, 12, 4, 14, 8,
11, 15, 9, 10, 2, 12, 13, 5, 15, 16, 17, 9, 1, 11, 6,
13, 14, 3, 16, 17, 18, 17, 14, 15, 7, 4, 12, 1, 2, 18,
13, 5, 15, 16, 2, 18, 1, 8, 3, 4, 14, 6, 16, 17, 9,
10, 2, 3, 4, 5, 3, 7, 17, 18, 10, 11, 15, 16, 8, 18,
10, 11, 5, 4, 12, 6, 13, 17, 9, 1, 11, 12, 7, 5, 6, 7,
8, 18, 10, 2, 6, 13, 14, 12, 7, 2, 9, 1, 6, 3, 4, 5,
8), 12, 9, byrow = T)
} else if (all(selection == 100, type == "SR")) {
sequences <- matrix(c(1, 2, 3, 4, 5, 6, 7, 8, 9, 1, 2, 3, 4, 14, 15, 7, 17,
18, 1, 2, 3, 13, 5, 15, 16, 8, 18, 1, 2, 3, 13, 14, 6,
16, 17, 9, 1, 11, 12, 4, 5, 6, 7, 17, 18, 1, 11, 12,
4, 14, 15, 7, 8, 9, 1, 11, 12, 13, 5, 15, 16, 17, 9,
1, 11, 12, 13, 14, 6, 16, 8, 18, 10, 2, 12, 4, 5, 6,
16, 8, 18, 10, 2, 12, 4, 14, 15, 16, 17, 9, 10, 2, 12,
13, 5, 15, 7, 8, 9, 10, 2, 12, 13, 14, 6, 7, 17, 18,
10, 11, 3, 4, 5, 6, 16, 17, 9, 10, 11, 3, 4, 14, 15,
16, 8, 18, 10, 11, 3, 13, 5, 15, 7, 17, 18, 10, 11, 3,
13, 14, 6, 7, 8, 9), 16, 9, byrow = T)
} else if (all(selection == 106, type == "SR")) {
sequences <- matrix(c(11, 12, 3, 14, 15, 16, 7, 8, 9, 20, 16, 12, 13, 4, 15,
1, 17, 8, 9, 10, 11, 2, 13, 17, 5, 16, 14, 18, 9, 10,
1, 12, 3, 14, 15, 6, 17, 18, 19, 10, 1, 2, 13, 4, 16,
15, 7, 18, 19, 20, 1, 2, 3, 14, 5, 16, 17, 8, 19, 20,
4, 17, 18, 9, 20, 11, 2, 3, 6, 15, 16, 7, 18, 19, 10,
11, 12, 3, 4, 5, 11, 17, 8, 19, 20, 6, 12, 13, 4, 5,
6, 7, 18, 9, 20, 1, 12, 13, 14, 5, 6, 7, 8, 19, 10,
11, 2, 13, 14, 15, 6, 5, 8, 9, 10, 1, 2, 3, 4, 7), 12,
10, byrow = T)
} else if (all(selection == 109, type == "SR")) {
sequences <- matrix(c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16,
17, 18, 19, 10, 21, 22, 23, 24, 25, 26, 27, 28, 29,
10, 1, 2, 3, 14, 15, 16, 27, 28, 29, 20, 11, 12, 13,
24, 25, 26, 7, 8, 9, 20, 21, 22, 23, 4, 5, 6, 17, 18,
19, 20, 1, 2, 3, 24, 25, 26, 17, 18, 19, 30, 11, 12,
13, 4, 5, 6, 27, 28, 29, 30, 21, 22, 23, 14, 15, 16,
7, 8, 9, 30, 1, 12, 23, 4, 15, 26, 7, 18, 29, 10, 11,
22, 3, 14, 25, 6, 17, 28, 9, 10, 21, 2, 13, 24, 5, 16,
27, 8, 19, 10, 1, 12, 23, 14, 25, 6, 27, 8, 19, 20,
11, 22, 3, 24, 5, 16, 7, 18, 29, 20, 21, 2, 13, 4, 15,
26, 17, 28, 9, 20, 1, 12, 23, 24, 5, 16, 17, 28, 9,
30, 11, 22, 3, 4, 15, 26, 27, 8, 19, 30, 21, 2, 13,
14, 25, 6, 7, 18, 29, 30, 1, 22, 13, 4, 25, 16, 7, 28,
19, 10, 11, 2, 23, 14, 5, 26, 17, 8, 29, 10, 21, 12,
3, 24, 15, 6, 27, 18, 9, 10, 1, 22, 13, 14, 5, 26, 27,
18, 9, 20, 11, 2, 23, 24, 15, 6, 7, 28, 19, 20, 21,
12, 3, 4, 25, 16, 17, 8, 29, 20, 1, 22, 13, 24, 15, 6,
17, 8, 29, 30, 11, 2, 23, 4, 25, 16, 27, 18, 9, 30,
21, 12, 3, 14, 5, 26, 7, 28, 19, 30), 27, 10,
byrow = T)
}
if (summary) {
message("...completed the design specification. Preparing outputs...")
}
D <- length(unique(as.vector(sequences)))
if (!missing(labels)) {
check_labels(labels, D)
} else {
labels <- 0:(D - 1)
}
sequences <- convert_labels(sequences, D, labels, 1:D)
sequences <- transform_to_xover(sequences, labels, as_matrix)
##### Outputting #############################################################
if (summary) {
message("...outputting.")
}
return(sequences)
}
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.