Nothing
mfv.fdt_cat <- function(x, ...)
{
fdt <- x
y <- fdt[, 2]
posMFV <- grep(max(y),
y)
res <- fdt[posMFV, 2]
names(res) <- fdt[posMFV, 1]
return(res)
}
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.