[rkward-cvs] SF.net SVN: rkward:[2938] trunk/rkward/tests/analysis_plugins.R

[tfry at users.sourceforge.net]

Revision: 2938
          http://rkward.svn.sourceforge.net/rkward/?rev=2938&view=rev
Author:   tfry
Date:     2010-07-05 11:23:22 +0000 (Mon, 05 Jul 2010)

Log Message:
-----------
Fix hp-filter test

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

Modified: trunk/rkward/tests/analysis_plugins.R
===================================================================
--- trunk/rkward/tests/analysis_plugins.R	2010-07-05 08:54:05 UTC (rev 2937)
+++ trunk/rkward/tests/analysis_plugins.R	2010-07-05 11:23:22 UTC (rev 2938)
@@ -137,7 +137,7 @@
 			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 () {
-			co2 <- datasets::co2		# another, incompatible co2 dataset exists in package locfit
+			.GlobalEnv$co2 <- datasets::co2		# another, incompatible co2 dataset exists in package locfit
 			rk.sync.global()
 
 			rk.call.plugin ("rkward::hp_filter", cycle_name.active="1", trend_name.active="1", custom.state="0", cycle_col.color.string="green4", cycle_lty.string="", cycle_lwd.real="1.00", cycle_name.objectname="hpcycle", downlab.text="", lambda.string="1600", plot_cycle.state="1", series_col.color.string="blue", series_lty.string="", series_lwd.real="1.00", trend_col.color.string="red", trend_lty.string="", trend_lwd.real="1.00", trend_name.objectname="hptrend", uplab.text="", x.available="co2", submit.mode="submit")


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