tests/testthat/test_get_T_tp.R

test_that("correct times are returned",{
  h = 1:4
  t = 1:4
  adm = tp_to_adm(t, h)
  expect_equal(get_T_tp(adm), t)
  
  h = rev(h)
  sac = tp_to_sac(t, h)
  expect_equal(get_T_tp(sac), t)
})

Try the admtools package in your browser

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

admtools documentation built on Oct. 4, 2024, 1:09 a.m.