tests/testthat/test_calc_qpearsonIII.R

test_that("calculate qpearsonIII", {

  # test calc_qpearsonIII and calc_qlpearsonIII, expect returned numeric value
  r <- calc_qpearsonIII(p = 0.1)
  expect_true(is.numeric(r))
  
  r <- calc_qlpearsonIII(p = 0.1)
  expect_true(is.numeric(r))
})

Try the HyMETT package in your browser

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

HyMETT documentation built on Nov. 23, 2023, 1:08 a.m.