mutation <- function(pop, mfreq){
changes <- array(as.vector(runif(pop)<mfreq,mode="numeric"),dim=dim(pop));
array(as.vector(xor(pop,changes),mode="numeric"),dim=dim(pop));
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.