diff --git a/tests/testthat/test_diststudent.R b/tests/testthat/test_diststudent.R index e838f1c41e4e6612ff6c4a52f645eec56885a48f..9af51e8284cc20ba9a17854537f576facefb0715 100644 --- a/tests/testthat/test_diststudent.R +++ b/tests/testthat/test_diststudent.R @@ -14,7 +14,7 @@ d21_3 <- diststudent(nu1 = nu1, Sigma1 = Sigma2, nu2 = nu2, Sigma2 = Sigma1, bet test_that("renyi works (dim 3)", { expect_equal(attr(d12_3, "eps"), 1e-15) expect_equal(attr(d21_3, "eps"), 1e-15) - + expect_equal(round(as.numeric(d12_3), 15), 0.154150335789182) expect_equal(round(as.numeric(d21_3), 10), 0.077595179539573) }) @@ -32,7 +32,7 @@ d21_4 <- diststudent(nu1 = nu1, Sigma1 = Sigma2, nu2 = nu2, Sigma2 = Sigma1, bet test_that("renyi works (dim 4)", { expect_equal(attr(d12_4, "eps"), 1e-12) expect_equal(attr(d21_4, "eps"), 1e-8) - + expect_equal(as.numeric(d12_4), 0.175486294548201) expect_equal(as.numeric(d21_4), 0.094669919703894) })