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

[tfry at users.sourceforge.net]

Revision: 1606
          http://svn.sourceforge.net/rkward/?rev=1606&view=rev
Author:   tfry
Date:     2007-03-16 07:25:32 -0700 (Fri, 16 Mar 2007)

Log Message:
-----------
Adjust to running in local environment

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-03-16 14:22:23 UTC (rev 1605)
+++ trunk/rkward/rkward/plugins/plots/pareto.php	2007-03-16 14:25:32 UTC (rev 1606)
@@ -13,16 +13,10 @@
 	doPrintout (true);
 }
 
-function cleanup () { ?>
-rm (list=grep ("^rk.temp", ls (), value=TRUE))
-<?
-}
-
 function preview () {
 	preprocess ();
 	calculate ();
 	doPrintout (false);
-	cleanup ();
 }
 
 function doPrintout ($final) {
@@ -31,11 +25,11 @@
 	$tabulate= getRK_val ("tabulate")=="TRUE";
 
 if($tabulate) {?>
-rk.temp.x <- table (<? echo ($vars); ?>, exclude=NULL)
+x <- table (<? echo ($vars); ?>, exclude=NULL)
 <?      } else { ?>
-rk.temp.x <- <? echo ($vars); ?>
+x <- <? echo ($vars); ?>
 
-if (!is.numeric (rk.temp.x)) {
+if (!is.numeric (x)) {
        rk.print ("Data may not be numeric, but proceeding as requested.\nDid you
 forget to check the tabulate option?")
 }
@@ -48,9 +42,9 @@
 <?	}
 ?>
 try ({
-	rk.temp.descriptives <- pareto.chart(rk.temp.x<? getRK ("plotoptions.code.printout"); ?>)
+	descriptives <- pareto.chart(x<? getRK ("plotoptions.code.printout"); ?>)
 <?	if ($final && $descriptives) { ?>
-	rk.print(xtable(rk.temp.descriptives))
+	rk.print(xtable(descriptives))
 <?	} ?>
 })
 <?	if ($final) { ?>


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