tests/testthat/test-doctest-epsilon_additive.R

In moocore: Core Mathematical Functions for Multi-Objective Optimization

# Generated by doctest: do not edit by hand
# Please edit file in R/epsilon.R

test_that("Doctest: epsilon_additive", {
  # Created from @doctest for `epsilon_additive`
  # Source file: R/epsilon.R
  # Source line: 58
  A1 <- matrix(c(9, 2, 8, 4, 7, 5, 5, 6, 4, 7), ncol = 2, byrow = TRUE)
  A2 <- matrix(c(8, 4, 7, 5, 5, 6, 4, 7), ncol = 2, byrow = TRUE)
  A3 <- matrix(c(10, 4, 9, 5, 8, 6, 7, 7, 6, 8), ncol = 2, byrow = TRUE)
  expect_equal(epsilon_mult(A1, A3), 0.9)
  expect_equal(epsilon_mult(A1, A2), 1)
  expect_equal(epsilon_mult(A2, A1), 2)
  expect_equal(exp(epsilon_additive(log(A2), log(A1))), 2)
  extdata_path <- system.file(package = "moocore", "extdata")
  path.A1 <- file.path(extdata_path, "ALG_1_dat.xz")
  path.A2 <- file.path(extdata_path, "ALG_2_dat.xz")
  A1 <- read_datasets(path.A1)[, 1:2]
  A2 <- read_datasets(path.A2)[, 1:2]
  ref <- filter_dominated(rbind(A1, A2))
  expect_equal(epsilon_additive(A1, ref), 199090640)
  expect_equal(epsilon_additive(A2, ref), 132492066)
  ref <- filter_dominated(rbind(A1, A2))
  expect_equal(epsilon_mult(A1, ref), 1.05401476)
  expect_equal(epsilon_mult(A2, ref), 1.023755)
})