keepBest option not working

[danlvn]

Hello,

I am trying to save the best solution of each iteration, but can't get the option to work. Please can you help me with this?

########################################################### library(GA) packageDescription("GA")$Version packageDescription("GA")$Date # f <- function(x) (x^2+x)*cos(x) # -10 < x < 10 # monitor <- function(obj) { cat(paste("iteration =", obj@iter , "solution =" , obj@bestSol[[obj@iter]]), "\n") } # GA <- ga(type = "real-valued", fitness = f, lower = -10, upper = 10, keepBest = TRUE, monitor = monitor,maxiter = 10) # summary(GA)$bestSol
########################################################## output:

GA <- ga(type = "real-valued", fitness = f, lower = -10, upper = 10, keepBest = TRUE, monitor = monitor,maxiter = 10) iteration = 1 solution =
iteration = 2 solution =
iteration = 3 solution =
iteration = 4 solution =
iteration = 5 solution =
iteration = 6 solution =
iteration = 7 solution =
iteration = 8 solution =
iteration = 9 solution =
iteration = 10 solution =
summary(GA)$bestSol NULL

[luca-scr]

Please install and use the devel version from GitHub.