wmean.cov <-
function(x,tr=0){
#
# Compute Winsoriced mean and covariance for data in x
#
loc=apply(x,2,mean,tr=tr)
cv=wincov(x,tr=tr)
list(center=loc,cov=cv)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.