tests/testthat/test-ndset.R

In relund/gMOIP: Tools for 2D and 3D Plots of Single and Multi-Objective Linear/Integer Programming Models

testthat::context("Testing NDSet functions ...")

test_that("Correct classification of ND points", {
   pts <- matrix(c(0,0,1, 0,1,0, 1,0,0, 0.5,0.2,0.5, 0.25,0.5,0.25), ncol = 3, byrow = TRUE)
   pts <- classifyNDSet(pts[,1:3])
   expect_equal(pts$cls, c("se","se","se","us","sne"))

   pts <- matrix(c(0,0,1, 0,1,0, 1,0,0, 0.2,0.1,0.1, 0.1,0.45,0.45), ncol = 3, byrow = TRUE)
   pts <- classifyNDSet(pts[,1:3], direction = -1)
   expect_equal(pts$cls, c("se","se","se","us","sne"))
})