Free Statistics

of Irreproducible Research!

Author's title

Author*Unverified author*
R Software Module--
Title produced by softwareExponential Smoothing
Date of computationTue, 29 Nov 2011 14:57:05 -0500
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2011/Nov/29/t1322596649yoqlh2o8y4427if.htm/, Retrieved Fri, 29 Mar 2024 13:33:15 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=148709, Retrieved Fri, 29 Mar 2024 13:33:15 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact127
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Univariate Data Series] [data set] [2008-12-01 19:54:57] [b98453cac15ba1066b407e146608df68]
- RMPD  [Classical Decomposition] [compendium 8] [2011-11-24 14:23:11] [380049693c521f4999989215fb37aeca]
- RMPD    [Exponential Smoothing] [WS 8 Q3] [2011-11-24 15:31:44] [380049693c521f4999989215fb37aeca]
- RM          [Exponential Smoothing] [WS8-5] [2011-11-29 19:57:05] [d41d8cd98f00b204e9800998ecf8427e] [Current]
Feedback Forum

Post a new message
Dataseries X:
135094
135411
135698
135880
135891
135971
136173
136358
136514
136506
136711
136891
137094
137182
137400
137479
137620
137687
137638
137612
137681
137772
137899
137983
137996
137913
137841
137656
137423
137245
137014
136747
136313
135804
135002
134383
133563
132837
132041
131381
130995
130493
130193
129962
129726
129505
129450
129320
129281
129246
129438
129715
130173
129981
129932
129873
129844
130015
130108
130260




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time2 seconds
R Server'AstonUniversity' @ aston.wessa.net

\begin{tabular}{lllllllll}
\hline
Summary of computational transaction \tabularnewline
Raw Input & view raw input (R code)  \tabularnewline
Raw Output & view raw output of R engine  \tabularnewline
Computing time & 2 seconds \tabularnewline
R Server & 'AstonUniversity' @ aston.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=148709&T=0

[TABLE]
[ROW][C]Summary of computational transaction[/C][/ROW]
[ROW][C]Raw Input[/C][C]view raw input (R code) [/C][/ROW]
[ROW][C]Raw Output[/C][C]view raw output of R engine [/C][/ROW]
[ROW][C]Computing time[/C][C]2 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'AstonUniversity' @ aston.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=148709&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=148709&T=0

As an alternative you can also use a QR Code:  

The GUIDs for individual cells are displayed in the table below:

Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time2 seconds
R Server'AstonUniversity' @ aston.wessa.net







Estimated Parameters of Exponential Smoothing
ParameterValue
alpha0.848868141785006
beta0.724748156424213
gamma0.372296217337072

\begin{tabular}{lllllllll}
\hline
Estimated Parameters of Exponential Smoothing \tabularnewline
Parameter & Value \tabularnewline
alpha & 0.848868141785006 \tabularnewline
beta & 0.724748156424213 \tabularnewline
gamma & 0.372296217337072 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=148709&T=1

[TABLE]
[ROW][C]Estimated Parameters of Exponential Smoothing[/C][/ROW]
[ROW][C]Parameter[/C][C]Value[/C][/ROW]
[ROW][C]alpha[/C][C]0.848868141785006[/C][/ROW]
[ROW][C]beta[/C][C]0.724748156424213[/C][/ROW]
[ROW][C]gamma[/C][C]0.372296217337072[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=148709&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=148709&T=1

As an alternative you can also use a QR Code:  

The GUIDs for individual cells are displayed in the table below:

Estimated Parameters of Exponential Smoothing
ParameterValue
alpha0.848868141785006
beta0.724748156424213
gamma0.372296217337072







Interpolation Forecasts of Exponential Smoothing
tObservedFittedResiduals
13137094136245.097489316848.902510683722
14137182137587.108287315-405.108287314913
15137400137757.816989631-357.816989630664
16137479137609.035166524-130.03516652371
17137620137634.73541063-14.7354106304701
18137687137682.4944894724.50551052828087
19137638137630.2751004277.72489957342623
20137612137760.499360398-148.499360397982
21137681137650.16736357630.8326364242239
22137772137554.199971884217.800028115831
23137899137962.812222061-63.8122220610094
24137983138063.239528916-80.2395289160777
25137996138182.121801859-186.121801858593
26137913137882.54680676730.4531932333193
27137841138001.186200515-160.18620051528
28137656137730.104280805-74.1042808054772
29137423137541.300553551-118.300553551438
30137245137170.04484086274.9551591383934
31137014136888.966532693125.033467307396
32136747136893.30775295-146.307752949797
33136313136579.602255038-266.602255037986
34135804135843.360993244-39.3609932436084
35135002135461.312083813-459.312083813013
36134383134425.249951761-42.2499517610995
37133563133793.956684636-230.956684636214
38132837132664.459306159172.540693841001
39132041132176.350971509-135.350971509033
40131381131229.83857769151.161422309553
41130995130667.000190616327.999809384026
42130493130397.27048437295.729515627987
43130193129861.227426954331.772573046095
44129962129877.56764332484.4323566756211
45129726129746.688516209-20.6885162092804
46129505129376.998393568128.001606431542
47129450129361.3703415888.6296584201773
48129320129398.988130224-78.9881302243157
49129281129288.372643315-7.372643314593
50129246129071.40552823174.594471770484
51129438129269.014102928168.985897072125
52129715129485.494530735229.505469264768
53130173129935.838442393237.161557606654
54129981130456.773624833-475.773624832611
55129932129978.126720183-46.1267201834271
56129873129956.519723223-83.519723223275
57129844129870.586228388-26.5862283875031
58130015129694.05704693320.942953069738
59130108130148.497142395-40.4971423951065
60130260130296.133006436-36.1330064362701

\begin{tabular}{lllllllll}
\hline
Interpolation Forecasts of Exponential Smoothing \tabularnewline
t & Observed & Fitted & Residuals \tabularnewline
13 & 137094 & 136245.097489316 & 848.902510683722 \tabularnewline
14 & 137182 & 137587.108287315 & -405.108287314913 \tabularnewline
15 & 137400 & 137757.816989631 & -357.816989630664 \tabularnewline
16 & 137479 & 137609.035166524 & -130.03516652371 \tabularnewline
17 & 137620 & 137634.73541063 & -14.7354106304701 \tabularnewline
18 & 137687 & 137682.494489472 & 4.50551052828087 \tabularnewline
19 & 137638 & 137630.275100427 & 7.72489957342623 \tabularnewline
20 & 137612 & 137760.499360398 & -148.499360397982 \tabularnewline
21 & 137681 & 137650.167363576 & 30.8326364242239 \tabularnewline
22 & 137772 & 137554.199971884 & 217.800028115831 \tabularnewline
23 & 137899 & 137962.812222061 & -63.8122220610094 \tabularnewline
24 & 137983 & 138063.239528916 & -80.2395289160777 \tabularnewline
25 & 137996 & 138182.121801859 & -186.121801858593 \tabularnewline
26 & 137913 & 137882.546806767 & 30.4531932333193 \tabularnewline
27 & 137841 & 138001.186200515 & -160.18620051528 \tabularnewline
28 & 137656 & 137730.104280805 & -74.1042808054772 \tabularnewline
29 & 137423 & 137541.300553551 & -118.300553551438 \tabularnewline
30 & 137245 & 137170.044840862 & 74.9551591383934 \tabularnewline
31 & 137014 & 136888.966532693 & 125.033467307396 \tabularnewline
32 & 136747 & 136893.30775295 & -146.307752949797 \tabularnewline
33 & 136313 & 136579.602255038 & -266.602255037986 \tabularnewline
34 & 135804 & 135843.360993244 & -39.3609932436084 \tabularnewline
35 & 135002 & 135461.312083813 & -459.312083813013 \tabularnewline
36 & 134383 & 134425.249951761 & -42.2499517610995 \tabularnewline
37 & 133563 & 133793.956684636 & -230.956684636214 \tabularnewline
38 & 132837 & 132664.459306159 & 172.540693841001 \tabularnewline
39 & 132041 & 132176.350971509 & -135.350971509033 \tabularnewline
40 & 131381 & 131229.83857769 & 151.161422309553 \tabularnewline
41 & 130995 & 130667.000190616 & 327.999809384026 \tabularnewline
42 & 130493 & 130397.270484372 & 95.729515627987 \tabularnewline
43 & 130193 & 129861.227426954 & 331.772573046095 \tabularnewline
44 & 129962 & 129877.567643324 & 84.4323566756211 \tabularnewline
45 & 129726 & 129746.688516209 & -20.6885162092804 \tabularnewline
46 & 129505 & 129376.998393568 & 128.001606431542 \tabularnewline
47 & 129450 & 129361.37034158 & 88.6296584201773 \tabularnewline
48 & 129320 & 129398.988130224 & -78.9881302243157 \tabularnewline
49 & 129281 & 129288.372643315 & -7.372643314593 \tabularnewline
50 & 129246 & 129071.40552823 & 174.594471770484 \tabularnewline
51 & 129438 & 129269.014102928 & 168.985897072125 \tabularnewline
52 & 129715 & 129485.494530735 & 229.505469264768 \tabularnewline
53 & 130173 & 129935.838442393 & 237.161557606654 \tabularnewline
54 & 129981 & 130456.773624833 & -475.773624832611 \tabularnewline
55 & 129932 & 129978.126720183 & -46.1267201834271 \tabularnewline
56 & 129873 & 129956.519723223 & -83.519723223275 \tabularnewline
57 & 129844 & 129870.586228388 & -26.5862283875031 \tabularnewline
58 & 130015 & 129694.05704693 & 320.942953069738 \tabularnewline
59 & 130108 & 130148.497142395 & -40.4971423951065 \tabularnewline
60 & 130260 & 130296.133006436 & -36.1330064362701 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=148709&T=2

[TABLE]
[ROW][C]Interpolation Forecasts of Exponential Smoothing[/C][/ROW]
[ROW][C]t[/C][C]Observed[/C][C]Fitted[/C][C]Residuals[/C][/ROW]
[ROW][C]13[/C][C]137094[/C][C]136245.097489316[/C][C]848.902510683722[/C][/ROW]
[ROW][C]14[/C][C]137182[/C][C]137587.108287315[/C][C]-405.108287314913[/C][/ROW]
[ROW][C]15[/C][C]137400[/C][C]137757.816989631[/C][C]-357.816989630664[/C][/ROW]
[ROW][C]16[/C][C]137479[/C][C]137609.035166524[/C][C]-130.03516652371[/C][/ROW]
[ROW][C]17[/C][C]137620[/C][C]137634.73541063[/C][C]-14.7354106304701[/C][/ROW]
[ROW][C]18[/C][C]137687[/C][C]137682.494489472[/C][C]4.50551052828087[/C][/ROW]
[ROW][C]19[/C][C]137638[/C][C]137630.275100427[/C][C]7.72489957342623[/C][/ROW]
[ROW][C]20[/C][C]137612[/C][C]137760.499360398[/C][C]-148.499360397982[/C][/ROW]
[ROW][C]21[/C][C]137681[/C][C]137650.167363576[/C][C]30.8326364242239[/C][/ROW]
[ROW][C]22[/C][C]137772[/C][C]137554.199971884[/C][C]217.800028115831[/C][/ROW]
[ROW][C]23[/C][C]137899[/C][C]137962.812222061[/C][C]-63.8122220610094[/C][/ROW]
[ROW][C]24[/C][C]137983[/C][C]138063.239528916[/C][C]-80.2395289160777[/C][/ROW]
[ROW][C]25[/C][C]137996[/C][C]138182.121801859[/C][C]-186.121801858593[/C][/ROW]
[ROW][C]26[/C][C]137913[/C][C]137882.546806767[/C][C]30.4531932333193[/C][/ROW]
[ROW][C]27[/C][C]137841[/C][C]138001.186200515[/C][C]-160.18620051528[/C][/ROW]
[ROW][C]28[/C][C]137656[/C][C]137730.104280805[/C][C]-74.1042808054772[/C][/ROW]
[ROW][C]29[/C][C]137423[/C][C]137541.300553551[/C][C]-118.300553551438[/C][/ROW]
[ROW][C]30[/C][C]137245[/C][C]137170.044840862[/C][C]74.9551591383934[/C][/ROW]
[ROW][C]31[/C][C]137014[/C][C]136888.966532693[/C][C]125.033467307396[/C][/ROW]
[ROW][C]32[/C][C]136747[/C][C]136893.30775295[/C][C]-146.307752949797[/C][/ROW]
[ROW][C]33[/C][C]136313[/C][C]136579.602255038[/C][C]-266.602255037986[/C][/ROW]
[ROW][C]34[/C][C]135804[/C][C]135843.360993244[/C][C]-39.3609932436084[/C][/ROW]
[ROW][C]35[/C][C]135002[/C][C]135461.312083813[/C][C]-459.312083813013[/C][/ROW]
[ROW][C]36[/C][C]134383[/C][C]134425.249951761[/C][C]-42.2499517610995[/C][/ROW]
[ROW][C]37[/C][C]133563[/C][C]133793.956684636[/C][C]-230.956684636214[/C][/ROW]
[ROW][C]38[/C][C]132837[/C][C]132664.459306159[/C][C]172.540693841001[/C][/ROW]
[ROW][C]39[/C][C]132041[/C][C]132176.350971509[/C][C]-135.350971509033[/C][/ROW]
[ROW][C]40[/C][C]131381[/C][C]131229.83857769[/C][C]151.161422309553[/C][/ROW]
[ROW][C]41[/C][C]130995[/C][C]130667.000190616[/C][C]327.999809384026[/C][/ROW]
[ROW][C]42[/C][C]130493[/C][C]130397.270484372[/C][C]95.729515627987[/C][/ROW]
[ROW][C]43[/C][C]130193[/C][C]129861.227426954[/C][C]331.772573046095[/C][/ROW]
[ROW][C]44[/C][C]129962[/C][C]129877.567643324[/C][C]84.4323566756211[/C][/ROW]
[ROW][C]45[/C][C]129726[/C][C]129746.688516209[/C][C]-20.6885162092804[/C][/ROW]
[ROW][C]46[/C][C]129505[/C][C]129376.998393568[/C][C]128.001606431542[/C][/ROW]
[ROW][C]47[/C][C]129450[/C][C]129361.37034158[/C][C]88.6296584201773[/C][/ROW]
[ROW][C]48[/C][C]129320[/C][C]129398.988130224[/C][C]-78.9881302243157[/C][/ROW]
[ROW][C]49[/C][C]129281[/C][C]129288.372643315[/C][C]-7.372643314593[/C][/ROW]
[ROW][C]50[/C][C]129246[/C][C]129071.40552823[/C][C]174.594471770484[/C][/ROW]
[ROW][C]51[/C][C]129438[/C][C]129269.014102928[/C][C]168.985897072125[/C][/ROW]
[ROW][C]52[/C][C]129715[/C][C]129485.494530735[/C][C]229.505469264768[/C][/ROW]
[ROW][C]53[/C][C]130173[/C][C]129935.838442393[/C][C]237.161557606654[/C][/ROW]
[ROW][C]54[/C][C]129981[/C][C]130456.773624833[/C][C]-475.773624832611[/C][/ROW]
[ROW][C]55[/C][C]129932[/C][C]129978.126720183[/C][C]-46.1267201834271[/C][/ROW]
[ROW][C]56[/C][C]129873[/C][C]129956.519723223[/C][C]-83.519723223275[/C][/ROW]
[ROW][C]57[/C][C]129844[/C][C]129870.586228388[/C][C]-26.5862283875031[/C][/ROW]
[ROW][C]58[/C][C]130015[/C][C]129694.05704693[/C][C]320.942953069738[/C][/ROW]
[ROW][C]59[/C][C]130108[/C][C]130148.497142395[/C][C]-40.4971423951065[/C][/ROW]
[ROW][C]60[/C][C]130260[/C][C]130296.133006436[/C][C]-36.1330064362701[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=148709&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=148709&T=2

As an alternative you can also use a QR Code:  

The GUIDs for individual cells are displayed in the table below:

Interpolation Forecasts of Exponential Smoothing
tObservedFittedResiduals
13137094136245.097489316848.902510683722
14137182137587.108287315-405.108287314913
15137400137757.816989631-357.816989630664
16137479137609.035166524-130.03516652371
17137620137634.73541063-14.7354106304701
18137687137682.4944894724.50551052828087
19137638137630.2751004277.72489957342623
20137612137760.499360398-148.499360397982
21137681137650.16736357630.8326364242239
22137772137554.199971884217.800028115831
23137899137962.812222061-63.8122220610094
24137983138063.239528916-80.2395289160777
25137996138182.121801859-186.121801858593
26137913137882.54680676730.4531932333193
27137841138001.186200515-160.18620051528
28137656137730.104280805-74.1042808054772
29137423137541.300553551-118.300553551438
30137245137170.04484086274.9551591383934
31137014136888.966532693125.033467307396
32136747136893.30775295-146.307752949797
33136313136579.602255038-266.602255037986
34135804135843.360993244-39.3609932436084
35135002135461.312083813-459.312083813013
36134383134425.249951761-42.2499517610995
37133563133793.956684636-230.956684636214
38132837132664.459306159172.540693841001
39132041132176.350971509-135.350971509033
40131381131229.83857769151.161422309553
41130995130667.000190616327.999809384026
42130493130397.27048437295.729515627987
43130193129861.227426954331.772573046095
44129962129877.56764332484.4323566756211
45129726129746.688516209-20.6885162092804
46129505129376.998393568128.001606431542
47129450129361.3703415888.6296584201773
48129320129398.988130224-78.9881302243157
49129281129288.372643315-7.372643314593
50129246129071.40552823174.594471770484
51129438129269.014102928168.985897072125
52129715129485.494530735229.505469264768
53130173129935.838442393237.161557606654
54129981130456.773624833-475.773624832611
55129932129978.126720183-46.1267201834271
56129873129956.519723223-83.519723223275
57129844129870.586228388-26.5862283875031
58130015129694.05704693320.942953069738
59130108130148.497142395-40.4971423951065
60130260130296.133006436-36.1330064362701







Extrapolation Forecasts of Exponential Smoothing
tForecast95% Lower Bound95% Upper Bound
61130481.351369481130036.707404115130925.995334847
62130540.84294717129752.487658771131329.198235568
63130742.47678162129527.448830213131957.504733027
64130867.501400339129161.120393583132573.882407095
65131030.846609147128777.516848166133284.176370127
66131071.833926247128221.705712354133921.96214014
67131075.41880281127582.768675706134568.068929914
68131173.429513308126995.717396092135351.141630524
69131295.545450979126392.799995015136198.290906942
70131311.443539407125645.830631372136977.056447442
71131425.964599056124961.468509961137890.460688151
72131585.993158808124288.171943468138883.814374149

\begin{tabular}{lllllllll}
\hline
Extrapolation Forecasts of Exponential Smoothing \tabularnewline
t & Forecast & 95% Lower Bound & 95% Upper Bound \tabularnewline
61 & 130481.351369481 & 130036.707404115 & 130925.995334847 \tabularnewline
62 & 130540.84294717 & 129752.487658771 & 131329.198235568 \tabularnewline
63 & 130742.47678162 & 129527.448830213 & 131957.504733027 \tabularnewline
64 & 130867.501400339 & 129161.120393583 & 132573.882407095 \tabularnewline
65 & 131030.846609147 & 128777.516848166 & 133284.176370127 \tabularnewline
66 & 131071.833926247 & 128221.705712354 & 133921.96214014 \tabularnewline
67 & 131075.41880281 & 127582.768675706 & 134568.068929914 \tabularnewline
68 & 131173.429513308 & 126995.717396092 & 135351.141630524 \tabularnewline
69 & 131295.545450979 & 126392.799995015 & 136198.290906942 \tabularnewline
70 & 131311.443539407 & 125645.830631372 & 136977.056447442 \tabularnewline
71 & 131425.964599056 & 124961.468509961 & 137890.460688151 \tabularnewline
72 & 131585.993158808 & 124288.171943468 & 138883.814374149 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=148709&T=3

[TABLE]
[ROW][C]Extrapolation Forecasts of Exponential Smoothing[/C][/ROW]
[ROW][C]t[/C][C]Forecast[/C][C]95% Lower Bound[/C][C]95% Upper Bound[/C][/ROW]
[ROW][C]61[/C][C]130481.351369481[/C][C]130036.707404115[/C][C]130925.995334847[/C][/ROW]
[ROW][C]62[/C][C]130540.84294717[/C][C]129752.487658771[/C][C]131329.198235568[/C][/ROW]
[ROW][C]63[/C][C]130742.47678162[/C][C]129527.448830213[/C][C]131957.504733027[/C][/ROW]
[ROW][C]64[/C][C]130867.501400339[/C][C]129161.120393583[/C][C]132573.882407095[/C][/ROW]
[ROW][C]65[/C][C]131030.846609147[/C][C]128777.516848166[/C][C]133284.176370127[/C][/ROW]
[ROW][C]66[/C][C]131071.833926247[/C][C]128221.705712354[/C][C]133921.96214014[/C][/ROW]
[ROW][C]67[/C][C]131075.41880281[/C][C]127582.768675706[/C][C]134568.068929914[/C][/ROW]
[ROW][C]68[/C][C]131173.429513308[/C][C]126995.717396092[/C][C]135351.141630524[/C][/ROW]
[ROW][C]69[/C][C]131295.545450979[/C][C]126392.799995015[/C][C]136198.290906942[/C][/ROW]
[ROW][C]70[/C][C]131311.443539407[/C][C]125645.830631372[/C][C]136977.056447442[/C][/ROW]
[ROW][C]71[/C][C]131425.964599056[/C][C]124961.468509961[/C][C]137890.460688151[/C][/ROW]
[ROW][C]72[/C][C]131585.993158808[/C][C]124288.171943468[/C][C]138883.814374149[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=148709&T=3

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=148709&T=3

As an alternative you can also use a QR Code:  

The GUIDs for individual cells are displayed in the table below:

Extrapolation Forecasts of Exponential Smoothing
tForecast95% Lower Bound95% Upper Bound
61130481.351369481130036.707404115130925.995334847
62130540.84294717129752.487658771131329.198235568
63130742.47678162129527.448830213131957.504733027
64130867.501400339129161.120393583132573.882407095
65131030.846609147128777.516848166133284.176370127
66131071.833926247128221.705712354133921.96214014
67131075.41880281127582.768675706134568.068929914
68131173.429513308126995.717396092135351.141630524
69131295.545450979126392.799995015136198.290906942
70131311.443539407125645.830631372136977.056447442
71131425.964599056124961.468509961137890.460688151
72131585.993158808124288.171943468138883.814374149



Parameters (Session):
par1 = 12 ; par2 = Triple ; par3 = additive ;
Parameters (R input):
par1 = 12 ; par2 = Triple ; par3 = additive ; par4 = ; par5 = ; par6 = ; par7 = ; par8 = ; par9 = ; par10 = ; par11 = ; par12 = ; par13 = ; par14 = ; par15 = ; par16 = ; par17 = ; par18 = ; par19 = ; par20 = ;
R code (references can be found in the software module):
par1 <- as.numeric(par1)
if (par2 == 'Single') K <- 1
if (par2 == 'Double') K <- 2
if (par2 == 'Triple') K <- par1
nx <- length(x)
nxmK <- nx - K
x <- ts(x, frequency = par1)
if (par2 == 'Single') fit <- HoltWinters(x, gamma=F, beta=F)
if (par2 == 'Double') fit <- HoltWinters(x, gamma=F)
if (par2 == 'Triple') fit <- HoltWinters(x, seasonal=par3)
fit
myresid <- x - fit$fitted[,'xhat']
bitmap(file='test1.png')
op <- par(mfrow=c(2,1))
plot(fit,ylab='Observed (black) / Fitted (red)',main='Interpolation Fit of Exponential Smoothing')
plot(myresid,ylab='Residuals',main='Interpolation Prediction Errors')
par(op)
dev.off()
bitmap(file='test2.png')
p <- predict(fit, par1, prediction.interval=TRUE)
np <- length(p[,1])
plot(fit,p,ylab='Observed (black) / Fitted (red)',main='Extrapolation Fit of Exponential Smoothing')
dev.off()
bitmap(file='test3.png')
op <- par(mfrow = c(2,2))
acf(as.numeric(myresid),lag.max = nx/2,main='Residual ACF')
spectrum(myresid,main='Residals Periodogram')
cpgram(myresid,main='Residal Cumulative Periodogram')
qqnorm(myresid,main='Residual Normal QQ Plot')
qqline(myresid)
par(op)
dev.off()
load(file='createtable')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Estimated Parameters of Exponential Smoothing',2,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Parameter',header=TRUE)
a<-table.element(a,'Value',header=TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'alpha',header=TRUE)
a<-table.element(a,fit$alpha)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'beta',header=TRUE)
a<-table.element(a,fit$beta)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'gamma',header=TRUE)
a<-table.element(a,fit$gamma)
a<-table.row.end(a)
a<-table.end(a)
table.save(a,file='mytable.tab')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Interpolation Forecasts of Exponential Smoothing',4,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'t',header=TRUE)
a<-table.element(a,'Observed',header=TRUE)
a<-table.element(a,'Fitted',header=TRUE)
a<-table.element(a,'Residuals',header=TRUE)
a<-table.row.end(a)
for (i in 1:nxmK) {
a<-table.row.start(a)
a<-table.element(a,i+K,header=TRUE)
a<-table.element(a,x[i+K])
a<-table.element(a,fit$fitted[i,'xhat'])
a<-table.element(a,myresid[i])
a<-table.row.end(a)
}
a<-table.end(a)
table.save(a,file='mytable1.tab')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Extrapolation Forecasts of Exponential Smoothing',4,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'t',header=TRUE)
a<-table.element(a,'Forecast',header=TRUE)
a<-table.element(a,'95% Lower Bound',header=TRUE)
a<-table.element(a,'95% Upper Bound',header=TRUE)
a<-table.row.end(a)
for (i in 1:np) {
a<-table.row.start(a)
a<-table.element(a,nx+i,header=TRUE)
a<-table.element(a,p[i,'fit'])
a<-table.element(a,p[i,'lwr'])
a<-table.element(a,p[i,'upr'])
a<-table.row.end(a)
}
a<-table.end(a)
table.save(a,file='mytable2.tab')