Nothing
# A funciton to check if a matrix is from package Matrix
is.Matrix <- function(z) inherits(z,"sparseMatrix")
# SD of each column for a sparse matrix. Currently only CSC matrices are supported.
colSD <- function(X,means=NULL)
{
stopifnot(class(X)[1] == "dgCMatrix")
if(is.null(means)) means <- colMeans(X)
v <- colMeans(X^2) - means^2
if(any(v <= 0)) stop("Some variables have zero variance or are badly scaled.")
return(sqrt(v))
}
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.