Nothing
mahalDist <-
function(Tnms, Cnms, inv.cov, dataset) {
stopifnot(!is.null(dimnames(inv.cov)[[1]]), dim(inv.cov)[1] >
1, all.equal(dimnames(inv.cov)[[1]], dimnames(inv.cov)[[2]]),
all(dimnames(inv.cov)[[1]] %in% names(dataset)))
covars <- dimnames(inv.cov)[[1]]
xdiffs <- as.matrix(dataset[Tnms, covars])
xdiffs <- xdiffs - as.matrix(dataset[Cnms, covars])
rowSums((xdiffs %*% inv.cov) * xdiffs)
}
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.