#' Covariance function Wrappper
#'
#' @param x data
#' @param ... parameters passed to cov
#' @keywords internal
#' @importFrom stats cov
#'
cov <- function(x, ...){
ls <- list(...)
ls$x <- x
do.call(stats::cov, list(x))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.