[rkward-cvs] SF.net SVN: rkward:[4302] trunk/rkward/tests

m-eik at users.sourceforge.net m-eik at users.sourceforge.net
Fri Sep 21 17:01:18 UTC 2012


Revision: 4302
          http://rkward.svn.sourceforge.net/rkward/?rev=4302&view=rev
Author:   m-eik
Date:     2012-09-21 17:01:17 +0000 (Fri, 21 Sep 2012)
Log Message:
-----------
changed test standards to the joined wilcoxon dialog (the two former, separated dialogs can now be removed)

Modified Paths:
--------------
    trunk/rkward/tests/analysis_plugins.R

Added Paths:
-----------
    trunk/rkward/tests/analysis_plugins/wilcoxon_tests.rkcommands.R
    trunk/rkward/tests/analysis_plugins/wilcoxon_tests.rkout

Removed Paths:
-------------
    trunk/rkward/tests/analysis_plugins/wilcoxon_exact_test.rkcommands.R
    trunk/rkward/tests/analysis_plugins/wilcoxon_exact_test.rkout
    trunk/rkward/tests/analysis_plugins/wilcoxon_test.rkcommands.R
    trunk/rkward/tests/analysis_plugins/wilcoxon_test.rkout

Deleted: trunk/rkward/tests/analysis_plugins/wilcoxon_exact_test.rkcommands.R
===================================================================
--- trunk/rkward/tests/analysis_plugins/wilcoxon_exact_test.rkcommands.R	2012-09-21 15:35:45 UTC (rev 4301)
+++ trunk/rkward/tests/analysis_plugins/wilcoxon_exact_test.rkcommands.R	2012-09-21 17:01:17 UTC (rev 4302)
@@ -1,49 +0,0 @@
-local({
-## Prepare
-require(exactRankTests)
-
-names = rk.get.description (test50x)
-## Compute
-result <- wilcox.exact (test50x, alternative = "two.sided", mu = 0.00, exact=TRUE, correct = FALSE, conf.int = TRUE)
-
-## Print result
-rk.header (result$method,
-	parameters=list ("Comparing", paste (names, collapse=" against "),
-	"H1", rk.describe.alternative (result),
-	"Continuity correction in normal approximation for p-value", "FALSE",
-	"Compute exact p-value", "yes", "Paired test", "FALSE",
-	"mu", "0.00"))
-
-rk.results (list (
-	'Variable Names'=names,
-	'statistic'=result$statistic,
-	'Location Shift'=result$null.value,
-	'Hypothesis'=result$alternative,
-	p=result$p.value,
-	'confidence interval percent'=(100 * attr(result$conf.int, "conf.level")),
-	'confidence interval of difference'=result$conf.int,
-	'Difference in Location' = result$estimate))
-})
-local({
-## Prepare
-require(exactRankTests)
-
-names = rk.get.description (test50x, test50y)
-## Compute
-result <- wilcox.exact (test50x, test50y, alternative = "less", mu = 0.00, paired = TRUE, correct = TRUE, conf.int = FALSE)
-
-## Print result
-rk.header (result$method,
-	parameters=list ("Comparing", paste (names, collapse=" against "),
-	"H1", rk.describe.alternative (result),
-	"Continuity correction in normal approximation for p-value", "TRUE",
-	"Compute exact p-value", "automatic", "Paired test", "TRUE",
-	"mu", "0.00"))
-
-rk.results (list (
-	'Variable Names'=names,
-	'statistic'=result$statistic,
-	'Location Shift'=result$null.value,
-	'Hypothesis'=result$alternative,
-	p=result$p.value))
-})

Deleted: trunk/rkward/tests/analysis_plugins/wilcoxon_exact_test.rkout
===================================================================
--- trunk/rkward/tests/analysis_plugins/wilcoxon_exact_test.rkout	2012-09-21 15:35:45 UTC (rev 4301)
+++ trunk/rkward/tests/analysis_plugins/wilcoxon_exact_test.rkout	2012-09-21 17:01:17 UTC (rev 4302)
@@ -1,30 +0,0 @@
-<h1>Exact Wilcoxon signed rank test</h1>
-<h2>Parameters</h2>
-<ul><li>Comparing: test50x</li>
-<li>H1: true mu is not equal to 0</li>
-<li>Continuity correction in normal approximation for p-value: FALSE</li>
-<li>Compute exact p-value: yes</li>
-<li>Paired test: FALSE</li>
-<li>mu: 0.00</li>
-</ul>
-DATE<br />
-<table border="1">
-<tr><td>Variable Names</td><td>statistic</td><td>Location Shift</td><td>Hypothesis</td><td>p</td><td>confidence interval percent</td><td>confidence interval of difference</td><td>Difference in Location</td></tr>
-<tr><td>test50x</td><td>1275</td><td>0</td><td>two.sided</td><td>1.7764e-15</td><td>95</td><td>121
-<br/>130</td><td>125.5</td></tr>
-</table>
-<h1>Asymptotic Wilcoxon signed rank test</h1>
-<h2>Parameters</h2>
-<ul><li>Comparing: test50x against test50y</li>
-<li>H1: true mu is less than 0</li>
-<li>Continuity correction in normal approximation for p-value: TRUE</li>
-<li>Compute exact p-value: automatic</li>
-<li>Paired test: TRUE</li>
-<li>mu: 0.00</li>
-</ul>
-DATE<br />
-<table border="1">
-<tr><td>Variable Names</td><td>statistic</td><td>Location Shift</td><td>Hypothesis</td><td>p</td></tr>
-<tr><td>test50x
-<br/>test50y</td><td>0</td><td>0</td><td>less</td><td>7.6873e-13</td></tr>
-</table>

Deleted: trunk/rkward/tests/analysis_plugins/wilcoxon_test.rkcommands.R
===================================================================
--- trunk/rkward/tests/analysis_plugins/wilcoxon_test.rkcommands.R	2012-09-21 15:35:45 UTC (rev 4301)
+++ trunk/rkward/tests/analysis_plugins/wilcoxon_test.rkcommands.R	2012-09-21 17:01:17 UTC (rev 4302)
@@ -1,45 +0,0 @@
-local({
-## Prepare
-names = rk.get.description (test50x)
-## Compute
-result <- wilcox.test (test50x, alternative = "two.sided", mu = 0.00, exact=TRUE, correct = FALSE, conf.int = TRUE)
-
-## Print result
-rk.header (result$method,
-	parameters=list ("Comparing", paste (names, collapse=" against "),
-	"H1", rk.describe.alternative (result),
-	"Continuity correction in normal approximation for p-value", "FALSE",
-	"Compute exact p-value", "yes", "Paired test", "FALSE",
-	"mu", "0.00"))
-
-rk.results (list (
-	'Variable Names'=names,
-	'statistic'=result$statistic,
-	'Location Shift'=result$null.value,
-	'Hypothesis'=result$alternative,
-	p=result$p.value,
-	'confidence interval percent'=(100 * attr(result$conf.int, "conf.level")),
-	'confidence interval of difference'=result$conf.int,
-	'Difference in Location' = result$estimate))
-})
-local({
-## Prepare
-names = rk.get.description (test50x, test50y)
-## Compute
-result <- wilcox.test (test50x, test50y, alternative = "less", mu = 0.00, paired = TRUE, correct = TRUE, conf.int = FALSE)
-
-## Print result
-rk.header (result$method,
-	parameters=list ("Comparing", paste (names, collapse=" against "),
-	"H1", rk.describe.alternative (result),
-	"Continuity correction in normal approximation for p-value", "TRUE",
-	"Compute exact p-value", "automatic", "Paired test", "TRUE",
-	"mu", "0.00"))
-
-rk.results (list (
-	'Variable Names'=names,
-	'statistic'=result$statistic,
-	'Location Shift'=result$null.value,
-	'Hypothesis'=result$alternative,
-	p=result$p.value))
-})

Deleted: trunk/rkward/tests/analysis_plugins/wilcoxon_test.rkout
===================================================================
--- trunk/rkward/tests/analysis_plugins/wilcoxon_test.rkout	2012-09-21 15:35:45 UTC (rev 4301)
+++ trunk/rkward/tests/analysis_plugins/wilcoxon_test.rkout	2012-09-21 17:01:17 UTC (rev 4302)
@@ -1,30 +0,0 @@
-<h1>Wilcoxon signed rank test</h1>
-<h2>Parameters</h2>
-<ul><li>Comparing: test50x</li>
-<li>H1: true location is not equal to 0</li>
-<li>Continuity correction in normal approximation for p-value: FALSE</li>
-<li>Compute exact p-value: yes</li>
-<li>Paired test: FALSE</li>
-<li>mu: 0.00</li>
-</ul>
-DATE<br />
-<table border="1">
-<tr><td>Variable Names</td><td>statistic</td><td>Location Shift</td><td>Hypothesis</td><td>p</td><td>confidence interval percent</td><td>confidence interval of difference</td><td>Difference in Location</td></tr>
-<tr><td>test50x</td><td>1275</td><td>0</td><td>two.sided</td><td>1.7764e-15</td><td>95</td><td>121
-<br/>130</td><td>125.5</td></tr>
-</table>
-<h1>Wilcoxon signed rank test with continuity correction</h1>
-<h2>Parameters</h2>
-<ul><li>Comparing: test50x against test50y</li>
-<li>H1: true location shift is less than 0</li>
-<li>Continuity correction in normal approximation for p-value: TRUE</li>
-<li>Compute exact p-value: automatic</li>
-<li>Paired test: TRUE</li>
-<li>mu: 0.00</li>
-</ul>
-DATE<br />
-<table border="1">
-<tr><td>Variable Names</td><td>statistic</td><td>Location Shift</td><td>Hypothesis</td><td>p</td></tr>
-<tr><td>test50x
-<br/>test50y</td><td>0</td><td>0</td><td>less</td><td>8.0007e-13</td></tr>
-</table>

Added: trunk/rkward/tests/analysis_plugins/wilcoxon_tests.rkcommands.R
===================================================================
--- trunk/rkward/tests/analysis_plugins/wilcoxon_tests.rkcommands.R	                        (rev 0)
+++ trunk/rkward/tests/analysis_plugins/wilcoxon_tests.rkcommands.R	2012-09-21 17:01:17 UTC (rev 4302)
@@ -0,0 +1,116 @@
+local({
+## Prepare
+	names <- rk.get.description (test50x)
+## Compute
+	wcox.result <- wilcox.test(
+		x=test50x,
+		exact=TRUE,
+		conf.int=TRUE
+	)
+
+## Print result
+rk.header (wcox.result$method,
+	parameters=list ("Comparing", paste (names, collapse=" against "),
+	"H1", rk.describe.alternative (wcox.result),
+	"Continuity correction in normal approximation for p-value", "FALSE",
+	"Compute exact p-value", "TRUE",
+	"Paired test", "FALSE",
+	"mu", "0.00"))
+
+rk.results (list (
+	"Variable Names"=names,
+	"Statistic"=wcox.result$statistic,
+	"Location Shift"=wcox.result$null.value,
+	"Hypothesis"=wcox.result$alternative,
+	p=wcox.result$p.value,
+	"Confidence interval percent"=(100 * attr(wcox.result$conf.int, "conf.level")),
+	"Confidence interval of difference"=wcox.result$conf.int,
+	"Difference in Location"=wcox.result$estimate))
+})
+local({
+## Prepare
+	names <- rk.get.description (test50x, test50y)
+## Compute
+	wcox.result <- wilcox.test(
+		x=test50x,
+		y=test50y,
+		alternative="less",
+		paired=TRUE,
+		correct=TRUE
+	)
+
+## Print result
+rk.header (wcox.result$method,
+	parameters=list ("Comparing", paste (names, collapse=" against "),
+	"H1", rk.describe.alternative (wcox.result),
+	"Continuity correction in normal approximation for p-value", "TRUE",
+	"Compute exact p-value", "automatic",
+	"Paired test", "TRUE",
+	"mu", "0.00"))
+
+rk.results (list (
+	"Variable Names"=names,
+	"Statistic"=wcox.result$statistic,
+	"Location Shift"=wcox.result$null.value,
+	"Hypothesis"=wcox.result$alternative,
+	p=wcox.result$p.value))
+})
+local({
+## Prepare
+	require(exactRankTests)
+	names <- rk.get.description (test50x)
+## Compute
+	wcox.result <- wilcox.exact(
+		x=test50x,
+		exact=TRUE,
+		conf.int=TRUE
+	)
+
+## Print result
+rk.header (wcox.result$method,
+	parameters=list ("Comparing", paste (names, collapse=" against "),
+	"H1", rk.describe.alternative (wcox.result),
+	"Continuity correction in normal approximation for p-value", "FALSE",
+	"Compute exact p-value", "TRUE",
+	"Paired test", "FALSE",
+	"mu", "0.00"))
+
+rk.results (list (
+	"Variable Names"=names,
+	"Statistic"=wcox.result$statistic,
+	"Location Shift"=wcox.result$null.value,
+	"Hypothesis"=wcox.result$alternative,
+	p=wcox.result$p.value,
+	"Confidence interval percent"=(100 * attr(wcox.result$conf.int, "conf.level")),
+	"Confidence interval of difference"=wcox.result$conf.int,
+	"Difference in Location"=wcox.result$estimate))
+})
+local({
+## Prepare
+	require(exactRankTests)
+	names <- rk.get.description (test50x, test50y)
+## Compute
+	wcox.result <- wilcox.exact(
+		x=test50x,
+		y=test50y,
+		alternative="less",
+		paired=TRUE,
+		correct=TRUE
+	)
+
+## Print result
+rk.header (wcox.result$method,
+	parameters=list ("Comparing", paste (names, collapse=" against "),
+	"H1", rk.describe.alternative (wcox.result),
+	"Continuity correction in normal approximation for p-value", "TRUE",
+	"Compute exact p-value", "automatic",
+	"Paired test", "TRUE",
+	"mu", "0.00"))
+
+rk.results (list (
+	"Variable Names"=names,
+	"Statistic"=wcox.result$statistic,
+	"Location Shift"=wcox.result$null.value,
+	"Hypothesis"=wcox.result$alternative,
+	p=wcox.result$p.value))
+})

Added: trunk/rkward/tests/analysis_plugins/wilcoxon_tests.rkout
===================================================================
--- trunk/rkward/tests/analysis_plugins/wilcoxon_tests.rkout	                        (rev 0)
+++ trunk/rkward/tests/analysis_plugins/wilcoxon_tests.rkout	2012-09-21 17:01:17 UTC (rev 4302)
@@ -0,0 +1,60 @@
+<h1>Wilcoxon signed rank test</h1>
+<h2>Parameters</h2>
+<ul><li>Comparing: test50x</li>
+<li>H1: true location is not equal to 0</li>
+<li>Continuity correction in normal approximation for p-value: FALSE</li>
+<li>Compute exact p-value: TRUE</li>
+<li>Paired test: FALSE</li>
+<li>mu: 0.00</li>
+</ul>
+DATE<br />
+<table border="1">
+<tr><td>Variable Names</td><td>Statistic</td><td>Location Shift</td><td>Hypothesis</td><td>p</td><td>Confidence interval percent</td><td>Confidence interval of difference</td><td>Difference in Location</td></tr>
+<tr><td>test50x</td><td>1275</td><td>0</td><td>two.sided</td><td>1.7764e-15</td><td>95</td><td>121
+<br/>130</td><td>125.5</td></tr>
+</table>
+<h1>Wilcoxon signed rank test with continuity correction</h1>
+<h2>Parameters</h2>
+<ul><li>Comparing: test50x against test50y</li>
+<li>H1: true location shift is less than 0</li>
+<li>Continuity correction in normal approximation for p-value: TRUE</li>
+<li>Compute exact p-value: automatic</li>
+<li>Paired test: TRUE</li>
+<li>mu: 0.00</li>
+</ul>
+DATE<br />
+<table border="1">
+<tr><td>Variable Names</td><td>Statistic</td><td>Location Shift</td><td>Hypothesis</td><td>p</td></tr>
+<tr><td>test50x
+<br/>test50y</td><td>0</td><td>0</td><td>less</td><td>8.0007e-13</td></tr>
+</table>
+<h1>Exact Wilcoxon signed rank test</h1>
+<h2>Parameters</h2>
+<ul><li>Comparing: test50x</li>
+<li>H1: true mu is not equal to 0</li>
+<li>Continuity correction in normal approximation for p-value: FALSE</li>
+<li>Compute exact p-value: TRUE</li>
+<li>Paired test: FALSE</li>
+<li>mu: 0.00</li>
+</ul>
+DATE<br />
+<table border="1">
+<tr><td>Variable Names</td><td>Statistic</td><td>Location Shift</td><td>Hypothesis</td><td>p</td><td>Confidence interval percent</td><td>Confidence interval of difference</td><td>Difference in Location</td></tr>
+<tr><td>test50x</td><td>1275</td><td>0</td><td>two.sided</td><td>1.7764e-15</td><td>95</td><td>121
+<br/>130</td><td>125.5</td></tr>
+</table>
+<h1>Asymptotic Wilcoxon signed rank test</h1>
+<h2>Parameters</h2>
+<ul><li>Comparing: test50x against test50y</li>
+<li>H1: true mu is less than 0</li>
+<li>Continuity correction in normal approximation for p-value: TRUE</li>
+<li>Compute exact p-value: automatic</li>
+<li>Paired test: TRUE</li>
+<li>mu: 0.00</li>
+</ul>
+DATE<br />
+<table border="1">
+<tr><td>Variable Names</td><td>Statistic</td><td>Location Shift</td><td>Hypothesis</td><td>p</td></tr>
+<tr><td>test50x
+<br/>test50y</td><td>0</td><td>0</td><td>less</td><td>7.6873e-13</td></tr>
+</table>

Modified: trunk/rkward/tests/analysis_plugins.R
===================================================================
--- trunk/rkward/tests/analysis_plugins.R	2012-09-21 15:35:45 UTC (rev 4301)
+++ trunk/rkward/tests/analysis_plugins.R	2012-09-21 17:01:17 UTC (rev 4302)
@@ -47,15 +47,12 @@
 
 			rk.call.plugin ("rkward::t_test", confint.checked="1", conflevel.real="0.95", hypothesis.string="two.sided", mu.real="20.00", test_form.string="const", x.available="test10z", submit.mode="submit")
 		}),
-		new ("RKTest", id="wilcoxon_test", call=function () {
-			rk.call.plugin ("rkward::wilcoxon_test", alternative.string="two.sided", confint.state="TRUE", conflevel.real="0.95", correct.state="FALSE", exact.string="yes", mu.real="0.00", x.available="test50x", y.available="", submit.mode="submit")
-
-			rk.call.plugin ("rkward::wilcoxon_test", alternative.string="less", confint.state="FALSE", correct.state="TRUE", exact.string="automatic", mu.real="0.00", paired.state="TRUE", x.available="test50x", y.available="test50y", submit.mode="submit")
-		}),
-		new ("RKTest", id="wilcoxon_exact_test", call=function () {
-			rk.call.plugin ("rkward::wilcoxon_exact_test", alternative.string="two.sided", confint.state="TRUE", conflevel.real="0.95", correct.state="FALSE", exact.string="yes", mu.real="0.00", x.available="test50x", y.available="", submit.mode="submit")
-
-			rk.call.plugin ("rkward::wilcoxon_exact_test", alternative.string="less", confint.state="FALSE", correct.state="TRUE", exact.string="automatic", mu.real="0.00", paired.state="TRUE", x.available="test50x", y.available="test50y", submit.mode="submit")
+		new ("RKTest", id="wilcoxon_tests", call=function () {
+			rk.call.plugin ("rkward::wilcoxon_tests", alternative.string="two.sided", confint.checked="1", conflevel.real="0.95", correct.state="", exact.string="TRUE", mu.real="0.00", svb_Svrsltst.active="0", svb_Svrsltst.objectname="wcox.result", svb_Svrsltst.parent=".GlobalEnv", ties.state="", x.available="test50x", y.available="", submit.mode="submit")
+			rk.call.plugin ("rkward::wilcoxon_tests", alternative.string="less", confint.checked="0", correct.state="correct", exact.string="automatic", mu.real="0.00", paired.state="true", svb_Svrsltst.active="0", svb_Svrsltst.objectname="wcox.result", svb_Svrsltst.parent=".GlobalEnv", ties.state="", x.available="test50x", y.available="test50y", submit.mode="submit")
+			# exact tests, allowing ties
+			rk.call.plugin ("rkward::wilcoxon_tests", alternative.string="two.sided", confint.checked="1", conflevel.real="0.95", correct.state="", exact.string="TRUE", mu.real="0.00", svb_Svrsltst.active="0", svb_Svrsltst.objectname="wcox.result", svb_Svrsltst.parent=".GlobalEnv", ties.state="true", x.available="test50x", y.available="", submit.mode="submit")
+			rk.call.plugin ("rkward::wilcoxon_tests", alternative.string="less", confint.checked="0", correct.state="correct", exact.string="automatic", mu.real="0.00", paired.state="true", svb_Svrsltst.active="0", svb_Svrsltst.objectname="wcox.result", svb_Svrsltst.parent=".GlobalEnv", ties.state="true", x.available="test50x", y.available="test50y", submit.mode="submit")
 		}, libraries=c ("exactRankTests")),
 		new ("RKTest", id="moments_moment", call=function () {
 			rk.call.plugin ("rkward::moment", absolute.state="FALSE", central.state="FALSE", length.state="0", narm.state="TRUE", order.real="1.00", x.available="test50z\ntest50y\ntest50x\ntest10z\ntest10y\ntest10x", submit.mode="submit")

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