[rkward-cvs] SF.net SVN: rkward:[3064] trunk/rkward/tests/plots/RKTestStandard.boxplot. rkcommands.R

[tfry at users.sourceforge.net]

Revision: 3064
          http://rkward.svn.sourceforge.net/rkward/?rev=3064&view=rev
Author:   tfry
Date:     2010-09-22 15:13:04 +0000 (Wed, 22 Sep 2010)

Log Message:
-----------
Adjust test standard for boxplot (should have been part of rev 2980)

Revision Links:
--------------
    http://rkward.svn.sourceforge.net/rkward/?rev=2980&view=rev

Modified Paths:
--------------
    trunk/rkward/tests/plots/RKTestStandard.boxplot.rkcommands.R

Modified: trunk/rkward/tests/plots/RKTestStandard.boxplot.rkcommands.R
===================================================================
--- trunk/rkward/tests/plots/RKTestStandard.boxplot.rkcommands.R	2010-09-22 14:49:03 UTC (rev 3063)
+++ trunk/rkward/tests/plots/RKTestStandard.boxplot.rkcommands.R	2010-09-22 15:13:04 UTC (rev 3064)
@@ -6,7 +6,7 @@
 rk.header ("Boxplot", list ("Variable(s)", rk.get.description (women[["weight"]], women[["height"]], paste.sep=", ")))
 rk.graph.on()
 try (boxplot (data_list, notch = FALSE, outline = TRUE, horizontal = FALSE)) #actuall boxplot function
-	try (points(apply(data.frame(women[["weight"]], women[["height"]]),2,mean,na.rm = TRUE),pch=15, cex = 1.00, col="blue")) #calculates the mean for all data and adds a point at the corresponding position
+	try (points(sapply(data_list,mean,na.rm = TRUE),pch=15, cex = 1.00, col="blue")) #calculates the mean for all data and adds a point at the corresponding position
 rk.graph.off ()
 })
 .rk.rerun.plugin.link(plugin="rkward::box_plot", settings="cex_sd_mean.real=1.00\nmean.state=TRUE\nnames_exp.text=names (x)\nnames_mode.string=default\nnotch.state=FALSE\norientation.string=FALSE\noutline.state=TRUE\npch_mean.real=15.00\nplotoptions.add_grid.state=0\nplotoptions.asp.real=0.00\nplotoptions.main.text=\nplotoptions.pointcolor.color.string=\nplotoptions.pointtype.string=\nplotoptions.sub.text=\nplotoptions.xaxt.state=\nplotoptions.xlab.text=\nplotoptions.xlog.state=\nplotoptions.xmaxvalue.text=\nplotoptions.xminvalue.text=\nplotoptions.yaxt.state=\nplotoptions.ylab.text=\nplotoptions.ylog.state=\nplotoptions.ymaxvalue.text=\nplotoptions.yminvalue.text=\nsd.state=\nsd_mean_color.color.string=blue\nx.available=women[[\\\"weight\\\"]]\\nwomen[[\\\"height\\\"]]", label="Run again")


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