Scov <-
function(m){
#
# Compute Davies' covariance S-estimator
#
library("rrcov")
res=CovSest(m)
center=res@center
z=res@cov
list(center=center,cov=z)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.