tests/testthat/_problems/test_cartesian-6.R

In DistributionalDDA: Distributional Data Analysis in Bayes Spaces

# Extracted from test_cartesian.R:6

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

# test -------------------------------------------------------------------------
s1 = Support(-Inf,Inf,lim=c(-2,2))
s2 = Support(0,2)
s3 = Support(X=c(1,2,3))
s4 = Support(X=c("A","B","C","D"))
s  = SupportCartesianProduct(s1,s2,s3,s4)