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

[tfry at users.sourceforge.net]

Revision: 2436
          http://rkward.svn.sourceforge.net/rkward/?rev=2436&view=rev
Author:   tfry
Date:     2009-03-31 18:53:41 +0000 (Tue, 31 Mar 2009)

Log Message:
-----------
Copy sieve_plot-work to trunk

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

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

Added: trunk/rkward/rkward/plugins/plots/sieve_plot.php
===================================================================
--- trunk/rkward/rkward/plugins/plots/sieve_plot.php	                        (rev 0)
+++ trunk/rkward/rkward/plugins/plots/sieve_plot.php	2009-03-31 18:53:41 UTC (rev 2436)
@@ -0,0 +1,44 @@
+<?
+function preprocess () { ?>
+require(vcd)
+<? }
+
+function calculate () {
+}
+
+function printout () {
+	doPrintout (true);
+}
+
+function preview () {
+	preprocess ();
+	calculate ();
+	doPrintout (false);
+}
+
+function doPrintout ($final) {
+	$vars = getRK_val ("x");
+	$shade = getRK_val ("shade");
+	$sievetype = getRK_val ("sievetype");
+{ ?>
+x <- <? echo ($vars); ?>
+<? } ?>
+
+<?	if ($final) { ?>
+rk.header ("Extended Sieve Plot", parameters=list ("Variable", rk.get.description (<? echo ($vars); ?>), "shade", <? echo ($shade); ?>))
+
+rk.graph.on ()
+<?	}
+?>
+try ({
+<?	if (!empty ($plotpre)) printIndented ("\t", $plotpre);
+	
+?>
+	sieve(x, shade = <? echo ($shade); ?>, sievetype = "<? echo ($sievetype); ?>" <? getRK ("plotoptions.code.printout"); ?>)
+<?	if (!empty ($plotpost)) printIndented ("\t", $plotpost); ?>
+})
+<?	if ($final) { ?>
+rk.graph.off ()
+<? }
+}
+?>

Added: trunk/rkward/rkward/plugins/plots/sieve_plot.rkh
===================================================================
--- trunk/rkward/rkward/plugins/plots/sieve_plot.rkh	                        (rev 0)
+++ trunk/rkward/rkward/plugins/plots/sieve_plot.rkh	2009-03-31 18:53:41 UTC (rev 2436)
@@ -0,0 +1,22 @@
+<!DOCTYPE rkhelp>
+<document>
+	<summary>
+Draw Extended Mosaic Plot
+	</summary>
+
+	<usage>
+DUMMY:
+	</usage>
+
+	<settings>
+		<caption id="tab_variables"/>
+		<setting id="x">Matrix, vector or a factor. Data needs to be numeric unless the tabulate option is checked, below.</setting>
+	</settings>
+	<related>
+		<ul>
+			<li><link href="rkward://component/mosaic"/></li>
+			<li><link href="rkward://component/mosaic_plot"/></li>
+			<li><link href="rkward://rhelp/mosaic"/></li>
+		</ul>
+	</related>
+</document>

Added: trunk/rkward/rkward/plugins/plots/sieve_plot.xml
===================================================================
--- trunk/rkward/rkward/plugins/plots/sieve_plot.xml	                        (rev 0)
+++ trunk/rkward/rkward/plugins/plots/sieve_plot.xml	2009-03-31 18:53:41 UTC (rev 2436)
@@ -0,0 +1,36 @@
+<!DOCTYPE rkplugin>
+<document>
+	<code file="sieve_plot.php" />
+	<help file="sieve_plot.rkh" />
+	<logic>
+		<set id="plotoptions.allow_xlim" to="false"/>
+		<set id="plotoptions.allow_ylim" to="false"/>
+		<set id="plotoptions.allow_log" to="false"/>
+		<set id="plotoptions.allow_type" to="false"/>
+	</logic>
+	<dialog label="Extended Sieve Plot" >
+		<tabbook>
+			<tab label="Variables" id="tab_variables">
+				<row>
+					<varselector id="vars"/>
+					<column>
+						<varslot multi="false" id="x" source="vars" required="true" label="Variable"/>
+						<stretch/>
+						<preview id="preview"/>
+					</column>
+				</row>
+			</tab>
+			<tab label="Options" id="options">
+				<row>
+					<checkbox label="shade" id="shade" value="TRUE" value_unchecked="FALSE" checked="true" />
+					<radio id="sievetype" label="sievetype" >
+						<option value="expected" label="expected" />
+						<option value="observed" label="observed" />
+					</radio>
+					<embed id="plotoptions" component="rkward::plot_options" as_button="true" label="Plot Options" />
+					<stretch/>
+				</row>
+			</tab>
+		</tabbook>
+	</dialog>
+</document>

Modified: trunk/rkward/rkward/plugins/under_development.pluginmap
===================================================================
--- trunk/rkward/rkward/plugins/under_development.pluginmap	2009-03-31 18:47:41 UTC (rev 2435)
+++ trunk/rkward/rkward/plugins/under_development.pluginmap	2009-03-31 18:53:41 UTC (rev 2436)
@@ -3,6 +3,7 @@
 <document base_prefix="" namespace="rkward">
 	<components>
 		<component type="standard" id="simple_anova" file="simple_anova/description.xml" label="Simple Anova" />
+		<component type="standard" id="sieve_plot" file="plots/sieve_plot.xml" label="Extended Sieve Plot" />
 	</components>
 
 	<hierarchy>
@@ -16,6 +17,7 @@
 			<entry component="simple_anova" index="9"/>
 		</menu>
 		<menu id="plots" label="Plots" index="5">
+			<entry component="sieve_plot" />
 		</menu>
 		<menu id="distributions" label="Distributions" index="7">
 		</menu>


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