[rkward-cvs] SF.net SVN: rkward: [1752] trunk/rkward/rkward/plugins/analysis/ ansari_bradley/ansari_bradley_exact_test.php

[sjar at users.sourceforge.net]

Revision: 1752
          http://svn.sourceforge.net/rkward/?rev=1752&view=rev
Author:   sjar
Date:     2007-03-29 09:18:20 -0700 (Thu, 29 Mar 2007)

Log Message:
-----------
bug fix for missing parameters:
* estimate of the ratio of scales IF confint is true
* If confint is true show the value in parameters

Modified Paths:
--------------
    trunk/rkward/rkward/plugins/analysis/ansari_bradley/ansari_bradley_exact_test.php

Modified: trunk/rkward/rkward/plugins/analysis/ansari_bradley/ansari_bradley_exact_test.php
===================================================================
--- trunk/rkward/rkward/plugins/analysis/ansari_bradley/ansari_bradley_exact_test.php	2007-03-29 15:32:59 UTC (rev 1751)
+++ trunk/rkward/rkward/plugins/analysis/ansari_bradley/ansari_bradley_exact_test.php	2007-03-29 16:18:20 UTC (rev 1752)
@@ -25,7 +25,7 @@
 rk.header (result$method,
 	parameters=list ("Comparing", paste (names[1], "against", names[2]),
 	'H1', rk.describe.alternative (result),
-	"Compute exact p-value", "<? getRK ("exact"); ?>"))
+	"Compute exact p-value", "<? getRK ("exact"); ?>", <? if (getRK_val ("confint")== "TRUE") {?> "Confidence Level", "<? getRK ("conflevel"); ?>" <?}?>))
 
 rk.results (list (
 	'Variable Names'=names,
@@ -34,7 +34,8 @@
 	p=result$p.value<?
 	if (getRK_val ("confint")== "TRUE") { ?>,
 	'confidence interval percent'=(100 * attr(result$conf.int, "conf.level")),
-	'confidence interval of difference'=result$conf.int<? } ?>))
+	'confidence interval of difference'=result$conf.int<? } ?>,
+	<? if (getRK_val ("confint")== "TRUE") {?> 'estimate of the ratio of scales'=result$estimate<?}?>))
 <?
 }
 ?>


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