Nothing
mixmodMap_V2M <-
function(z, n = length(z), K = max(z))
{
A = z + cumsum(c(0,rep(K,(n-1))))
B = numeric(n * K)
B[A] = 1
M <- matrix(B, nrow = n, ncol = K, byrow = T)
M
}
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.