Nothing
ind.u = function(pr){
n = nrow(pr)
K = ncol(pr)
output = rep(0, n)
out<-.C("multinomind", as.double(t(pr)), as.integer(n), as.integer(K), as.integer(output), PACKAGE="BHTSpack")
return(out[[4]])
}
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.