#
# Written by:
# -- 
# John L. Weatherwax                2009-04-21
# 
# email: wax@alum.mit.edu
# 
# Please send comments and especially bug reports to the
# above email address.
# 
#-----


y1 = rnorm(51)
y = y1[-1] + y1[-51] # y1[-1] drops the first point; y1[-51] drops the last point i.e. y[n] = y1[n-1] + y1[n] 

#postscript("../../WriteUp/Graphics/Chapter4/prob_6_y1_acf.eps", onefile=FALSE, horizontal=FALSE)
acf( y1 )
#dev.off()

#postscript("../../WriteUp/Graphics/Chapter4/prob_6_y_acf.eps", onefile=FALSE, horizontal=FALSE)
acf( y )
#dev.off()