tests/testthat/test-rdirichlet.R

context("rdirichlet")

test_that("rdirichlet returns vector of probabilities", {
  expect_equal(sum(rdirichlet(c(1,1,1))), 1)
  expect_equal(length(rdirichlet(c(1,1,1,1,1))), 5)
  expect_equal(sum(is.na(rdirichlet(c(1+0.000001,0.000001,0.0000001)))), 0)
})
zoevanhavre/ZDev documentation built on May 4, 2019, 11:24 p.m.