pkgname <- "XDemo"
source(file.path(R.home("share"), "R", "examples-header.R"))
options(warn = 1)
options(pager = "console")
library('XDemo')

assign(".oldSearch", search(), pos = 'CheckExEnv')
cleanEx()
nameEx("XDemoAutoC")
### * XDemoAutoC

flush(stderr()); flush(stdout())

### Name: XDemoAutoC
### Title: Demostration Autocorrelation Function
### Aliases: XDemoAutoC
### Keywords: ts array

### ** Examples

x = rnorm(30,0,1);
UseData = x + c( 0, .3 * x[1:29]) + c(0,0, .1 * x[1:28]); ## Creates Some Data
XDemoAutoC( UseData, OutLength = 10, PlotToggle = TRUE);



### * <FOOTER>
###
cat("Time elapsed: ", proc.time() - get("ptime", pos = 'CheckExEnv'),"\n")
grDevices::dev.off()
###
### Local variables: ***
### mode: outline-minor ***
### outline-regexp: "\\(> \\)?### [*]+" ***
### End: ***
quit('no')