tests/testthat/test-permute.R

In jrnold/ramsleep: Resampling, Cross-Validation, and Permutation Methods Infrastucture

# 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)))
#   })
#
# })