Nothing
#' This is a hidden function of the l2boost package.
#' VAR is a helper function that specifically returns NA if all
#' values of the argument x are NA, otherwise, it returns a var
#' object.
#'
#' @param x return variance of x matrix.
#'
#' @importFrom stats var
VAR <- function(x) {
if (all(is.na(x))) return(NA)
else
return(var(x, na.rm=T))
}
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.