tests/testthat/_problems/test_cartesian-63.R

In DistributionalDDA: Distributional Data Analysis in Bayes Spaces

# Extracted from test_cartesian.R:63

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

# test -------------------------------------------------------------------------
skip_on_cran()
BS1 = BayesSpace(ReferenceMeasureDiscrete(c("A","B","C"),c(0.2,0.3,0.5)))
BS2 = BayesSpace(StdReferenceMeasureUnif01)
BS3 = BayesSpace(StdReferenceMeasureN01)
BB1 = BayesSpaceBasis(BS1)
BB2 = BayesSpaceBasis(BS2)
BB3 = BayesSpaceBasis(BS3)
D1 = getBayesSpaceBasisDimension(BB1)
D2 = getBayesSpaceBasisDimension(BB2)
D3 = getBayesSpaceBasisDimension(BB3)
BB123 = cartesianProduct(A=BB1,B=BB2,C=BB3)