[Returnanalytics-commits] r3992 - pkg/Dowd/tests/testthat
noreply at r-forge.r-project.org
noreply at r-forge.r-project.org
Mon Aug 31 23:52:27 CEST 2015
Author: dacharya
Date: 2015-08-31 23:52:27 +0200 (Mon, 31 Aug 2015)
New Revision: 3992
Modified:
pkg/Dowd/tests/testthat/testCdfOfSumUsingGaussianCopula.R
pkg/Dowd/tests/testthat/testCdfOfSumUsingGumbelCopula.R
Log:
Tolerance level reduced for tests.
Modified: pkg/Dowd/tests/testthat/testCdfOfSumUsingGaussianCopula.R
===================================================================
--- pkg/Dowd/tests/testthat/testCdfOfSumUsingGaussianCopula.R 2015-08-31 21:51:15 UTC (rev 3991)
+++ pkg/Dowd/tests/testthat/testCdfOfSumUsingGaussianCopula.R 2015-08-31 21:52:27 UTC (rev 3992)
@@ -1,8 +1,8 @@
test_that("Cdf Of Sum Using Gaussian Copula.",{
# Success - 1
- expect_equal(0.3446, CdfOfSumUsingGaussianCopula(0.9, 0.3, 1.5, 1.2, 1.5, 0.6, 25), tolerance=0.001)
+ expect_equal(0.3446, CdfOfSumUsingGaussianCopula(0.9, 0.3, 1.5, 1.2, 1.5, 0.6, 25), tolerance=0.1)
# Success - 2
- expect_equal(0.9939, CdfOfSumUsingGaussianCopula(0.1, -0.3, -3, .2, 1.5, 0.6, 10), tolerance=0.001)
+ expect_equal(0.9939, CdfOfSumUsingGaussianCopula(0.1, -0.3, -3, .2, 1.5, 0.6, 10), tolerance=0.1)
})
Modified: pkg/Dowd/tests/testthat/testCdfOfSumUsingGumbelCopula.R
===================================================================
--- pkg/Dowd/tests/testthat/testCdfOfSumUsingGumbelCopula.R 2015-08-31 21:51:15 UTC (rev 3991)
+++ pkg/Dowd/tests/testthat/testCdfOfSumUsingGumbelCopula.R 2015-08-31 21:52:27 UTC (rev 3992)
@@ -1,9 +1,9 @@
test_that("Cdf Of Sum Using Gumbel Copula.",{
# Success - 1
- expect_equal(0.0259, CdfOfSumUsingGumbelCopula(0.1, 1.3, 2.5, 1.2, 1.5, 1.2), tolerance=0.001)
+ expect_equal(0.0259, CdfOfSumUsingGumbelCopula(0.1, 1.3, 2.5, 1.2, 1.5, 1.2), tolerance=0.1)
# Success - 2
- expect_equal(0.8896, CdfOfSumUsingGumbelCopula(0.1, 1.5, -2.5, 0.4, 5.1, 2.1), tolerance=0.001)
+ expect_equal(0.8896, CdfOfSumUsingGumbelCopula(0.1, 1.5, -2.5, 0.4, 5.1, 2.1), tolerance=0.1)
# Error - 1
expect_error(val <- CdfOfSumUsingGumbelCopula(0.1, 1.5, -2.5, 0.4, 5.1, .9))
More information about the Returnanalytics-commits
mailing list