Nothing
## Function for Moment Estimation
Moments <- function(x, method = c("CovClassic", "CovMcd",
"CovMest", "CovMMest", "CovMve", "CovOgk",
"CovSde", "CovSest"), ...){
method <- match.arg(method)
ans <- do.call(method, list(x = x, ...))
return(getCov(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.