1 | EMF.Gen.Mutate.Simple(original, mutationRate = 0.1, chromosomeRandFunc = NULL)
|
original |
|
mutationRate |
|
chromosomeRandFunc |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 | ##---- Should be DIRECTLY executable !! ----
##-- ==> Define data, use random,
##-- or do help(data=index) for the standard data sets.
## The function is currently defined as
function (original, mutationRate = 0.1, chromosomeRandFunc = NULL)
{
size = length(original)
ret = original
if (!is.null(chromosomeRandFunc)) {
newSample = chromosomeRandFunc()
for (c in 1:size) if (runif(1) <= mutationRate)
ret[c] = newSample[c]
}
else {
orderToSubstitute = sample(1:size, size)
for (c in 1:size) if (runif(1) <= mutationRate) {
substituteIndex = orderToSubstitute[c]
substituteValue = ret[substituteIndex]
ret[substituteIndex] = ret[c]
ret[c] = substituteValue
}
}
return(ret)
}
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.