Nothing
# Mu+Lamda replacement function 1
grmuplambda = function(parpop, offpop, ...){
n = nrow(parpop)
unipop = rbind(parpop, offpop)
unipop = unipop[order(unipop[, ncol(unipop)], decreasing=TRUE),]
unipop = unipop[1:n,]
return(unipop)
}
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.