Nothing
get_ndx_scores <-
function(weights, geno, names) {
scored = as.vector(weights != 0)
geno2 = subset(geno, scored == TRUE)
col = match(geno2,names)
u = as.vector(na.omit(unique(col)))
return (sort(u))
}
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.