commons-commits mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From pste...@apache.org
Subject svn commit: r744918 - /commons/proper/math/trunk/src/test/R/correlationTestCases
Date Mon, 16 Feb 2009 13:52:38 GMT
Author: psteitz
Date: Mon Feb 16 13:52:33 2009
New Revision: 744918

URL: http://svn.apache.org/viewvc?rev=744918&view=rev
Log:
Increased sensitivity of test and added another p-value verification.

Modified:
    commons/proper/math/trunk/src/test/R/correlationTestCases

Modified: commons/proper/math/trunk/src/test/R/correlationTestCases
URL: http://svn.apache.org/viewvc/commons/proper/math/trunk/src/test/R/correlationTestCases?rev=744918&r1=744917&r2=744918&view=diff
==============================================================================
--- commons/proper/math/trunk/src/test/R/correlationTestCases (original)
+++ commons/proper/math/trunk/src/test/R/correlationTestCases Mon Feb 16 13:52:33 2009
@@ -22,7 +22,7 @@
 # source("<name-of-this-file>")
 #
 #------------------------------------------------------------------------------
-tol <- 1E-9                       # error tolerance for tests
+tol <- 1E-15                      # error tolerance for tests
 #------------------------------------------------------------------------------
 # Function definitions
 
@@ -172,14 +172,20 @@
   42.8,27.7,22,29,58.33),
   nrow = 47, ncol = 5, byrow = TRUE)
    
- expectedCorrelation <- matrix(c(
+expectedCorrelation <- matrix(c(
          1.0000000000000000, 0.3530791836199747, -0.6458827064572875, -0.6637888570350691,
 0.4636847006517939,
          0.3530791836199747, 1.0000000000000000,-0.6865422086171366, -0.6395225189483201,
0.4010950530487398,
          -0.6458827064572875, -0.6865422086171366, 1.0000000000000000, 0.6984152962884830,
-0.5727418060641666,
          -0.6637888570350691, -0.6395225189483201, 0.6984152962884830, 1.0000000000000000,
-0.1538589170909148,
           0.4636847006517939, 0.4010950530487398, -0.5727418060641666, -0.1538589170909148,
1.0000000000000000),
           nrow = 5, ncol = 5, byrow = TRUE)
-      
 verifyCorrelation(fertility, expectedCorrelation, "swiss fertility")
 
-displayDashes(WIDTH)
\ No newline at end of file
+expectedPValues <- c(
+          0.01491720061472623,
+          9.45043734069043e-07, 9.95151527133974e-08,
+          3.658616965962355e-07, 1.304590105694471e-06, 4.811397236181847e-08,
+          0.001028523190118147, 0.005204433539191644, 2.588307925380906e-05, 0.301807756132683)
+verifyPValues(fertility, expectedPValues, "swiss fertility")
+
+displayDashes(WIDTH)



Mime
View raw message