parm<-function(x){function() {return(x)}}
lFxegaDfGene$CBestFitness<-parm(35)
pop3<-lapply(rep(0,3), function(x) xegaDfGene::xegaDfInitGene(lFxegaDfGene))
lFxegaDfGene$gene0<-pop3[[1]]
FitnessBasedSelfAdaptiveSF(lFxegaDfGene)
lFxegaDfGene$gene0<-pop3[[2]]
FitnessBasedSelfAdaptiveSF(lFxegaDfGene)
lFxegaDfGene$gene0<-pop3[[3]]
FitnessBasedSelfAdaptiveSF(lFxegaDfGene)
Run the code above in your browser using DataLab