Nothing
robust.distance.signed <-
function(x,method='mcd')
{
x.w <- as.matrix(x$weights)
robcov <- cov.rob(x.w,method=method)
rob.dist <- mahalanobis(x.w,
center=robcov$center,
cov=robcov$cov)
rob.dist
}
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.