library(cec2013)
library(DEoptim)


#WYMIAR 
D <- 10
#NUMER FUNKCJI: 1...28
I <- 11


lower <- c(-10,-10)
upper <- -lower

outDEoptim <- DEoptim(fn=function(x){cec2013(I, rep(x, D))}, lower, upper, 
                      DEoptim.control(itermax = 100, storepopfrom = 1, storepopfreq = 2))


summary(outDEoptim)

## plot intermediate populations
plot(outDEoptim, plot.type = "storepop")