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

[sjar at users.sourceforge.net]

Revision: 1010
          http://svn.sourceforge.net/rkward/?rev=1010&view=rev
Author:   sjar
Date:     2006-12-16 16:08:00 -0800 (Sat, 16 Dec 2006)

Log Message:
-----------
verticals and do.points to ECDF added
GUI changed
Description of output gives now min, max and length

Modified Paths:
--------------
    trunk/rkward/rkward/plugins/plots/ecdf_plot.php
    trunk/rkward/rkward/plugins/plots/ecdf_plot.xml

Modified: trunk/rkward/rkward/plugins/plots/ecdf_plot.php
===================================================================
--- trunk/rkward/rkward/plugins/plots/ecdf_plot.php	2006-12-15 14:15:25 UTC (rev 1009)
+++ trunk/rkward/rkward/plugins/plots/ecdf_plot.php	2006-12-17 00:08:00 UTC (rev 1010)
@@ -3,18 +3,29 @@
 	}
 	
 	function calculate () {
+?>	rk.min = min (<? getRK("x"); ?>)
+	rk.max = max (<? getRK("x"); ?>)
+	rk.length = length (<? getRK ("x"); ?>)
+<?
 	}
 	
 	function printout () {
 	$x = getRK_val ("x");
+	$col = getRK_val ("col");
 ?>
-rk.header ("ECDF", list ("Variable", rk.get.description (<? echo ($x); ?>)))
+rk.header ("ECDF", list ("Variable", rk.get.description (<? echo ($x); ?>), "Minimum", rk.min, "Maximum", rk.max, "Length", rk.length))
 rk.graph.on ()
-plot.ecdf (<? echo ($x); ?>, <? getRK ("plotoptions.code.printout"); ?>)
+plot.ecdf (<? echo ($x); ?>, <? getRK ("plotoptions.code.printout"); ?>, <? getRK ("dopoints"); ?>, <? getRK ("vertical"); ?>, datadensity="rug")
+curve(pnorm, from= rk.min, to= rk.max, add=TRUE, col="<? echo ($col); ?>")
+rug(<? echo ($x); ?>)
 rk.graph.off ()
 <?
 	}
 	
 	function cleanup () {
+?>	rm (rk.min)
+	rm (rk.max)
+	rm (rk.length)
+<?
 	}
 ?>

Modified: trunk/rkward/rkward/plugins/plots/ecdf_plot.xml
===================================================================
--- trunk/rkward/rkward/plugins/plots/ecdf_plot.xml	2006-12-15 14:15:25 UTC (rev 1009)
+++ trunk/rkward/rkward/plugins/plots/ecdf_plot.xml	2006-12-17 00:08:00 UTC (rev 1010)
@@ -1,24 +1,46 @@
 <!DOCTYPE rkplugin>
 <document>
-<code file="ecdf_plot.php" />
-<logic>
-	<connect client="plotoptions.xvar" governor="x.available"/>
-	<set id="plotoptions.allow_log" to="false"/>
-	<set id="plotoptions.allow_type" to="false"/>
-	<set id="plotoptions.allow_asp" to="true"/>
-</logic>
-<dialog label="Empirical Distribution Function" >
-	<tabbook>
-	<tab label="Variable(s)" >
-		<row>
-		<varselector id="vars" />
-		<varslot multi="false" type="numeric" id="x" source="vars" label="variable(s):" required="true" />
-		</row>
-	</tab>
-	<tab label="Options" >
-		<embed id="plotoptions" component="rkward::plot_options" as_button="false" label="Plot Options" />
-		<stretch/>
-	</tab>
-	</tabbook>
-</dialog>
+	<code file="ecdf_plot.php" />
+	<logic>
+		<connect client="plotoptions.xvar" governor="x.available"/>
+		<set id="plotoptions.allow_log" to="false"/>
+		<set id="plotoptions.allow_type" to="false"/>
+		<set id="plotoptions.allow_asp" to="true"/>
+	</logic>
+	<dialog label="Empirical Distribution Function" >
+		<tabbook>
+			<tab label="Variable(s)" >
+				<row>
+					<column>
+						<varselector id="vars" />
+					</column>
+					<column>
+						<varslot multi="false" type="numeric" id="x" source="vars" label="variable(s):" required="true" />
+					</column>
+					<stretch/>
+				</row>
+			</tab>
+			<tab label="Options" >
+				<row>
+					<column>
+						<radio id="dopoints" label="dopoints">
+							<option value="do.points = TRUE" label="Do Points TRUE"/>
+							<option value="do.points = FALSE" label="Do Points FALSE"/>
+						</radio>
+						<radio id="verticals" label="vertical">
+							<option value="verticals = FALSE" label="Verticals False"/>
+							<option value="verticals = TRUE" label="Verticals TRUE"/>
+						</radio>
+						<input id="col" initial="red" label="Color of Theoretical Normal Distribution"/>
+						<text>R provides you a broad range of colors to use. To change the current just type another like 'blue'. Please refere to the R-help for others than the default (red).
+						</text>
+					</column>
+					<column>
+						<embed id="plotoptions" component="rkward::plot_options" as_button="false" label="Plot Options" />
+					</column>
+					<stretch/>
+				</row>
+			</tab>
+		</tabbook>
+	</dialog>
 </document>


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