[rkward-cvs] SF.net SVN: rkward: [1289] trunk/rkward/rkward/plugins/analysis/wilcoxon

[sjar at users.sourceforge.net]

Revision: 1289
          http://svn.sourceforge.net/rkward/?rev=1289&view=rev
Author:   sjar
Date:     2007-02-01 16:44:52 -0800 (Thu, 01 Feb 2007)

Log Message:
-----------
minor fixes

Modified Paths:
--------------
    trunk/rkward/rkward/plugins/analysis/wilcoxon/wilcoxon_exact_test.php
    trunk/rkward/rkward/plugins/analysis/wilcoxon/wilcoxon_test.php

Modified: trunk/rkward/rkward/plugins/analysis/wilcoxon/wilcoxon_exact_test.php
===================================================================
--- trunk/rkward/rkward/plugins/analysis/wilcoxon/wilcoxon_exact_test.php	2007-02-02 00:44:34 UTC (rev 1288)
+++ trunk/rkward/rkward/plugins/analysis/wilcoxon/wilcoxon_exact_test.php	2007-02-02 00:44:52 UTC (rev 1289)
@@ -23,7 +23,7 @@
 	      else if (rk.temp$alternative == "greater")
 		paste (rk.get.short.name (rk.temp.x), "is greater than", rk.get.short.name (rk.temp.y))
 	      else
-		paste (rk.get.short.name (rk.temp.x), "and", rk.get.short.name (rk.temp.y), "differ"),"Confidence Interval", "<? getRK ("confint"); ?>", "Continuity correction in normal approximation for p-value", "<? getRK ("correct"); ?>","mu", "<? getRK ("mu"); ?>"))
+		paste (rk.get.short.name (rk.temp.x), "and", rk.get.short.name (rk.temp.y), "differ"),"Compute Confidence Interval", "<? getRK ("confint"); ?>", "Continuity correction in normal approximation for p-value", "<? getRK ("correct"); ?>", "Compute exact p-value", "<? getRK ("exact"); ?>","mu", "<? getRK ("mu"); ?>"))
 
 rk.results (list (
 	'Variable Names'=rk.get.description (rk.temp.x, rk.temp.y, is.substitute=TRUE),
@@ -31,10 +31,10 @@
 	'Location Shift'=rk.temp$null.value,
 	'Hypothesis'=rk.temp$alternative,
 	p=rk.temp$p.value<?
-	if (getRK_val ("confint")) { ?>,
+	if (getRK_val ("confint")== "TRUE") { ?>,
 	'confidence interval percent'=(100 * attr(rk.temp$conf.int, "conf.level")),
-	'confidence interval of difference'=rk.temp$conf.int <? } ?>,
-	<? if (getRK_val ("confint")) { ?> 'Difference in Location' = rk.temp$estimate <?}?>))
+	'confidence interval of difference'=rk.temp$conf.int,
+	'Difference in Location' = rk.temp$estimate <? } ?>))
 <?
 	}
 	

Modified: trunk/rkward/rkward/plugins/analysis/wilcoxon/wilcoxon_test.php
===================================================================
--- trunk/rkward/rkward/plugins/analysis/wilcoxon/wilcoxon_test.php	2007-02-02 00:44:34 UTC (rev 1288)
+++ trunk/rkward/rkward/plugins/analysis/wilcoxon/wilcoxon_test.php	2007-02-02 00:44:52 UTC (rev 1289)
@@ -24,7 +24,7 @@
 		paste (rk.get.short.name (rk.temp.x), "is greater than", rk.get.short.name (rk.temp.y))
 	      else
 		paste (rk.get.short.name (rk.temp.x), "and", rk.get.short.name (rk.temp.y), "differ"),
- 	"Note", if (rk.temp.length.x < 50) paste ("You have less then 50 values. An exact test is recommended.") else paste("Length is", (rk.temp.length.x)),"Confidence Interval", "<? getRK ("confint"); ?>", "Continuity correction in normal approximation for p-value", "<? getRK ("correct"); ?>","mu", "<? getRK ("mu"); ?>"))
+ 	"Note", if (rk.temp.length.x < 50) paste ("You have less then 50 values. An exact test is recommended.") else paste ("Length is", (rk.temp.length.x)),"Compute Confidence Interval", "<? getRK ("confint"); ?>", "Continuity correction in normal approximation for p-value", "<? getRK ("correct"); ?>", "Compute exact p-value", "<? getRK ("exact"); ?>","mu", "<? getRK ("mu"); ?>"))
 
 rk.results (list (
 	'Variable Names'=rk.get.description (rk.temp.x, rk.temp.y, is.substitute=TRUE),
@@ -32,10 +32,10 @@
 	'Location Shift'=rk.temp$null.value,
 	'Hypothesis'=rk.temp$alternative,
 	p=rk.temp$p.value<?
-	if (getRK_val ("confint")) { ?>,
+	if (getRK_val ("confint")== "TRUE") { ?>,
 	'confidence interval percent'=(100 * attr(rk.temp$conf.int, "conf.level")),
-	'confidence interval of difference'=rk.temp$conf.int <? } ?>,
-	'Difference in Location' = rk.temp$estimate))
+	'confidence interval of difference'=rk.temp$conf.int,
+	'Difference in Location' = rk.temp$estimate <? } ?>))
 <?
 	}
 	


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