parm<-function(x){function() {return(x)}}
pop10<-xegaInitPopulation(10, lFxegaGaGene)
lFxegaGaGene[["lapply"]]<-ApplyFactory(method="Sequential")
lFxegaGaGene[["rep"]]<-parm(3)
result<-xegaRepEvalPopulation(pop10, lFxegaGaGene)
Run the code above in your browser using DataLab