Nothing
"matmin" <-
function (...)
{
x = cbind(...)
if(!is.numeric(x))
stop("Input should by numeric.")
if (!is.matrix(drop(x)))
x = t(x)
x[1:nrow(x) + nrow(x) * (max.col(-x) - 1)]
}
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.