inst/tinytest/test_single.R

In turgeonmaxime/rootWishart: Distribution of Largest Root for Single and Double Wishart Settings

library(rootWishart)
x <- seq(0, 30, length.out = 50)

# no error in single wishart
y1 <- try(singleWishart(x, p = 5, n = 10),
            silent = TRUE)
y2 <- try(singleWishart(x, p = 5, n = 10,
                        type = "fixed"),
          silent = TRUE)
y3 <- try(singleWishart(x, p = 5, n = 10,
                        type = "arbitrary"),
          silent = TRUE)

expect_false(inherits(y1, "try-error"))
expect_false(inherits(y2, "try-error"))
expect_false(inherits(y3, "try-error"))