# library(testthat)
# library(umx)
# test_file("~/bin/umx/tests/testthat/test_umx_APA_pval.r")
#
# test_package("umx")
context("p-values")
test_that("umx_APA_pval works for different values", {
expect_match(umx_APA_pval(p = .04, min = .05), "< 0.05")
expect_match(umx_APA_pval(1.23E-3, addComparison = TRUE), "= 0.001")
expect_equal(umx_APA_pval(1.23E-3, addComparison = FALSE), 0.001)
expect_equal(umx_APA_pval(c(1.23E-6, .5)) , c("< 0.001", "0.500") )
expect_equal(umx_APA_pval(c(1.23E-3, .5), addComparison = FALSE), c(0.001, 0.500) )
expect_equal(umx_APA_pval(c(1.23E-3, .5), addComparison = TRUE), c("= 0.001", "= 0.500") )
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.