tests/testthat/test-double.R

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

context("Double Wishart")
x <- seq(0, 1, length.out = 50)

test_that("no error in double wishart", {
    y1 <- try(doubleWishart(x, p = 10, n = 10, m = 200),
              silent = TRUE)
    y2 <- try(doubleWishart(x, p = 10, n = 10, m = 200,
                            type = "double"),
              silent = TRUE)
    y3 <- try(doubleWishart(x, p = 10, n = 10, m = 200,
                            type = "multiple"),
              silent = TRUE)

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