[rkward-cvs] SF.net SVN: rkward: [1463] trunk/rkward/rkward/plugins/plots/pareto.php

[nono_231 at users.sourceforge.net]

Revision: 1463
          http://svn.sourceforge.net/rkward/?rev=1463&view=rev
Author:   nono_231
Date:     2007-02-23 13:38:46 -0800 (Fri, 23 Feb 2007)

Log Message:
-----------
Added table() for vars in pareto plugin

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

Modified: trunk/rkward/rkward/plugins/plots/pareto.php
===================================================================
--- trunk/rkward/rkward/plugins/plots/pareto.php	2007-02-23 20:13:32 UTC (rev 1462)
+++ trunk/rkward/rkward/plugins/plots/pareto.php	2007-02-23 21:38:46 UTC (rev 1463)
@@ -30,8 +30,8 @@
 	$descriptives = getRK_val ("descriptives")=="TRUE";
 ?>
 rk.temp.x <- (<? echo ($vars); ?>)
-if(is.factor(rk.temp.x)) {
-	rk.temp.x <- summary(rk.temp.x)
+if(!is.table(rk.temp.x)) {
+       rk.temp.x <- table(rk.temp.x)
 } 
 
 <?	if ($final) { ?>


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