[rkward-cvs] SF.net SVN: rkward:[2666] trunk/rkward/rkward/plugins/plots/scatterplot.php

[tfry at users.sourceforge.net]

Revision: 2666
          http://rkward.svn.sourceforge.net/rkward/?rev=2666&view=rev
Author:   tfry
Date:     2009-09-25 11:58:40 +0000 (Fri, 25 Sep 2009)

Log Message:
-----------
Add rk.header to scatterplot

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

Modified: trunk/rkward/rkward/plugins/plots/scatterplot.php
===================================================================
--- trunk/rkward/rkward/plugins/plots/scatterplot.php	2009-09-25 11:32:24 UTC (rev 2665)
+++ trunk/rkward/rkward/plugins/plots/scatterplot.php	2009-09-25 11:58:40 UTC (rev 2666)
@@ -3,6 +3,7 @@
 }
 
 function calculate () {
+	global $x, $y;
 	$x = str_replace ("\n", ",", trim (getRK_val ("x"))) ;
 	$y = str_replace ("\n", ",", trim (getRK_val ("y"))) ;
 	
@@ -47,7 +48,13 @@
 }
 
 function doPrintout ($final) {
+	global $x, $y;
+
 	if ($final) { ?>
+rk.header ("Scatterplot", parameters = list (
+	"X variables"=paste (rk.get.description (<?echo ($x); ?>), collapse=", "),
+	"Y variables"=paste (rk.get.description (<?echo ($y); ?>), collapse=", ")))
+
 rk.graph.on()
 
 <?	} ?>


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