covroc <-
function(x){
#
# compute Rocke's TBS covariance matrix
#
library(robust)
temp<-covRob(x,estim="M")
val<-temp[2]$cov
val
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.