tests/testthat/testthat.R

context("p-value of Q-tilde for strong linear trend")
library(testcorr)

qtilde.pv <- ac.test(1000000 * seq(1, 100, 1), max.lag = 10, plot = FALSE)$pvqtilde

test_that("p-value of Q-tilde for strong linear trend is 0", {
  expect_equal(qtilde.pv[10], 0)
})

Try the testcorr package in your browser

Any scripts or data that you put into this service are public.

testcorr documentation built on April 20, 2026, 5:07 p.m.