tests/testthat/test-report.htest-correlation.R

In report: Automated Reporting of Results and Statistical Models

test_that("report.htest-correlation", {
  set.seed(123)
  r <- report(cor.test(iris$Sepal.Width, iris$Sepal.Length))
  expect_equal(as.report_table(r)$r, -0.117, tolerance = 0.01)

  set.seed(123)
  r <- cor.test(
    iris$Sepal.Width,
    iris$Sepal.Length,
    method = "spearman",
    exact = FALSE
  )
  r <- report(r)
  expect_equal(as.report_table(r)$rho, -0.166, tolerance = 0.01)

  set.seed(123)
  r <- report(cor.test(iris$Sepal.Width, iris$Sepal.Length, method = "kendall"))
  expect_equal(as.report_table(r)$tau, -0.077, tolerance = 0.01)

  # snapshot tests with a different dataset
  set.seed(123)
  expect_snapshot(variant = "windows", report(cor.test(mtcars$wt, mtcars$mpg)))

  set.seed(123)
  expect_snapshot(
    variant = "windows",
    report(suppressWarnings(cor.test(
      mtcars$wt,
      mtcars$mpg,
      method = "spearman"
    )))
  )

  set.seed(123)
  expect_snapshot(
    variant = "windows",
    report(suppressWarnings(cor.test(
      mtcars$wt,
      mtcars$mpg,
      method = "kendall"
    )))
  )
})