Я пытаюсь сделать некоторые прогнозы спроса с ежедневными данными, с 16 января 2012 года по 10 октября 2013 года. Но прогнозирование просто возвращает ужасные результаты. Любая подсказка, почему?

Вот как данные выглядят на графике: существуют еженедельные и ежемесячные сезонности. То есть: больше спроса в будний день и меньше спроса в выходные дни.

Вот как выглядит график прогнозирования: где черная линия - это фактические данные, а синяя линия - это прогнозируемые данные.

 x = ts(data, freq=7, start=c(3,2))
 fit