tests/testthat/test-conference.r

In corybrunson/ordr: A Tidyverse Extension for Ordinations and Biplots

iris_pca <- as_tbl_ord(prcomp(iris[, 1:4]))
arrests_lra <- as_tbl_ord(lra(USArrests[, c(1,2,4)]))

test_that("`confer_inertia()` recognizes matrix factor strings", {
  expect_equal(get_conference(confer_inertia(arrests_lra, "rows")), c(1, 0))
  expect_equal(get_conference(confer_inertia(arrests_lra, "columns")), c(0, 1))
  expect_equal(get_conference(confer_inertia(arrests_lra, "symm")), c(.5, .5))
})

test_that("balanced proportions do not trigger errors or warnings", {
  expect_error(confer_inertia(iris_pca, c(.4, .6)), NA)
})
test_that("unbalanced values trigger a warning", {
  expect_warning(confer_inertia(iris_pca, c(1, .75)), "balance")
})
test_that("non-proportions trigger an error", {
  expect_error(confer_inertia(arrests_lra, c(1.75, -.25)), "proportion")
})