inst/unittests/runit-front_edge.R

In emoa: Evolutionary Multiobjective Optimization Algorithms

##
## runit-front_edge.R - Edge point tests
##

## Predeclare some simple test fronts:
front_2d <- matrix(c(0.0, 1.0, 0.5,
                     1.0, 0.0, 0.5),
                   nrow=2, byrow=TRUE)

front_3d <- matrix(c(0.0, 1.0, 0.0, 0.5, 0.7, 1.0, 1.0, 0.5,
                     0.0, 0.0, 1.0, 0.5, 0.5, 1.0, 0.5, 1.0,
                     1.0, 0.0, 0.0, 0.5, 0.3, 0.5, 1.0, 1.0),
                   nrow=3, byrow=TRUE)
which_points_on_edge(front_3d)

test.which_points_on_edge_2d <- function() {
  checkEquals(which_points_on_edge(front_2d), c(1, 2))
}

test.which_points_on_edge_3d <- function() {
  checkEquals(which_points_on_edge(front_3d), c(1, 2, 3, 6, 7, 8))
}