Nothing
#[export]
mahala <- function(x,mu,sigma,ischol = FALSE) {
if (!is.matrix(x))
x <- matrix(x, 1, length(x))
if (!is.matrix(sigma))
sigma <- as.matrix(sigma)
.Call(Rfast_mahaCpp,x,mu,sigma,ischol)
}
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.