[rkward-cvs] SF.net SVN: rkward: [1207] trunk/rkward/rkward/plugins/plots/barplot.php
nono_231 at users.sourceforge.net
nono_231 at users.sourceforge.net
Wed Jan 24 15:47:48 UTC 2007
Revision: 1207
http://svn.sourceforge.net/rkward/?rev=1207&view=rev
Author: nono_231
Date: 2007-01-24 07:47:47 -0800 (Wed, 24 Jan 2007)
Log Message:
-----------
syntax formatting 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-24 15:37:52 UTC (rev 1206)
+++ trunk/rkward/rkward/plugins/plots/barplot.php 2007-01-24 15:47:47 UTC (rev 1207)
@@ -23,12 +23,12 @@
}
else {
rk.temp.barplot <- barplot((rk.temp.x), beside=<? getRK ("beside"); ?>, legend.text=<? getRK ("legend"); ?>, ylim = range(rk.temp.x) * c(0, 1.2))
+ }
+ if(<? getRK ("labels"); ?>) text(rk.temp.barplot, rk.temp.x, labels=rk.temp.x, pos=<? getRK ("place"); ?>, offset=.5)
}
- if(<? getRK ("labels"); ?>) text(rk.temp.barplot, rk.temp.x, labels=rk.temp.x, pos=<? getRK ("place"); ?>, offset=.5)
- }
else {
- if(<? getRK ("rainbow"); ?>) barplot((rk.temp.x), col=rainbow(rk.temp.x), legend.text=<? getRK ("legend"); ?>)
- else barplot((rk.temp.x), legend.text=<? getRK ("legend"); ?>)
+ if(<? getRK ("rainbow"); ?>) barplot((rk.temp.x), col=rainbow(rk.temp.x), legend.text=<? getRK ("legend"); ?>)
+ else barplot((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