tests/testthat/test-choose.theta.R

In AEBilgrau/GMCM: Fast Estimation of Gaussian Mixture Copula Models

context("Check choose.theta")

set.seed(1)
u <- SimulateGMCMData(n = 100, m = 3, d = 2)$u

test_that("choose.theta returns proper formatted theta", {
  for (m in 1:10) {
    expect_true(is.theta(choose.theta(u, m = m)))
  }
})

test_that("choose.theta fails with no clusters", {
   expect_that(choose.theta(u, m = 0),
               throws_error("number of cluster centres must lie between"))
})