[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