Nothing
## Collapses a (m,p)-matrix to a (2*m+p)-vector
mpcollapse <- function(mallele, nloci) {
tmp <- data.frame(m2 = (m <- floor(mallele/2):0), m1 = mallele - 2 * m)
tmp[tmp$m1 <= nloci & tmp$m2 <= nloci, ]
}
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.