Нет, seasonality$total
не является переменной сезонности. Чтобы увидеть это, обратите внимание, что каждый столбец fourier(gas, K = optimal_k_value)
- это просто сезонный компонент, идущий от -1 до 1, так что они являются просто sin (...) и cos (...) без каких-либо коэффициентов. Очевидно, что разные сезонные компоненты должны иметь разные коэффициенты, поэтому не следует просто их суммировать.
Дополнительный комментарий 1 : поскольку i
- это всегда просто одно число, нет смысла использовать max(i)
, достаточно просто optimal_k_value <- i
.
Дополнительный комментарий 2 : Я предлагаю проверить
plot(resid(auto.arima(gas, xreg = fourier(gas, K = optimal_k_value), seasonal = FALSE)))
С одной стороны, сезонность может быть ниже годовой (кажется, что fourier
не позволяет учесть это), хотя, возможно, вы собираетесь моделировать ее отдельно как тренд. Также может быть хорошей идеей разделить данные на что-то вроде до и после 1970 года.