tests/testthat/test_replicate_RLum.R

test_that("Test replication of RLum-objects", {
  testthat::skip_on_cran()
  local_edition(3)

  data(ExampleData.RLum.Analysis, envir = environment())
  expect_silent(results <- rep(IRSAR.RF.Data[[1]], 5))
  expect_silent(rep(IRSAR.RF.Data[[1]]))

  ##check
  expect_equal(length(results),5)

})

Try the Luminescence package in your browser

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

Luminescence documentation built on Nov. 3, 2023, 5:09 p.m.