# NOT RUN {
genpop = initbin(12,8)                             #Initial population
m = ncol(genpop)-2                                 #Number of Gene
sumx = function(x, ...) (sum(x))                   #Fitness Function
fitvals = evaluate(fitfunc=sumx, genpop[,1:m])     #Fitness Values
genpop[,"fitval"] = fitvals
selidx = select(selfunc=selrws, fitvals)           #Selection of Parents
matpool = genpop[selidx,]                          #Mating Pool
offsprings = cross(crossfunc=px1, matpool=matpool, #Crossing
 cxon=2, cxpc=0.8, gatype="gga")
offsprings
offsprings = cross(crossfunc=kpx, matpool=matpool,
  cxon=2, cxpc=0.8, gatype="ssga", cxps=0.5, cxk=2)
offsprings
# }
Run the code above in your browser using DataLab