Nothing
#' Sorts sequences of a design into a canonical order
#'
#' Sorts sequences of a design into a canonical order.
#'
#' When comparing bigger designs this ordering easily allows to check whether two
#' designs are equal.
#'
#' @param design Cross-over design.
#' @author Kornelius Rohmeyer \email{rohmeyer@@small-projects.de}
#' @keywords misc
#' @examples
#'
#' getDesign("switchback5t")
#' canonicalOrder(getDesign("switchback5t"))
#'
#' @export canonicalOrder
canonicalOrder <- function(design) {
design[, do.call(order, lapply(1:NROW(design), function(i) design[i, ]))]
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.