Nothing
"haplofreqs" <-
function(dat, firstl, lastl){
n <- nrow(dat)
hapls <- apply(dat[1:n,firstl:lastl], 1, function(x) paste(x, collapse=""))
freqs <- table(hapls)/n
return(freqs)
}
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.