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)
