tests/testthat/test_ftableb.R

# Test for ftableb function Returns: An error message if any tests
# fail

context("ftableb")

test_that("output", {
  expect_equal(mode(ftableb()), "numeric")
  expect_equal(dim(ftableb()), c(48, 18))
  expect_equal(is.matrix(ftableb()), TRUE)
})
austinragotzy/mathstat documentation built on May 13, 2019, 11:30 a.m.