Nothing
# Maximum likelihood covariance estimate:
covML <- function(x,...){
(nrow(x)-1)/(nrow(x)) * stats::cov(x, ...)
}
# transform between ML and unbiased estimators:
covMLtoUB <- function(x,n,...){
n/(n-1) * x
}
covUBtoML <- function(x,n,...){
(n-1)/n * x
}
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.