library(genalg)


evalFunc <- function(x)
{
  #x <- c(0,0,1,1)
  xx <- ""

  for (a in 1:length(x))
  {
    xx <- paste(xx, x[a], sep="")
  }
  xx.val <- strtoi(xx, base=2)
  return(abs((xx.val-2)^2))
}


iter <- 100
GAmodel <- rbga.bin(size = 16, popSize = 58, iters = iter, mutationChance = 0.01, elitism = T, evalFunc = evalFunc)
cat(summary(GAmodel))