fixes #576

crsh · Jan 9, 2024 · 4b1c325 · 4b1c325
1 parent 4df1164
commit 4b1c325
Show file tree

Hide file tree

Showing 4 changed files with 24 additions and 2 deletions.
diff --git a/R/apa_print_htest.R b/R/apa_print_htest.R
@@ -131,6 +131,9 @@ apa_print.htest <- function(
     x_list
     , stringsAsFactors = FALSE
   )
+  y$number.of.successes <- NULL
+  y$number.of.trials <- NULL
+
   if(!identical(conf_int, list(NULL))) y$conf.int <- conf_int
 
   # sanitize table ----

diff --git a/R/lookup_tables.R b/R/lookup_tables.R
@@ -47,6 +47,8 @@ lookup_names <- c(
   , "delta"                     = "estimate"
   , "proportion"                = "estimate"
   , "p"                         = "estimate"
+  # binomial test:
+  , "probability.of.success"    = "estimate"
   # estimate from effectsize package
   , "Eta2"             = "estimate"
   , "Eta2_partial"     = "estimate"
@@ -167,6 +169,7 @@ lookup_labels <- c(
   , "difference.in.proportions" = "$\\Delta \\hat\\pi$"
   , "proportion"                = "$\\hat\\pi$"
   , "p"                         = "$\\hat\\pi$"
+  , "probability.of.success"    = "$\\hat\\pi$"
   , "delta"                     = "$\\delta$"
   # estimate from effectsize package
   , "Eta2"             = "$\\hat{\\eta}^2$"

diff --git a/man/lookup_tables.Rd b/man/lookup_tables.Rd
diff --git a/tests/testthat/test_apa_print_htest.R b/tests/testthat/test_apa_print_htest.R
@@ -306,6 +306,22 @@ test_that(
   }
 )
 
+test_that(
+  "Binomial test"
+  , {
+    binom_test_output <- binom.test(10, 20, p = .8, conf.level = .9) |>
+      papaja::apa_print()
+    expect_apa_results(
+      binom_test_output
+      , labels = list(
+        estimate   = "$\\hat\\pi$"
+        , conf.int = "90\\% CI"
+        , p.value  = "$p$"
+      )
+    )
+  }
+)
+
 test_that(
   "Bartlett test"
   , {