if (FALSE) {
f <- function(x) abs(x)+cos(x)
GA <- gaisl(type = "real-valued",
fitness = function(x) -f(x),
lower = -20, upper = 20, run = 10,
numIslands = 4)
out <- summary(GA)
print(out)
str(out)
}
Run the code above in your browser using DataLab