tests/testthat/test_sort_component_labels.R

context("Order component labels")

test_that("ordered_thetas", {
  expect_true(isOrdered(MultiBatchModelExample))
  theta(MultiBatchModelExample)[1, 3] <- -5
  expect_false(isOrdered(MultiBatchModelExample))
  bmodel <- sortComponentLabels(MultiBatchModelExample)
  expect_true(isOrdered(bmodel))
})
scristia/CNPBayes documentation built on Aug. 9, 2020, 7:31 p.m.