Flugpassagiere 

Der folgende Datensatz umfasst die monatlichen Gesamtzahlen US-amerikanischer Passagiere internationaler Airlines (in Tausenden) von Januar 1949 bis Dezember 1960.

In[1]:=

X passengers = TemporalData[TimeSeries, {CompressedData[" 1:eJwt0s0rplEYB+AXGzX5SBkbmymWaCxE0/gb0GRjskARYqLIwpQyWFDoxYoy ZIGFMI2FEk1JaJKNbEX52rBSFq439+LqnM7z63efp86npu66rvREIpHGJD/o Y5ghBhglGcbopy1yvfxkInKDzLAaFvhFD+NMMcsmS6zH/jDs8JtpVlhjm33+ 8JdLbnjijL3oOeBfeOCea57J9IO5PNqfR+cRJ+xG9oq7yJZSTEbae8dxdKVm 3vLBeRbZfKGTBirJizkfrYXk85UqquljnhmaKScn1lRXCS18j+8rnHFOMuZ8 poZv0dke+Q62uOcl8q1UUEsb9cwyzjIXFHkEZfy3n4u+1P0WGWWJ08gWyKUe TSOvcT7CBm9ZnFBB "], { TemporalData`DateSpecification[{1949, 1, 1, 0, 0, 0.}, {1960, 12, 1, 0, 0, 0}, {1, "Month"}]}, 1, {"Discrete", 1}, {"Discrete", 1}, 1, {MetaInformation -> { "Source" -> "Box, G. E. P., Jenkins, G. M. and Reinsel, G. C. \ (1994) Time Series Analysis, Forecasting and\nControl. Second \ Edition. New York: Prentice-Hall.", "Description" -> "International Airline Passengers: Monthly \ Totals (Thousands of Passengers) January 1949 - December 1960"}}}, True, 10.];

Teilen Sie die Daten bei Januar 1958 in zwei Segmente.

In[2]:=

X before1958 = TimeSeriesWindow[passengers, {Automatic, "December 1957"}]; since1958 = TimeSeriesWindow[passengers, {"January 1958", Automatic}];

In[3]:=

X p = DateListPlot[{before1958, since1958}, Joined -> True, PlotLegends -> {"Before 1958", "After 1958"}]

Out[3]=

Erstellen Sie ein passendes Zeitreihenmodell für die Flugpassagiersdaten vor 1958.

In[4]:=

X tsm = TimeSeriesModelFit[before1958]

Out[4]=

Die Prognose für 1958 bis 1961 im Vergleich mit den tatsächlichen Daten:

In[5]:=

X DateListPlot[{before1958, since1958, Table[{t, tsm[t]}, {t, DateRange["January 1958", "December 1960", "Month"]}]}, Joined -> True, PlotLegends -> {"Before 1958", "After 1958", "Forecast"}]

Out[5]=