tests/testthat/test-ATEcomplete.R

test_that("read ATE data sets", {
  fileName <- ATE.sampleFiles('_Complete_')
  d1 <- ATE.complete(fileName, TRUE)
  expect_equal(nrow(d1),1)
  d2 <- ATE.complete(fileName)
  expect_equal(nrow(d2),103)
})

Try the angstromATE package in your browser

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

angstromATE documentation built on Oct. 21, 2024, 1:06 a.m.