tests/testthat/test-zoo_simulate.R

test_that("`zoo_simulate()` works", {
  x <- zoo_simulate(seed = 1)
  expect_equal(class(x), "zoo")
  expect_equal(attributes(x)$name, "A")
  expect_equal(names(x), c("a", "b", "c", "d", "e"))
})
BlasBenito/distantia documentation built on Feb. 21, 2025, 2:48 a.m.