tests/testthat/test-performance_metrics.R

context("Executing performance metrics")

test_that("generational_distance() return the value suggestions", {
  x <- generate_reference_points(3,3)

  out <- generational_distance(x,x)

  expect_identical(out, 0)
})
benitezfj/nsga3r documentation built on Oct. 27, 2024, 7:16 p.m.