Share
.sweep0 <- function (x, MARGIN, STATS, FUN = "-") { FUN <- match.fun(FUN) dims <- dim(x) perm <- c(MARGIN, seq_along(dims)[-MARGIN]) FUN(x, aperm.default(array(STATS, dims[perm]), order(perm))) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.