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

[tfry at users.sourceforge.net]

Revision: 1156
          http://svn.sourceforge.net/rkward/?rev=1156&view=rev
Author:   tfry
Date:     2007-01-15 07:28:57 -0800 (Mon, 15 Jan 2007)

Log Message:
-----------
Add scatterplot matrix plugin (I. Soumpasis)

Modified Paths:
--------------
    trunk/rkward/rkward/plugins/plots.pluginmap

Added Paths:
-----------
    trunk/rkward/rkward/plugins/plots/scatterplot_matrix.php
    trunk/rkward/rkward/plugins/plots/scatterplot_matrix.xml

Added: trunk/rkward/rkward/plugins/plots/scatterplot_matrix.php
===================================================================
--- trunk/rkward/rkward/plugins/plots/scatterplot_matrix.php	                        (rev 0)
+++ trunk/rkward/rkward/plugins/plots/scatterplot_matrix.php	2007-01-15 15:28:57 UTC (rev 1156)
@@ -0,0 +1,33 @@
+<?
+	function preprocess () {
+?>
+require(car)
+<?
+	}
+	
+	function calculate () {
+	}
+	
+	function printout () {
+	$vars = str_replace ("\n", ",", trim (getRK_val ("x"))) ;
+?>
+
+rk.temp.x<- data.frame (<? echo ($vars); ?>)
+
+rk.header ("Correlation Matrix Plot", parameters=list ("Diagonal Panels", "<? getRK("diag") ?>", "Plot points", "<? getRK ("plot_points"); ?>", "Smooth", "<? getRK ("smooth"); ?>", "Ellipses", "<? getRK ("ellipse"); ?> at 0.5 and 0.9 (normal) probability or confidence levels."))
+
+rk.graph.on ()
+
+scatterplot.matrix(rk.temp.x, diagonal= "<? getRK("diag") ?>", plot.points=<? getRK ("plot_points"); ?>, smooth=<? getRK ("smooth"); ?>, ellipse=<? getRK ("ellipse"); ?>)
+
+rk.graph.off ()
+
+<?
+	}
+	
+	function cleanup () {
+?>
+rm(rk.temp.x)
+<?
+	}
+?>

Added: trunk/rkward/rkward/plugins/plots/scatterplot_matrix.xml
===================================================================
--- trunk/rkward/rkward/plugins/plots/scatterplot_matrix.xml	                        (rev 0)
+++ trunk/rkward/rkward/plugins/plots/scatterplot_matrix.xml	2007-01-15 15:28:57 UTC (rev 1156)
@@ -0,0 +1,29 @@
+<!DOCTYPE rkplugin>
+<document>
+	<code file="scatterplot_matrix.php" />
+
+	<dialog label="Scatterplot Matrix" >
+		<tabbook>
+			<tab label="variables">		
+				<row>
+					<varselector id="vars"/>
+					<varslot type="numeric" min_vars="1" multi="true" id="x" source="vars" required="true" label="variable(s):"/>
+				</row>
+			</tab>
+			<tab label="options">
+				<radio id="diag" label="Diagonal panels">
+					<option value="density" label="Density plot"/>
+					<option value="boxplot" label="Boxplot"/>
+					<option  checked="true" value="histogram" label="Histogram"/>
+					<option value="oned" label="Oned"/>	
+					<option value="qqplot" label="QQplot"/>
+					<option value="none" label="No plot"/>
+				</radio>
+				<checkbox id="plot_points" label="Plot points" value="TRUE" value_unchecked="FALSE" checked="true"/>
+				<checkbox id="smooth" label="Smooth" value="TRUE" value_unchecked="FALSE" checked="true"/>
+				<checkbox id="ellipse" label="Ellipse" value="TRUE" value_unchecked="FALSE" checked="true"/>
+			</tab>
+		</tabbook>
+	</dialog>
+
+</document>

Modified: trunk/rkward/rkward/plugins/plots.pluginmap
===================================================================
--- trunk/rkward/rkward/plugins/plots.pluginmap	2007-01-15 15:27:28 UTC (rev 1155)
+++ trunk/rkward/rkward/plugins/plots.pluginmap	2007-01-15 15:28:57 UTC (rev 1156)
@@ -8,7 +8,7 @@
 		<component type="standard" id="ecdf_plot" file="ecdf_plot.xml" label="ECDF Plot" />
 		<component type="standard" id="histogram" file="histogram.xml" label="Histogram" />
 		<component type="standard" id="stripchart" file="stripchart_plot.xml" label="Stripchart" />
-
+		<component type="standard" id="scatterplot_matrix" file="scatterplot_matrix.xml" label="Scatterplot Matrix" />
 	</components>
 
 	<hierarchy>
@@ -19,6 +19,7 @@
 			<entry component="ecdf_plot" />
 			<entry component="histogram" />
 			<entry component="stripchart" />
+			<entry component="scatterplot_matrix" />
 		</menu>
 	</hierarchy>
 </document>


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