Nothing
kmndirs <-
function(x, k, nrandom = 1000L, maxiter = 10L)
{
## Currently only dense matrix support.
x <- as.matrix(x)
## Normalize.
x <- x / sqrt(rowSums(x ^ 2))
n <- nrow(x)
.C(R_kmndirs, x, n, ncol(x), as.integer(k), as.integer(nrandom),
as.integer(maxiter), ids = integer(n))$ids
}
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.