tests/testthat/_problems/test_ReferenceMeasureSeed-23.R

In DistributionalDDA: Distributional Data Analysis in Bayes Spaces

# Extracted from test_ReferenceMeasureSeed.R:23

# setup ------------------------------------------------------------------------
library(testthat)
test_env <- simulate_test_env(package = "DistributionalDDA", path = "..")
attach(test_env, warn.conflicts = FALSE)

# test -------------------------------------------------------------------------
set.seed(99)
before <- .Random.seed
invisible(ReferenceMeasureUniform(0, 1, sample=runif(50,0,1), seed = 1))