Nothing
smacofDeleteOne <- function (delta, ndim, type) {
n <- nrow (delta)
x <- array (0, c (n, ndim, n))
for (i in 1:n) {
xi <- smacofSym(delta[-i, -i], ndim = ndim, type = type)$conf
x[((1 : n)[-i]), (1 : ndim), i] <- xi
x[i, (1 : ndim), i] <- 0
}
return (x)
}
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.