[rkward-cvs] SF.net SVN: rkward: [1230] trunk/rkward/rkward/plugins/plots/barplot.php
nono_231 at users.sourceforge.net
nono_231 at users.sourceforge.net
Sat Jan 27 07:13:45 UTC 2007
Revision: 1230
http://svn.sourceforge.net/rkward/?rev=1230&view=rev
Author: nono_231
Date: 2007-01-26 23:13:45 -0800 (Fri, 26 Jan 2007)
Log Message:
-----------
minor syntax changes
Modified Paths:
--------------
trunk/rkward/rkward/plugins/plots/barplot.php
Modified: trunk/rkward/rkward/plugins/plots/barplot.php
===================================================================
--- trunk/rkward/rkward/plugins/plots/barplot.php 2007-01-26 15:55:14 UTC (rev 1229)
+++ trunk/rkward/rkward/plugins/plots/barplot.php 2007-01-27 07:13:45 UTC (rev 1230)
@@ -18,19 +18,23 @@
try ({
<?
if (getRK_val ("beside") == "TRUE") {
- ?>rk.temp.barplot <-barplot((rk.temp.x)<? if (getRK_val ("rainbow")=="TRUE") { ?>,
+ ?>
+rk.temp.barplot <-barplot((rk.temp.x)<? if (getRK_val ("rainbow")=="TRUE") { ?>,
col=rainbow(rk.temp.x) <? } ?>, beside=<? getRK ("beside"); ?>, legend.text=<?
getRK ("legend"); ?>, ylim = range(rk.temp.x) * c(0, 1.2))
- <?
+ <?
}
- if ((getRK_val ("beside") == "TRUE") && getRK_val ("labels")=="TRUE") { ?>
+ if ((getRK_val ("beside") == "TRUE") && getRK_val ("labels")=="TRUE") {
+ ?>
text(rk.temp.barplot, rk.temp.x, labels=rk.temp.x, pos=<? getRK ("place"); ?>,
offset=.5)
<? }
- if (getRK_val ("beside") == "FALSE") {
-?> barplot((rk.temp.x)<? if (getRK_val ("rainbow")=="TRUE") { ?>,
+ if (getRK_val ("beside") == "FALSE") {
+ ?>
+barplot((rk.temp.x)<? if (getRK_val ("rainbow")=="TRUE") { ?>,
col=rainbow(rk.temp.x) <? } ?>, legend.text=<? getRK ("legend"); ?>)
- <? } ?>
+ <? }
+ ?>
})
rk.graph.off ()
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
More information about the rkward-tracker
mailing list