trainATA <- head(touristTR, 84)
testATA <- window(touristTR, start = 2015, end = 2016.917)
ata_fit <- ATA(trainATA, h=24, seasonal.test = TRUE, seasonal.model = "decomp")
ata_accuracy <- ATA.Accuracy(ata_fit, testATA)
Run the code above in your browser using DataLab