tests/testthat/test.demo_refits_data.R

test_that("demo_refits_data", {
  
  res <- demo_refits_data(1000)
  
  expect_equal(dim(res), c(25, 2))
  expect_equal(typeof(res), "integer")
})

Try the archeoViz package in your browser

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

archeoViz documentation built on June 22, 2024, 10:04 a.m.