Nothing
meiose <- function(i, indices.fam, indices.haplotypes, haplotypes.perm)
{
if (runif(1) > 0.5) {
return(haplotypes.perm[indices.fam[i, 1], indices.haplotypes])
} else {
return(haplotypes.perm[indices.fam[i, 2], indices.haplotypes])
}
}
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.