Nothing
mixmodMap <-
function(tau, n = nrow(tau), K = ncol(tau))
{
M <- matrix(0, nrow = n, ncol = K)
tauMax <- apply(tau, 1, which.max)
A = tauMax + 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.