Nothing
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"))
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.