tests/testthat/test-permute.R

In jrnold/resamplr: Resampling methods

context("permute")

local({
  dat <- tibble(a = rep(1:3, 4))
  gdat <- group_by(dat, a)

  test_that("permute.data.frame works as expected", {
    R <- 2
    x <- permute(dat, 2)
    expect_resample_df(x)
    expect_equal(nrow(x), R)
  })

  test_that("permute.grouped_df works as expected", {
    R <- 2
    x <- permute(gdat, 2, stratify = FALSE)
    expect_resample_df(x)
    expect_equal(nrow(x), R)
  })

  test_that("permute.grouped_df stratify = TRUE works as expected", {
    R <- 2
    x <- permute(gdat, 2, stratify = TRUE)
    expect_resample_df(x)
    expect_equal(nrow(x), R)
  })

  test_that("permute returns full permutation if R > total permuations", {
    R <- 10
    dat <- tibble(a = 1:3)
    x <- permute(dat, R)
    expect_resample_df(x)
    expect_equal(nrow(x), factorial(nrow(dat)))
  })

})