Nothing
mixmodMap_M2V <-
function(M, n = nrow(M), K = ncol(M))
{
z = apply(M, 1, function(x) which(as.logical(x)))
z
}
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.