Check for serial correlation in data
ListLinePlot@CorrelationFunction[RandomFunction[ARProcess[{.8},1],{1000}],{100}]