Nothing
mregdepth <- function(coef, x, y, ndir = 1000) {
if (is.null(dim(x))) {
x <- matrix(x, ncol = 1)
}
yest <- cbind(1, x) %*% coef
res <- y - yest
u <- runifsphere(ndir, length(coef))
rdtmp <- as.vector(res) / t(u %*% t(cbind(1, x))) < 0
min(colSums(rdtmp))
}
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.