tests/testthat/test-check_similarity.R

context("Testing check_similarity()")

test_that("The function check_similarity() gives the correct errors", {
  partition <- matrix(rep(1, 9), nrow = 3)

  expect_error(check_similarity(matrix(rep(-1, 9), nrow = 3), partition))
  expect_error(check_similarity(matrix(rep(1, 6), nro = 3), partition))
  expect_error(check_similarity(matrix(rep(1, 4), nrow = 2), partition))
})

Try the rdiversity package in your browser

Any scripts or data that you put into this service are public.

rdiversity documentation built on May 6, 2022, 9:06 a.m.