Nothing
f.beta.haplo.freq.asymp <- function(haplo.freq){
.haplo.freq <- haplo.freq/sum(haplo.freq)
.sum <- 1/.haplo.freq[1]
.beta <- log(.haplo.freq[-1]*.sum)
return(c(0,.beta))
}
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.