acf.R

x1<-rnorm(300)
x2<-rep(c(15,rep(0,49)),6
x3<-c(rep(0,150),rep(3,150))
x4<-seq(1, 3, length.out = 300)
x5<-seq(1, -3, length.out = 300)
x6<-rep(c(seq(3, -3, length.out = 50), seq(-3, 3, length.out = 50)),3)
x7<-rep(c(seq(-3, 3, length.out = 50), seq(3, -3, length.out = 50)),3)

par(mfrow = c(7,2))
plot(x1)
acf(x1, lag.max = 500)
plot(x2)
acf(x2, lag.max = 500)
plot(x3)
acf(x3, lag.max = 500)
plot(x4)
acf(x4, lag.max = 500)
plot(x5)
acf(x5, lag.max = 500)
plot(x6)
acf(x6, lag.max = 500)
plot(x7)
acf(x7, lag.max = 500)