tests/testthat/test-find_racialcomplex.R

x <- data24
x[,8] <- as.character(x[,8])

testthat::test_that("test incorrect data type", {
  testthat::expect_error(find_racial_complex(x[2,]))
})

x <- data24[,-1]
testthat::test_that("test to enter observations with missing data",{
  testthat::expect_error(find_racial_complex(x[1,]))
})

testthat::test_that("correct documentation",{
  expect_silent(help("find_racial_complex"))
})

Try the imanr package in your browser

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

imanr documentation built on April 13, 2025, 5:12 p.m.