set.seed(123)
wnoise<-arima.sim(model=list(order=c(0,0,0)), n=200)
wnoise

set.seed(123)
x1<-w<-rnorm(200)
x1.ts<-ts(x1)
x1.ts

par(mfrow=c(3,2))

plot(wnoise, main="White Noise")
plot(x1.ts, main="White Noise" )

acf(wnoise, main="White Noise")
acf(x1.ts, main="White Noise")

pacf(wnoise, main="White Noise")
pacf(x1.ts, main="White Noise")