[rkward-cvs] SF.net SVN: rkward:[2665] trunk/rkward/tests
tfry at users.sourceforge.net
tfry at users.sourceforge.net
Fri Sep 25 11:32:26 UTC 2009
Revision: 2665
http://rkward.svn.sourceforge.net/rkward/?rev=2665&view=rev
Author: tfry
Date: 2009-09-25 11:32:24 +0000 (Fri, 25 Sep 2009)
Log Message:
-----------
Add tests for plot plugins
Modified Paths:
--------------
trunk/rkward/tests/plots.R
Added Paths:
-----------
trunk/rkward/tests/plots/
trunk/rkward/tests/plots/RKTestStandard.barplot.rkcommands.R
trunk/rkward/tests/plots/RKTestStandard.barplot.rkout
trunk/rkward/tests/plots/RKTestStandard.boxplot.rkcommands.R
trunk/rkward/tests/plots/RKTestStandard.boxplot.rkout
trunk/rkward/tests/plots/RKTestStandard.density_plot.rkcommands.R
trunk/rkward/tests/plots/RKTestStandard.density_plot.rkout
trunk/rkward/tests/plots/RKTestStandard.dotchart.rkcommands.R
trunk/rkward/tests/plots/RKTestStandard.dotchart.rkout
trunk/rkward/tests/plots/RKTestStandard.ecdf_plot.rkcommands.R
trunk/rkward/tests/plots/RKTestStandard.ecdf_plot.rkout
trunk/rkward/tests/plots/RKTestStandard.generic_plot.rkcommands.R
trunk/rkward/tests/plots/RKTestStandard.generic_plot.rkout
trunk/rkward/tests/plots/RKTestStandard.histogram.rkcommands.R
trunk/rkward/tests/plots/RKTestStandard.histogram.rkout
trunk/rkward/tests/plots/RKTestStandard.pareto_chart.rkcommands.R
trunk/rkward/tests/plots/RKTestStandard.pareto_chart.rkout
trunk/rkward/tests/plots/RKTestStandard.piechart.rkcommands.R
trunk/rkward/tests/plots/RKTestStandard.piechart.rkout
trunk/rkward/tests/plots/RKTestStandard.scatterplot.rkcommands.R
trunk/rkward/tests/plots/RKTestStandard.scatterplot.rkout
trunk/rkward/tests/plots/RKTestStandard.scatterplot_matrix.rkcommands.R
trunk/rkward/tests/plots/RKTestStandard.scatterplot_matrix.rkout
trunk/rkward/tests/plots/RKTestStandard.stem_leaf_plot.rkcommands.R
trunk/rkward/tests/plots/RKTestStandard.stem_leaf_plot.rkout
trunk/rkward/tests/plots/RKTestStandard.stripchart.rkcommands.R
trunk/rkward/tests/plots/RKTestStandard.stripchart.rkout
Added: trunk/rkward/tests/plots/RKTestStandard.barplot.rkcommands.R
===================================================================
--- trunk/rkward/tests/plots/RKTestStandard.barplot.rkcommands.R (rev 0)
+++ trunk/rkward/tests/plots/RKTestStandard.barplot.rkcommands.R 2009-09-25 11:32:24 UTC (rev 2665)
@@ -0,0 +1,42 @@
+local({
+## Prepare
+## Compute
+## Print result
+x <- swiss[["Catholic"]]
+# barplot is a bit picky about attributes, so we need to convert to vector explicitely
+if(!is.matrix(x)) x <- as.vector(x)
+if(!is.matrix(x) && is.data.frame(x)) x <- data.matrix(x)
+names(x) <- rownames (swiss)
+rk.header ("Barplot", parameters=list ("Variable", rk.get.description (swiss[["Catholic"]]), "Tabulate", "No", "colors", "rainbow", "Type", "juxtaposed", "Legend", "FALSE"))
+
+rk.graph.on ()
+try ({
+ # adjust the range so that the labels will fit
+ yrange <- range (x, na.rm=TRUE) * 1.2
+ if (yrange[1] > 0) yrange[1] <- 0
+ if (yrange[2] < 0) yrange[2] <- 0
+ bplot <- barplot(x, col=rainbow (if(is.matrix(x)) dim(x) else length(x)), beside=TRUE, ylim = yrange)
+ text (bplot,x, labels=x, pos=3, offset=.5)
+})
+rk.graph.off ()
+})
+.rk.rerun.plugin.link(plugin="rkward::barplot", settings="barplot_embed.colors.string=rainbow\nbarplot_embed.labels.state=1\nbarplot_embed.legend.state=0\nbarplot_embed.place.string=3\nbarplot_embed.plotoptions.add_grid.state=0\nbarplot_embed.plotoptions.asp.real=0.00000000\nbarplot_embed.plotoptions.main.text=\nbarplot_embed.plotoptions.pointcolor.color.string=\nbarplot_embed.plotoptions.pointtype.string=\nbarplot_embed.plotoptions.sub.text=\nbarplot_embed.plotoptions.xaxt.state=\nbarplot_embed.plotoptions.xlab.text=\nbarplot_embed.plotoptions.xlog.state=\nbarplot_embed.plotoptions.xmaxvalue.text=\nbarplot_embed.plotoptions.xminvalue.text=\nbarplot_embed.plotoptions.yaxt.state=\nbarplot_embed.plotoptions.ylab.text=\nbarplot_embed.plotoptions.ylog.state=\nbarplot_embed.plotoptions.ymaxvalue.text=\nbarplot_embed.plotoptions.yminvalue.text=\nbarplot_embed.type.string=juxtaposed\nnames_exp.text=rownames (swiss)\nnames_mode.string=rexp\ntabulate.state=0\nx.available=swiss[[\\\"Catholic\\\"]]", label="Run again")
+.rk.make.hr()
+local({
+## Prepare
+## Compute
+## Print result
+x <- x
+# barplot is a bit picky about attributes, so we need to convert to vector explicitely
+if(!is.matrix(x)) x <- as.vector(x)
+if(!is.matrix(x) && is.data.frame(x)) x <- data.matrix(x)
+rk.header ("Barplot", parameters=list ("Variable", rk.get.description (x), "Tabulate", "No", "colors", "default", "Type", "stacked", "Legend", "TRUE"))
+
+rk.graph.on ()
+try ({
+ barplot(x, legend.text=TRUE)
+})
+rk.graph.off ()
+})
+.rk.rerun.plugin.link(plugin="rkward::barplot", settings="barplot_embed.colors.string=default\nbarplot_embed.legend.state=1\nbarplot_embed.plotoptions.add_grid.state=0\nbarplot_embed.plotoptions.asp.real=0.00000000\nbarplot_embed.plotoptions.main.text=\nbarplot_embed.plotoptions.pointcolor.color.string=\nbarplot_embed.plotoptions.pointtype.string=\nbarplot_embed.plotoptions.sub.text=\nbarplot_embed.plotoptions.xaxt.state=\nbarplot_embed.plotoptions.xlab.text=\nbarplot_embed.plotoptions.xlog.state=\nbarplot_embed.plotoptions.xmaxvalue.text=\nbarplot_embed.plotoptions.xminvalue.text=\nbarplot_embed.plotoptions.yaxt.state=\nbarplot_embed.plotoptions.ylab.text=\nbarplot_embed.plotoptions.ylog.state=\nbarplot_embed.plotoptions.ymaxvalue.text=\nbarplot_embed.plotoptions.yminvalue.text=\nbarplot_embed.type.string=stacked\nnames_exp.text=names (x)\nnames_mode.string=default\ntabulate.state=0\nx.available=x", label="Run again")
+.rk.make.hr()
Added: trunk/rkward/tests/plots/RKTestStandard.barplot.rkout
===================================================================
--- trunk/rkward/tests/plots/RKTestStandard.barplot.rkout (rev 0)
+++ trunk/rkward/tests/plots/RKTestStandard.barplot.rkout 2009-09-25 11:32:24 UTC (rev 2665)
@@ -0,0 +1,20 @@
+<h1>Barplot</h1>
+<h2>Parameters</h2>
+<ul><li>Variable: Catholic</li>
+<li>Tabulate: No</li>
+<li>colors: rainbow</li>
+<li>Type: juxtaposed</li>
+<li>Legend: FALSE</li>
+</ul>
+DATE<br>
+<img src="graph.png" width="480" height="480"><br>
+<h1>Barplot</h1>
+<h2>Parameters</h2>
+<ul><li>Variable: x</li>
+<li>Tabulate: No</li>
+<li>colors: default</li>
+<li>Type: stacked</li>
+<li>Legend: TRUE</li>
+</ul>
+DATE<br>
+<img src="graph.png" width="480" height="480"><br>
Added: trunk/rkward/tests/plots/RKTestStandard.boxplot.rkcommands.R
===================================================================
--- trunk/rkward/tests/plots/RKTestStandard.boxplot.rkcommands.R (rev 0)
+++ trunk/rkward/tests/plots/RKTestStandard.boxplot.rkcommands.R 2009-09-25 11:32:24 UTC (rev 2665)
@@ -0,0 +1,13 @@
+local({
+## Prepare
+## Compute
+## Print result
+ data_list <- list (women[["weight"]], women[["height"]]) #convert single sample variables to list
+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.00000000, 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.00000000\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.000000\nplotoptions.add_grid.state=0\nplotoptions.asp.real=0.00000000\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")
+.rk.make.hr()
Added: trunk/rkward/tests/plots/RKTestStandard.boxplot.rkout
===================================================================
--- trunk/rkward/tests/plots/RKTestStandard.boxplot.rkout (rev 0)
+++ trunk/rkward/tests/plots/RKTestStandard.boxplot.rkout 2009-09-25 11:32:24 UTC (rev 2665)
@@ -0,0 +1,6 @@
+<h1>Boxplot</h1>
+<h2>Parameters</h2>
+<ul><li>Variable(s): weight, height</li>
+</ul>
+DATE<br>
+<img src="graph.png" width="480" height="480"><br>
Added: trunk/rkward/tests/plots/RKTestStandard.density_plot.rkcommands.R
===================================================================
--- trunk/rkward/tests/plots/RKTestStandard.density_plot.rkcommands.R (rev 0)
+++ trunk/rkward/tests/plots/RKTestStandard.density_plot.rkcommands.R 2009-09-25 11:32:24 UTC (rev 2665)
@@ -0,0 +1,15 @@
+local({
+## Prepare
+require(hdrcde)
+## Compute
+## Print result
+rk.header ("Highest density regions", list ("Variable", rk.get.description (women[["height"]]), "Band Width", "nrd0", "Adjust", 1.00000000, "Remove Missing Values", na.rm=TRUE, "Length", length (women[["height"]]), "Resolution", 512.00000000, "Smoothing Kernel", "gaussian"))
+
+rk.graph.on ()
+try ({
+ hdr.den(den=density(women[["height"]], bw="nrd0", adjust=1.00000000, kern="gaussian", n=512.00000000, na.rm=TRUE))
+})
+rk.graph.off ()
+})
+.rk.rerun.plugin.link(plugin="rkward::density_plot", settings="adjust.real=1.00000000\nbw.string=nrd0\nkern.string=gaussian\nn.real=512.00000000\nnarm.state=na.rm=TRUE\nplot_type.string=hdr_plot\nplotoptions.add_grid.state=0\nplotoptions.asp.real=0.00000000\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=\nrug.state=0\nx.available=women[[\\\"height\\\"]]", label="Run again")
+.rk.make.hr()
Added: trunk/rkward/tests/plots/RKTestStandard.density_plot.rkout
===================================================================
--- trunk/rkward/tests/plots/RKTestStandard.density_plot.rkout (rev 0)
+++ trunk/rkward/tests/plots/RKTestStandard.density_plot.rkout 2009-09-25 11:32:24 UTC (rev 2665)
@@ -0,0 +1,19 @@
+<h1>Highest density regions</h1>
+<h2>Parameters</h2>
+<ul><li>: Variable</li>
+<li>: height</li>
+<li>: Band Width</li>
+<li>: nrd0</li>
+<li>: Adjust</li>
+<li>: 1</li>
+<li>: Remove Missing Values</li>
+<li>na.rm: TRUE</li>
+<li>: Length</li>
+<li>: 15</li>
+<li>: Resolution</li>
+<li>: 512</li>
+<li>: Smoothing Kernel</li>
+<li>: gaussian</li>
+</ul>
+DATE<br>
+<img src="graph.png" width="480" height="480"><br>
Added: trunk/rkward/tests/plots/RKTestStandard.dotchart.rkcommands.R
===================================================================
--- trunk/rkward/tests/plots/RKTestStandard.dotchart.rkcommands.R (rev 0)
+++ trunk/rkward/tests/plots/RKTestStandard.dotchart.rkcommands.R 2009-09-25 11:32:24 UTC (rev 2665)
@@ -0,0 +1,36 @@
+local({
+## Prepare
+## Compute
+## Print result
+x <- women[["height"]]
+if (!is.numeric (x)) {
+ warning ("Data may not be numeric, but proceeding as requested.\nDid you forget to check the tabulate option?")
+}
+
+rk.header ("Dot chart", parameters=list ("Variable", rk.get.description (women[["height"]]), "Tabulate", "No"))
+
+rk.graph.on ()
+try ({
+names(x) <- women$weight
+ dotchart(x, main="This is a test", sub="This is a subtitle")
+})
+rk.graph.off ()
+})
+.rk.rerun.plugin.link(plugin="rkward::dotchart", settings="names_exp.text=women$weight\nnames_mode.string=rexp\nplotoptions.add_grid.state=0\nplotoptions.asp.real=0.00000000\nplotoptions.main.text=This is a test\nplotoptions.mainisquote.state=1\nplotoptions.pointcolor.color.string=\nplotoptions.pointtype.string=\nplotoptions.sub.text=This is a subtitle\nplotoptions.subisquote.state=1\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=\ntabulate.state=0\nx.available=women[[\\\"height\\\"]]", label="Run again")
+.rk.make.hr()
+local({
+## Prepare
+## Compute
+## Print result
+x <- table (warpbreaks[["tension"]], exclude=NULL)
+
+rk.header ("Dot chart", parameters=list ("Variable", rk.get.description (warpbreaks[["tension"]]), "Tabulate", "Yes"))
+
+rk.graph.on ()
+try ({
+ dotchart(x)
+})
+rk.graph.off ()
+})
+.rk.rerun.plugin.link(plugin="rkward::dotchart", settings="names_exp.text=names (x)\nnames_mode.string=default\nplotoptions.add_grid.state=0\nplotoptions.asp.real=0.00000000\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=\ntabulate.state=1\nx.available=warpbreaks[[\\\"tension\\\"]]", label="Run again")
+.rk.make.hr()
Added: trunk/rkward/tests/plots/RKTestStandard.dotchart.rkout
===================================================================
--- trunk/rkward/tests/plots/RKTestStandard.dotchart.rkout (rev 0)
+++ trunk/rkward/tests/plots/RKTestStandard.dotchart.rkout 2009-09-25 11:32:24 UTC (rev 2665)
@@ -0,0 +1,14 @@
+<h1>Dot chart</h1>
+<h2>Parameters</h2>
+<ul><li>Variable: height</li>
+<li>Tabulate: No</li>
+</ul>
+DATE<br>
+<img src="graph.png" width="480" height="480"><br>
+<h1>Dot chart</h1>
+<h2>Parameters</h2>
+<ul><li>Variable: tension</li>
+<li>Tabulate: Yes</li>
+</ul>
+DATE<br>
+<img src="graph.png" width="480" height="480"><br>
Added: trunk/rkward/tests/plots/RKTestStandard.ecdf_plot.rkcommands.R
===================================================================
--- trunk/rkward/tests/plots/RKTestStandard.ecdf_plot.rkcommands.R (rev 0)
+++ trunk/rkward/tests/plots/RKTestStandard.ecdf_plot.rkcommands.R 2009-09-25 11:32:24 UTC (rev 2665)
@@ -0,0 +1,19 @@
+local({
+## Prepare
+yrange <- range (swiss[["Catholic"]], na.rm=TRUE)
+data.mean <- mean (swiss[["Catholic"]], na.rm=TRUE)
+data.sd <- sd (swiss[["Catholic"]], na.rm=TRUE)
+## Compute
+## Print result
+rk.header ("Empirical Cumulative Distribution Function", list ("Variable", rk.get.description (swiss[["Catholic"]]), "Minimum", yrange[1], "Maximum", yrange[2]))
+
+rk.graph.on ()
+try ({
+ plot.ecdf (swiss[["Catholic"]], , verticals=FALSE)
+ curve (pnorm (x, mean=data.mean, sd=data.sd), from=yrange[1], to=yrange[2], add=TRUE, , col="blue")
+ rug (swiss[["Catholic"]], 0.03000000, 0.50000000, side = 3)
+})
+rk.graph.off ()
+})
+.rk.rerun.plugin.link(plugin="rkward::ecdf_plot", settings="adjust_th_pnorm.state=1\ncol_rug.color.string=\ncol_thnorm.color.string=blue\nlwd.real=0.50000000\nplotoptions.add_grid.state=0\nplotoptions.asp.real=0.00000000\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=\nrug.state=1\nside.string=side = 3\nstepfun_options.addtoplot.state=\nstepfun_options.col_hor.color.string=\nstepfun_options.col_points.color.string=\nstepfun_options.col_y0.color.string=\nstepfun_options.col_y1.color.string=\nstepfun_options.do_points.state=1\nstepfun_options.linetype.string=\nstepfun_options.verticals.state=\nth_pnorm.state=1\nticksize.real=0.03000000\nx.available=swiss[[\\\"Catholic\\\"]]", label="Run again")
+.rk.make.hr()
Added: trunk/rkward/tests/plots/RKTestStandard.ecdf_plot.rkout
===================================================================
--- trunk/rkward/tests/plots/RKTestStandard.ecdf_plot.rkout (rev 0)
+++ trunk/rkward/tests/plots/RKTestStandard.ecdf_plot.rkout 2009-09-25 11:32:24 UTC (rev 2665)
@@ -0,0 +1,8 @@
+<h1>Empirical Cumulative Distribution Function</h1>
+<h2>Parameters</h2>
+<ul><li>Variable: Catholic</li>
+<li>Minimum: 2.15</li>
+<li>Maximum: 100</li>
+</ul>
+DATE<br>
+<img src="graph.png" width="480" height="480"><br>
Added: trunk/rkward/tests/plots/RKTestStandard.generic_plot.rkcommands.R
===================================================================
--- trunk/rkward/tests/plots/RKTestStandard.generic_plot.rkcommands.R (rev 0)
+++ trunk/rkward/tests/plots/RKTestStandard.generic_plot.rkcommands.R 2009-09-25 11:32:24 UTC (rev 2665)
@@ -0,0 +1,13 @@
+local({
+## Prepare
+## Compute
+## Print result
+rk.header ("Generic Plot")
+rk.graph.on ()
+try({
+ plot(swiss);
+})
+rk.graph.off ()
+})
+.rk.rerun.plugin.link(plugin="rkward::plot", settings="plotoptions.add_grid.state=0\nplotoptions.asp.real=0.00000000\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=\nxvarslot.available=swiss\nyvarslot.available=", label="Run again")
+.rk.make.hr()
Added: trunk/rkward/tests/plots/RKTestStandard.generic_plot.rkout
===================================================================
--- trunk/rkward/tests/plots/RKTestStandard.generic_plot.rkout (rev 0)
+++ trunk/rkward/tests/plots/RKTestStandard.generic_plot.rkout 2009-09-25 11:32:24 UTC (rev 2665)
@@ -0,0 +1,3 @@
+<h1>Generic Plot</h1>
+DATE<br>
+<img src="graph.png" width="480" height="480"><br>
Added: trunk/rkward/tests/plots/RKTestStandard.histogram.rkcommands.R
===================================================================
--- trunk/rkward/tests/plots/RKTestStandard.histogram.rkcommands.R (rev 0)
+++ trunk/rkward/tests/plots/RKTestStandard.histogram.rkcommands.R 2009-09-25 11:32:24 UTC (rev 2665)
@@ -0,0 +1,15 @@
+local({
+## Prepare
+## Compute
+## Print result
+rk.header ("Histogram", list ("Variable", rk.get.description (swiss[["Education"]]) , "Density bandwidth", "nrd", "Density adjust", 4.00000000, "Density resolution", 512.00000000, "Density Remove missing values", na.rm=TRUE , "Break points", "Equally spaced vector of length 6", "Right closed", "TRUE", "Include in lowest cell", "TRUE", "Scale", "Density"))
+
+rk.graph.on ()
+try ({
+ hist (swiss[["Education"]], breaks=(function(x) {y = extendrange(x,f=0.1); seq(from=y[1], to=y[2], length=6)})(swiss[["Education"]]), freq=FALSE, labels=TRUE, lty="solid", density=-1)
+ lines(density(swiss[["Education"]], bw="nrd", adjust = 4.00000000, na.rm=TRUE, n = 512.00000000), col="blue")
+})
+rk.graph.off ()
+})
+.rk.rerun.plugin.link(plugin="rkward::histogram", settings="adjust.real=4.00000000\nbw.string=nrd\ncol_density.color.string=blue\ndensity.state=1\nhistogram_opt.addtoplot.state=\nhistogram_opt.barlabels.state=1\nhistogram_opt.density.real=-1.000000\nhistogram_opt.doborder.state=1\nhistogram_opt.freq.state=0\nhistogram_opt.histbordercol.color.string=\nhistogram_opt.histbreaksFunction.string=vec\nhistogram_opt.histbreaks_veclength.real=6.000000\nhistogram_opt.histlinetype.string=solid\nhistogram_opt.include_lowest.state=1\nhistogram_opt.rightclosed.state=1\nhistogram_opt.usefillcol.state=\nn.real=512.00000000\nnarm.state=na.rm=TRUE\nplotoptions.add_grid.state=0\nplotoptions.asp.real=0.00000000\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=\nx.available=swiss[[\\\"Education\\\"]]", label="Run again")
+.rk.make.hr()
Added: trunk/rkward/tests/plots/RKTestStandard.histogram.rkout
===================================================================
--- trunk/rkward/tests/plots/RKTestStandard.histogram.rkout (rev 0)
+++ trunk/rkward/tests/plots/RKTestStandard.histogram.rkout 2009-09-25 11:32:24 UTC (rev 2665)
@@ -0,0 +1,23 @@
+<h1>Histogram</h1>
+<h2>Parameters</h2>
+<ul><li>: Variable</li>
+<li>: Education</li>
+<li>: Density bandwidth</li>
+<li>: nrd</li>
+<li>: Density adjust</li>
+<li>: 4</li>
+<li>: Density resolution</li>
+<li>: 512</li>
+<li>: Density Remove missing values</li>
+<li>na.rm: TRUE</li>
+<li>: Break points</li>
+<li>: Equally spaced vector of length 6</li>
+<li>: Right closed</li>
+<li>: TRUE</li>
+<li>: Include in lowest cell</li>
+<li>: TRUE</li>
+<li>: Scale</li>
+<li>: Density</li>
+</ul>
+DATE<br>
+<img src="graph.png" width="480" height="480"><br>
Added: trunk/rkward/tests/plots/RKTestStandard.pareto_chart.rkcommands.R
===================================================================
--- trunk/rkward/tests/plots/RKTestStandard.pareto_chart.rkcommands.R (rev 0)
+++ trunk/rkward/tests/plots/RKTestStandard.pareto_chart.rkcommands.R 2009-09-25 11:32:24 UTC (rev 2665)
@@ -0,0 +1,22 @@
+local({
+## Prepare
+require(qcc)
+require(xtable)
+## Compute
+## Print result
+x <- swiss[["Catholic"]]
+if (!is.numeric (x)) {
+ warning ("Data may not be numeric, but proceeding as requested.\nDid you forget to check the tabulate option?")
+}
+
+rk.header ("Pareto chart")
+
+rk.graph.on ()
+try ({
+ descriptives <- pareto.chart(x, main="swiss[[\"Catholic\"]]")
+ rk.results(xtable(descriptives))
+})
+rk.graph.off ()
+})
+.rk.rerun.plugin.link(plugin="rkward::pareto", settings="descriptives.state=TRUE\nplotoptions.add_grid.state=0\nplotoptions.asp.real=0.00000000\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=\ntabulate.state=FALSE\nx.available=swiss[[\\\"Catholic\\\"]]", label="Run again")
+.rk.make.hr()
Added: trunk/rkward/tests/plots/RKTestStandard.pareto_chart.rkout
===================================================================
--- trunk/rkward/tests/plots/RKTestStandard.pareto_chart.rkout (rev 0)
+++ trunk/rkward/tests/plots/RKTestStandard.pareto_chart.rkout 2009-09-25 11:32:24 UTC (rev 2665)
@@ -0,0 +1,53 @@
+<h1>Pareto chart</h1>
+DATE<br>
+<img src="graph.png" width="480" height="480"><br><table border="1">
+<tr><td>Frequency</td><td>Cum.Freq.</td><td>Percentage</td><td>Cum.Percent.</td></tr>
+<tr><td>100</td><td>100</td><td>5.1713</td><td>5.1713</td></tr>
+<tr><td>99.71</td><td>199.71</td><td>5.1563</td><td>10.328</td></tr>
+<tr><td>99.68</td><td>299.39</td><td>5.1547</td><td>15.482</td></tr>
+<tr><td>99.46</td><td>398.85</td><td>5.1433</td><td>20.626</td></tr>
+<tr><td>99.06</td><td>497.91</td><td>5.1227</td><td>25.748</td></tr>
+<tr><td>98.96</td><td>596.87</td><td>5.1175</td><td>30.866</td></tr>
+<tr><td>98.61</td><td>695.48</td><td>5.0994</td><td>35.965</td></tr>
+<tr><td>98.22</td><td>793.7</td><td>5.0792</td><td>41.044</td></tr>
+<tr><td>97.67</td><td>891.37</td><td>5.0508</td><td>46.095</td></tr>
+<tr><td>97.16</td><td>988.53</td><td>5.0244</td><td>51.12</td></tr>
+<tr><td>96.83</td><td>1085.4</td><td>5.0073</td><td>56.127</td></tr>
+<tr><td>93.4</td><td>1178.8</td><td>4.83</td><td>60.957</td></tr>
+<tr><td>92.85</td><td>1271.6</td><td>4.8015</td><td>65.758</td></tr>
+<tr><td>91.38</td><td>1363</td><td>4.7255</td><td>70.484</td></tr>
+<tr><td>90.57</td><td>1453.6</td><td>4.6836</td><td>75.168</td></tr>
+<tr><td>84.84</td><td>1538.4</td><td>4.3873</td><td>79.555</td></tr>
+<tr><td>58.33</td><td>1596.7</td><td>3.0164</td><td>82.571</td></tr>
+<tr><td>50.43</td><td>1647.2</td><td>2.6079</td><td>85.179</td></tr>
+<tr><td>42.34</td><td>1689.5</td><td>2.1895</td><td>87.369</td></tr>
+<tr><td>33.77</td><td>1723.3</td><td>1.7463</td><td>89.115</td></tr>
+<tr><td>24.2</td><td>1747.5</td><td>1.2514</td><td>90.366</td></tr>
+<tr><td>18.46</td><td>1765.9</td><td>0.95462</td><td>91.321</td></tr>
+<tr><td>16.92</td><td>1782.8</td><td>0.87498</td><td>92.196</td></tr>
+<tr><td>15.14</td><td>1798</td><td>0.78293</td><td>92.979</td></tr>
+<tr><td>13.79</td><td>1811.8</td><td>0.71312</td><td>93.692</td></tr>
+<tr><td>12.11</td><td>1823.9</td><td>0.62624</td><td>94.318</td></tr>
+<tr><td>11.22</td><td>1835.1</td><td>0.58022</td><td>94.899</td></tr>
+<tr><td>9.96</td><td>1845.1</td><td>0.51506</td><td>95.414</td></tr>
+<tr><td>8.65</td><td>1853.7</td><td>0.44732</td><td>95.86</td></tr>
+<tr><td>8.52</td><td>1862.2</td><td>0.44059</td><td>96.302</td></tr>
+<tr><td>7.72</td><td>1870.0</td><td>0.39922</td><td>96.7</td></tr>
+<tr><td>6.1</td><td>1876.1</td><td>0.31545</td><td>97.016</td></tr>
+<tr><td>5.62</td><td>1881.7</td><td>0.29063</td><td>97.307</td></tr>
+<tr><td>5.23</td><td>1886.9</td><td>0.27046</td><td>97.577</td></tr>
+<tr><td>5.23</td><td>1892.1</td><td>0.27046</td><td>97.848</td></tr>
+<tr><td>5.16</td><td>1897.3</td><td>0.26684</td><td>98.115</td></tr>
+<tr><td>4.97</td><td>1902.3</td><td>0.25701</td><td>98.372</td></tr>
+<tr><td>4.52</td><td>1906.8</td><td>0.23374</td><td>98.605</td></tr>
+<tr><td>4.43</td><td>1911.2</td><td>0.22909</td><td>98.834</td></tr>
+<tr><td>4.2</td><td>1915.4</td><td>0.21719</td><td>99.052</td></tr>
+<tr><td>3.3</td><td>1918.7</td><td>0.17065</td><td>99.222</td></tr>
+<tr><td>2.84</td><td>1921.6</td><td>0.14686</td><td>99.37</td></tr>
+<tr><td>2.82</td><td>1924.4</td><td>0.14583</td><td>99.515</td></tr>
+<tr><td>2.56</td><td>1926.9</td><td>0.13238</td><td>99.647</td></tr>
+<tr><td>2.4</td><td>1929.3</td><td>0.12411</td><td>99.771</td></tr>
+<tr><td>2.27</td><td>1931.6</td><td>0.11739</td><td>99.889</td></tr>
+<tr><td>2.15</td><td>1933.8</td><td>0.11118</td><td>100</td></tr>
+</table>
+
Added: trunk/rkward/tests/plots/RKTestStandard.piechart.rkcommands.R
===================================================================
--- trunk/rkward/tests/plots/RKTestStandard.piechart.rkcommands.R (rev 0)
+++ trunk/rkward/tests/plots/RKTestStandard.piechart.rkcommands.R 2009-09-25 11:32:24 UTC (rev 2665)
@@ -0,0 +1,19 @@
+local({
+## Prepare
+## Compute
+## Print result
+x <- test_table[["A"]]
+if (!is.numeric (x)) {
+ warning ("Data may not be numeric, but proceeding as requested.\nDid you forget to check the tabulate option?")
+}
+
+rk.header ("Pie chart", parameters=list ("Variable", rk.get.description (test_table[["A"]]), "Tabulate", "No", "Clockwise", "Yes"))
+
+rk.graph.on ()
+try ({
+ pie(x, clockwise =1, density =3.00000000+ 1.00000000 * 0:length (x), angle =45.00000000+ 6.00000000 * 0:length (x), col=gray.colors (if(is.matrix(x)) dim(x) else length(x)))
+})
+rk.graph.off ()
+})
+.rk.rerun.plugin.link(plugin="rkward::piechart", settings="angle.real=45.00000000\nangle_inc.real=6.00000000\nclockwise.state=1\ncolors.string=grayscale\ndensity.real=3.00000000\ndensity_inc.real=1.00000000\nnames_exp.text=names (x)\nnames_mode.string=default\nplotoptions.add_grid.state=0\nplotoptions.asp.real=0.00000000\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=\nradius.real=0.80000000\ntabulate.state=0\nx.available=test_table[[\\\"A\\\"]]", label="Run again")
+.rk.make.hr()
Added: trunk/rkward/tests/plots/RKTestStandard.piechart.rkout
===================================================================
--- trunk/rkward/tests/plots/RKTestStandard.piechart.rkout (rev 0)
+++ trunk/rkward/tests/plots/RKTestStandard.piechart.rkout 2009-09-25 11:32:24 UTC (rev 2665)
@@ -0,0 +1,8 @@
+<h1>Pie chart</h1>
+<h2>Parameters</h2>
+<ul><li>Variable: A</li>
+<li>Tabulate: No</li>
+<li>Clockwise: Yes</li>
+</ul>
+DATE<br>
+<img src="graph.png" width="480" height="480"><br>
Added: trunk/rkward/tests/plots/RKTestStandard.scatterplot.rkcommands.R
===================================================================
--- trunk/rkward/tests/plots/RKTestStandard.scatterplot.rkcommands.R (rev 0)
+++ trunk/rkward/tests/plots/RKTestStandard.scatterplot.rkcommands.R 2009-09-25 11:32:24 UTC (rev 2665)
@@ -0,0 +1,47 @@
+local({
+## Prepare
+## Compute
+
+Xvars <- list(women[["weight"]],swiss[["Education"]])
+Yvars <- list(women[["height"]],swiss[["Catholic"]])
+
+if (length(Xvars) != length(Yvars)) {
+ stop("Unequal number of X and Y variables given")
+}
+
+# find range of X/Y values needed
+Xrange <- range (c (Xvars), na.rm=TRUE)
+Yrange <- range (c (Yvars), na.rm=TRUE)
+
+type <- rep (c ('p'), length.out=length (Xvars));
+col <- rep (c ('black', 'red'), length.out=length (Xvars));
+cex <- rep (1, length.out=length (Xvars));
+pch <- rep (1, length.out=length (Xvars));
+## Print result
+rk.header ("Scatterplot", parameters = list (
+ "X variables"=paste (rk.get.description (women[["weight"]],swiss[["Education"]]), collapse=", "),
+ "Y variables"=paste (rk.get.description (women[["height"]],swiss[["Catholic"]]), collapse=", ")))
+
+rk.graph.on()
+
+try ({
+ # make frame and axes
+ plot(Xrange, Yrange, type="n")
+
+ # plot variables one X/Y pair at a time
+ for (i in 1:length(Xvars)) {
+ points (
+ Xvars[[i]],
+ Yvars[[i]],
+ type = type[[i]],
+ col = col[[i]],
+ cex = cex[[i]],
+ pch = pch[[i]]
+ )
+ }
+})
+
+rk.graph.off()
+})
+.rk.rerun.plugin.link(plugin="rkward::scatterplot", settings="cex.text=1\ncol.text=c ('black', 'red')\ncolor.string=each\nisCex.string=all\nisPch.string=all\npch.text=1\nplotoptions.add_grid.state=0\nplotoptions.asp.real=0.00000000\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=\npointtype.string=p\ntype_mode.string=all\nx.available=women[[\\\"weight\\\"]]\\nswiss[[\\\"Education\\\"]]\ny.available=women[[\\\"height\\\"]]\\nswiss[[\\\"Catholic\\\"]]", label="Run again")
+.rk.make.hr()
Added: trunk/rkward/tests/plots/RKTestStandard.scatterplot.rkout
===================================================================
--- trunk/rkward/tests/plots/RKTestStandard.scatterplot.rkout (rev 0)
+++ trunk/rkward/tests/plots/RKTestStandard.scatterplot.rkout 2009-09-25 11:32:24 UTC (rev 2665)
@@ -0,0 +1,7 @@
+<h1>Scatterplot</h1>
+<h2>Parameters</h2>
+<ul><li>X variables: weight, Education</li>
+<li>Y variables: height, Catholic</li>
+</ul>
+DATE<br>
+<img src="graph.png" width="480" height="480"><br>
Added: trunk/rkward/tests/plots/RKTestStandard.scatterplot_matrix.rkcommands.R
===================================================================
--- trunk/rkward/tests/plots/RKTestStandard.scatterplot_matrix.rkcommands.R (rev 0)
+++ trunk/rkward/tests/plots/RKTestStandard.scatterplot_matrix.rkcommands.R 2009-09-25 11:32:24 UTC (rev 2665)
@@ -0,0 +1,15 @@
+local({
+## Prepare
+require(car)
+## Compute
+## Print result
+data <- data.frame (swiss)
+
+rk.header ("Scatterplot Matrix", parameters=list ("Diagonal Panels", "histogram", "Plot points", "TRUE", "Smooth", "FALSE", "Ellipses", "FALSE at 0.5 and 0.9 levels."))
+
+rk.graph.on ()
+try (scatterplot.matrix(data, diagonal="histogram", plot.points=TRUE, smooth=FALSE, ellipse=FALSE))
+rk.graph.off ()
+})
+.rk.rerun.plugin.link(plugin="rkward::scatterplot_matrix", settings="diag.string=histogram\nellipse.state=FALSE\nplot_points.state=TRUE\nsmooth.state=FALSE\nx.available=swiss", label="Run again")
+.rk.make.hr()
Added: trunk/rkward/tests/plots/RKTestStandard.scatterplot_matrix.rkout
===================================================================
--- trunk/rkward/tests/plots/RKTestStandard.scatterplot_matrix.rkout (rev 0)
+++ trunk/rkward/tests/plots/RKTestStandard.scatterplot_matrix.rkout 2009-09-25 11:32:24 UTC (rev 2665)
@@ -0,0 +1,9 @@
+<h1>Scatterplot Matrix</h1>
+<h2>Parameters</h2>
+<ul><li>Diagonal Panels: histogram</li>
+<li>Plot points: TRUE</li>
+<li>Smooth: FALSE</li>
+<li>Ellipses: FALSE at 0.5 and 0.9 levels.</li>
+</ul>
+DATE<br>
+<img src="graph.png" width="480" height="480"><br>
Added: trunk/rkward/tests/plots/RKTestStandard.stem_leaf_plot.rkcommands.R
===================================================================
--- trunk/rkward/tests/plots/RKTestStandard.stem_leaf_plot.rkcommands.R (rev 0)
+++ trunk/rkward/tests/plots/RKTestStandard.stem_leaf_plot.rkcommands.R 2009-09-25 11:32:24 UTC (rev 2665)
@@ -0,0 +1,11 @@
+local({
+## Prepare
+## Compute
+## Print result
+rk.header ("Stem-and-Leaf Plot",
+ parameters=list ("Variable", paste (rk.get.description (swiss[["Fertility"]])), "Plot Length", "1.50000000","Plot Width", "80.00000000", "Tolerance", "0.00000001"))
+
+rk.print.literal(capture.output(stem(swiss[["Fertility"]], scale = 1.50000000, width = 80.00000000, atom = 0.00000001)))
+})
+.rk.rerun.plugin.link(plugin="rkward::stem", settings="atom.real=0.00000001\nscale.real=1.50000000\nwidth.real=80.00000000\nx.available=swiss[[\\\"Fertility\\\"]]", label="Run again")
+.rk.make.hr()
Added: trunk/rkward/tests/plots/RKTestStandard.stem_leaf_plot.rkout
===================================================================
--- trunk/rkward/tests/plots/RKTestStandard.stem_leaf_plot.rkout (rev 0)
+++ trunk/rkward/tests/plots/RKTestStandard.stem_leaf_plot.rkout 2009-09-25 11:32:24 UTC (rev 2665)
@@ -0,0 +1,24 @@
+<h1>Stem-and-Leaf Plot</h1>
+<h2>Parameters</h2>
+<ul><li>Variable: Fertility</li>
+<li>Plot Length: 1.50000000</li>
+<li>Plot Width: 80.00000000</li>
+<li>Tolerance: 0.00000001</li>
+</ul>
+DATE<br>
+<pre>
+ The decimal point is 1 digit(s) to the right of the |
+
+ 3 | 5
+ 4 | 3
+ 4 | 5
+ 5 | 4
+ 5 | 6778
+ 6 | 1244
+ 6 | 55556678899
+ 7 | 0122334
+ 7 | 6677899
+ 8 | 02334
+ 8 | 67
+ 9 | 223
+</pre>
Added: trunk/rkward/tests/plots/RKTestStandard.stripchart.rkcommands.R
===================================================================
--- trunk/rkward/tests/plots/RKTestStandard.stripchart.rkcommands.R (rev 0)
+++ trunk/rkward/tests/plots/RKTestStandard.stripchart.rkcommands.R 2009-09-25 11:32:24 UTC (rev 2665)
@@ -0,0 +1,12 @@
+local({
+## Prepare
+## Compute
+## Print result
+rk.header ("Stripchart", list ("Variable"=rk.get.description (warpbreaks[["breaks"]]), "Group"=rk.get.description (warpbreaks[["tension"]]), "Method"="stack", "Offset" = 0.50000000, "Orientation"="Horizontal"))
+
+rk.graph.on ()
+try (stripchart (warpbreaks[["breaks"]] ~ (warpbreaks[["tension"]]), method = "stack", offset = 0.50000000))
+rk.graph.off ()
+})
+.rk.rerun.plugin.link(plugin="rkward::stripchart", settings="g.available=warpbreaks[[\\\"tension\\\"]]\nmethod.string=stack\noffset.real=0.50000000\norientation.string=Horizontal\nplotoptions.add_grid.state=0\nplotoptions.asp.real=0.00000000\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=\nx.available=warpbreaks[[\\\"breaks\\\"]]", label="Run again")
+.rk.make.hr()
Added: trunk/rkward/tests/plots/RKTestStandard.stripchart.rkout
===================================================================
--- trunk/rkward/tests/plots/RKTestStandard.stripchart.rkout (rev 0)
+++ trunk/rkward/tests/plots/RKTestStandard.stripchart.rkout 2009-09-25 11:32:24 UTC (rev 2665)
@@ -0,0 +1,10 @@
+<h1>Stripchart</h1>
+<h2>Parameters</h2>
+<ul><li>Variable: breaks</li>
+<li>Group: tension</li>
+<li>Method: stack</li>
+<li>Offset: 0.5</li>
+<li>Orientation: Horizontal</li>
+</ul>
+DATE<br>
+<img src="graph.png" width="480" height="480"><br>
Modified: trunk/rkward/tests/plots.R
===================================================================
--- trunk/rkward/tests/plots.R 2009-09-24 16:47:14 UTC (rev 2664)
+++ trunk/rkward/tests/plots.R 2009-09-25 11:32:24 UTC (rev 2665)
@@ -15,13 +15,8 @@
library ("datasets")
data (women)
data (swiss)
+ data (warpbreaks)
- assign ("test50x", 100+c (1:50), envir=globalenv())
- assign ("test50y", 200+c (1:50), envir=globalenv())
- assign ("test50z", c (1:50)*4, envir=globalenv())
- assign ("test10x", 100+c (1:10, NA), envir=globalenv())
- assign ("test10y", 200+c (1:10, NA), envir=globalenv())
- assign ("test10z", c (1:10, NA)*4, envir=globalenv())
x <- data.frame ("A" = rep (c (1, 2), 8), "B" = rep (c (1, 1, 2, 2), 4), "C" = rep (c (1, 1, 1, 1, 2, 2, 2, 2), 2), "D"= c (rep (1, 8), rep (2, 8)))
x[2,2] <- NA
assign ("test_table", x, envir=globalenv())
@@ -58,10 +53,22 @@
}),
new ("RKTest", id="piechart", call=function () {
rk.call.plugin ("rkward::piechart", angle.real="45.00000000", angle_inc.real="6.00000000", clockwise.state="1", colors.string="grayscale", density.real="3.00000000", density_inc.real="1.00000000", names_exp.text="names (x)", names_mode.string="default", plotoptions.add_grid.state="0", plotoptions.asp.real="0.00000000", plotoptions.main.text="", plotoptions.pointcolor.color.string="", plotoptions.pointtype.string="", plotoptions.sub.text="", plotoptions.xaxt.state="", plotoptions.xlab.text="", plotoptions.xlog.state="", plotoptions.xmaxvalue.text="", plotoptions.xminvalue.text="", plotoptions.yaxt.state="", plotoptions.ylab.text="", plotoptions.ylog.state="", plotoptions.ymaxvalue.text="", plotoptions.yminvalue.text="", radius.real="0.80000000", tabulate.state="0", x.available="test_table[[\"A\"]]", submit.mode="submit")
+ }),
+ new ("RKTest", id="scatterplot", call=function () {
+ rk.call.plugin ("rkward::scatterplot", cex.text="1", col.text="c ('black', 'red')", color.string="each", isCex.string="all", isPch.string="all", pch.text="1", plotoptions.add_grid.state="0", plotoptions.asp.real="0.00000000", plotoptions.main.text="", plotoptions.pointcolor.color.string="", plotoptions.pointtype.string="", plotoptions.sub.text="", plotoptions.xaxt.state="", plotoptions.xlab.text="", plotoptions.xlog.state="", plotoptions.xmaxvalue.text="", plotoptions.xminvalue.text="", plotoptions.yaxt.state="", plotoptions.ylab.text="", plotoptions.ylog.state="", plotoptions.ymaxvalue.text="", plotoptions.yminvalue.text="", pointtype.string="p", type_mode.string="all", x.available="women[[\"weight\"]]\nswiss[[\"Education\"]]", y.available="women[[\"height\"]]\nswiss[[\"Catholic\"]]", submit.mode="submit")
+ }),
+ new ("RKTest", id="scatterplot_matrix", call=function () {
+ rk.call.plugin ("rkward::scatterplot_matrix", diag.string="histogram", ellipse.state="FALSE", plot_points.state="TRUE", smooth.state="FALSE", x.available="swiss", submit.mode="submit")
+ }),
+ new ("RKTest", id="stem_leaf_plot", call=function () {
+ rk.call.plugin ("rkward::stem", atom.real="0.00000001", scale.real="1.50000000", width.real="80.00000000", x.available="swiss[[\"Fertility\"]]", submit.mode="submit")
+ }),
+ new ("RKTest", id="stripchart", call=function () {
+ rk.call.plugin ("rkward::stripchart", g.available="warpbreaks[[\"tension\"]]", method.string="stack", offset.real="0.50000000", orientation.string="Horizontal", plotoptions.add_grid.state="0", plotoptions.asp.real="0.00000000", plotoptions.main.text="", plotoptions.pointcolor.color.string="", plotoptions.pointtype.string="", plotoptions.sub.text="", plotoptions.xaxt.state="", plotoptions.xlab.text="", plotoptions.xlog.state="", plotoptions.xmaxvalue.text="", plotoptions.xminvalue.text="", plotoptions.yaxt.state="", plotoptions.ylab.text="", plotoptions.ylog.state="", plotoptions.ymaxvalue.text="", plotoptions.yminvalue.text="", x.available="warpbreaks[[\"breaks\"]]", submit.mode="submit")
})
), postCalls = list ( # like initCalls: run after all tests to clean up.
function () {
- suppressWarnings (rm (list=c ("women", "warpbreaks", "rock", "co2", "test50x", "test50y", "test50z", "test10x", "test10y", "test10z", "test_table"), envir=globalenv()))
+ suppressWarnings (rm (list=c ("women", "swiss", "warpbreaks", "test_table"), envir=globalenv()))
}
)
)
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