[rkward-cvs] SF.net SVN: rkward:[4096] trunk/rkward/rkward/plugins/plots/box_plot.js

[tfry at users.sourceforge.net]

Revision: 4096
          http://rkward.svn.sourceforge.net/rkward/?rev=4096&view=rev
Author:   tfry
Date:     2011-12-11 10:36:02 +0000 (Sun, 11 Dec 2011)
Log Message:
-----------
Fix for r 4095

Modified Paths:
--------------
    trunk/rkward/rkward/plugins/plots/box_plot.js

Modified: trunk/rkward/rkward/plugins/plots/box_plot.js
===================================================================
--- trunk/rkward/rkward/plugins/plots/box_plot.js	2011-12-11 09:12:17 UTC (rev 4095)
+++ trunk/rkward/rkward/plugins/plots/box_plot.js	2011-12-11 10:36:02 UTC (rev 4096)
@@ -69,7 +69,7 @@
 		}
 
 		if (horizontal) {
-		  echo ('	try (points(1:length(data_list) ~ sapply(data_list,interq_mean), pch=' + pch_mean + ', cex = ' + getValue ("cex_sd_mean") + getValue ("sd_mean_color.code.printout") + ')) #calculates the mean for all data and adds a point at the corresponding position\n');
+		  echo ('	try (points(1:length(data_list) ~ sapply(data_list,' + mean_fun + '), pch=' + pch_mean + ', cex = ' + getValue ("cex_sd_mean") + getValue ("sd_mean_color.code.printout") + ')) #calculates the mean for all data and adds a point at the corresponding position\n');
 		} else {
 		  echo ('	try (points(sapply(data_list,' + mean_fun + '), pch=' + pch_mean + ', cex = ' + getValue ("cex_sd_mean") + getValue ("sd_mean_color.code.printout") + ')) #calculates the mean for all data and adds a point at the corresponding position\n');
 		}

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