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)")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.