tests/testthat/test_normaltable.R

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

context("normaltable")

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