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

[tfry at users.sourceforge.net]

Revision: 2835
          http://rkward.svn.sourceforge.net/rkward/?rev=2835&view=rev
Author:   tfry
Date:     2010-04-21 14:05:57 +0000 (Wed, 21 Apr 2010)

Log Message:
-----------
Don't use the short (10 values) objects in kpss_test, it produces unstable results

Modified Paths:
--------------
    trunk/rkward/tests/analysis_plugins/RKTestStandard.kpss_test.rkcommands.R
    trunk/rkward/tests/analysis_plugins/RKTestStandard.kpss_test.rkout
    trunk/rkward/tests/analysis_plugins.R

Modified: trunk/rkward/tests/analysis_plugins/RKTestStandard.kpss_test.rkcommands.R
===================================================================
--- trunk/rkward/tests/analysis_plugins/RKTestStandard.kpss_test.rkcommands.R	2010-04-21 12:41:25 UTC (rev 2834)
+++ trunk/rkward/tests/analysis_plugins/RKTestStandard.kpss_test.rkcommands.R	2010-04-21 14:05:57 UTC (rev 2835)
@@ -2,7 +2,7 @@
 ## Prepare
 require (tseries)
 ## Compute
-objects <- list (substitute (test10y), substitute (test10z), substitute (test50x), substitute (test50y))
+objects <- list (substitute (test50x), substitute (test50y), substitute (test50z))
 results <- data.frame ('Variable Name'=rep (NA, length (objects)), check.names=FALSE)
 for (i in 1:length (objects)) {
 	results[i, 'Variable Name'] <- rk.get.description (objects[[i]], is.substitute=TRUE)
@@ -22,5 +22,5 @@
 	parameters=list ("null hypothesis"="Trend", "version of truncation lag parameter"="long"))
 rk.results (results)
 })
-.rk.rerun.plugin.link(plugin="rkward::kpss_test", settings="length.state=1\nlshort.string=FALSE\nnarm.state=0\nnull.string=Trend\nx.available=test10y\\ntest10z\\ntest50x\\ntest50y", label="Run again")
+.rk.rerun.plugin.link(plugin="rkward::kpss_test", settings="length.state=1\nlshort.string=FALSE\nnarm.state=0\nnull.string=Trend\nx.available=test50x\\ntest50y\\ntest50z", label="Run again")
 .rk.make.hr()

Modified: trunk/rkward/tests/analysis_plugins/RKTestStandard.kpss_test.rkout
===================================================================
--- trunk/rkward/tests/analysis_plugins/RKTestStandard.kpss_test.rkout	2010-04-21 12:41:25 UTC (rev 2834)
+++ trunk/rkward/tests/analysis_plugins/RKTestStandard.kpss_test.rkout	2010-04-21 14:05:57 UTC (rev 2835)
@@ -6,8 +6,7 @@
 DATE<br>
 <table border="1">
 <tr><td>Variable Name</td><td>Length</td><td>NAs</td><td>KPSS Trend</td><td>Truncation lag parameter</td><td>p-value</td></tr>
-<tr><td>test10y</td><td>11</td><td>1</td><td>0.12980</td><td>2</td><td>0.079995</td></tr>
-<tr><td>test10z</td><td>11</td><td>1</td><td>0.11135</td><td>2</td><td>0.1</td></tr>
 <tr><td>test50x</td><td>50</td><td>0</td><td>0.10241</td><td>5</td><td>0.1</td></tr>
 <tr><td>test50y</td><td>50</td><td>0</td><td>0.13780</td><td>5</td><td>0.06518</td></tr>
+<tr><td>test50z</td><td>50</td><td>0</td><td>0.099722</td><td>5</td><td>0.1</td></tr>
 </table>

Modified: trunk/rkward/tests/analysis_plugins.R
===================================================================
--- trunk/rkward/tests/analysis_plugins.R	2010-04-21 12:41:25 UTC (rev 2834)
+++ trunk/rkward/tests/analysis_plugins.R	2010-04-21 14:05:57 UTC (rev 2835)
@@ -134,7 +134,7 @@
 			rk.call.plugin ("rkward::Box_test", lag.real="1.00", length.state="1", narm.state="0", type.string="Box-Pierce", x.available="test50x\ntest10y", submit.mode="submit")
 		}),
 		new ("RKTest", id="kpss_test", call=function () {
-			rk.call.plugin ("rkward::kpss_test", length.state="1", lshort.string="FALSE", narm.state="0", null.string="Trend", x.available="test10y\ntest10z\ntest50x\ntest50y", submit.mode="submit")
+			rk.call.plugin ("rkward::kpss_test", length.state="1", lshort.string="FALSE", narm.state="0", null.string="Trend", x.available="test50x\ntest50y\ntest50z", submit.mode="submit")
 		}, libraries=c("tseries")),
 		new ("RKTest", id="hp_filter", call=function () {
 			data (co2)


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