tests/testthat/test-jackknife.R

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

# context("jackknife")
#
# local({
#   dat <- tibble(a = rep(1:3, 2))
#
#   test_that("jackknife.data.frame works as expected", {
#     out <- jackknife(dat)
#     expect_resample_df(out)
#     expect_equal(nrow(dat), nrow(out))
#     expect_true(all(map_int(out$sample, ~ dim(.x)[1]) == (nrow(dat) - 1)))
#   })
#
#   test_that("jackknife.data.frame p=2 works as expected", {
#     p <- 2
#     out <- jackknife(dat, p = p)
#     expect_resample_df(out)
#     expect_equal(choose(nrow(dat), p), nrow(out))
#     expect_true(all(map_int(out$sample, ~ dim(.x)[1]) == (nrow(dat) - p)))
#   })
#
#   test_that("jackknife.grouped_df works as expected", {
#     p <- 1
#     grouped_dat <- group_by(dat, a)
#     out <- jackknife(grouped_dat, p = p)
#     expect_resample_df(out)
#     expect_equal(n_groups(grouped_dat), nrow(out))
#     # hardcoded from the example
#     expect_true(all(map_int(out$sample, ~ dim(.x)[1]) == 4))
#   })
# })