Nothing
#[export]
colmeansvars <- function(x, std = FALSE, parallel = FALSE) {
m <- Rfast::colmeans(x, parallel = parallel)
s <- Rfast::colVars(x, std = std, parallel = parallel)
z <- rbind(m, s)
if (std) {
rownames(z) <- c("means", "stds")
} else rownames(z) <- c("means", "variances")
z
}
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.