# NOT RUN {
# Check the Stationarity Assumption
stest1 <- station.test(ExampleData1$a, ExampleData1$y-ExampleData1$a,
ExampleData1$delta)
print(stest1) # display the results
stest2 <- station.test(ExampleData2$a, ExampleData2$y-ExampleData2$a,
ExampleData2$delta)
print(stest2) # display the results
# }
Run the code above in your browser using DataLab