parm<-function(x){function() {return(x)}}
olst<-list(); olst$value<-10
penv<-list(); penv$globalOptimum<-parm(olst)
lF<-list(); lF$penv<-penv; lF$TerminationEps<-parm(1.2);lF$Max<-parm(1.0)
solution<-list(); solution$genotype<-list(); solution$genotype$fit<-8.0
terminateAbsoluteError(solution, lF)
solution<-list(); solution$genotype<-list(); solution$genotype$fit<-8.9
terminateAbsoluteError(solution, lF)
Run the code above in your browser using DataLab