tests/testthat/test-negation.r

In ordr: A 'tidyverse' Extension for Ordinations and Biplots

iris_pca <- as_tbl_ord(prcomp(iris[, 1:4]))

test_that("negation is consistent via different input formats", {
  res <- get_negation(negate_ord(iris_pca, c(2, 3)))
  expect_equal(res, get_negation(negate_ord(iris_pca, c("PC2", "PC3"))))
  expect_equal(res, get_negation(negate_ord(iris_pca, c(1, -1, -1, 1))))
})

test_that("negated ordinations preserve coordinate names", {
  expect_equal(
    get_coord(iris_pca),
    get_coord(negate_ord(iris_pca, c(1, 3)))
  )
})