Running examples in ‘gaoptim-Ex.R’ failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: GAPerm
> ### Title: Genetic Algorithm setup
> ### Aliases: GAPerm
> 
> ### ** Examples
> 
> # TSP with 10 cities around a circular pattern
>  n = 10
>  R = 10
>  angs = seq(0, 2*pi, length = n)
>  xp = R * cos(angs) + rnorm(n)
>  yp = R * sin(angs) + rnorm(n)
>  xp = c(xp, xp[1])
>  yp = c(yp, yp[1])
> 
>  base.M = matrix(c(xp, yp), ncol = 2)
>  dist.FUN = function(p)
+  {
+    p = c(p, p[1])
+    M.diff = diff(base.M[p, ])
+    dists = apply(M.diff, 1, function(x)x[1]^2 + x[2]^2)
+    1/sum(dists)
+  }
> 
>  ga1 = GAPerm(dist.FUN, n, popSize = 100, mutRate = 0.3)
>  ga1$evolve(100)
>  plot(xp, yp, type = 'n', xlab = '', ylab = '')
>  res = ga1$bestIndividual()
>  res = c(res, res[1])
> 
>  i = 1:n
>  xi = base.M[res[i], 1]
>  yi = base.M[res[i], 2]
>  xf = base.M[res[i + 1], 1]
>  yf = base.M[res[i + 1], 2]
> 
>  arrows(xi, yi, xf, yf, col = 'red', angle = 10)
>  text(base.M[res, 1], base.M[res, 2], 1:n, cex = 0.9, col = 'gray20')
> 
> 
>  # Euro tour problem (See ?optim)
>  eurodistmat = as.matrix(eurodist)
> 
>  # This function will be used for the remaining examples
>  distance = function(sq)
+  {
+    sq = c(sq, sq[1])
+    sq2 <- embed(sq, 2)
+    1/sum(eurodistmat[cbind(sq2[,2], sq2[,1])])
+  }
> 
>  loc = -cmdscale(eurodist, add = TRUE)$points
>  x = loc[, 1]
>  y = loc[, 2]
>  n = nrow(eurodistmat)
> 
>  set.seed(1)
>  ga2 = GAPerm(distance, n, popSize = 100, mutRate = 0.3)
>  ga2$evolve(200)
>  best = ga2$bestIndividual()
>  best = c(best, best[1])
>  best.dist = 1/max(ga2$bestFit())
>  res = loc[best, ]
>  i = 1:n
> 
>  plot(x, y, type = 'n', axes = FALSE, ylab = '', xlab = '')
>  title ('Euro tour: TSP with 21 cities')
>  mtext(paste('Best distance found:', best.dist))
>  arrows(res[i, 1], res[i, 2], res[i + 1, 1], res[i + 1, 2], col = 'red', angle = 10)
>  text(x, y, labels(eurodist), cex = 0.8, col = 'gray20')
> 
> 
>  # Euro tour with custom selection
>  selec.FUN = function(population, fitnessVec, nLeft)
+  {
+    # Chance of being select proportional to fitness sqrt
+    idxs = sample(nrow(population), nLeft, prob = sqrt(fitnessVec))
+ 
+    # Just return the nLeft selected row indexes
+    idxs
+  }
> 
>  ga3 = GAPerm(distance, n, mutRate = 0.3, selection = selec.FUN)
>  ga3$evolve(200)
>  best.dist = 1/max(ga3$bestFit())
>  plot(ga3, main = 'Euro tour: TSP with 21 cities')
Error in xy.coords(x, y, xlabel, ylabel, log) : 
  'x' is a list, but does not have components 'x' and 'y'
Calls: plot -> plot.default -> xy.coords
Execution halted