tests/testthat/test-dirichlet.R

set.seed(123)

# x <- rdirichlet(10, matrix(rep(1,3), 10, 3))
# 
# test_that("ddirichlet works with different input types", {
#   expect_equal(rprobdist(0), numeric(0))
#   
# })
rje42/rje documentation built on April 3, 2024, 11:08 p.m.