OGK <-
function(x,niter=2,beta=.9,control){
#
# OGK estimator via the R package rrcov
#
library(rrcov)
v=CovOgk(x,niter=niter,beta=beta,control)
list(center=v@center,cov=v@cov)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.