Fit Time Series Processes to Data 

Fit an autoregressive process of order 6 to the following data.

In[1]:=

X ListLinePlot[data = \!\(\* TagBox[ RowBox[{"TemporalData", "[", PanelBox["1", FrameMargins->Small], "]"}], InterpretTemplate[TemporalData[Automatic, {CompressedData[" 1:eJxlUzFIQlEU/TWFNDYHbdJYc9yxVpsbImjOUbQh6DfX4JASEvmXFkkQ8ot0 TYsIDLSl2VkHF/e+753z4r8eyOX98+6559573Do5OzxdDYJgJfldBn8n81PP 72WepbV5Nc21G3qx0difFEPEiHfBXWa5dvKyqYiSPbruL7JdSUgSpi9tG54X ua8sz6Mep/hCLZjYkvNUjGRq+F6VfKx7Z3hivQVfAbrWoLtrdYuBK5+o35B0 H6F3Lwt0yWCxrPguHeRVwbNu+RV9SN002BPODXpk2+rlvFwdvgOfxHYurj7x IvKoG1ED71TRfwlz43d7f4PuGHjk4aHG4Od80+wjBb9Aj6vP/hCxp6bLx76x l5C+cPkHkyXjGHsu69TDWdfOvwZ/jR1u/fmBudSk5Omj3/AOfcRO3645A4dT L/Gb/tIA3/Thv/yZ1y/84vKZZ+czFPqCeAf1qMPOf/hvv5Hx10joO37nvvC/ 0bznnwi+nEPn3Jsv8Z6dn+5YHQ5/AP4E3/0CSaez7A== "], {{0, 131, Rational[131, 130]}}, 1, {"Discrete", 1}, {"Discrete", 1}, 1, {}}]& ], Editable->False, SelectWithContents->True, Selectable->True]\)]

Out[1]=

In[2]:=

X eproc = EstimatedProcess[data, ARProcess[6]]

Out[2]=

The partial correlation of the fitted model and data agree well.