[Returnanalytics-commits] r3992 - pkg/Dowd/tests/testthat

[noreply at r-forge.r-project.org]

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))