(fitnesses = matrix(c(1, 5, 2, 3, 0, 3, 1, 0, 10, 8), ncol = 2))
# to see the fitness matrix, use:
## plot(fitnesses, pch = as.character(1:5))
domhv_improvement(fitnesses)
domhv_improvement(fitnesses, fitnesses[1, , drop = FALSE])
Run the code above in your browser using DataLab