tests/testthat/test-doctest-eafdiff.R

In moocore: Core Mathematical Functions for Multi-Objective Optimization

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

test_that("Doctest: eafdiff", {
  # Created from @doctest for `eafdiff`
  # Source file: R/eafdiff.R
  # Source line: 32
  A1 <- read_datasets(text = "\n 3 2\n 2 3\n\n 2.5 1\n 1 2\n\n 1 2\n")
  A2 <- read_datasets(text = "\n 4 2.5\n 3 3\n 2.5 3.5\n\n 3 3\n 2.5 3.5\n\n 2 1\n")
  d <- eafdiff(A1, A2)
  expect_true(is.matrix(d))
  expect_equal(d, matrix(byrow = TRUE, ncol = 3, scan(quiet = TRUE, text = "1.0  2.0    2\n\n  2.0  1.0   -1\n\n  2.5  1.0    0\n\n  2.0  2.0    1\n\n  2.0  3.0    2\n\n  3.0  2.0    2\n\n  2.5  3.5    0\n\n  3.0  3.0    0\n\n  4.0  2.5    1")))
  d <- eafdiff(A1, A2, rectangles = TRUE)
  expect_equal(d, as.matrix(read.table(header = TRUE, text = "\n\n     xmin ymin xmax ymax diff\n\n     2.0  1.0  2.5  2.0   -1\n\n     1.0  2.0  2.0  Inf    2\n\n     2.5  1.0  Inf  2.0    0\n\n     2.0  2.0  3.0  3.0    1\n\n     2.0  3.5  2.5  Inf    2\n\n     2.0  3.0  3.0  3.5    2\n\n     3.0  2.5  4.0  3.0    2\n\n     3.0  2.0  Inf  2.5    2\n\n     4.0  2.5  Inf  3.0    1")))
})