tests/testthat/test-pPerm.R

test_that("pPerm works", {
  data("freelive2")
  set.seed(1)
  actual <- sample(YR2, 1)
  permutation_distribution <- YR2
  expect_equal(round(pPerm(actual, permutation_distribution)$p, 2), 0.29)
})

Try the MUVR2 package in your browser

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

MUVR2 documentation built on Sept. 16, 2024, 9:06 a.m.