tests/testthat/test-function-dr.db_model.R

test_that("dr.db_model() works", {

  dr.db <- dr.db_download()
  
  dr.db_model(dr.db)
  
  dr.db$`Best fit model*` <- rep("beta-Poisson", nrow(dr.db))
  
  dr.db_model(dr.db)
})
KWB-R/kwb.qmra documentation built on June 15, 2021, 11:14 p.m.