tests/testthat/test.apa.pvalue.r

context("apa.pvalue")
library(apaformat)

pv = apa.pvalue(0.0342)
expect_equal(pv, "(p < .05)")

pv = apa.pvalue(c(0.0542, 0.0342, 0.0042))
expect_length(pv, 3)
expect_equal(pv[1], "(p > .05)")
expect_equal(pv[2], "(p < .05)")
expect_equal(pv[3], "(p < .01)")
markanewman/apaformat documentation built on May 10, 2019, 1:19 a.m.