← Back to branch summary

~l3on/ubuntu/precise/rkward/rebuild1

« back to all changes in this revision

Viewing changes to tests/analysis_plugins/RKTestStandard.hp_filter.rkcommands.R

  • Committer: Bazaar Package Importer
  • Author(s): Thomas Friedrichsmeier
  • Date: 2010-10-04 14:30:00 UTC
  • mfrom: (12.1.1 sid)
  • Revision ID: james.westby@ubuntu.com-20101004143000-qey73molmxxwy4w6
Tags: 0.5.4-1
* new upstream release
* bump standards version to 3.9.1 (no changes needed)
* no more need to remove svncopy.sh-script in rules

Show diffs side-by-side

added added

removed removed

Lines of Context:
tests/analysis_plugins/RKTestStandard.hp_filter.rkcommands.R
3
3
## Compute
4
4
## Print result
5
5
rk.header ("Hodrick-Prescott Filter", parameters=list("Lambda", 1600))
6
 
x <- get("co2", envir=globalenv())
 
6
x <- co2
7
7
lambda <- 1600
8
8
 
9
9
if (any (is.na (x))) stop ("Missing values cannot be handled")
15
15
        trend <- ts(trend,start(x),frequency=frequency(x))
16
16
        cycle <- ts(cycle,start(x),frequency=frequency(x))
17
17
}
18
 
assign("hptrend", trend, envir=globalenv())
19
 
assign("hpcycle", cycle, envir=globalenv())
 
18
.GlobalEnv$hptrend <- trend
 
19
.GlobalEnv$hpcycle <- cycle
20
20
rk.graph.on ()
21
21
try({
22
22
        par(mfrow=c(2,1),mar=c(2,4,2,2)+0.1)
25
25
})
26
26
rk.graph.off ()
27
27
})
28
 
.rk.rerun.plugin.link(plugin="rkward::hp_filter", settings="create_cycle.state=1\ncreate_trend.state=1\ncustom.state=0\ncycle_col.color.string=green4\ncycle_lty.string=\ncycle_lwd.real=1.00\ncycle_name.selection=hpcycle\ndownlab.text=\nlambda.string=1600\nplot_cycle.state=1\nseries_col.color.string=blue\nseries_lty.string=\nseries_lwd.real=1.00\ntrend_col.color.string=red\ntrend_lty.string=\ntrend_lwd.real=1.00\ntrend_name.selection=hptrend\nuplab.text=\nx.available=co2", label="Run again")
 
28
.rk.rerun.plugin.link(plugin="rkward::hp_filter", settings="custom.state=0\ncycle_col.color.string=green4\ncycle_lty.string=\ncycle_lwd.real=1.00\ncycle_name.active=1\ncycle_name.objectname=hpcycle\ncycle_name.parent=.GlobalEnv\ndownlab.text=\nlambda.string=1600\nplot_cycle.state=1\nseries_col.color.string=blue\nseries_lty.string=\nseries_lwd.real=1.00\ntrend_col.color.string=red\ntrend_lty.string=\ntrend_lwd.real=1.00\ntrend_name.active=1\ntrend_name.objectname=hptrend\ntrend_name.parent=.GlobalEnv\nuplab.text=\nx.available=co2", label="Run again")
29
29
.rk.make.hr()