tests/testthat/test-iaggregate.R

In COveR: Clustering with Overlaps

library(COveR)

context("iaggregate")

v <- c(4.3, 4.9, 4.9, 5.8, 7, 7.9, 2.3, 2, 2.2, 4.4, 3.4, 3.8, 1, 3, 4.5, 1.9, 5.1,
  6.9, 0.1, 1, 1.4, 0.6, 1.8, 2.5)
i <- structure(list(inter = array(v, dim = c(3, 2, 4), dimnames = list(c("setosa",
  "versicolor", "virginica"), c("min", "max"), c("Sepal.Length", "Sepal.Width",
  "Petal.Length", "Petal.Width"))), class = vector()), class = "interval")

# -- TESTS ---------------------------------------------------------------------

test_that("iaggregate", {
  expect_equal(i, iaggregate(iris, 5))
})

test_that("iaggregate error", {
  expect_error(iaggregate(iris, -1))
  expect_error(iaggregate(iris, 10))
  expect_error(iaggregate(1:2))
})