lFxegaGaGene$MutationRate<-function(fit, lF) {0.5}
lFxegaGaGene$BitMutationRate1<-function(fit, lF) {0.5}
lFxegaGaGene$CrossRate<-function(fit, lF) {0.5}
lFxegaGaGene$Accept<-function(OperatorPipeline, gene, lF) {OperatorPipeline(gene, lF)}
g<-xegaGaInitGene(lFxegaGaGene)
print((lFxegaGaGene$EvalGene(g, lFxegaGaGene))$gene1)
a<-newMutPipelineG(g)
print(a)
b<-a$Pipeline(a, lFxegaGaGene)
Run the code above in your browser using DataLab