Nothing
"position" <-
function (matrix, vari)
{
a <- colnames(matrix)
b <- a == vari
c <- c(1:length(a))
d <- c[b]
return(d)
}
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.