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);