tests/testthat/test_t_table.R

context("t value")

test_that("t value ", {
  
  t_value <- round(t_table(alpha = .10, df = 1, tail = 1), 3) #should be 3.078
  
  expect_is(t_value, "numeric")
  expect_equal(t_value, 3.078)
  
  
})
Gharv/stat.tables documentation built on May 26, 2019, 7:26 a.m.