tests/testthat/test-init_gamma_site_model.R

context("init_gamma_site_model")

test_that("use", {

  gamma_site_model <- create_gamma_site_model(
    gamma_cat_count = 2,
    gamma_shape_prior_distr = create_one_div_x_distr(id = NA)
  )
  testit::assert(!beautier:::is_init_gamma_site_model(gamma_site_model))
  gamma_site_model <- beautier:::init_gamma_site_model(gamma_site_model)
  testthat::expect_true(beautier:::is_init_gamma_site_model(gamma_site_model))

})
ropensci/beautier documentation built on March 12, 2019, 8:27 p.m.