# Introduction

Genetic algorithms (GAs) are stochastic search algorithms inspired by the basic principles of biological evolution and natural selection. GAs simulate the evolution of living organisms, where the fittest individuals dominate over the weaker ones, by mimicking the biological mechanisms of evolution, such as selection, crossover and mutation.

The R package GA provides a collection of general purpose functions for optimization using genetic algorithms. The pakage includes a flexible set of tools for implementing genetic algorithms search in both the continuous and discrete case, whether constrained or not. Users can easily define their own objective function depending on the problem at hand. Several genetic operators are available and can be combined to explore the best settings for the current task. Furthermore, users can define new genetic operators and easily evaluate their performances. Local search using general-purpose optimisation algorithms can be applied stochastically to exploit interesting regions. GAs can be run sequentially or in parallel, using an explicit master-slave parallelisation or a coarse-grain islands approach.

This document gives a quick tour of GA (version 3.0.2) functionalities. It was written in R Markdown, using the knitr package for production. Futher details are provided in the papers Scrucca (2013) and Scrucca (2016). See also help(package="GA") for a list of available functions and methods.

library(GA)
#   ____    _
#  / ___|  / \     Genetic
# | |  _  / _ \    Algorithms
# | |_| |/ ___ \
#  \____/_/   \_\  version 3.0
# Type 'citation("GA")' for citing this R package in publications.

# Function optimisation in one dimension

Consider the function $$f(x) = (x^2+x)\cos(x)$$ defined over the range $$-10 \le x \le 10$$:

f <- function(x)  (x^2+x)*cos(x)
min <- -10; max <- 10
curve(f, min, max, n = 1000)

GA <- ga(type = "real-valued", fitness = f, min = min, max = max,
monitor = FALSE)
summary(GA)
## +-----------------------------------+
## |         Genetic Algorithm         |
## +-----------------------------------+
##
## GA settings:
## Type                  =  real-valued
## Population size       =  50
## Number of generations =  100
## Elitism               =  2
## Crossover probability =  0.8
## Mutation probability  =  0.1
## Search domain =
##      x1
## Min -10
## Max  10
##
## GA results:
## Iterations             = 100
## Fitness function value = 47.70562
## Solution =
##            x1
## [1,] 6.560558
plot(GA)

curve(f, min, max, n = 1000)
points(GA@solution, GA@fitnessValue, col = 2, pch = 19)

# Function optimisation in two dimensions

Consider the Rastrigin function, a non-convex function often used as a test problem for optimization algorithms because it is a difficult problem due to its large number of local minima. In two dimensions it is defined as $f(x_1, x_2) = 20 + x_1^2 + x_2^2 - 10(\cos(2\pi x_1) + \cos(2\pi x_2)),$ with $$x_i \in [-5.12, 5.12]$$ for $$i=1,2$$. It has a global minimum at $$(0,0)$$ where $$f(0,0) = 0$$.

Rastrigin <- function(x1, x2)
{
20 + x1^2 + x2^2 - 10*(cos(2*pi*x1) + cos(2*pi*x2))
}

x1 <- x2 <- seq(-5.12, 5.12, by = 0.1)
f <- outer(x1, x2, Rastrigin)
persp3D(x1, x2, f, theta = 50, phi = 20, color.palette = bl2gr.colors)

filled.contour(x1, x2, f, color.palette = bl2gr.colors)

A GA minimisation search is obtained as follows (note the minus sign used in the definition of the local fitness function):

GA <- ga(type = "real-valued",
fitness =  function(x) -Rastrigin(x[1], x[2]),
min = c(-5.12, -5.12), max = c(5.12, 5.12),
popSize = 50, maxiter = 1000, run = 100)
summary(GA)
## +-----------------------------------+
## |         Genetic Algorithm         |
## +-----------------------------------+
##
## GA settings:
## Type                  =  real-valued
## Population size       =  50
## Number of generations =  1000
## Elitism               =  2
## Crossover probability =  0.8
## Mutation probability  =  0.1
## Search domain =
##        x1    x2
## Min -5.12 -5.12
## Max  5.12  5.12
##
## GA results:
## Iterations             = 263
## Fitness function value = -8.466208e-07
## Solution =
##                x1           x2
## [1,] 3.329869e-05 5.620151e-05
plot(GA)

filled.contour(x1, x2, f, color.palette = bl2gr.colors,
plot.axes = { axis(1); axis(2);
points(GA@solution[,1], GA@solution[,2],
pch = 3, cex = 2, col = "white", lwd = 2) }
)

# Constrained optimisation

This example shows how to minimize an objective function subject to nonlinear inequality constraints and bounds using GAs. Source: http://www.mathworks.it/it/help/gads/examples/constrained-minimization-using-the-genetic-algorithm.html

We want to minimize a simple function of two variables $$x_1$$ and $$x_2$$ $\min_x f(x) = 100 (x_1^2 - x_2)^2 + (1 - x_1)^2;$ subject to the following nonlinear inequality constraints and bounds:

• $$x_1x_2 + x_1 - x_2 + 1.5 \le 0$$ (inequality constraint),
• $$10 - x_1x_2 \le 0$$ (inequality constraint),
• $$0 \le x1 \le 1$$ (bounds), and
• $$0 \le x2 \le 13$$ (bounds).

The above fitness function is known as “cam” as described in L.C.W. Dixon and G.P. Szego (eds.), Towards Global Optimisation 2, North-Holland, Amsterdam, 1978.

f <- function(x)
{ 100 * (x[1]^2 - x[2])^2 + (1 - x[1])^2 }

c1 <- function(x)
{ x[1]*x[2] + x[1] - x[2] + 1.5 }

c2 <- function(x)
{ 10 - x[1]*x[2] }

Plot the function and the feasible regions (coloured areas):

ngrid = 250
x1 = seq(0, 1, length = ngrid)
x2 = seq(0, 13, length = ngrid)
x12 = expand.grid(x1, x2)
col = adjustcolor(bl2gr.colors(4)[2:3], alpha = 0.2)
plot(x1, x2, type = "n", xaxs = "i", yaxs = "i")
image(x1, x2, matrix(ifelse(apply(x12, 1, c1) <= 0, 0, NA), ngrid, ngrid),
col = col[1], add = TRUE)
image(x1, x2, matrix(ifelse(apply(x12, 1, c2) <= 0, 0, NA), ngrid, ngrid),
col = col[2], add = TRUE)
contour(x1, x2, matrix(apply(x12, 1, f), ngrid, ngrid),
nlevels = 21, add = TRUE)

MATLAB solution:

x = c(0.8122, 12.3104)
f(x)
## [1] 13573.99

However, note that the provided solution does not satisfy the inequality constraints:

c1(x)
## [1] 0.00030688
c2(x)
## [1] 0.00149312

A GA solution can be obtained by defining a penalised fitness function:

fitness <- function(x)
{
f <- -f(x)                         # we need to maximise -f(x)
pen <- sqrt(.Machine\$double.xmax)  # penalty term
penalty1 <- max(c1(x),0)*pen       # penalisation for 1st inequality constraint
penalty2 <- max(c2(x),0)*pen       # penalisation for 2nd inequality constraint
f - penalty1 - penalty2            # fitness function value
}

Then

GA = ga("real-valued", fitness = fitness,
min = c(0,0), max = c(1,13),
maxiter = 5000, run = 1000, seed = 123)
summary(GA)
## +-----------------------------------+
## |         Genetic Algorithm         |
## +-----------------------------------+
##
## GA settings:
## Type                  =  real-valued
## Population size       =  50
## Number of generations =  5000
## Elitism               =  2
## Crossover probability =  0.8
## Mutation probability  =  0.1
## Search domain =
##     x1 x2
## Min  0  0
## Max  1 13
##
## GA results:
## Iterations             = 2151
## Fitness function value = -13578.4
## Solution =
##             x1      x2
## [1,] 0.8122029 12.3123
fitness(GA@solution)
## [1] -13578.4
f(GA@solution)
## [1] 13578.4
c1(GA@solution)
## [1] -1.101381e-05
c2(GA@solution)
## [1] -8.234197e-05

A graph showing the solution found is obtained as:

plot(x1, x2, type = "n", xaxs = "i", yaxs = "i")
image(x1, x2, matrix(ifelse(apply(x12, 1, c1) <= 0, 0, NA), ngrid, ngrid),
col = col[1], add = TRUE)
image(x1, x2, matrix(ifelse(apply(x12, 1, c2) <= 0, 0, NA), ngrid, ngrid),
col = col[2], add = TRUE)
contour(x1, x2, matrix(apply(x12, 1, f), ngrid, ngrid),
nlevels = 21, add = TRUE)
points(GA@solution[1], GA@solution[2], col = "dodgerblue3", pch = 3)  # GA solution