-test_that("Average+Zero method behave as expected",
-{
-
-test_that("Persistence+Zero method behave as expected",
-{
+ts_data = system.file("testdata","ts_test.csv",package="talweg")
+exo_data = system.file("testdata","exo_test.csv",package="talweg")
+data00 <<- getData(ts_data, exo_data, input_tz="GMT", date_format="%Y-%m-%d %H:%M",
+ working_tz="GMT", predict_at=0, limit=Inf)
+data13 <<- getData(ts_data, exo_data, input_tz="GMT", date_format="%Y-%m-%d %H:%M",
+ working_tz="GMT", predict_at=13, limit=Inf)
+#Forecast at sunday to saturday, for monday to sunday
+indices <<- seq(as.Date("2007-04-01"),as.Date("2007-04-07"),"days")