# NOT RUN {
## Create 4 random individuals with binary values
a <- cbind(bin=sample(c(0,1),20,replace=TRUE,prob = c(70,30)),
bin.1=sample(c(0,1),20,replace=TRUE,prob = c(30,70)),
bin.2=sample(c(0,1),20,replace=TRUE,prob = c(30,70)),
bin.3=sample(c(0,1),20,replace=TRUE,prob = c(30,70)))
a
## Mutate the individuals with a low percentage
aMut <- mutation(a,0.1, NULL)
## Check which values are not like the originals
a==aMut
## Mutate the individuals with a high percentage
aMut <- mutation(a,0.4, NULL)
## Check which values are not like the originals
a==aMut
# }
Run the code above in your browser using DataLab