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

[tfry at users.sourceforge.net]

Revision: 1608
          http://svn.sourceforge.net/rkward/?rev=1608&view=rev
Author:   tfry
Date:     2007-03-16 07:37:01 -0700 (Fri, 16 Mar 2007)

Log Message:
-----------
Remove give.Rkern option from histogram. It is not useful in this context

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

Modified: trunk/rkward/rkward/plugins/plots/histogram.php
===================================================================
--- trunk/rkward/rkward/plugins/plots/histogram.php	2007-03-16 14:29:37 UTC (rev 1607)
+++ trunk/rkward/rkward/plugins/plots/histogram.php	2007-03-16 14:37:01 UTC (rev 1608)
@@ -9,14 +9,10 @@
 	doPrintout (true);
 }
 
-function cleanup () {
-}
-
 function preview () {
 	preprocess ();
 	calculate ();
 	doPrintout (false);	// only this one actually needed...
-	cleanup ();
 }
 
 // internal helper functions
@@ -24,8 +20,7 @@
 	$densityscaled = getRK_val ("densityscaled");
 	$bw =  getRK_val ("bw");
 	$adjust = getRK_val ("adjust");
-	$narm =  getRK_val ("narm");
-	$giveRkern =  getRK_val ("giveRkern");
+	$narm = getRK_val ("narm");
 	$x = getRK_val ("x");
 
 	if ($final) { ?>
@@ -37,7 +32,7 @@
 try ({
 	hist (<? echo ($x); getRK ("histogram_opt.code.calculate"); getRK ("histogram_opt.code.printout"); getRK ("plotoptions.code.printout"); ?>)
 <?	if (($densityscaled) && getRK_val ("density")) { ?>
-	lines(density(<? echo ($x); ?>, bw="<? echo ($bw); ?>", adjust = <? echo ($adjust); ?>, <? echo ($giveRkern); ?>, <? echo ($narm); ?>, n = <? getRK ("n"); ?>)<? getRK ("col_density.code.printout"); ?>)
+	lines(density(<? echo ($x); ?>, bw="<? echo ($bw); ?>", adjust = <? echo ($adjust); ?>, <? echo ($narm); ?>, n = <? getRK ("n"); ?>)<? getRK ("col_density.code.printout"); ?>)
 <?	} ?>
 })
 <?	if ($final) { ?>

Modified: trunk/rkward/rkward/plugins/plots/histogram.xml
===================================================================
--- trunk/rkward/rkward/plugins/plots/histogram.xml	2007-03-16 14:29:37 UTC (rev 1607)
+++ trunk/rkward/rkward/plugins/plots/histogram.xml	2007-03-16 14:37:01 UTC (rev 1608)
@@ -50,10 +50,6 @@
 							<option value="na.rm = TRUE" label="TRUE"/>
 							<option value="na.rm = FALSE" label="FALSE"/>
 						</radio>
-						<radio id="giveRkern" label="Estimate Density">
-							<option value="give.Rkern = FALSE" label="Estimate Density"/>
-							<option value="give.Rkern = TRUE" label="No density is estimated"/>
-						</radio>
 						<spinbox id="n" initial="512" label="number of equally spaced points at which the density is to be estimated" />
 						<stretch/>
 					</column>


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