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

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

Author: dacharya
Date: 2015-06-25 00:54:29 +0200 (Thu, 25 Jun 2015)
New Revision: 3744

Added:
   pkg/Dowd/tests/testthat/testCdfOfSumUsingProductCopula.R
Log:
Test for CdfOfSumUsingProductCopula.

Added: pkg/Dowd/tests/testthat/testCdfOfSumUsingProductCopula.R
===================================================================
--- pkg/Dowd/tests/testthat/testCdfOfSumUsingProductCopula.R	                        (rev 0)
+++ pkg/Dowd/tests/testthat/testCdfOfSumUsingProductCopula.R	2015-06-24 22:54:29 UTC (rev 3744)
@@ -0,0 +1,8 @@
+test_that("Cdf Of Sum Using Product Copula.",{
+  # Success - 1
+  expect_equal(0.1628, CdfOfSumUsingProductCopula(0.9, .3, 2.1, .3, 1.5), tolerance=0.001)
+  
+  # Success - 2
+  expect_equal(0.5839, CdfOfSumUsingProductCopula(0.1, 1.5, -2.5, 0.4, 5.1), tolerance=0.001)
+  
+})
\ No newline at end of file