#
#
# 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.
# 
#-----

attach(randu) # each row is a consecuative "random" draw 

x = as.double(as.matrix(randu))
Nsim = length(x)
x1 = x[-Nsim]
x2 = x[-1]

postscript("../../WriteUp/Graphics/Chapter2/ex_2_10_randu_dataset.eps", onefile=FALSE, horizontal=FALSE)

par(mfrow=c(1,3))
hist(x)
plot(x1,x2)
acf(x)

dev.off()