parm<-function(x){function() {return(x)}}
lF<-list(); lF$TerminationThreshold<-parm(9.2)
solution<-list(); solution$phenotypeValue<-8.0
terminateLEQ(solution, lF)
solution<-list(); solution$phenotypeValue<-9.6
terminateLEQ(solution, lF)
Run the code above in your browser using DataLab