The R Project SVN R

(root)/trunk/src/library/stats/tests/ts-tests.R – Rev 59417 → 61818



## tests of time-series functionality
 
.proctime00 <- proc.time()
library(stats)
 
pdf("ts-test.pdf")
 
### ar
ar(lh)
ar(lh, method = "burg")
ar(lh, method = "ols")

Rev 59417	Rev 61818
Line 17...	Line 17...
17	`## tests of time-series functionality`	17	`## tests of time-series functionality`
18		18
19	`.proctime00 <- proc.time()`	19	`.proctime00 <- proc.time()`
20	`library(stats)`	20	`library(stats)`
21		21
22	`postscript("ts-test.ps")`	22	`pdf("ts-test.pdf")`
23		23
24	`### ar`	24	`### ar`
25	`ar(lh)`	25	`ar(lh)`
26	`ar(lh, method = "burg")`	26	`ar(lh, method = "burg")`
27	`ar(lh, method = "ols")`	27	`ar(lh, method = "ols")`