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)
})
Evolutionary-Optimization-Laboratory/rmoo documentation built on Oct. 28, 2024, 5:45 p.m.