Free Statistics

of Irreproducible Research!

Author's title

Author*Unverified author*
R Software Modulerwasp_exponentialsmoothing.wasp
Title produced by softwareExponential Smoothing
Date of computationSat, 18 Jul 2009 06:13:05 -0600
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2009/Jul/18/t12479193031u9b7syadirw5e5.htm/, Retrieved Sat, 18 May 2024 08:54:50 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=42378, Retrieved Sat, 18 May 2024 08:54:50 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact250
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Exponential Smoothing] [opgave10_hanne ja...] [2009-07-18 12:13:05] [49ed6f8c7db7571d0c4403fef2ba00f0] [Current]
Feedback Forum

Post a new message
Dataseries X:
0.88
1.03
0.69
0.71
1.11
1.05
1.03
0.65
0.59
0.77
0.9
1.26
0.96
0.83
0.87
0.79
1.12
0.88
0.64
0.64
0.58
0.5
0.99
1.07
0.89
0.89
0.83
0.86
0.9
1.12
0.88
0.88
0.89
0.82
0.88
0.81
0.88
0.76
1.13
0.85
1.45
1.55
0.71
0.81
0.83
0.73
0.9
0.94
1.78
0.88
1.04
0.83
1.41
0.96
1.3
0.83
1.4
0.91
0.87
0.97
1.19
1.23
1.33
1.17
1.09
0.63
0.89
0.63
1.51
0.97
0.84
0.92
0.95
0.73
1.02
0.79
1.27
0.95
0.75
0.52
0.95
0.82
0.76
1.24
0.94
1.04
1.81
0.95
1.39
0.86
1.15
1.51
0.6
0.72
1.1
1.62
1.84
1.73
1.36
1.07
1
1.49
0.9
1.43
1.54
0.81
1.61
1.3
1.4
1.03
0.79
1.11
1.15
1.03
1.59
1.11
1.33
0.93
1.07
1.14
1.12
0.86
0.82
1.02
1.07
1.31
0.98
0.89
0.8
0.8
0.78
0.97




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time2 seconds
R Server'Gwilym Jenkins' @ 72.249.127.135

\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 & 'Gwilym Jenkins' @ 72.249.127.135 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=42378&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]'Gwilym Jenkins' @ 72.249.127.135[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=42378&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=42378&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'Gwilym Jenkins' @ 72.249.127.135







Estimated Parameters of Exponential Smoothing
ParameterValue
alpha0.153600290204256
beta0.00875809637850753
gamma0.180419308731852

\begin{tabular}{lllllllll}
\hline
Estimated Parameters of Exponential Smoothing \tabularnewline
Parameter & Value \tabularnewline
alpha & 0.153600290204256 \tabularnewline
beta & 0.00875809637850753 \tabularnewline
gamma & 0.180419308731852 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=42378&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.153600290204256[/C][/ROW]
[ROW][C]beta[/C][C]0.00875809637850753[/C][/ROW]
[ROW][C]gamma[/C][C]0.180419308731852[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=42378&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=42378&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.153600290204256
beta0.00875809637850753
gamma0.180419308731852







Interpolation Forecasts of Exponential Smoothing
tObservedFittedResiduals
130.960.978002136752137-0.0180021367521371
140.830.855399266204118-0.0253992662041179
150.870.885792692827306-0.0157926928273064
160.790.808473780183224-0.0184737801832237
171.121.13655153329496-0.0165515332949606
180.880.89156894486688-0.0115689448668803
190.640.971086120388833-0.331086120388833
200.640.5381633060314630.101836693968537
210.580.487707890348780.0922921096512194
220.50.66424391268317-0.164243912683169
230.990.7582383123820450.231761687617955
241.071.15378773039326-0.0837877303932648
250.890.8546735681628740.0353264318371262
260.890.738855689162990.151144310837010
270.830.7977940448632550.0322059551367447
280.860.7274636829107330.132536317089267
290.91.07925868164790-0.179258681647904
301.120.8100547328291240.309945267170876
310.880.890606268236178-0.0106062682361777
320.880.5738928011551520.306107198844848
330.890.5545039344683880.335496065531612
340.820.730696579742820.0893034202571799
350.880.925925007719033-0.0459250077190331
360.811.23207787030021-0.422077870300208
370.880.900179468848156-0.0201794688481559
380.760.794435057706646-0.0344350577066463
391.130.8073690236756210.322630976324378
400.850.7980232128306820.0519767871693178
411.451.090776689703310.359223310296690
421.550.980658593827770.569341406172231
430.711.05412205611671-0.344122056116706
440.810.736115142551960.0738848574480397
450.830.6868027011351570.143197298864843
460.730.796862170407452-0.0668621704074522
470.90.948242403690176-0.0482424036901755
480.941.19738426983259-0.257384269832594
491.780.953163120991940.82683687900806
500.880.977490814745658-0.0974908147456585
511.041.037328076250440.00267192374955916
520.830.939137538199761-0.109137538199761
531.411.255477543342220.154522456657784
540.961.14714352308623-0.187143523086233
551.30.9650406073285390.334959392671461
560.830.816208907394130.0137910926058705
571.40.7692052767300650.630794723269935
580.910.92369301630739-0.0136930163073893
590.871.08776562301761-0.217765623017610
600.971.28038543731481-0.310385437314809
611.191.19497415063005-0.00497415063004802
621.230.9506481271844460.279351872815554
631.331.084434886710620.245565113289383
641.171.007576308904990.162423691095011
651.091.40735376844290-0.317353768442903
660.631.17519278102677-0.545192781026773
670.891.01816851655071-0.128168516550711
680.630.748879044002418-0.118879044002418
691.510.7752628573265270.734737142673473
700.970.8469832521521280.123016747847872
710.841.00075990393264-0.160759903932638
720.921.18793749048538-0.267937490485378
730.951.15568707680261-0.205687076802607
740.730.923682473266993-0.193682473266993
751.020.9787476547374330.0412523452625672
760.790.856631565189815-0.0666315651898147
771.271.146473883830100.123526116169896
780.950.9463458063089660.00365419369103404
790.750.937151602454259-0.187151602454259
800.520.659986074116214-0.139986074116214
810.950.8132176840122730.136782315987727
820.820.6986105556669760.121389444333023
830.760.807732831927355-0.0477328319273547
841.240.9949869246073750.245013075392625
850.941.05080424285307-0.110804242853069
861.040.835106807642290.204893192357709
871.810.9877056179182930.822294382081707
880.950.970570028161343-0.020570028161343
891.391.298074585454310.0919254145456918
900.861.0762936490887-0.216293649088699
911.151.005388438416140.144611561583860
921.510.7880410286175310.721958971382469
930.61.11874830605443-0.518748306054429
940.720.903035266158807-0.183035266158807
951.10.9410965413924780.158903458607522
961.621.206597163473720.413402836526276
971.841.235972811222290.604027188777706
981.731.181273832010110.548726167989891
991.361.48442039791460-0.124420397914597
1001.071.19533792884992-0.125337928849916
10111.52596794750683-0.525967947506834
1021.491.163419046819910.326580953180089
1030.91.23295032852915-0.332950328529151
1041.431.031709838010760.398290161989240
1051.541.124097236949270.415902763050731
1060.811.10533013461671-0.29533013461671
1071.611.180325788065790.429674211934212
1081.31.52861144507659-0.228611445076588
1091.41.48995026025923-0.0899502602592306
1101.031.32074483120732-0.290744831207323
1110.791.39155855329633-0.60155855329633
1121.111.02780978089230.0821902191077004
1131.151.32817878041062-0.178178780410619
1141.031.14874986181696-0.118749861816962
1151.591.048073584204760.541926415795239
1161.111.092967100348300.0170328996516975
1171.331.129057205662310.200942794337688
1180.930.967947247546804-0.0379472475468036
1191.071.19282155448416-0.122821554484157
1201.141.35460716613285-0.214607166132855
1211.121.33817858879710-0.218178588797097
1220.861.11734907941166-0.257349079411659
1230.821.14460847424558-0.324608474245583
1241.020.9269644621710160.0930355378289837
1251.071.18840579173005-0.118405791730054
1261.311.026480249752530.283519750247474
1270.981.08827067174577-0.108270671745768
1280.890.952052392565045-0.0620523925650451
1290.81.00288638739959-0.202886387399587
1300.80.7415318667547330.0584681332452672
1310.780.966648281378973-0.186648281378973
1320.971.10292150023691-0.132921500236906

\begin{tabular}{lllllllll}
\hline
Interpolation Forecasts of Exponential Smoothing \tabularnewline
t & Observed & Fitted & Residuals \tabularnewline
13 & 0.96 & 0.978002136752137 & -0.0180021367521371 \tabularnewline
14 & 0.83 & 0.855399266204118 & -0.0253992662041179 \tabularnewline
15 & 0.87 & 0.885792692827306 & -0.0157926928273064 \tabularnewline
16 & 0.79 & 0.808473780183224 & -0.0184737801832237 \tabularnewline
17 & 1.12 & 1.13655153329496 & -0.0165515332949606 \tabularnewline
18 & 0.88 & 0.89156894486688 & -0.0115689448668803 \tabularnewline
19 & 0.64 & 0.971086120388833 & -0.331086120388833 \tabularnewline
20 & 0.64 & 0.538163306031463 & 0.101836693968537 \tabularnewline
21 & 0.58 & 0.48770789034878 & 0.0922921096512194 \tabularnewline
22 & 0.5 & 0.66424391268317 & -0.164243912683169 \tabularnewline
23 & 0.99 & 0.758238312382045 & 0.231761687617955 \tabularnewline
24 & 1.07 & 1.15378773039326 & -0.0837877303932648 \tabularnewline
25 & 0.89 & 0.854673568162874 & 0.0353264318371262 \tabularnewline
26 & 0.89 & 0.73885568916299 & 0.151144310837010 \tabularnewline
27 & 0.83 & 0.797794044863255 & 0.0322059551367447 \tabularnewline
28 & 0.86 & 0.727463682910733 & 0.132536317089267 \tabularnewline
29 & 0.9 & 1.07925868164790 & -0.179258681647904 \tabularnewline
30 & 1.12 & 0.810054732829124 & 0.309945267170876 \tabularnewline
31 & 0.88 & 0.890606268236178 & -0.0106062682361777 \tabularnewline
32 & 0.88 & 0.573892801155152 & 0.306107198844848 \tabularnewline
33 & 0.89 & 0.554503934468388 & 0.335496065531612 \tabularnewline
34 & 0.82 & 0.73069657974282 & 0.0893034202571799 \tabularnewline
35 & 0.88 & 0.925925007719033 & -0.0459250077190331 \tabularnewline
36 & 0.81 & 1.23207787030021 & -0.422077870300208 \tabularnewline
37 & 0.88 & 0.900179468848156 & -0.0201794688481559 \tabularnewline
38 & 0.76 & 0.794435057706646 & -0.0344350577066463 \tabularnewline
39 & 1.13 & 0.807369023675621 & 0.322630976324378 \tabularnewline
40 & 0.85 & 0.798023212830682 & 0.0519767871693178 \tabularnewline
41 & 1.45 & 1.09077668970331 & 0.359223310296690 \tabularnewline
42 & 1.55 & 0.98065859382777 & 0.569341406172231 \tabularnewline
43 & 0.71 & 1.05412205611671 & -0.344122056116706 \tabularnewline
44 & 0.81 & 0.73611514255196 & 0.0738848574480397 \tabularnewline
45 & 0.83 & 0.686802701135157 & 0.143197298864843 \tabularnewline
46 & 0.73 & 0.796862170407452 & -0.0668621704074522 \tabularnewline
47 & 0.9 & 0.948242403690176 & -0.0482424036901755 \tabularnewline
48 & 0.94 & 1.19738426983259 & -0.257384269832594 \tabularnewline
49 & 1.78 & 0.95316312099194 & 0.82683687900806 \tabularnewline
50 & 0.88 & 0.977490814745658 & -0.0974908147456585 \tabularnewline
51 & 1.04 & 1.03732807625044 & 0.00267192374955916 \tabularnewline
52 & 0.83 & 0.939137538199761 & -0.109137538199761 \tabularnewline
53 & 1.41 & 1.25547754334222 & 0.154522456657784 \tabularnewline
54 & 0.96 & 1.14714352308623 & -0.187143523086233 \tabularnewline
55 & 1.3 & 0.965040607328539 & 0.334959392671461 \tabularnewline
56 & 0.83 & 0.81620890739413 & 0.0137910926058705 \tabularnewline
57 & 1.4 & 0.769205276730065 & 0.630794723269935 \tabularnewline
58 & 0.91 & 0.92369301630739 & -0.0136930163073893 \tabularnewline
59 & 0.87 & 1.08776562301761 & -0.217765623017610 \tabularnewline
60 & 0.97 & 1.28038543731481 & -0.310385437314809 \tabularnewline
61 & 1.19 & 1.19497415063005 & -0.00497415063004802 \tabularnewline
62 & 1.23 & 0.950648127184446 & 0.279351872815554 \tabularnewline
63 & 1.33 & 1.08443488671062 & 0.245565113289383 \tabularnewline
64 & 1.17 & 1.00757630890499 & 0.162423691095011 \tabularnewline
65 & 1.09 & 1.40735376844290 & -0.317353768442903 \tabularnewline
66 & 0.63 & 1.17519278102677 & -0.545192781026773 \tabularnewline
67 & 0.89 & 1.01816851655071 & -0.128168516550711 \tabularnewline
68 & 0.63 & 0.748879044002418 & -0.118879044002418 \tabularnewline
69 & 1.51 & 0.775262857326527 & 0.734737142673473 \tabularnewline
70 & 0.97 & 0.846983252152128 & 0.123016747847872 \tabularnewline
71 & 0.84 & 1.00075990393264 & -0.160759903932638 \tabularnewline
72 & 0.92 & 1.18793749048538 & -0.267937490485378 \tabularnewline
73 & 0.95 & 1.15568707680261 & -0.205687076802607 \tabularnewline
74 & 0.73 & 0.923682473266993 & -0.193682473266993 \tabularnewline
75 & 1.02 & 0.978747654737433 & 0.0412523452625672 \tabularnewline
76 & 0.79 & 0.856631565189815 & -0.0666315651898147 \tabularnewline
77 & 1.27 & 1.14647388383010 & 0.123526116169896 \tabularnewline
78 & 0.95 & 0.946345806308966 & 0.00365419369103404 \tabularnewline
79 & 0.75 & 0.937151602454259 & -0.187151602454259 \tabularnewline
80 & 0.52 & 0.659986074116214 & -0.139986074116214 \tabularnewline
81 & 0.95 & 0.813217684012273 & 0.136782315987727 \tabularnewline
82 & 0.82 & 0.698610555666976 & 0.121389444333023 \tabularnewline
83 & 0.76 & 0.807732831927355 & -0.0477328319273547 \tabularnewline
84 & 1.24 & 0.994986924607375 & 0.245013075392625 \tabularnewline
85 & 0.94 & 1.05080424285307 & -0.110804242853069 \tabularnewline
86 & 1.04 & 0.83510680764229 & 0.204893192357709 \tabularnewline
87 & 1.81 & 0.987705617918293 & 0.822294382081707 \tabularnewline
88 & 0.95 & 0.970570028161343 & -0.020570028161343 \tabularnewline
89 & 1.39 & 1.29807458545431 & 0.0919254145456918 \tabularnewline
90 & 0.86 & 1.0762936490887 & -0.216293649088699 \tabularnewline
91 & 1.15 & 1.00538843841614 & 0.144611561583860 \tabularnewline
92 & 1.51 & 0.788041028617531 & 0.721958971382469 \tabularnewline
93 & 0.6 & 1.11874830605443 & -0.518748306054429 \tabularnewline
94 & 0.72 & 0.903035266158807 & -0.183035266158807 \tabularnewline
95 & 1.1 & 0.941096541392478 & 0.158903458607522 \tabularnewline
96 & 1.62 & 1.20659716347372 & 0.413402836526276 \tabularnewline
97 & 1.84 & 1.23597281122229 & 0.604027188777706 \tabularnewline
98 & 1.73 & 1.18127383201011 & 0.548726167989891 \tabularnewline
99 & 1.36 & 1.48442039791460 & -0.124420397914597 \tabularnewline
100 & 1.07 & 1.19533792884992 & -0.125337928849916 \tabularnewline
101 & 1 & 1.52596794750683 & -0.525967947506834 \tabularnewline
102 & 1.49 & 1.16341904681991 & 0.326580953180089 \tabularnewline
103 & 0.9 & 1.23295032852915 & -0.332950328529151 \tabularnewline
104 & 1.43 & 1.03170983801076 & 0.398290161989240 \tabularnewline
105 & 1.54 & 1.12409723694927 & 0.415902763050731 \tabularnewline
106 & 0.81 & 1.10533013461671 & -0.29533013461671 \tabularnewline
107 & 1.61 & 1.18032578806579 & 0.429674211934212 \tabularnewline
108 & 1.3 & 1.52861144507659 & -0.228611445076588 \tabularnewline
109 & 1.4 & 1.48995026025923 & -0.0899502602592306 \tabularnewline
110 & 1.03 & 1.32074483120732 & -0.290744831207323 \tabularnewline
111 & 0.79 & 1.39155855329633 & -0.60155855329633 \tabularnewline
112 & 1.11 & 1.0278097808923 & 0.0821902191077004 \tabularnewline
113 & 1.15 & 1.32817878041062 & -0.178178780410619 \tabularnewline
114 & 1.03 & 1.14874986181696 & -0.118749861816962 \tabularnewline
115 & 1.59 & 1.04807358420476 & 0.541926415795239 \tabularnewline
116 & 1.11 & 1.09296710034830 & 0.0170328996516975 \tabularnewline
117 & 1.33 & 1.12905720566231 & 0.200942794337688 \tabularnewline
118 & 0.93 & 0.967947247546804 & -0.0379472475468036 \tabularnewline
119 & 1.07 & 1.19282155448416 & -0.122821554484157 \tabularnewline
120 & 1.14 & 1.35460716613285 & -0.214607166132855 \tabularnewline
121 & 1.12 & 1.33817858879710 & -0.218178588797097 \tabularnewline
122 & 0.86 & 1.11734907941166 & -0.257349079411659 \tabularnewline
123 & 0.82 & 1.14460847424558 & -0.324608474245583 \tabularnewline
124 & 1.02 & 0.926964462171016 & 0.0930355378289837 \tabularnewline
125 & 1.07 & 1.18840579173005 & -0.118405791730054 \tabularnewline
126 & 1.31 & 1.02648024975253 & 0.283519750247474 \tabularnewline
127 & 0.98 & 1.08827067174577 & -0.108270671745768 \tabularnewline
128 & 0.89 & 0.952052392565045 & -0.0620523925650451 \tabularnewline
129 & 0.8 & 1.00288638739959 & -0.202886387399587 \tabularnewline
130 & 0.8 & 0.741531866754733 & 0.0584681332452672 \tabularnewline
131 & 0.78 & 0.966648281378973 & -0.186648281378973 \tabularnewline
132 & 0.97 & 1.10292150023691 & -0.132921500236906 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=42378&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]0.96[/C][C]0.978002136752137[/C][C]-0.0180021367521371[/C][/ROW]
[ROW][C]14[/C][C]0.83[/C][C]0.855399266204118[/C][C]-0.0253992662041179[/C][/ROW]
[ROW][C]15[/C][C]0.87[/C][C]0.885792692827306[/C][C]-0.0157926928273064[/C][/ROW]
[ROW][C]16[/C][C]0.79[/C][C]0.808473780183224[/C][C]-0.0184737801832237[/C][/ROW]
[ROW][C]17[/C][C]1.12[/C][C]1.13655153329496[/C][C]-0.0165515332949606[/C][/ROW]
[ROW][C]18[/C][C]0.88[/C][C]0.89156894486688[/C][C]-0.0115689448668803[/C][/ROW]
[ROW][C]19[/C][C]0.64[/C][C]0.971086120388833[/C][C]-0.331086120388833[/C][/ROW]
[ROW][C]20[/C][C]0.64[/C][C]0.538163306031463[/C][C]0.101836693968537[/C][/ROW]
[ROW][C]21[/C][C]0.58[/C][C]0.48770789034878[/C][C]0.0922921096512194[/C][/ROW]
[ROW][C]22[/C][C]0.5[/C][C]0.66424391268317[/C][C]-0.164243912683169[/C][/ROW]
[ROW][C]23[/C][C]0.99[/C][C]0.758238312382045[/C][C]0.231761687617955[/C][/ROW]
[ROW][C]24[/C][C]1.07[/C][C]1.15378773039326[/C][C]-0.0837877303932648[/C][/ROW]
[ROW][C]25[/C][C]0.89[/C][C]0.854673568162874[/C][C]0.0353264318371262[/C][/ROW]
[ROW][C]26[/C][C]0.89[/C][C]0.73885568916299[/C][C]0.151144310837010[/C][/ROW]
[ROW][C]27[/C][C]0.83[/C][C]0.797794044863255[/C][C]0.0322059551367447[/C][/ROW]
[ROW][C]28[/C][C]0.86[/C][C]0.727463682910733[/C][C]0.132536317089267[/C][/ROW]
[ROW][C]29[/C][C]0.9[/C][C]1.07925868164790[/C][C]-0.179258681647904[/C][/ROW]
[ROW][C]30[/C][C]1.12[/C][C]0.810054732829124[/C][C]0.309945267170876[/C][/ROW]
[ROW][C]31[/C][C]0.88[/C][C]0.890606268236178[/C][C]-0.0106062682361777[/C][/ROW]
[ROW][C]32[/C][C]0.88[/C][C]0.573892801155152[/C][C]0.306107198844848[/C][/ROW]
[ROW][C]33[/C][C]0.89[/C][C]0.554503934468388[/C][C]0.335496065531612[/C][/ROW]
[ROW][C]34[/C][C]0.82[/C][C]0.73069657974282[/C][C]0.0893034202571799[/C][/ROW]
[ROW][C]35[/C][C]0.88[/C][C]0.925925007719033[/C][C]-0.0459250077190331[/C][/ROW]
[ROW][C]36[/C][C]0.81[/C][C]1.23207787030021[/C][C]-0.422077870300208[/C][/ROW]
[ROW][C]37[/C][C]0.88[/C][C]0.900179468848156[/C][C]-0.0201794688481559[/C][/ROW]
[ROW][C]38[/C][C]0.76[/C][C]0.794435057706646[/C][C]-0.0344350577066463[/C][/ROW]
[ROW][C]39[/C][C]1.13[/C][C]0.807369023675621[/C][C]0.322630976324378[/C][/ROW]
[ROW][C]40[/C][C]0.85[/C][C]0.798023212830682[/C][C]0.0519767871693178[/C][/ROW]
[ROW][C]41[/C][C]1.45[/C][C]1.09077668970331[/C][C]0.359223310296690[/C][/ROW]
[ROW][C]42[/C][C]1.55[/C][C]0.98065859382777[/C][C]0.569341406172231[/C][/ROW]
[ROW][C]43[/C][C]0.71[/C][C]1.05412205611671[/C][C]-0.344122056116706[/C][/ROW]
[ROW][C]44[/C][C]0.81[/C][C]0.73611514255196[/C][C]0.0738848574480397[/C][/ROW]
[ROW][C]45[/C][C]0.83[/C][C]0.686802701135157[/C][C]0.143197298864843[/C][/ROW]
[ROW][C]46[/C][C]0.73[/C][C]0.796862170407452[/C][C]-0.0668621704074522[/C][/ROW]
[ROW][C]47[/C][C]0.9[/C][C]0.948242403690176[/C][C]-0.0482424036901755[/C][/ROW]
[ROW][C]48[/C][C]0.94[/C][C]1.19738426983259[/C][C]-0.257384269832594[/C][/ROW]
[ROW][C]49[/C][C]1.78[/C][C]0.95316312099194[/C][C]0.82683687900806[/C][/ROW]
[ROW][C]50[/C][C]0.88[/C][C]0.977490814745658[/C][C]-0.0974908147456585[/C][/ROW]
[ROW][C]51[/C][C]1.04[/C][C]1.03732807625044[/C][C]0.00267192374955916[/C][/ROW]
[ROW][C]52[/C][C]0.83[/C][C]0.939137538199761[/C][C]-0.109137538199761[/C][/ROW]
[ROW][C]53[/C][C]1.41[/C][C]1.25547754334222[/C][C]0.154522456657784[/C][/ROW]
[ROW][C]54[/C][C]0.96[/C][C]1.14714352308623[/C][C]-0.187143523086233[/C][/ROW]
[ROW][C]55[/C][C]1.3[/C][C]0.965040607328539[/C][C]0.334959392671461[/C][/ROW]
[ROW][C]56[/C][C]0.83[/C][C]0.81620890739413[/C][C]0.0137910926058705[/C][/ROW]
[ROW][C]57[/C][C]1.4[/C][C]0.769205276730065[/C][C]0.630794723269935[/C][/ROW]
[ROW][C]58[/C][C]0.91[/C][C]0.92369301630739[/C][C]-0.0136930163073893[/C][/ROW]
[ROW][C]59[/C][C]0.87[/C][C]1.08776562301761[/C][C]-0.217765623017610[/C][/ROW]
[ROW][C]60[/C][C]0.97[/C][C]1.28038543731481[/C][C]-0.310385437314809[/C][/ROW]
[ROW][C]61[/C][C]1.19[/C][C]1.19497415063005[/C][C]-0.00497415063004802[/C][/ROW]
[ROW][C]62[/C][C]1.23[/C][C]0.950648127184446[/C][C]0.279351872815554[/C][/ROW]
[ROW][C]63[/C][C]1.33[/C][C]1.08443488671062[/C][C]0.245565113289383[/C][/ROW]
[ROW][C]64[/C][C]1.17[/C][C]1.00757630890499[/C][C]0.162423691095011[/C][/ROW]
[ROW][C]65[/C][C]1.09[/C][C]1.40735376844290[/C][C]-0.317353768442903[/C][/ROW]
[ROW][C]66[/C][C]0.63[/C][C]1.17519278102677[/C][C]-0.545192781026773[/C][/ROW]
[ROW][C]67[/C][C]0.89[/C][C]1.01816851655071[/C][C]-0.128168516550711[/C][/ROW]
[ROW][C]68[/C][C]0.63[/C][C]0.748879044002418[/C][C]-0.118879044002418[/C][/ROW]
[ROW][C]69[/C][C]1.51[/C][C]0.775262857326527[/C][C]0.734737142673473[/C][/ROW]
[ROW][C]70[/C][C]0.97[/C][C]0.846983252152128[/C][C]0.123016747847872[/C][/ROW]
[ROW][C]71[/C][C]0.84[/C][C]1.00075990393264[/C][C]-0.160759903932638[/C][/ROW]
[ROW][C]72[/C][C]0.92[/C][C]1.18793749048538[/C][C]-0.267937490485378[/C][/ROW]
[ROW][C]73[/C][C]0.95[/C][C]1.15568707680261[/C][C]-0.205687076802607[/C][/ROW]
[ROW][C]74[/C][C]0.73[/C][C]0.923682473266993[/C][C]-0.193682473266993[/C][/ROW]
[ROW][C]75[/C][C]1.02[/C][C]0.978747654737433[/C][C]0.0412523452625672[/C][/ROW]
[ROW][C]76[/C][C]0.79[/C][C]0.856631565189815[/C][C]-0.0666315651898147[/C][/ROW]
[ROW][C]77[/C][C]1.27[/C][C]1.14647388383010[/C][C]0.123526116169896[/C][/ROW]
[ROW][C]78[/C][C]0.95[/C][C]0.946345806308966[/C][C]0.00365419369103404[/C][/ROW]
[ROW][C]79[/C][C]0.75[/C][C]0.937151602454259[/C][C]-0.187151602454259[/C][/ROW]
[ROW][C]80[/C][C]0.52[/C][C]0.659986074116214[/C][C]-0.139986074116214[/C][/ROW]
[ROW][C]81[/C][C]0.95[/C][C]0.813217684012273[/C][C]0.136782315987727[/C][/ROW]
[ROW][C]82[/C][C]0.82[/C][C]0.698610555666976[/C][C]0.121389444333023[/C][/ROW]
[ROW][C]83[/C][C]0.76[/C][C]0.807732831927355[/C][C]-0.0477328319273547[/C][/ROW]
[ROW][C]84[/C][C]1.24[/C][C]0.994986924607375[/C][C]0.245013075392625[/C][/ROW]
[ROW][C]85[/C][C]0.94[/C][C]1.05080424285307[/C][C]-0.110804242853069[/C][/ROW]
[ROW][C]86[/C][C]1.04[/C][C]0.83510680764229[/C][C]0.204893192357709[/C][/ROW]
[ROW][C]87[/C][C]1.81[/C][C]0.987705617918293[/C][C]0.822294382081707[/C][/ROW]
[ROW][C]88[/C][C]0.95[/C][C]0.970570028161343[/C][C]-0.020570028161343[/C][/ROW]
[ROW][C]89[/C][C]1.39[/C][C]1.29807458545431[/C][C]0.0919254145456918[/C][/ROW]
[ROW][C]90[/C][C]0.86[/C][C]1.0762936490887[/C][C]-0.216293649088699[/C][/ROW]
[ROW][C]91[/C][C]1.15[/C][C]1.00538843841614[/C][C]0.144611561583860[/C][/ROW]
[ROW][C]92[/C][C]1.51[/C][C]0.788041028617531[/C][C]0.721958971382469[/C][/ROW]
[ROW][C]93[/C][C]0.6[/C][C]1.11874830605443[/C][C]-0.518748306054429[/C][/ROW]
[ROW][C]94[/C][C]0.72[/C][C]0.903035266158807[/C][C]-0.183035266158807[/C][/ROW]
[ROW][C]95[/C][C]1.1[/C][C]0.941096541392478[/C][C]0.158903458607522[/C][/ROW]
[ROW][C]96[/C][C]1.62[/C][C]1.20659716347372[/C][C]0.413402836526276[/C][/ROW]
[ROW][C]97[/C][C]1.84[/C][C]1.23597281122229[/C][C]0.604027188777706[/C][/ROW]
[ROW][C]98[/C][C]1.73[/C][C]1.18127383201011[/C][C]0.548726167989891[/C][/ROW]
[ROW][C]99[/C][C]1.36[/C][C]1.48442039791460[/C][C]-0.124420397914597[/C][/ROW]
[ROW][C]100[/C][C]1.07[/C][C]1.19533792884992[/C][C]-0.125337928849916[/C][/ROW]
[ROW][C]101[/C][C]1[/C][C]1.52596794750683[/C][C]-0.525967947506834[/C][/ROW]
[ROW][C]102[/C][C]1.49[/C][C]1.16341904681991[/C][C]0.326580953180089[/C][/ROW]
[ROW][C]103[/C][C]0.9[/C][C]1.23295032852915[/C][C]-0.332950328529151[/C][/ROW]
[ROW][C]104[/C][C]1.43[/C][C]1.03170983801076[/C][C]0.398290161989240[/C][/ROW]
[ROW][C]105[/C][C]1.54[/C][C]1.12409723694927[/C][C]0.415902763050731[/C][/ROW]
[ROW][C]106[/C][C]0.81[/C][C]1.10533013461671[/C][C]-0.29533013461671[/C][/ROW]
[ROW][C]107[/C][C]1.61[/C][C]1.18032578806579[/C][C]0.429674211934212[/C][/ROW]
[ROW][C]108[/C][C]1.3[/C][C]1.52861144507659[/C][C]-0.228611445076588[/C][/ROW]
[ROW][C]109[/C][C]1.4[/C][C]1.48995026025923[/C][C]-0.0899502602592306[/C][/ROW]
[ROW][C]110[/C][C]1.03[/C][C]1.32074483120732[/C][C]-0.290744831207323[/C][/ROW]
[ROW][C]111[/C][C]0.79[/C][C]1.39155855329633[/C][C]-0.60155855329633[/C][/ROW]
[ROW][C]112[/C][C]1.11[/C][C]1.0278097808923[/C][C]0.0821902191077004[/C][/ROW]
[ROW][C]113[/C][C]1.15[/C][C]1.32817878041062[/C][C]-0.178178780410619[/C][/ROW]
[ROW][C]114[/C][C]1.03[/C][C]1.14874986181696[/C][C]-0.118749861816962[/C][/ROW]
[ROW][C]115[/C][C]1.59[/C][C]1.04807358420476[/C][C]0.541926415795239[/C][/ROW]
[ROW][C]116[/C][C]1.11[/C][C]1.09296710034830[/C][C]0.0170328996516975[/C][/ROW]
[ROW][C]117[/C][C]1.33[/C][C]1.12905720566231[/C][C]0.200942794337688[/C][/ROW]
[ROW][C]118[/C][C]0.93[/C][C]0.967947247546804[/C][C]-0.0379472475468036[/C][/ROW]
[ROW][C]119[/C][C]1.07[/C][C]1.19282155448416[/C][C]-0.122821554484157[/C][/ROW]
[ROW][C]120[/C][C]1.14[/C][C]1.35460716613285[/C][C]-0.214607166132855[/C][/ROW]
[ROW][C]121[/C][C]1.12[/C][C]1.33817858879710[/C][C]-0.218178588797097[/C][/ROW]
[ROW][C]122[/C][C]0.86[/C][C]1.11734907941166[/C][C]-0.257349079411659[/C][/ROW]
[ROW][C]123[/C][C]0.82[/C][C]1.14460847424558[/C][C]-0.324608474245583[/C][/ROW]
[ROW][C]124[/C][C]1.02[/C][C]0.926964462171016[/C][C]0.0930355378289837[/C][/ROW]
[ROW][C]125[/C][C]1.07[/C][C]1.18840579173005[/C][C]-0.118405791730054[/C][/ROW]
[ROW][C]126[/C][C]1.31[/C][C]1.02648024975253[/C][C]0.283519750247474[/C][/ROW]
[ROW][C]127[/C][C]0.98[/C][C]1.08827067174577[/C][C]-0.108270671745768[/C][/ROW]
[ROW][C]128[/C][C]0.89[/C][C]0.952052392565045[/C][C]-0.0620523925650451[/C][/ROW]
[ROW][C]129[/C][C]0.8[/C][C]1.00288638739959[/C][C]-0.202886387399587[/C][/ROW]
[ROW][C]130[/C][C]0.8[/C][C]0.741531866754733[/C][C]0.0584681332452672[/C][/ROW]
[ROW][C]131[/C][C]0.78[/C][C]0.966648281378973[/C][C]-0.186648281378973[/C][/ROW]
[ROW][C]132[/C][C]0.97[/C][C]1.10292150023691[/C][C]-0.132921500236906[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=42378&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=42378&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
130.960.978002136752137-0.0180021367521371
140.830.855399266204118-0.0253992662041179
150.870.885792692827306-0.0157926928273064
160.790.808473780183224-0.0184737801832237
171.121.13655153329496-0.0165515332949606
180.880.89156894486688-0.0115689448668803
190.640.971086120388833-0.331086120388833
200.640.5381633060314630.101836693968537
210.580.487707890348780.0922921096512194
220.50.66424391268317-0.164243912683169
230.990.7582383123820450.231761687617955
241.071.15378773039326-0.0837877303932648
250.890.8546735681628740.0353264318371262
260.890.738855689162990.151144310837010
270.830.7977940448632550.0322059551367447
280.860.7274636829107330.132536317089267
290.91.07925868164790-0.179258681647904
301.120.8100547328291240.309945267170876
310.880.890606268236178-0.0106062682361777
320.880.5738928011551520.306107198844848
330.890.5545039344683880.335496065531612
340.820.730696579742820.0893034202571799
350.880.925925007719033-0.0459250077190331
360.811.23207787030021-0.422077870300208
370.880.900179468848156-0.0201794688481559
380.760.794435057706646-0.0344350577066463
391.130.8073690236756210.322630976324378
400.850.7980232128306820.0519767871693178
411.451.090776689703310.359223310296690
421.550.980658593827770.569341406172231
430.711.05412205611671-0.344122056116706
440.810.736115142551960.0738848574480397
450.830.6868027011351570.143197298864843
460.730.796862170407452-0.0668621704074522
470.90.948242403690176-0.0482424036901755
480.941.19738426983259-0.257384269832594
491.780.953163120991940.82683687900806
500.880.977490814745658-0.0974908147456585
511.041.037328076250440.00267192374955916
520.830.939137538199761-0.109137538199761
531.411.255477543342220.154522456657784
540.961.14714352308623-0.187143523086233
551.30.9650406073285390.334959392671461
560.830.816208907394130.0137910926058705
571.40.7692052767300650.630794723269935
580.910.92369301630739-0.0136930163073893
590.871.08776562301761-0.217765623017610
600.971.28038543731481-0.310385437314809
611.191.19497415063005-0.00497415063004802
621.230.9506481271844460.279351872815554
631.331.084434886710620.245565113289383
641.171.007576308904990.162423691095011
651.091.40735376844290-0.317353768442903
660.631.17519278102677-0.545192781026773
670.891.01816851655071-0.128168516550711
680.630.748879044002418-0.118879044002418
691.510.7752628573265270.734737142673473
700.970.8469832521521280.123016747847872
710.841.00075990393264-0.160759903932638
720.921.18793749048538-0.267937490485378
730.951.15568707680261-0.205687076802607
740.730.923682473266993-0.193682473266993
751.020.9787476547374330.0412523452625672
760.790.856631565189815-0.0666315651898147
771.271.146473883830100.123526116169896
780.950.9463458063089660.00365419369103404
790.750.937151602454259-0.187151602454259
800.520.659986074116214-0.139986074116214
810.950.8132176840122730.136782315987727
820.820.6986105556669760.121389444333023
830.760.807732831927355-0.0477328319273547
841.240.9949869246073750.245013075392625
850.941.05080424285307-0.110804242853069
861.040.835106807642290.204893192357709
871.810.9877056179182930.822294382081707
880.950.970570028161343-0.020570028161343
891.391.298074585454310.0919254145456918
900.861.0762936490887-0.216293649088699
911.151.005388438416140.144611561583860
921.510.7880410286175310.721958971382469
930.61.11874830605443-0.518748306054429
940.720.903035266158807-0.183035266158807
951.10.9410965413924780.158903458607522
961.621.206597163473720.413402836526276
971.841.235972811222290.604027188777706
981.731.181273832010110.548726167989891
991.361.48442039791460-0.124420397914597
1001.071.19533792884992-0.125337928849916
10111.52596794750683-0.525967947506834
1021.491.163419046819910.326580953180089
1030.91.23295032852915-0.332950328529151
1041.431.031709838010760.398290161989240
1051.541.124097236949270.415902763050731
1060.811.10533013461671-0.29533013461671
1071.611.180325788065790.429674211934212
1081.31.52861144507659-0.228611445076588
1091.41.48995026025923-0.0899502602592306
1101.031.32074483120732-0.290744831207323
1110.791.39155855329633-0.60155855329633
1121.111.02780978089230.0821902191077004
1131.151.32817878041062-0.178178780410619
1141.031.14874986181696-0.118749861816962
1151.591.048073584204760.541926415795239
1161.111.092967100348300.0170328996516975
1171.331.129057205662310.200942794337688
1180.930.967947247546804-0.0379472475468036
1191.071.19282155448416-0.122821554484157
1201.141.35460716613285-0.214607166132855
1211.121.33817858879710-0.218178588797097
1220.861.11734907941166-0.257349079411659
1230.821.14460847424558-0.324608474245583
1241.020.9269644621710160.0930355378289837
1251.071.18840579173005-0.118405791730054
1261.311.026480249752530.283519750247474
1270.981.08827067174577-0.108270671745768
1280.890.952052392565045-0.0620523925650451
1290.81.00288638739959-0.202886387399587
1300.80.7415318667547330.0584681332452672
1310.780.966648281378973-0.186648281378973
1320.971.10292150023691-0.132921500236906







Extrapolation Forecasts of Exponential Smoothing
tForecast95% Lower Bound95% Upper Bound
1331.096912074172370.5451541880014521.64866996034329
1340.9023243509828980.3439824135429591.46066628842284
1350.9578989604969190.3929368929908351.522861028003
1360.853385976057660.281767989398631.42500396271669
1371.067617294847220.4893078830018511.64592670669259
1380.9847837998019660.3997477333395521.56981986626438
1390.9423431198971040.350545439738261.53414080005595
1400.8291054413102410.2305114526682831.4276994299522
1410.8673402077321560.261915474240751.47276494122356
1420.6767084748096030.06441881283042751.28899813678878
1430.854983311486860.2357947845912021.47417183838252
1441.027951395933410.4018303095517951.65407248231502

\begin{tabular}{lllllllll}
\hline
Extrapolation Forecasts of Exponential Smoothing \tabularnewline
t & Forecast & 95% Lower Bound & 95% Upper Bound \tabularnewline
133 & 1.09691207417237 & 0.545154188001452 & 1.64866996034329 \tabularnewline
134 & 0.902324350982898 & 0.343982413542959 & 1.46066628842284 \tabularnewline
135 & 0.957898960496919 & 0.392936892990835 & 1.522861028003 \tabularnewline
136 & 0.85338597605766 & 0.28176798939863 & 1.42500396271669 \tabularnewline
137 & 1.06761729484722 & 0.489307883001851 & 1.64592670669259 \tabularnewline
138 & 0.984783799801966 & 0.399747733339552 & 1.56981986626438 \tabularnewline
139 & 0.942343119897104 & 0.35054543973826 & 1.53414080005595 \tabularnewline
140 & 0.829105441310241 & 0.230511452668283 & 1.4276994299522 \tabularnewline
141 & 0.867340207732156 & 0.26191547424075 & 1.47276494122356 \tabularnewline
142 & 0.676708474809603 & 0.0644188128304275 & 1.28899813678878 \tabularnewline
143 & 0.85498331148686 & 0.235794784591202 & 1.47417183838252 \tabularnewline
144 & 1.02795139593341 & 0.401830309551795 & 1.65407248231502 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=42378&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]133[/C][C]1.09691207417237[/C][C]0.545154188001452[/C][C]1.64866996034329[/C][/ROW]
[ROW][C]134[/C][C]0.902324350982898[/C][C]0.343982413542959[/C][C]1.46066628842284[/C][/ROW]
[ROW][C]135[/C][C]0.957898960496919[/C][C]0.392936892990835[/C][C]1.522861028003[/C][/ROW]
[ROW][C]136[/C][C]0.85338597605766[/C][C]0.28176798939863[/C][C]1.42500396271669[/C][/ROW]
[ROW][C]137[/C][C]1.06761729484722[/C][C]0.489307883001851[/C][C]1.64592670669259[/C][/ROW]
[ROW][C]138[/C][C]0.984783799801966[/C][C]0.399747733339552[/C][C]1.56981986626438[/C][/ROW]
[ROW][C]139[/C][C]0.942343119897104[/C][C]0.35054543973826[/C][C]1.53414080005595[/C][/ROW]
[ROW][C]140[/C][C]0.829105441310241[/C][C]0.230511452668283[/C][C]1.4276994299522[/C][/ROW]
[ROW][C]141[/C][C]0.867340207732156[/C][C]0.26191547424075[/C][C]1.47276494122356[/C][/ROW]
[ROW][C]142[/C][C]0.676708474809603[/C][C]0.0644188128304275[/C][C]1.28899813678878[/C][/ROW]
[ROW][C]143[/C][C]0.85498331148686[/C][C]0.235794784591202[/C][C]1.47417183838252[/C][/ROW]
[ROW][C]144[/C][C]1.02795139593341[/C][C]0.401830309551795[/C][C]1.65407248231502[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=42378&T=3

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=42378&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
1331.096912074172370.5451541880014521.64866996034329
1340.9023243509828980.3439824135429591.46066628842284
1350.9578989604969190.3929368929908351.522861028003
1360.853385976057660.281767989398631.42500396271669
1371.067617294847220.4893078830018511.64592670669259
1380.9847837998019660.3997477333395521.56981986626438
1390.9423431198971040.350545439738261.53414080005595
1400.8291054413102410.2305114526682831.4276994299522
1410.8673402077321560.261915474240751.47276494122356
1420.6767084748096030.06441881283042751.28899813678878
1430.854983311486860.2357947845912021.47417183838252
1441.027951395933410.4018303095517951.65407248231502



Parameters (Session):
par1 = 12 ; par2 = Triple ; par3 = additive ;
Parameters (R input):
par1 = 12 ; par2 = Triple ; par3 = additive ;
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=0, beta=0)
if (par2 == 'Double') fit <- HoltWinters(x, gamma=0)
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')