Free Statistics

of Irreproducible Research!

Author's title

Author*Unverified author*
R Software Modulerwasp_exponentialsmoothing.wasp
Title produced by softwareExponential Smoothing
Date of computationTue, 26 Jan 2010 18:09:50 -0700
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2010/Jan/27/t12645546453a4mhkn8rajo50i.htm/, Retrieved Sun, 05 May 2024 22:22:38 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=72686, Retrieved Sun, 05 May 2024 22:22:38 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywordsKDGP2W62
Estimated Impact201
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Exponential Smoothing] [] [2010-01-27 01:09:50] [93f7fd88d04bfc03ecae616214d88989] [Current]
Feedback Forum

Post a new message
Dataseries X:
2,46
2,46
2,45
2,45
2,46
2,43
2,44
2,44
2,43
2,43
2,42
2,43
2,43
2,42
2,41
2,42
2,39
2,4
2,39
2,4
2,41
2,41
2,41
2,41
2,42
2,43
2,43
2,43
2,44
2,42
2,44
2,42
2,42
2,42
2,43
2,44
2,43
2,44
2,44
2,45
2,45
2,43
2,44
2,45
2,46
2,44
2,43
2,42
2,41
2,43
2,41
2,43
2,43
2,44
2,43
2,44
2,43
2,44
2,44
2,43
2,43
2,43
2,43
2,44
2,47
2,48
2,49
2,5
2,51
2,49
2,49
2,48
2,48
2,48
2,5
2,5
2,5
2,5
2,5
2,48
2,49
2,48
2,5
2,5
2,49
2,48
2,47
2,46
2,43
2,42
2,43
2,45
2,45
2,46
2,44
2,45
2,45
2,42
2,41
2,39
2,39
2,38
2,37
2,37
2,38
2,39
2,41
2,42
2,48
2,53
2,56
2,56
2,53
2,57
2,56
2,57
2,58
2,57
2,6
2,63
2,72
2,83
2,9
2,92
2,94
2,95
2,98
3,02
3,16
3,2
3,18
3,17




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=72686&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=72686&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=72686&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.900361087365125
beta0.157393226075154
gamma1

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=72686&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.900361087365125
beta0.157393226075154
gamma1







Interpolation Forecasts of Exponential Smoothing
tObservedFittedResiduals
132.432.45106837606838-0.0210683760683770
142.422.419815829452030.000184170547967710
152.412.406474347760390.00352565223960877
162.422.415807695599080.00419230440092111
172.392.385918698978870.00408130102113136
182.42.396508123407180.00349187659282268
192.392.40456168941889-0.0145616894188882
202.42.388463646044670.0115363539553281
212.412.387914757259390.0220852427406060
222.412.409576726791990.000423273208014052
232.412.403045084239650.00695491576034746
242.412.42337986471044-0.0133798647104402
252.422.410577366231440.00942263376856367
262.432.414274115830340.0157258841696613
272.432.422839954403730.00716004559627015
282.432.44360825013825-0.0136082501382502
292.442.403254993978210.0367450060217869
302.422.45339734278777-0.0333973427877710
312.442.431413380042670.00858661995733367
322.422.44701284489899-0.0270128448989913
332.422.415599292541930.00440070745806898
342.422.419466786272140.000533213727855308
352.432.413986882103350.0160131178966529
362.442.44203677083343-0.00203677083342546
372.432.44491219797826-0.0149121979782634
382.442.427071383232130.0129286167678688
392.442.431613299633310.0083867003666911
402.452.4509386467256-0.000938646725600734
412.452.428327120527820.0216728794721806
422.432.45709169193994-0.0270916919399391
432.442.44504339288516-0.00504339288516498
442.452.44296737807560.00703262192440146
452.462.44830520509970.0116947949002988
462.442.46235646261533-0.0223564626153276
472.432.43856807665296-0.0085680766529559
482.422.43996221513687-0.0199622151368728
492.412.42014982038177-0.0101498203817703
502.432.40478021783520.0252197821647990
512.412.41708718398364-0.00708718398364105
522.432.416509579066540.0134904209334632
532.432.40614546437380.0238545356261985
542.442.429327681896570.0106723181034329
552.432.45614127886923-0.0261412788692317
562.442.435946774862290.00405322513770656
572.432.43831837567344-0.00831837567343552
582.442.427373414633570.0126265853664287
592.442.437829428795360.00217057120464359
602.432.4506518752853-0.0206518752853011
612.432.43399344837853-0.00399344837852489
622.432.43136063103556-0.00136063103555939
632.432.416419505226810.0135804947731857
642.442.439332344930770.000667655069228168
652.472.419470397073180.0505296029268201
662.482.470151105934110.00984889406589273
672.492.49723332970381-0.00723332970381296
682.52.50442888684123-0.004428886841227
692.512.504086356829780.00591364317021581
702.492.51621464035644-0.0262146403564376
712.492.49332583718102-0.00332583718102297
722.482.50081476438049-0.0208147643804906
732.482.48753565957262-0.00753565957262392
742.482.48334008836706-0.00334008836706134
752.52.469189127578970.0308108724210334
762.52.50985431087844-0.00985431087844457
772.52.487521312392870.0124786876071328
782.52.496531180750690.00346881924931042
792.52.51190495870566-0.0119049587056574
802.482.51024975401399-0.0302497540139908
812.492.479106503808140.0108934961918634
822.482.48463979002433-0.00463979002432513
832.52.478636709980430.0213632900195657
842.52.50529085526093-0.00529085526092743
852.492.50819056065946-0.0181905606594572
862.482.49418843034905-0.0141884303490531
872.472.47150413971845-0.00150413971844499
882.462.47227425528616-0.0122742552861648
892.432.44289668298617-0.0128966829861699
902.422.417474873429620.00252512657037984
912.432.419646481146740.0103535188532646
922.452.428537673744260.0214623262557447
932.452.447715179724980.00228482027501853
942.462.442391630234260.0176083697657399
952.442.46060545010448-0.0206054501044814
962.452.442463967732280.00753603226772137
972.452.45309208148258-0.00309208148258167
982.422.45268730938122-0.0326873093812163
992.412.41159421423757-0.00159421423756534
1002.392.40818036048418-0.0181803604841848
1012.392.369556437226260.0204435627737425
1022.382.376547465060490.00345253493950493
1032.372.38132347653303-0.0113234765330308
1042.372.36972194136280.000278058637201095
1052.382.362830618991790.0171693810082090
1062.392.369460160375130.0205398396248695
1072.412.383945988706020.0260540112939807
1082.422.414671213592330.00532878640766699
1092.482.425992602081240.0540073979187623
1102.532.485880318994390.0441196810056139
1112.562.539754882553910.0202451174460863
1122.562.58016210654684-0.0201621065468354
1132.532.56913192617182-0.0391319261718244
1142.572.537877632272080.0321223677279168
1152.562.58814450077408-0.0281445007740806
1162.572.58132013547017-0.0113201354701720
1172.582.58279189600329-0.00279189600329000
1182.572.58607879445085-0.0160787944508543
1192.62.577248687372020.0227513126279781
1202.632.611571855880400.0184281441195968
1212.722.650030603722910.0699693962770889
1222.832.736059591491730.0939404085082711
1232.92.852227005876150.0477729941238461
1242.922.93710916464554-0.0171091646455368
1252.942.95108627446372-0.0110862744637235
1262.952.98030593665009-0.0303059366500880
1272.982.98763614517666-0.00763614517666156
1283.023.02313560213474-0.00313560213474151
1293.163.056168514204260.103831485795738
1303.23.19258311413710.00741688586290401
1313.183.25055823275868-0.0705582327586756
1323.173.22899703712107-0.0589970371210691

\begin{tabular}{lllllllll}
\hline
Interpolation Forecasts of Exponential Smoothing \tabularnewline
t & Observed & Fitted & Residuals \tabularnewline
13 & 2.43 & 2.45106837606838 & -0.0210683760683770 \tabularnewline
14 & 2.42 & 2.41981582945203 & 0.000184170547967710 \tabularnewline
15 & 2.41 & 2.40647434776039 & 0.00352565223960877 \tabularnewline
16 & 2.42 & 2.41580769559908 & 0.00419230440092111 \tabularnewline
17 & 2.39 & 2.38591869897887 & 0.00408130102113136 \tabularnewline
18 & 2.4 & 2.39650812340718 & 0.00349187659282268 \tabularnewline
19 & 2.39 & 2.40456168941889 & -0.0145616894188882 \tabularnewline
20 & 2.4 & 2.38846364604467 & 0.0115363539553281 \tabularnewline
21 & 2.41 & 2.38791475725939 & 0.0220852427406060 \tabularnewline
22 & 2.41 & 2.40957672679199 & 0.000423273208014052 \tabularnewline
23 & 2.41 & 2.40304508423965 & 0.00695491576034746 \tabularnewline
24 & 2.41 & 2.42337986471044 & -0.0133798647104402 \tabularnewline
25 & 2.42 & 2.41057736623144 & 0.00942263376856367 \tabularnewline
26 & 2.43 & 2.41427411583034 & 0.0157258841696613 \tabularnewline
27 & 2.43 & 2.42283995440373 & 0.00716004559627015 \tabularnewline
28 & 2.43 & 2.44360825013825 & -0.0136082501382502 \tabularnewline
29 & 2.44 & 2.40325499397821 & 0.0367450060217869 \tabularnewline
30 & 2.42 & 2.45339734278777 & -0.0333973427877710 \tabularnewline
31 & 2.44 & 2.43141338004267 & 0.00858661995733367 \tabularnewline
32 & 2.42 & 2.44701284489899 & -0.0270128448989913 \tabularnewline
33 & 2.42 & 2.41559929254193 & 0.00440070745806898 \tabularnewline
34 & 2.42 & 2.41946678627214 & 0.000533213727855308 \tabularnewline
35 & 2.43 & 2.41398688210335 & 0.0160131178966529 \tabularnewline
36 & 2.44 & 2.44203677083343 & -0.00203677083342546 \tabularnewline
37 & 2.43 & 2.44491219797826 & -0.0149121979782634 \tabularnewline
38 & 2.44 & 2.42707138323213 & 0.0129286167678688 \tabularnewline
39 & 2.44 & 2.43161329963331 & 0.0083867003666911 \tabularnewline
40 & 2.45 & 2.4509386467256 & -0.000938646725600734 \tabularnewline
41 & 2.45 & 2.42832712052782 & 0.0216728794721806 \tabularnewline
42 & 2.43 & 2.45709169193994 & -0.0270916919399391 \tabularnewline
43 & 2.44 & 2.44504339288516 & -0.00504339288516498 \tabularnewline
44 & 2.45 & 2.4429673780756 & 0.00703262192440146 \tabularnewline
45 & 2.46 & 2.4483052050997 & 0.0116947949002988 \tabularnewline
46 & 2.44 & 2.46235646261533 & -0.0223564626153276 \tabularnewline
47 & 2.43 & 2.43856807665296 & -0.0085680766529559 \tabularnewline
48 & 2.42 & 2.43996221513687 & -0.0199622151368728 \tabularnewline
49 & 2.41 & 2.42014982038177 & -0.0101498203817703 \tabularnewline
50 & 2.43 & 2.4047802178352 & 0.0252197821647990 \tabularnewline
51 & 2.41 & 2.41708718398364 & -0.00708718398364105 \tabularnewline
52 & 2.43 & 2.41650957906654 & 0.0134904209334632 \tabularnewline
53 & 2.43 & 2.4061454643738 & 0.0238545356261985 \tabularnewline
54 & 2.44 & 2.42932768189657 & 0.0106723181034329 \tabularnewline
55 & 2.43 & 2.45614127886923 & -0.0261412788692317 \tabularnewline
56 & 2.44 & 2.43594677486229 & 0.00405322513770656 \tabularnewline
57 & 2.43 & 2.43831837567344 & -0.00831837567343552 \tabularnewline
58 & 2.44 & 2.42737341463357 & 0.0126265853664287 \tabularnewline
59 & 2.44 & 2.43782942879536 & 0.00217057120464359 \tabularnewline
60 & 2.43 & 2.4506518752853 & -0.0206518752853011 \tabularnewline
61 & 2.43 & 2.43399344837853 & -0.00399344837852489 \tabularnewline
62 & 2.43 & 2.43136063103556 & -0.00136063103555939 \tabularnewline
63 & 2.43 & 2.41641950522681 & 0.0135804947731857 \tabularnewline
64 & 2.44 & 2.43933234493077 & 0.000667655069228168 \tabularnewline
65 & 2.47 & 2.41947039707318 & 0.0505296029268201 \tabularnewline
66 & 2.48 & 2.47015110593411 & 0.00984889406589273 \tabularnewline
67 & 2.49 & 2.49723332970381 & -0.00723332970381296 \tabularnewline
68 & 2.5 & 2.50442888684123 & -0.004428886841227 \tabularnewline
69 & 2.51 & 2.50408635682978 & 0.00591364317021581 \tabularnewline
70 & 2.49 & 2.51621464035644 & -0.0262146403564376 \tabularnewline
71 & 2.49 & 2.49332583718102 & -0.00332583718102297 \tabularnewline
72 & 2.48 & 2.50081476438049 & -0.0208147643804906 \tabularnewline
73 & 2.48 & 2.48753565957262 & -0.00753565957262392 \tabularnewline
74 & 2.48 & 2.48334008836706 & -0.00334008836706134 \tabularnewline
75 & 2.5 & 2.46918912757897 & 0.0308108724210334 \tabularnewline
76 & 2.5 & 2.50985431087844 & -0.00985431087844457 \tabularnewline
77 & 2.5 & 2.48752131239287 & 0.0124786876071328 \tabularnewline
78 & 2.5 & 2.49653118075069 & 0.00346881924931042 \tabularnewline
79 & 2.5 & 2.51190495870566 & -0.0119049587056574 \tabularnewline
80 & 2.48 & 2.51024975401399 & -0.0302497540139908 \tabularnewline
81 & 2.49 & 2.47910650380814 & 0.0108934961918634 \tabularnewline
82 & 2.48 & 2.48463979002433 & -0.00463979002432513 \tabularnewline
83 & 2.5 & 2.47863670998043 & 0.0213632900195657 \tabularnewline
84 & 2.5 & 2.50529085526093 & -0.00529085526092743 \tabularnewline
85 & 2.49 & 2.50819056065946 & -0.0181905606594572 \tabularnewline
86 & 2.48 & 2.49418843034905 & -0.0141884303490531 \tabularnewline
87 & 2.47 & 2.47150413971845 & -0.00150413971844499 \tabularnewline
88 & 2.46 & 2.47227425528616 & -0.0122742552861648 \tabularnewline
89 & 2.43 & 2.44289668298617 & -0.0128966829861699 \tabularnewline
90 & 2.42 & 2.41747487342962 & 0.00252512657037984 \tabularnewline
91 & 2.43 & 2.41964648114674 & 0.0103535188532646 \tabularnewline
92 & 2.45 & 2.42853767374426 & 0.0214623262557447 \tabularnewline
93 & 2.45 & 2.44771517972498 & 0.00228482027501853 \tabularnewline
94 & 2.46 & 2.44239163023426 & 0.0176083697657399 \tabularnewline
95 & 2.44 & 2.46060545010448 & -0.0206054501044814 \tabularnewline
96 & 2.45 & 2.44246396773228 & 0.00753603226772137 \tabularnewline
97 & 2.45 & 2.45309208148258 & -0.00309208148258167 \tabularnewline
98 & 2.42 & 2.45268730938122 & -0.0326873093812163 \tabularnewline
99 & 2.41 & 2.41159421423757 & -0.00159421423756534 \tabularnewline
100 & 2.39 & 2.40818036048418 & -0.0181803604841848 \tabularnewline
101 & 2.39 & 2.36955643722626 & 0.0204435627737425 \tabularnewline
102 & 2.38 & 2.37654746506049 & 0.00345253493950493 \tabularnewline
103 & 2.37 & 2.38132347653303 & -0.0113234765330308 \tabularnewline
104 & 2.37 & 2.3697219413628 & 0.000278058637201095 \tabularnewline
105 & 2.38 & 2.36283061899179 & 0.0171693810082090 \tabularnewline
106 & 2.39 & 2.36946016037513 & 0.0205398396248695 \tabularnewline
107 & 2.41 & 2.38394598870602 & 0.0260540112939807 \tabularnewline
108 & 2.42 & 2.41467121359233 & 0.00532878640766699 \tabularnewline
109 & 2.48 & 2.42599260208124 & 0.0540073979187623 \tabularnewline
110 & 2.53 & 2.48588031899439 & 0.0441196810056139 \tabularnewline
111 & 2.56 & 2.53975488255391 & 0.0202451174460863 \tabularnewline
112 & 2.56 & 2.58016210654684 & -0.0201621065468354 \tabularnewline
113 & 2.53 & 2.56913192617182 & -0.0391319261718244 \tabularnewline
114 & 2.57 & 2.53787763227208 & 0.0321223677279168 \tabularnewline
115 & 2.56 & 2.58814450077408 & -0.0281445007740806 \tabularnewline
116 & 2.57 & 2.58132013547017 & -0.0113201354701720 \tabularnewline
117 & 2.58 & 2.58279189600329 & -0.00279189600329000 \tabularnewline
118 & 2.57 & 2.58607879445085 & -0.0160787944508543 \tabularnewline
119 & 2.6 & 2.57724868737202 & 0.0227513126279781 \tabularnewline
120 & 2.63 & 2.61157185588040 & 0.0184281441195968 \tabularnewline
121 & 2.72 & 2.65003060372291 & 0.0699693962770889 \tabularnewline
122 & 2.83 & 2.73605959149173 & 0.0939404085082711 \tabularnewline
123 & 2.9 & 2.85222700587615 & 0.0477729941238461 \tabularnewline
124 & 2.92 & 2.93710916464554 & -0.0171091646455368 \tabularnewline
125 & 2.94 & 2.95108627446372 & -0.0110862744637235 \tabularnewline
126 & 2.95 & 2.98030593665009 & -0.0303059366500880 \tabularnewline
127 & 2.98 & 2.98763614517666 & -0.00763614517666156 \tabularnewline
128 & 3.02 & 3.02313560213474 & -0.00313560213474151 \tabularnewline
129 & 3.16 & 3.05616851420426 & 0.103831485795738 \tabularnewline
130 & 3.2 & 3.1925831141371 & 0.00741688586290401 \tabularnewline
131 & 3.18 & 3.25055823275868 & -0.0705582327586756 \tabularnewline
132 & 3.17 & 3.22899703712107 & -0.0589970371210691 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=72686&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]2.43[/C][C]2.45106837606838[/C][C]-0.0210683760683770[/C][/ROW]
[ROW][C]14[/C][C]2.42[/C][C]2.41981582945203[/C][C]0.000184170547967710[/C][/ROW]
[ROW][C]15[/C][C]2.41[/C][C]2.40647434776039[/C][C]0.00352565223960877[/C][/ROW]
[ROW][C]16[/C][C]2.42[/C][C]2.41580769559908[/C][C]0.00419230440092111[/C][/ROW]
[ROW][C]17[/C][C]2.39[/C][C]2.38591869897887[/C][C]0.00408130102113136[/C][/ROW]
[ROW][C]18[/C][C]2.4[/C][C]2.39650812340718[/C][C]0.00349187659282268[/C][/ROW]
[ROW][C]19[/C][C]2.39[/C][C]2.40456168941889[/C][C]-0.0145616894188882[/C][/ROW]
[ROW][C]20[/C][C]2.4[/C][C]2.38846364604467[/C][C]0.0115363539553281[/C][/ROW]
[ROW][C]21[/C][C]2.41[/C][C]2.38791475725939[/C][C]0.0220852427406060[/C][/ROW]
[ROW][C]22[/C][C]2.41[/C][C]2.40957672679199[/C][C]0.000423273208014052[/C][/ROW]
[ROW][C]23[/C][C]2.41[/C][C]2.40304508423965[/C][C]0.00695491576034746[/C][/ROW]
[ROW][C]24[/C][C]2.41[/C][C]2.42337986471044[/C][C]-0.0133798647104402[/C][/ROW]
[ROW][C]25[/C][C]2.42[/C][C]2.41057736623144[/C][C]0.00942263376856367[/C][/ROW]
[ROW][C]26[/C][C]2.43[/C][C]2.41427411583034[/C][C]0.0157258841696613[/C][/ROW]
[ROW][C]27[/C][C]2.43[/C][C]2.42283995440373[/C][C]0.00716004559627015[/C][/ROW]
[ROW][C]28[/C][C]2.43[/C][C]2.44360825013825[/C][C]-0.0136082501382502[/C][/ROW]
[ROW][C]29[/C][C]2.44[/C][C]2.40325499397821[/C][C]0.0367450060217869[/C][/ROW]
[ROW][C]30[/C][C]2.42[/C][C]2.45339734278777[/C][C]-0.0333973427877710[/C][/ROW]
[ROW][C]31[/C][C]2.44[/C][C]2.43141338004267[/C][C]0.00858661995733367[/C][/ROW]
[ROW][C]32[/C][C]2.42[/C][C]2.44701284489899[/C][C]-0.0270128448989913[/C][/ROW]
[ROW][C]33[/C][C]2.42[/C][C]2.41559929254193[/C][C]0.00440070745806898[/C][/ROW]
[ROW][C]34[/C][C]2.42[/C][C]2.41946678627214[/C][C]0.000533213727855308[/C][/ROW]
[ROW][C]35[/C][C]2.43[/C][C]2.41398688210335[/C][C]0.0160131178966529[/C][/ROW]
[ROW][C]36[/C][C]2.44[/C][C]2.44203677083343[/C][C]-0.00203677083342546[/C][/ROW]
[ROW][C]37[/C][C]2.43[/C][C]2.44491219797826[/C][C]-0.0149121979782634[/C][/ROW]
[ROW][C]38[/C][C]2.44[/C][C]2.42707138323213[/C][C]0.0129286167678688[/C][/ROW]
[ROW][C]39[/C][C]2.44[/C][C]2.43161329963331[/C][C]0.0083867003666911[/C][/ROW]
[ROW][C]40[/C][C]2.45[/C][C]2.4509386467256[/C][C]-0.000938646725600734[/C][/ROW]
[ROW][C]41[/C][C]2.45[/C][C]2.42832712052782[/C][C]0.0216728794721806[/C][/ROW]
[ROW][C]42[/C][C]2.43[/C][C]2.45709169193994[/C][C]-0.0270916919399391[/C][/ROW]
[ROW][C]43[/C][C]2.44[/C][C]2.44504339288516[/C][C]-0.00504339288516498[/C][/ROW]
[ROW][C]44[/C][C]2.45[/C][C]2.4429673780756[/C][C]0.00703262192440146[/C][/ROW]
[ROW][C]45[/C][C]2.46[/C][C]2.4483052050997[/C][C]0.0116947949002988[/C][/ROW]
[ROW][C]46[/C][C]2.44[/C][C]2.46235646261533[/C][C]-0.0223564626153276[/C][/ROW]
[ROW][C]47[/C][C]2.43[/C][C]2.43856807665296[/C][C]-0.0085680766529559[/C][/ROW]
[ROW][C]48[/C][C]2.42[/C][C]2.43996221513687[/C][C]-0.0199622151368728[/C][/ROW]
[ROW][C]49[/C][C]2.41[/C][C]2.42014982038177[/C][C]-0.0101498203817703[/C][/ROW]
[ROW][C]50[/C][C]2.43[/C][C]2.4047802178352[/C][C]0.0252197821647990[/C][/ROW]
[ROW][C]51[/C][C]2.41[/C][C]2.41708718398364[/C][C]-0.00708718398364105[/C][/ROW]
[ROW][C]52[/C][C]2.43[/C][C]2.41650957906654[/C][C]0.0134904209334632[/C][/ROW]
[ROW][C]53[/C][C]2.43[/C][C]2.4061454643738[/C][C]0.0238545356261985[/C][/ROW]
[ROW][C]54[/C][C]2.44[/C][C]2.42932768189657[/C][C]0.0106723181034329[/C][/ROW]
[ROW][C]55[/C][C]2.43[/C][C]2.45614127886923[/C][C]-0.0261412788692317[/C][/ROW]
[ROW][C]56[/C][C]2.44[/C][C]2.43594677486229[/C][C]0.00405322513770656[/C][/ROW]
[ROW][C]57[/C][C]2.43[/C][C]2.43831837567344[/C][C]-0.00831837567343552[/C][/ROW]
[ROW][C]58[/C][C]2.44[/C][C]2.42737341463357[/C][C]0.0126265853664287[/C][/ROW]
[ROW][C]59[/C][C]2.44[/C][C]2.43782942879536[/C][C]0.00217057120464359[/C][/ROW]
[ROW][C]60[/C][C]2.43[/C][C]2.4506518752853[/C][C]-0.0206518752853011[/C][/ROW]
[ROW][C]61[/C][C]2.43[/C][C]2.43399344837853[/C][C]-0.00399344837852489[/C][/ROW]
[ROW][C]62[/C][C]2.43[/C][C]2.43136063103556[/C][C]-0.00136063103555939[/C][/ROW]
[ROW][C]63[/C][C]2.43[/C][C]2.41641950522681[/C][C]0.0135804947731857[/C][/ROW]
[ROW][C]64[/C][C]2.44[/C][C]2.43933234493077[/C][C]0.000667655069228168[/C][/ROW]
[ROW][C]65[/C][C]2.47[/C][C]2.41947039707318[/C][C]0.0505296029268201[/C][/ROW]
[ROW][C]66[/C][C]2.48[/C][C]2.47015110593411[/C][C]0.00984889406589273[/C][/ROW]
[ROW][C]67[/C][C]2.49[/C][C]2.49723332970381[/C][C]-0.00723332970381296[/C][/ROW]
[ROW][C]68[/C][C]2.5[/C][C]2.50442888684123[/C][C]-0.004428886841227[/C][/ROW]
[ROW][C]69[/C][C]2.51[/C][C]2.50408635682978[/C][C]0.00591364317021581[/C][/ROW]
[ROW][C]70[/C][C]2.49[/C][C]2.51621464035644[/C][C]-0.0262146403564376[/C][/ROW]
[ROW][C]71[/C][C]2.49[/C][C]2.49332583718102[/C][C]-0.00332583718102297[/C][/ROW]
[ROW][C]72[/C][C]2.48[/C][C]2.50081476438049[/C][C]-0.0208147643804906[/C][/ROW]
[ROW][C]73[/C][C]2.48[/C][C]2.48753565957262[/C][C]-0.00753565957262392[/C][/ROW]
[ROW][C]74[/C][C]2.48[/C][C]2.48334008836706[/C][C]-0.00334008836706134[/C][/ROW]
[ROW][C]75[/C][C]2.5[/C][C]2.46918912757897[/C][C]0.0308108724210334[/C][/ROW]
[ROW][C]76[/C][C]2.5[/C][C]2.50985431087844[/C][C]-0.00985431087844457[/C][/ROW]
[ROW][C]77[/C][C]2.5[/C][C]2.48752131239287[/C][C]0.0124786876071328[/C][/ROW]
[ROW][C]78[/C][C]2.5[/C][C]2.49653118075069[/C][C]0.00346881924931042[/C][/ROW]
[ROW][C]79[/C][C]2.5[/C][C]2.51190495870566[/C][C]-0.0119049587056574[/C][/ROW]
[ROW][C]80[/C][C]2.48[/C][C]2.51024975401399[/C][C]-0.0302497540139908[/C][/ROW]
[ROW][C]81[/C][C]2.49[/C][C]2.47910650380814[/C][C]0.0108934961918634[/C][/ROW]
[ROW][C]82[/C][C]2.48[/C][C]2.48463979002433[/C][C]-0.00463979002432513[/C][/ROW]
[ROW][C]83[/C][C]2.5[/C][C]2.47863670998043[/C][C]0.0213632900195657[/C][/ROW]
[ROW][C]84[/C][C]2.5[/C][C]2.50529085526093[/C][C]-0.00529085526092743[/C][/ROW]
[ROW][C]85[/C][C]2.49[/C][C]2.50819056065946[/C][C]-0.0181905606594572[/C][/ROW]
[ROW][C]86[/C][C]2.48[/C][C]2.49418843034905[/C][C]-0.0141884303490531[/C][/ROW]
[ROW][C]87[/C][C]2.47[/C][C]2.47150413971845[/C][C]-0.00150413971844499[/C][/ROW]
[ROW][C]88[/C][C]2.46[/C][C]2.47227425528616[/C][C]-0.0122742552861648[/C][/ROW]
[ROW][C]89[/C][C]2.43[/C][C]2.44289668298617[/C][C]-0.0128966829861699[/C][/ROW]
[ROW][C]90[/C][C]2.42[/C][C]2.41747487342962[/C][C]0.00252512657037984[/C][/ROW]
[ROW][C]91[/C][C]2.43[/C][C]2.41964648114674[/C][C]0.0103535188532646[/C][/ROW]
[ROW][C]92[/C][C]2.45[/C][C]2.42853767374426[/C][C]0.0214623262557447[/C][/ROW]
[ROW][C]93[/C][C]2.45[/C][C]2.44771517972498[/C][C]0.00228482027501853[/C][/ROW]
[ROW][C]94[/C][C]2.46[/C][C]2.44239163023426[/C][C]0.0176083697657399[/C][/ROW]
[ROW][C]95[/C][C]2.44[/C][C]2.46060545010448[/C][C]-0.0206054501044814[/C][/ROW]
[ROW][C]96[/C][C]2.45[/C][C]2.44246396773228[/C][C]0.00753603226772137[/C][/ROW]
[ROW][C]97[/C][C]2.45[/C][C]2.45309208148258[/C][C]-0.00309208148258167[/C][/ROW]
[ROW][C]98[/C][C]2.42[/C][C]2.45268730938122[/C][C]-0.0326873093812163[/C][/ROW]
[ROW][C]99[/C][C]2.41[/C][C]2.41159421423757[/C][C]-0.00159421423756534[/C][/ROW]
[ROW][C]100[/C][C]2.39[/C][C]2.40818036048418[/C][C]-0.0181803604841848[/C][/ROW]
[ROW][C]101[/C][C]2.39[/C][C]2.36955643722626[/C][C]0.0204435627737425[/C][/ROW]
[ROW][C]102[/C][C]2.38[/C][C]2.37654746506049[/C][C]0.00345253493950493[/C][/ROW]
[ROW][C]103[/C][C]2.37[/C][C]2.38132347653303[/C][C]-0.0113234765330308[/C][/ROW]
[ROW][C]104[/C][C]2.37[/C][C]2.3697219413628[/C][C]0.000278058637201095[/C][/ROW]
[ROW][C]105[/C][C]2.38[/C][C]2.36283061899179[/C][C]0.0171693810082090[/C][/ROW]
[ROW][C]106[/C][C]2.39[/C][C]2.36946016037513[/C][C]0.0205398396248695[/C][/ROW]
[ROW][C]107[/C][C]2.41[/C][C]2.38394598870602[/C][C]0.0260540112939807[/C][/ROW]
[ROW][C]108[/C][C]2.42[/C][C]2.41467121359233[/C][C]0.00532878640766699[/C][/ROW]
[ROW][C]109[/C][C]2.48[/C][C]2.42599260208124[/C][C]0.0540073979187623[/C][/ROW]
[ROW][C]110[/C][C]2.53[/C][C]2.48588031899439[/C][C]0.0441196810056139[/C][/ROW]
[ROW][C]111[/C][C]2.56[/C][C]2.53975488255391[/C][C]0.0202451174460863[/C][/ROW]
[ROW][C]112[/C][C]2.56[/C][C]2.58016210654684[/C][C]-0.0201621065468354[/C][/ROW]
[ROW][C]113[/C][C]2.53[/C][C]2.56913192617182[/C][C]-0.0391319261718244[/C][/ROW]
[ROW][C]114[/C][C]2.57[/C][C]2.53787763227208[/C][C]0.0321223677279168[/C][/ROW]
[ROW][C]115[/C][C]2.56[/C][C]2.58814450077408[/C][C]-0.0281445007740806[/C][/ROW]
[ROW][C]116[/C][C]2.57[/C][C]2.58132013547017[/C][C]-0.0113201354701720[/C][/ROW]
[ROW][C]117[/C][C]2.58[/C][C]2.58279189600329[/C][C]-0.00279189600329000[/C][/ROW]
[ROW][C]118[/C][C]2.57[/C][C]2.58607879445085[/C][C]-0.0160787944508543[/C][/ROW]
[ROW][C]119[/C][C]2.6[/C][C]2.57724868737202[/C][C]0.0227513126279781[/C][/ROW]
[ROW][C]120[/C][C]2.63[/C][C]2.61157185588040[/C][C]0.0184281441195968[/C][/ROW]
[ROW][C]121[/C][C]2.72[/C][C]2.65003060372291[/C][C]0.0699693962770889[/C][/ROW]
[ROW][C]122[/C][C]2.83[/C][C]2.73605959149173[/C][C]0.0939404085082711[/C][/ROW]
[ROW][C]123[/C][C]2.9[/C][C]2.85222700587615[/C][C]0.0477729941238461[/C][/ROW]
[ROW][C]124[/C][C]2.92[/C][C]2.93710916464554[/C][C]-0.0171091646455368[/C][/ROW]
[ROW][C]125[/C][C]2.94[/C][C]2.95108627446372[/C][C]-0.0110862744637235[/C][/ROW]
[ROW][C]126[/C][C]2.95[/C][C]2.98030593665009[/C][C]-0.0303059366500880[/C][/ROW]
[ROW][C]127[/C][C]2.98[/C][C]2.98763614517666[/C][C]-0.00763614517666156[/C][/ROW]
[ROW][C]128[/C][C]3.02[/C][C]3.02313560213474[/C][C]-0.00313560213474151[/C][/ROW]
[ROW][C]129[/C][C]3.16[/C][C]3.05616851420426[/C][C]0.103831485795738[/C][/ROW]
[ROW][C]130[/C][C]3.2[/C][C]3.1925831141371[/C][C]0.00741688586290401[/C][/ROW]
[ROW][C]131[/C][C]3.18[/C][C]3.25055823275868[/C][C]-0.0705582327586756[/C][/ROW]
[ROW][C]132[/C][C]3.17[/C][C]3.22899703712107[/C][C]-0.0589970371210691[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=72686&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=72686&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
132.432.45106837606838-0.0210683760683770
142.422.419815829452030.000184170547967710
152.412.406474347760390.00352565223960877
162.422.415807695599080.00419230440092111
172.392.385918698978870.00408130102113136
182.42.396508123407180.00349187659282268
192.392.40456168941889-0.0145616894188882
202.42.388463646044670.0115363539553281
212.412.387914757259390.0220852427406060
222.412.409576726791990.000423273208014052
232.412.403045084239650.00695491576034746
242.412.42337986471044-0.0133798647104402
252.422.410577366231440.00942263376856367
262.432.414274115830340.0157258841696613
272.432.422839954403730.00716004559627015
282.432.44360825013825-0.0136082501382502
292.442.403254993978210.0367450060217869
302.422.45339734278777-0.0333973427877710
312.442.431413380042670.00858661995733367
322.422.44701284489899-0.0270128448989913
332.422.415599292541930.00440070745806898
342.422.419466786272140.000533213727855308
352.432.413986882103350.0160131178966529
362.442.44203677083343-0.00203677083342546
372.432.44491219797826-0.0149121979782634
382.442.427071383232130.0129286167678688
392.442.431613299633310.0083867003666911
402.452.4509386467256-0.000938646725600734
412.452.428327120527820.0216728794721806
422.432.45709169193994-0.0270916919399391
432.442.44504339288516-0.00504339288516498
442.452.44296737807560.00703262192440146
452.462.44830520509970.0116947949002988
462.442.46235646261533-0.0223564626153276
472.432.43856807665296-0.0085680766529559
482.422.43996221513687-0.0199622151368728
492.412.42014982038177-0.0101498203817703
502.432.40478021783520.0252197821647990
512.412.41708718398364-0.00708718398364105
522.432.416509579066540.0134904209334632
532.432.40614546437380.0238545356261985
542.442.429327681896570.0106723181034329
552.432.45614127886923-0.0261412788692317
562.442.435946774862290.00405322513770656
572.432.43831837567344-0.00831837567343552
582.442.427373414633570.0126265853664287
592.442.437829428795360.00217057120464359
602.432.4506518752853-0.0206518752853011
612.432.43399344837853-0.00399344837852489
622.432.43136063103556-0.00136063103555939
632.432.416419505226810.0135804947731857
642.442.439332344930770.000667655069228168
652.472.419470397073180.0505296029268201
662.482.470151105934110.00984889406589273
672.492.49723332970381-0.00723332970381296
682.52.50442888684123-0.004428886841227
692.512.504086356829780.00591364317021581
702.492.51621464035644-0.0262146403564376
712.492.49332583718102-0.00332583718102297
722.482.50081476438049-0.0208147643804906
732.482.48753565957262-0.00753565957262392
742.482.48334008836706-0.00334008836706134
752.52.469189127578970.0308108724210334
762.52.50985431087844-0.00985431087844457
772.52.487521312392870.0124786876071328
782.52.496531180750690.00346881924931042
792.52.51190495870566-0.0119049587056574
802.482.51024975401399-0.0302497540139908
812.492.479106503808140.0108934961918634
822.482.48463979002433-0.00463979002432513
832.52.478636709980430.0213632900195657
842.52.50529085526093-0.00529085526092743
852.492.50819056065946-0.0181905606594572
862.482.49418843034905-0.0141884303490531
872.472.47150413971845-0.00150413971844499
882.462.47227425528616-0.0122742552861648
892.432.44289668298617-0.0128966829861699
902.422.417474873429620.00252512657037984
912.432.419646481146740.0103535188532646
922.452.428537673744260.0214623262557447
932.452.447715179724980.00228482027501853
942.462.442391630234260.0176083697657399
952.442.46060545010448-0.0206054501044814
962.452.442463967732280.00753603226772137
972.452.45309208148258-0.00309208148258167
982.422.45268730938122-0.0326873093812163
992.412.41159421423757-0.00159421423756534
1002.392.40818036048418-0.0181803604841848
1012.392.369556437226260.0204435627737425
1022.382.376547465060490.00345253493950493
1032.372.38132347653303-0.0113234765330308
1042.372.36972194136280.000278058637201095
1052.382.362830618991790.0171693810082090
1062.392.369460160375130.0205398396248695
1072.412.383945988706020.0260540112939807
1082.422.414671213592330.00532878640766699
1092.482.425992602081240.0540073979187623
1102.532.485880318994390.0441196810056139
1112.562.539754882553910.0202451174460863
1122.562.58016210654684-0.0201621065468354
1132.532.56913192617182-0.0391319261718244
1142.572.537877632272080.0321223677279168
1152.562.58814450077408-0.0281445007740806
1162.572.58132013547017-0.0113201354701720
1172.582.58279189600329-0.00279189600329000
1182.572.58607879445085-0.0160787944508543
1192.62.577248687372020.0227513126279781
1202.632.611571855880400.0184281441195968
1212.722.650030603722910.0699693962770889
1222.832.736059591491730.0939404085082711
1232.92.852227005876150.0477729941238461
1242.922.93710916464554-0.0171091646455368
1252.942.95108627446372-0.0110862744637235
1262.952.98030593665009-0.0303059366500880
1272.982.98763614517666-0.00763614517666156
1283.023.02313560213474-0.00313560213474151
1293.163.056168514204260.103831485795738
1303.23.19258311413710.00741688586290401
1313.183.25055823275868-0.0705582327586756
1323.173.22899703712107-0.0589970371210691







Extrapolation Forecasts of Exponential Smoothing
tForecast95% Lower Bound95% Upper Bound
1333.220467374890363.172684297028313.26825045275241
1343.253558367859593.184546737520153.32256999819903
1353.274904339798723.185673298087113.36413538151033
1363.297897736591583.188473577371363.4073218958118
1373.317892909748483.187936333873953.447849485623
1383.346763762965953.195770131234473.49775739469743
1393.379518294675173.20690182589273.55213476345763
1403.419302836311933.224437446696393.61416822592747
1413.463222722834193.245463672066353.68098177360203
1423.479236527099803.237932567949943.72054048624967
1433.504405041599223.238905488599863.76990459459859
1443.539163164530423.248822083974663.82950424508619

\begin{tabular}{lllllllll}
\hline
Extrapolation Forecasts of Exponential Smoothing \tabularnewline
t & Forecast & 95% Lower Bound & 95% Upper Bound \tabularnewline
133 & 3.22046737489036 & 3.17268429702831 & 3.26825045275241 \tabularnewline
134 & 3.25355836785959 & 3.18454673752015 & 3.32256999819903 \tabularnewline
135 & 3.27490433979872 & 3.18567329808711 & 3.36413538151033 \tabularnewline
136 & 3.29789773659158 & 3.18847357737136 & 3.4073218958118 \tabularnewline
137 & 3.31789290974848 & 3.18793633387395 & 3.447849485623 \tabularnewline
138 & 3.34676376296595 & 3.19577013123447 & 3.49775739469743 \tabularnewline
139 & 3.37951829467517 & 3.2069018258927 & 3.55213476345763 \tabularnewline
140 & 3.41930283631193 & 3.22443744669639 & 3.61416822592747 \tabularnewline
141 & 3.46322272283419 & 3.24546367206635 & 3.68098177360203 \tabularnewline
142 & 3.47923652709980 & 3.23793256794994 & 3.72054048624967 \tabularnewline
143 & 3.50440504159922 & 3.23890548859986 & 3.76990459459859 \tabularnewline
144 & 3.53916316453042 & 3.24882208397466 & 3.82950424508619 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=72686&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]3.22046737489036[/C][C]3.17268429702831[/C][C]3.26825045275241[/C][/ROW]
[ROW][C]134[/C][C]3.25355836785959[/C][C]3.18454673752015[/C][C]3.32256999819903[/C][/ROW]
[ROW][C]135[/C][C]3.27490433979872[/C][C]3.18567329808711[/C][C]3.36413538151033[/C][/ROW]
[ROW][C]136[/C][C]3.29789773659158[/C][C]3.18847357737136[/C][C]3.4073218958118[/C][/ROW]
[ROW][C]137[/C][C]3.31789290974848[/C][C]3.18793633387395[/C][C]3.447849485623[/C][/ROW]
[ROW][C]138[/C][C]3.34676376296595[/C][C]3.19577013123447[/C][C]3.49775739469743[/C][/ROW]
[ROW][C]139[/C][C]3.37951829467517[/C][C]3.2069018258927[/C][C]3.55213476345763[/C][/ROW]
[ROW][C]140[/C][C]3.41930283631193[/C][C]3.22443744669639[/C][C]3.61416822592747[/C][/ROW]
[ROW][C]141[/C][C]3.46322272283419[/C][C]3.24546367206635[/C][C]3.68098177360203[/C][/ROW]
[ROW][C]142[/C][C]3.47923652709980[/C][C]3.23793256794994[/C][C]3.72054048624967[/C][/ROW]
[ROW][C]143[/C][C]3.50440504159922[/C][C]3.23890548859986[/C][C]3.76990459459859[/C][/ROW]
[ROW][C]144[/C][C]3.53916316453042[/C][C]3.24882208397466[/C][C]3.82950424508619[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=72686&T=3

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=72686&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
1333.220467374890363.172684297028313.26825045275241
1343.253558367859593.184546737520153.32256999819903
1353.274904339798723.185673298087113.36413538151033
1363.297897736591583.188473577371363.4073218958118
1373.317892909748483.187936333873953.447849485623
1383.346763762965953.195770131234473.49775739469743
1393.379518294675173.20690182589273.55213476345763
1403.419302836311933.224437446696393.61416822592747
1413.463222722834193.245463672066353.68098177360203
1423.479236527099803.237932567949943.72054048624967
1433.504405041599223.238905488599863.76990459459859
1443.539163164530423.248822083974663.82950424508619



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=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')