RW <- arima.sim(model= list(order = c(0, 1, 0)), n=200)
autoplot(RW) + labs(title = "Simulated Random Walk", subtitle = 'Created with arima.sim()') + theme_fivethirtyeight() RW_diff <- diff(RW)
autoplot(RW_diff) + labs(title = "First Order Difference of Random Walk", subtitle = 'Approaches White Noice') + theme_fivethirtyeight()