tests/testthat/test-Sim_Fit.R

test_that("Results Level Check", {
  expect_equal(length(Sim_Fit(nIter = 5,saveRaw=TRUE)), 5)
})

test_that("Results Category Check", {
     expect_equal(length(Sim_Fit(nIter = 5,saveRaw=TRUE)[[1]]), 2)
})

Try the ACEsimFit package in your browser

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

ACEsimFit documentation built on Oct. 12, 2022, 9:05 a.m.