tests/testthat/test_dirichlet_process_hierarchical_beta.R

context("Hierarchical Beta")


test_that("",{

  testData <- replicate(3, rbeta(100, 3, 6), simplify = FALSE)

  dp <- DirichletProcessHierarchicalBeta(testData, 1, gammaPriors = c(2, 0.01))


})
dm13450/dirichletprocess documentation built on Sept. 1, 2023, 3:47 a.m.