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))


})

Try the dirichletprocess package in your browser

Any scripts or data that you put into this service are public.

dirichletprocess documentation built on Aug. 25, 2023, 5:19 p.m.