[rkward-cvs] SF.net SVN: rkward: [1444] trunk/rkward/rkward/plugins/plots

[nono_231 at users.sourceforge.net]

Revision: 1444
          http://svn.sourceforge.net/rkward/?rev=1444&view=rev
Author:   nono_231
Date:     2007-02-22 11:51:56 -0800 (Thu, 22 Feb 2007)

Log Message:
-----------
Added option to print descriptives in pareto plugin

Modified Paths:
--------------
    trunk/rkward/rkward/plugins/plots/pareto.php
    trunk/rkward/rkward/plugins/plots/pareto.xml

Modified: trunk/rkward/rkward/plugins/plots/pareto.php
===================================================================
--- trunk/rkward/rkward/plugins/plots/pareto.php	2007-02-22 19:40:14 UTC (rev 1443)
+++ trunk/rkward/rkward/plugins/plots/pareto.php	2007-02-22 19:51:56 UTC (rev 1444)
@@ -25,7 +25,8 @@
 }
 	
 function doPrintout ($final) {
-	$vars = str_replace ("\n", ",", trim (getRK_val ("x"))) ;
+	$vars = (getRK_val ("x")) ;
+	$descriptives = (getRK_val ("descriptives")=="TRUE") ;
 ?>
 rk.temp.x <- (<? echo ($vars); ?>)
 if(is.factor(rk.temp.x)) {
@@ -39,12 +40,13 @@
 rk.graph.on ()
 <?	}
 ?>
-try ({ 
+try (
 <?
-if ($final) { ?>
-rk.print(<?}?>xtable(pareto.chart(rk.temp.x, main="")) <? if ($final) { ?>)<?}
+if ($final && $descriptives) { ?>
+rk.print(xtable(<?}?>pareto.chart(rk.temp.x, main="")<? if ($final && $descriptives) { ?>))
+<?}
 ?>
-})
+)
 <?	if ($final) { ?>
 rk.graph.off ()
 <? }

Modified: trunk/rkward/rkward/plugins/plots/pareto.xml
===================================================================
--- trunk/rkward/rkward/plugins/plots/pareto.xml	2007-02-22 19:40:14 UTC (rev 1443)
+++ trunk/rkward/rkward/plugins/plots/pareto.xml	2007-02-22 19:51:56 UTC (rev 1444)
@@ -9,6 +9,7 @@
 					<varselector id="vars"/>
 					<column>
 					<varslot min_vars="1" id="x" source="vars" required="true" label="Vector or Factor"/>
+					<checkbox id="descriptives" label="Print descriptives" value="TRUE" value_unchecked="FALSE" checked="true"/>
 					<preview id="preview"/>
 					</column>
 				</row>


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