Facebook
From qq, 5 Years ago, written in Plain Text.
This paste is a reply to qq from qq - view diff
Embed
Download Paste or View Raw
Hits: 363
  1. library(cec2013)
  2. library(DEoptim)
  3.  
  4.  
  5. #WYMIAR
  6. D <- 10
  7. #NUMER FUNKCJI: 1...28
  8. I <- 11
  9.  
  10.  
  11. lower <- c(-10,-10)
  12. upper <- -lower
  13.  
  14. outDEoptim <- DEoptim(fn=function(x){cec2013(I, rep(x, D))}, lower, upper,
  15.                       DEoptim.control(itermax = 100, storepopfrom = 1, storepopfreq = 2))
  16.  
  17.  
  18. summary(outDEoptim)
  19.  
  20. ## plot intermediate populations
  21. plot(outDEoptim, plot.type = "storepop")
  22.  
  23.