# NOT RUN {
f <- function(x) abs(x)+cos(x)
GA <- gaisl(type = "real-valued",
fitness = function(x) -f(x),
min = -20, max = 20, run = 10,
numIslands = 4, parallel = 2) # CRAN check limits ncores = 2
out <- summary(GA)
print(out)
str(out)
# }
Run the code above in your browser using DataLab