inst/code/test_hpd.R

set.seed(1)
n <- 1e4
x <- rnorm(n)
print(hpd(x))
stephenslab/fastTopics documentation built on March 29, 2025, 3:24 p.m.