Nothing
combine_chr <- function(map, map.function)
{
# combine chromosomes together into an object which has the probability
# of recombination between adjacent loci
map2 <- unlist(map)
# computes recombination fractions from map distances using cMfx
genome <- vector()
for (i in 1:length(map))
genome <- c(genome, sapply(diff(map[[i]])/100, map.function), 0.5)
return(genome[1:(length(genome)-1)])
}
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.