# 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