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.