Nothing
# Shuffle Mutation
shufmut = function(y, ...){
n = length(y)
v = sort(sample(1:n, size=2, replace=FALSE))
subgenes = y[v[1]:v[2]]
subgenes = sample(subgenes)
y[v[1]:v[2]] = subgenes
return(list(mutant=y, mutrange=v))
}
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.