tests/testthat/test_bcaPrintLarge.R

In RAPLER/dst-1: Using the Theory of Belief Functions

context("Print summary statistics of large mass functions")
library(dst)
test_that("bcaPrintLarge", {
  # empty test
  x <- bca(tt = matrix(c(1,1,0,1,1,1), nrow = 2, byrow = TRUE), m = c(0.8, 0.2), cnames = c(1,2,3))
  expect_type(bcaPrintLarge(x), "character")
})