tests/testthat/test_aaa.R

test_that("Test suite test_aaa", {

    S <- matrix(c(3,1i,-1i,2),2,2)
    Z <- rcmvnorm(1e6,sigma=S)
    expect_true(all(abs(cmvnorm::var(Z) - S) < 0.01))
})

Try the cmvnorm package in your browser

Any scripts or data that you put into this service are public.

cmvnorm documentation built on Nov. 6, 2025, 1:12 a.m.