R/print.allPerms.R

Defines functions `print.allPerms`

`print.allPerms` <- function(x, ...) {
    dims <- dim(x)
    control <- attr(x, "control")
    observed <- attr(x, "observed")
    attributes(x) <- NULL
    dim(x) <- dims
    print(x)
    return(invisible(x))
}
gavinsimpson/permute documentation built on Jan. 31, 2022, 12:05 p.m.