context("t_apa")
# Example data from Lakens, D. (2013). Calculating and reporting effect sizes to
# facilitate cumulative science: a practical primer for t-tests and ANOVAs.
# Frontiers in Psychology, 4, 863. doi:10.3389/fpsyg.2013.00863
df <- data.frame(movie_1 = c(9, 7, 8, 9, 8, 9, 9, 10, 9, 9),
movie_2 = c(9, 6, 7, 8, 7, 9, 8, 8, 8, 7))
test_that("Output for t_apa between subject", {
expect_identical(t_apa(t_test(df$movie_1, df$movie_2, var.equal = TRUE),
print = FALSE),
"t(18) = 2.52, p = .022, d = 1.13")
})
test_that("Output for t_apa within subject", {
expect_identical(t_apa(t_test(df$movie_1, df$movie_2, paired = TRUE),
print = FALSE),
"t(9) = 4.74, p = .001, d = 1.50")
})
test_that("Formal structure of t_apa output)", {
expect_match(t_apa(t_test(df$movie_1, df$movie_2, var.equal = TRUE),
print = FALSE),
paste0("t\\([[:digit:]]+\\) [=<] [[:digit:]]+\\.[[:digit:]]{2},",
" p [=<] \\.[[:digit:]]{3}, d [=<] [[:digit:]]+\\.",
"[[:digit:]]{2}"))
expect_match(t_apa(t_test(df$movie_1, df$movie_2), print = FALSE),
paste0("t\\([[:digit:]]+\\.[[:digit:]]{2}\\) [=<] ",
"[[:digit:]]+\\.[[:digit:]]{2}, p [=<] \\.[[:digit:]]{3}",
", d [=<] [[:digit:]]+\\.[[:digit:]]{2}"))
})
# Output formats ---------------------------------------------------------------
test_that("t_apa: markdown format", {
expect_identical(t_apa(t_test(df$movie_1, df$movie_2, var.equal = TRUE),
format = "markdown", print = FALSE),
"*t*(18) = 2.52, *p* = .022, *d* = 1.13")
})
test_that("t_apa: rmarkdown format", {
expect_identical(t_apa(t_test(df$movie_1, df$movie_2, var.equal = TRUE),
format = "rmarkdown", print = FALSE),
"*t*(18) = 2.52, *p* = .022, *d* = 1.13")
})
test_that("t_apa: html format", {
expect_identical(t_apa(t_test(df$movie_1, df$movie_2, var.equal = TRUE),
format = "html", print = FALSE),
"<i>t</i>(18) = 2.52, <i>p</i> = .022, <i>d</i> = 1.13")
})
test_that("t_apa: latex format", {
expect_identical(t_apa(t_test(df$movie_1, df$movie_2, var.equal = TRUE),
format = "latex", print = FALSE),
paste0("\\textit{t}(18)~=~2.52, \\textit{p}~=~.022, ",
"\\textit{d}~=~1.13"))
})
test_that("t_apa: plotmath format", {
expect_identical(
as.character(t_apa(t_test(df$movie_1, df$movie_2, var.equal = TRUE),
format = "plotmath", print = FALSE)),
paste0("paste(italic(\"t\"), \"(18) = 2.52, \", ",
"italic(\"p\"), \" = .022, \", ",
"italic(\"d\"), \" = 1.13\")")
)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.