[rkward-cvs] SF.net SVN: rkward: [1650] trunk/rkward/rkward/plugins/plots/cor_graph.php

[tfry at users.sourceforge.net]

Revision: 1650
          http://svn.sourceforge.net/rkward/?rev=1650&view=rev
Author:   tfry
Date:     2007-03-19 15:57:52 -0700 (Mon, 19 Mar 2007)

Log Message:
-----------
local() adjustments

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

Modified: trunk/rkward/rkward/plugins/plots/cor_graph.php
===================================================================
--- trunk/rkward/rkward/plugins/plots/cor_graph.php	2007-03-19 22:57:13 UTC (rev 1649)
+++ trunk/rkward/rkward/plugins/plots/cor_graph.php	2007-03-19 22:57:52 UTC (rev 1650)
@@ -1,6 +1,6 @@
 <?
 function preprocess () { ?>
-rk.temp.cor.graph <- function(x) {
+cor.graph <- function(x) {
 	panel.cor <- function(x, y, digits=<? getRK ("digits"); ?>, cex.cor, use="<? getRK ("use"); ?>", method="<? getRK ("method"); ?>", scale=<? getRK ("scale"); ?>) {
 		usr <- par("usr"); on.exit(par(usr))
 		par(usr = c(0, 1, 0, 1))
@@ -29,23 +29,17 @@
 function printout () {
 	doPrintout (true);
 }
-	
-function cleanup () { ?>
-rm(rk.temp.cor.graph, rk.temp.x)
-<?
-	}
-	
+
 function preview () {
 	preprocess ();
 	calculate ();
-	doPrintout (false);	// only this one actually needed...
-	cleanup ();
+	doPrintout (false);
 }
 
 function doPrintout ($final) {
 	$vars = str_replace ("\n", ",", trim (getRK_val ("x"))) ;
 ?>
-rk.temp.x <- data.frame (<? echo ($vars); ?>)
+data <- data.frame (<? echo ($vars); ?>)
 
 <? 
 	if ($final) { ?>
@@ -55,7 +49,7 @@
 <?
 } ?>
 try ({
-	rk.temp.cor.graph (rk.temp.x)
+	cor.graph (data)
 })
 <? 
 	if ($final) { ?>
@@ -63,6 +57,5 @@
 
 print("Signif. codes:  0 '***', 0.001 '**', 0.01 '*', 0.05 '.'', 0.1 ' ', 1")
 <?  }
-
 }
 ?>


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