tests/testthat/test-aov_ss.R

In bassam-abulnoor/TestDimorph: Analysis Of The Interpopulation Difference In Degree of Sexual Dimorphism Using Summary Statistics

test_that("aov_ss", {
  library(TestDimorph)
  testthat::expect_true(round(
    aov_ss(
      baboon.parms_df[1:3, ],
      Pop = 2,
      digits = 3,
      letters = TRUE,
      pairwise = TRUE,
    )[[1]]$p.value[1],
    3
  ) == 0.325)
  testthat::expect_true(aov_ss(
    baboon.parms_df[1:3, ],
    Pop = 2,
    digits = 3,
    letters = TRUE,
    pairwise = TRUE,
    es_anova = "f"
  )$`Female model`[[8]][1] == 0.028)
  testthat::expect_true(aov_ss(
    baboon.parms_df[1:3, ],
    Pop = 2,
    digits = 3,
    letters = TRUE,
    pairwise = TRUE,
    es_anova = "eta"
  )$`Female model`[[8]][1] == 0.027)
  testthat::expect_error(aov_ss(
    baboon.parms_df[1:3, ],
    Pop = 2,
    digits = 3,
    letters = TRUE,
    pairwise = TRUE,
    es_anova = "qq"
  )$`Female model`[[8]][1] == 0.028)
  testthat::expect_error(
    aov_ss(
      x = matrix(NA),
      Pop = 500,
      digits = 3,
      es = 900,
      letters = 900,
      pairwise = 900,
      sig.level = 900
    )
  )
})