tests/testthat/test-zoo_permute.R

test_that("`zoo_permute()` works", {

  x <- zoo_simulate(cols = 2, seed = 1)

  x_free <- zoo_permute(x = x, permutation = "free", repetitions = 2)

  expect_equal(
    length(x_free), 2
  )

  expect_equal(
    nrow(x), nrow(x_free[[1]])
  )

})

Try the distantia package in your browser

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

distantia documentation built on April 4, 2025, 5:42 a.m.