Nothing
#' @rdname colSds
#' @return \code{rowSds} returns a numeric vector of length \code{n}.
#' @examples
#' y <- matrix(rnorm(50), 10, 5)
#' GMCM:::rowSds(y)
#' @keywords internal
rowSds <- function(x) {
stopifnot(ncol(x)>0)
ans <- rowSdsArma(x)
dim(ans) <- NULL
names(ans) <- rownames(x)
return(ans)
}
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.