[rkward-cvs] SF.net SVN: rkward: [1122] trunk/rkward/rkward/plugins/plots/histogram.php

[tfry at users.sourceforge.net]

Revision: 1122
          http://svn.sourceforge.net/rkward/?rev=1122&view=rev
Author:   tfry
Date:     2007-01-11 09:05:29 -0800 (Thu, 11 Jan 2007)

Log Message:
-----------
prettier way of writing the integer breaks algorithm

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

Modified: trunk/rkward/rkward/plugins/plots/histogram.php
===================================================================
--- trunk/rkward/rkward/plugins/plots/histogram.php	2007-01-11 16:41:05 UTC (rev 1121)
+++ trunk/rkward/rkward/plugins/plots/histogram.php	2007-01-11 17:05:29 UTC (rev 1122)
@@ -14,7 +14,7 @@
 	$giveRkern =  getRK_val ("giveRkern");
 	$x = getRK_val ("x");
 	if ($breaks == "int") {
-		$breaksopt = "breaks =seq (as.integer (min (" . $x . ")-0.5)-0.5, as.integer (max (" . $x .")+0.5)+ 0.5)";
+		$breaksopt = "breaks =seq (floor (min (" . $x . "))-0.5, ceiling (max (" . $x ."))+0.5)";
 		$breaks = "Integers";
 	} else if (!empty ($breaks)) {
 		$breaksopt = "breaks=\"" . $breaks . "\"";


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