tests/testthat/test-3row.R

test_that("age estimation runs for 3 cases", {
  out=find_fuzzies.f(nmdid.test[1:3,],prior="jeff")
  expect_s3_class(out, "data.table")
  expect_true(nrow(out)==3)
  #expect_true(length(is.na(out))==0)
})

Try the jage package in your browser

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

jage documentation built on May 29, 2024, 10:25 a.m.