[rkward-cvs] SF.net SVN: rkward: [1331] trunk/rkward/rkward/plugins/analysis/corr_matrix .php

[tfry at users.sourceforge.net]

Revision: 1331
          http://svn.sourceforge.net/rkward/?rev=1331&view=rev
Author:   tfry
Date:     2007-02-05 11:16:05 -0800 (Mon, 05 Feb 2007)

Log Message:
-----------
Kendall and Spearman do not have a df, but n is more useful, anyway

Modified Paths:
--------------
    trunk/rkward/rkward/plugins/analysis/corr_matrix.php

Modified: trunk/rkward/rkward/plugins/analysis/corr_matrix.php
===================================================================
--- trunk/rkward/rkward/plugins/analysis/corr_matrix.php	2007-02-05 19:08:50 UTC (rev 1330)
+++ trunk/rkward/rkward/plugins/analysis/corr_matrix.php	2007-02-05 19:16:05 UTC (rev 1331)
@@ -38,7 +38,7 @@
 			if (i != j) {
 				t <- cor.test (rk.temp.frame[[i]], rk.temp.frame[[j]], method="<? getRK ("method"); ?>")
 				rk.temp.p[i, j] <<- t$p.value
-				rk.temp.p[j, i] <<- t$parameter["df"]
+				rk.temp.p[j, i] <<- sum (complete.cases (rk.temp.frame[[i]], rk.temp.frame[[j]]))
 			}
 		}
 	}
@@ -55,7 +55,7 @@
 
 <?	if (getRK_val ("do_p")) { ?>
 rk.temp.p <- data.frame (I (sapply (rk.temp.objects, FUN=function (x) rk.get.description (x, is.substitute=TRUE))), as.data.frame (rk.temp.p))
-rk.results (rk.temp.p, titles=c ('df \\ p', sapply (rk.temp.objects, rk.get.short.name)))
+rk.results (rk.temp.p, titles=c ('n \\ p', sapply (rk.temp.objects, rk.get.short.name)))
 <?	}
 }
 


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.