context("apa.ci")
library(apaformat)
ci = apa.ci(1, 2)
expect_equal(ci, "CI 95% [1, 2]")
ci = apa.ci(c(1, 1), c(2, 3))
expect_length(ci, 2)
expect_equal(ci[1], "CI 95% [1, 2]")
expect_equal(ci[2], "CI 95% [1, 3]")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.