tests/testthat/test-test-1row.R

test_that("age estimation runs for 1 row", {
  out=find_fuzzies.f(c(NA,NA,9,10,11,14,15,10,15,11),prior="jeff")
  expect_s3_class(out[[2]], "data.table")
  expect_true(nrow(out[[2]])==1)
  #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.