Free Statistics

of Irreproducible Research!

Author's title

Author*Unverified author*
R Software Modulerwasp_decompose.wasp
Title produced by softwareClassical Decomposition
Date of computationMon, 01 Dec 2014 18:21:11 +0000
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2014/Dec/01/t14174580896ecuvwaqpck6n17.htm/, Retrieved Thu, 31 Oct 2024 22:54:18 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=262161, Retrieved Thu, 31 Oct 2024 22:54:18 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact98
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Classical Decomposition] [] [2014-12-01 18:21:11] [18123dc03e4972c6afb0cd442b9891ee] [Current]
Feedback Forum

Post a new message
Dataseries X:
254
200
165
123
162
145
145
161
155
173
160
47
232
143
161
159
243
192
157
143
221
227
132
41
273
182
188
162
140
186
178
236
202
184
119
16
340
151
240
235
174
309
174
207
209
171
117
10
339
139
186
155
153
222
102
107
188
162
185
24
394
209
248
254
202
258
215
309
240
258
276
48
455
345
311
346
310
297
300
274
292
304
186
14
321
206
160
217
204
246
234
175
364
328
158
40
556
193
221
278
230
253
240
252
228
306
206
48
557
279
399
364
306
471
293
333
316
329
265
61
679
428
394
352
387
590
177
199
203
255
261
115




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time2 seconds
R Server'Herman Ole Andreas Wold' @ wold.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 & 'Herman Ole Andreas Wold' @ wold.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=262161&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]'Herman Ole Andreas Wold' @ wold.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=262161&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=262161&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'Herman Ole Andreas Wold' @ wold.wessa.net







Classical Decomposition by Moving Averages
tObservationsFitTrendSeasonalRandom
1254NANA177.445NA
2200NANA-9.94653NA
3165NANA12.9951NA
4123NANA13.8535NA
5162NANA-4.20903NA
6145NANA62.5868NA
7145136.433156.583-20.15078.56736
8161146.32153.292-6.9715314.6799
9155163.674150.7512.9243-8.67431
10173165.799152.08313.7167.20069
11160104.983156.958-51.975755.0174
1247-37.9757162.292-200.26784.9757
13232342.195164.75177.445-110.195
14143154.553164.5-9.94653-11.5535
15161179.495166.512.9951-18.4951
16159185.353171.513.8535-26.3535
17243168.374172.583-4.2090374.6257
18192233.753171.16762.5868-41.7535
19157152.474172.625-20.15074.52569
20143168.987175.958-6.97153-25.9868
21221191.633178.70812.924329.3674
22227193.674179.95813.71633.3257
23132123.816175.792-51.97578.18403
2441-29.0174171.25-200.26770.0174
25273349.32171.875177.445-76.3201
26182166.678176.625-9.9465315.3215
27188192.703179.70812.9951-4.70347
28162190.978177.12513.8535-28.9785
29140170.583174.792-4.20903-30.5826
30186235.795173.20862.5868-49.7951
31178154.808174.958-20.150723.1924
32236169.487176.458-6.9715366.5132
33202190.258177.33312.924311.7424
34184196.258182.54213.716-12.2576
35119135.024187-51.9757-16.0243
3616-6.72569193.542-200.26722.7257
37340375.945198.5177.445-35.9451
38151187.178197.125-9.94653-36.1785
39240209.203196.20812.995130.7965
40235209.812195.95813.853525.1882
41174191.124195.333-4.20903-17.1243
42309257.58719562.586851.4132
43174174.558194.708-20.1507-0.557639
44207187.195194.167-6.9715319.8049
45209204.341191.41712.92434.65903
46171199.549185.83313.716-28.5493
47117129.649181.625-51.9757-12.6493
4810-23.1424177.125-200.26733.1424
49339347.945170.5177.445-8.94514
50139153.387163.333-9.94653-14.3868
51186171.287158.29212.995114.7132
52155170.895157.04213.8535-15.8951
53153155.291159.5-4.20903-2.29097
54222225.503162.91762.5868-3.50347
55102145.641165.792-20.1507-43.641
56107164.028171-6.97153-57.0285
57188189.424176.512.9243-1.42431
58162196.924183.20813.716-34.9243
59185137.399189.375-51.975747.6007
6024-7.35069192.917-200.26731.3507
61394376.57199.125177.44517.4299
62209202.303212.25-9.946536.69653
63248235.828222.83312.995112.1715
64254242.85322913.853511.1465
65202232.583236.792-4.20903-30.5826
66258304.17241.58362.5868-46.1701
67215224.974245.125-20.1507-9.97431
68309246.362253.333-6.9715362.6382
69240274.549261.62512.9243-34.5493
70258281.799268.08313.716-23.7993
71276224.441276.417-51.975751.559
724882.2743282.542-200.267-34.2743
73455465.153287.708177.445-10.1535
74345279.845289.792-9.9465365.1549
75311303.495290.512.99517.50486
76346308.437294.58313.853537.5632
77310288.541292.75-4.2090321.459
78297350.17287.58362.5868-53.1701
79300260.433280.583-20.150739.5674
80274262.237269.208-6.9715311.7632
81292270.049257.12512.924321.9507
82304259.174245.45813.71644.8257
83186183.691235.667-51.97572.30903
841428.8576229.125-200.267-14.8576
85321401.695224.25177.445-80.6951
86206207.428217.375-9.94653-1.42847
87160229.245216.2512.9951-69.2451
88217234.103220.2513.8535-17.1035
89204215.874220.083-4.20903-11.8743
90246282.58722062.5868-36.5868
91234210.724230.875-20.150723.2757
92175233.153240.125-6.97153-58.1535
93364255.049242.12512.9243108.951
94328260.924247.20813.71667.0757
95158198.858250.833-51.9757-40.8576
964051.941252.208-200.267-11.941
97556430.195252.75177.445125.805
98193246.262256.208-9.94653-53.2618
99221266.745253.7512.9951-45.7451
100278261.02247.16713.853516.9799
101230244.041248.25-4.20903-14.041
102253313.17250.58362.5868-60.1701
103240230.808250.958-20.15079.19236
104252247.612254.583-6.971534.38819
105228278.508265.58312.9243-50.5076
106306290.299276.58313.71615.7007
107206231.358283.333-51.9757-25.3576
1084895.316295.583-200.267-47.316
109557484.32306.875177.44572.6799
110279302.512312.458-9.94653-23.5118
111399332.495319.512.995166.5049
112364337.978324.12513.853526.0215
113306323.333327.542-4.20903-17.3326
114471393.128330.54262.586877.8715
115293316.016336.167-20.1507-23.016
116333340.487347.458-6.97153-7.48681
117316366.383353.45812.9243-50.3826
118329366.466352.7513.716-37.466
119265303.649355.625-51.9757-38.6493
12061163.691363.958-200.267-102.691
121679541.528364.083177.445137.472
122428343.72353.667-9.9465384.2799
123394356.37343.37512.995137.6299
124352349.437335.58313.85352.56319
125387328.124332.333-4.2090358.8757
126590397.003334.41762.5868192.997
127177NANA-20.1507NA
128199NANA-6.97153NA
129203NANA12.9243NA
130255NANA13.716NA
131261NANA-51.9757NA
132115NANA-200.267NA

\begin{tabular}{lllllllll}
\hline
Classical Decomposition by Moving Averages \tabularnewline
t & Observations & Fit & Trend & Seasonal & Random \tabularnewline
1 & 254 & NA & NA & 177.445 & NA \tabularnewline
2 & 200 & NA & NA & -9.94653 & NA \tabularnewline
3 & 165 & NA & NA & 12.9951 & NA \tabularnewline
4 & 123 & NA & NA & 13.8535 & NA \tabularnewline
5 & 162 & NA & NA & -4.20903 & NA \tabularnewline
6 & 145 & NA & NA & 62.5868 & NA \tabularnewline
7 & 145 & 136.433 & 156.583 & -20.1507 & 8.56736 \tabularnewline
8 & 161 & 146.32 & 153.292 & -6.97153 & 14.6799 \tabularnewline
9 & 155 & 163.674 & 150.75 & 12.9243 & -8.67431 \tabularnewline
10 & 173 & 165.799 & 152.083 & 13.716 & 7.20069 \tabularnewline
11 & 160 & 104.983 & 156.958 & -51.9757 & 55.0174 \tabularnewline
12 & 47 & -37.9757 & 162.292 & -200.267 & 84.9757 \tabularnewline
13 & 232 & 342.195 & 164.75 & 177.445 & -110.195 \tabularnewline
14 & 143 & 154.553 & 164.5 & -9.94653 & -11.5535 \tabularnewline
15 & 161 & 179.495 & 166.5 & 12.9951 & -18.4951 \tabularnewline
16 & 159 & 185.353 & 171.5 & 13.8535 & -26.3535 \tabularnewline
17 & 243 & 168.374 & 172.583 & -4.20903 & 74.6257 \tabularnewline
18 & 192 & 233.753 & 171.167 & 62.5868 & -41.7535 \tabularnewline
19 & 157 & 152.474 & 172.625 & -20.1507 & 4.52569 \tabularnewline
20 & 143 & 168.987 & 175.958 & -6.97153 & -25.9868 \tabularnewline
21 & 221 & 191.633 & 178.708 & 12.9243 & 29.3674 \tabularnewline
22 & 227 & 193.674 & 179.958 & 13.716 & 33.3257 \tabularnewline
23 & 132 & 123.816 & 175.792 & -51.9757 & 8.18403 \tabularnewline
24 & 41 & -29.0174 & 171.25 & -200.267 & 70.0174 \tabularnewline
25 & 273 & 349.32 & 171.875 & 177.445 & -76.3201 \tabularnewline
26 & 182 & 166.678 & 176.625 & -9.94653 & 15.3215 \tabularnewline
27 & 188 & 192.703 & 179.708 & 12.9951 & -4.70347 \tabularnewline
28 & 162 & 190.978 & 177.125 & 13.8535 & -28.9785 \tabularnewline
29 & 140 & 170.583 & 174.792 & -4.20903 & -30.5826 \tabularnewline
30 & 186 & 235.795 & 173.208 & 62.5868 & -49.7951 \tabularnewline
31 & 178 & 154.808 & 174.958 & -20.1507 & 23.1924 \tabularnewline
32 & 236 & 169.487 & 176.458 & -6.97153 & 66.5132 \tabularnewline
33 & 202 & 190.258 & 177.333 & 12.9243 & 11.7424 \tabularnewline
34 & 184 & 196.258 & 182.542 & 13.716 & -12.2576 \tabularnewline
35 & 119 & 135.024 & 187 & -51.9757 & -16.0243 \tabularnewline
36 & 16 & -6.72569 & 193.542 & -200.267 & 22.7257 \tabularnewline
37 & 340 & 375.945 & 198.5 & 177.445 & -35.9451 \tabularnewline
38 & 151 & 187.178 & 197.125 & -9.94653 & -36.1785 \tabularnewline
39 & 240 & 209.203 & 196.208 & 12.9951 & 30.7965 \tabularnewline
40 & 235 & 209.812 & 195.958 & 13.8535 & 25.1882 \tabularnewline
41 & 174 & 191.124 & 195.333 & -4.20903 & -17.1243 \tabularnewline
42 & 309 & 257.587 & 195 & 62.5868 & 51.4132 \tabularnewline
43 & 174 & 174.558 & 194.708 & -20.1507 & -0.557639 \tabularnewline
44 & 207 & 187.195 & 194.167 & -6.97153 & 19.8049 \tabularnewline
45 & 209 & 204.341 & 191.417 & 12.9243 & 4.65903 \tabularnewline
46 & 171 & 199.549 & 185.833 & 13.716 & -28.5493 \tabularnewline
47 & 117 & 129.649 & 181.625 & -51.9757 & -12.6493 \tabularnewline
48 & 10 & -23.1424 & 177.125 & -200.267 & 33.1424 \tabularnewline
49 & 339 & 347.945 & 170.5 & 177.445 & -8.94514 \tabularnewline
50 & 139 & 153.387 & 163.333 & -9.94653 & -14.3868 \tabularnewline
51 & 186 & 171.287 & 158.292 & 12.9951 & 14.7132 \tabularnewline
52 & 155 & 170.895 & 157.042 & 13.8535 & -15.8951 \tabularnewline
53 & 153 & 155.291 & 159.5 & -4.20903 & -2.29097 \tabularnewline
54 & 222 & 225.503 & 162.917 & 62.5868 & -3.50347 \tabularnewline
55 & 102 & 145.641 & 165.792 & -20.1507 & -43.641 \tabularnewline
56 & 107 & 164.028 & 171 & -6.97153 & -57.0285 \tabularnewline
57 & 188 & 189.424 & 176.5 & 12.9243 & -1.42431 \tabularnewline
58 & 162 & 196.924 & 183.208 & 13.716 & -34.9243 \tabularnewline
59 & 185 & 137.399 & 189.375 & -51.9757 & 47.6007 \tabularnewline
60 & 24 & -7.35069 & 192.917 & -200.267 & 31.3507 \tabularnewline
61 & 394 & 376.57 & 199.125 & 177.445 & 17.4299 \tabularnewline
62 & 209 & 202.303 & 212.25 & -9.94653 & 6.69653 \tabularnewline
63 & 248 & 235.828 & 222.833 & 12.9951 & 12.1715 \tabularnewline
64 & 254 & 242.853 & 229 & 13.8535 & 11.1465 \tabularnewline
65 & 202 & 232.583 & 236.792 & -4.20903 & -30.5826 \tabularnewline
66 & 258 & 304.17 & 241.583 & 62.5868 & -46.1701 \tabularnewline
67 & 215 & 224.974 & 245.125 & -20.1507 & -9.97431 \tabularnewline
68 & 309 & 246.362 & 253.333 & -6.97153 & 62.6382 \tabularnewline
69 & 240 & 274.549 & 261.625 & 12.9243 & -34.5493 \tabularnewline
70 & 258 & 281.799 & 268.083 & 13.716 & -23.7993 \tabularnewline
71 & 276 & 224.441 & 276.417 & -51.9757 & 51.559 \tabularnewline
72 & 48 & 82.2743 & 282.542 & -200.267 & -34.2743 \tabularnewline
73 & 455 & 465.153 & 287.708 & 177.445 & -10.1535 \tabularnewline
74 & 345 & 279.845 & 289.792 & -9.94653 & 65.1549 \tabularnewline
75 & 311 & 303.495 & 290.5 & 12.9951 & 7.50486 \tabularnewline
76 & 346 & 308.437 & 294.583 & 13.8535 & 37.5632 \tabularnewline
77 & 310 & 288.541 & 292.75 & -4.20903 & 21.459 \tabularnewline
78 & 297 & 350.17 & 287.583 & 62.5868 & -53.1701 \tabularnewline
79 & 300 & 260.433 & 280.583 & -20.1507 & 39.5674 \tabularnewline
80 & 274 & 262.237 & 269.208 & -6.97153 & 11.7632 \tabularnewline
81 & 292 & 270.049 & 257.125 & 12.9243 & 21.9507 \tabularnewline
82 & 304 & 259.174 & 245.458 & 13.716 & 44.8257 \tabularnewline
83 & 186 & 183.691 & 235.667 & -51.9757 & 2.30903 \tabularnewline
84 & 14 & 28.8576 & 229.125 & -200.267 & -14.8576 \tabularnewline
85 & 321 & 401.695 & 224.25 & 177.445 & -80.6951 \tabularnewline
86 & 206 & 207.428 & 217.375 & -9.94653 & -1.42847 \tabularnewline
87 & 160 & 229.245 & 216.25 & 12.9951 & -69.2451 \tabularnewline
88 & 217 & 234.103 & 220.25 & 13.8535 & -17.1035 \tabularnewline
89 & 204 & 215.874 & 220.083 & -4.20903 & -11.8743 \tabularnewline
90 & 246 & 282.587 & 220 & 62.5868 & -36.5868 \tabularnewline
91 & 234 & 210.724 & 230.875 & -20.1507 & 23.2757 \tabularnewline
92 & 175 & 233.153 & 240.125 & -6.97153 & -58.1535 \tabularnewline
93 & 364 & 255.049 & 242.125 & 12.9243 & 108.951 \tabularnewline
94 & 328 & 260.924 & 247.208 & 13.716 & 67.0757 \tabularnewline
95 & 158 & 198.858 & 250.833 & -51.9757 & -40.8576 \tabularnewline
96 & 40 & 51.941 & 252.208 & -200.267 & -11.941 \tabularnewline
97 & 556 & 430.195 & 252.75 & 177.445 & 125.805 \tabularnewline
98 & 193 & 246.262 & 256.208 & -9.94653 & -53.2618 \tabularnewline
99 & 221 & 266.745 & 253.75 & 12.9951 & -45.7451 \tabularnewline
100 & 278 & 261.02 & 247.167 & 13.8535 & 16.9799 \tabularnewline
101 & 230 & 244.041 & 248.25 & -4.20903 & -14.041 \tabularnewline
102 & 253 & 313.17 & 250.583 & 62.5868 & -60.1701 \tabularnewline
103 & 240 & 230.808 & 250.958 & -20.1507 & 9.19236 \tabularnewline
104 & 252 & 247.612 & 254.583 & -6.97153 & 4.38819 \tabularnewline
105 & 228 & 278.508 & 265.583 & 12.9243 & -50.5076 \tabularnewline
106 & 306 & 290.299 & 276.583 & 13.716 & 15.7007 \tabularnewline
107 & 206 & 231.358 & 283.333 & -51.9757 & -25.3576 \tabularnewline
108 & 48 & 95.316 & 295.583 & -200.267 & -47.316 \tabularnewline
109 & 557 & 484.32 & 306.875 & 177.445 & 72.6799 \tabularnewline
110 & 279 & 302.512 & 312.458 & -9.94653 & -23.5118 \tabularnewline
111 & 399 & 332.495 & 319.5 & 12.9951 & 66.5049 \tabularnewline
112 & 364 & 337.978 & 324.125 & 13.8535 & 26.0215 \tabularnewline
113 & 306 & 323.333 & 327.542 & -4.20903 & -17.3326 \tabularnewline
114 & 471 & 393.128 & 330.542 & 62.5868 & 77.8715 \tabularnewline
115 & 293 & 316.016 & 336.167 & -20.1507 & -23.016 \tabularnewline
116 & 333 & 340.487 & 347.458 & -6.97153 & -7.48681 \tabularnewline
117 & 316 & 366.383 & 353.458 & 12.9243 & -50.3826 \tabularnewline
118 & 329 & 366.466 & 352.75 & 13.716 & -37.466 \tabularnewline
119 & 265 & 303.649 & 355.625 & -51.9757 & -38.6493 \tabularnewline
120 & 61 & 163.691 & 363.958 & -200.267 & -102.691 \tabularnewline
121 & 679 & 541.528 & 364.083 & 177.445 & 137.472 \tabularnewline
122 & 428 & 343.72 & 353.667 & -9.94653 & 84.2799 \tabularnewline
123 & 394 & 356.37 & 343.375 & 12.9951 & 37.6299 \tabularnewline
124 & 352 & 349.437 & 335.583 & 13.8535 & 2.56319 \tabularnewline
125 & 387 & 328.124 & 332.333 & -4.20903 & 58.8757 \tabularnewline
126 & 590 & 397.003 & 334.417 & 62.5868 & 192.997 \tabularnewline
127 & 177 & NA & NA & -20.1507 & NA \tabularnewline
128 & 199 & NA & NA & -6.97153 & NA \tabularnewline
129 & 203 & NA & NA & 12.9243 & NA \tabularnewline
130 & 255 & NA & NA & 13.716 & NA \tabularnewline
131 & 261 & NA & NA & -51.9757 & NA \tabularnewline
132 & 115 & NA & NA & -200.267 & NA \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=262161&T=1

[TABLE]
[ROW][C]Classical Decomposition by Moving Averages[/C][/ROW]
[ROW][C]t[/C][C]Observations[/C][C]Fit[/C][C]Trend[/C][C]Seasonal[/C][C]Random[/C][/ROW]
[ROW][C]1[/C][C]254[/C][C]NA[/C][C]NA[/C][C]177.445[/C][C]NA[/C][/ROW]
[ROW][C]2[/C][C]200[/C][C]NA[/C][C]NA[/C][C]-9.94653[/C][C]NA[/C][/ROW]
[ROW][C]3[/C][C]165[/C][C]NA[/C][C]NA[/C][C]12.9951[/C][C]NA[/C][/ROW]
[ROW][C]4[/C][C]123[/C][C]NA[/C][C]NA[/C][C]13.8535[/C][C]NA[/C][/ROW]
[ROW][C]5[/C][C]162[/C][C]NA[/C][C]NA[/C][C]-4.20903[/C][C]NA[/C][/ROW]
[ROW][C]6[/C][C]145[/C][C]NA[/C][C]NA[/C][C]62.5868[/C][C]NA[/C][/ROW]
[ROW][C]7[/C][C]145[/C][C]136.433[/C][C]156.583[/C][C]-20.1507[/C][C]8.56736[/C][/ROW]
[ROW][C]8[/C][C]161[/C][C]146.32[/C][C]153.292[/C][C]-6.97153[/C][C]14.6799[/C][/ROW]
[ROW][C]9[/C][C]155[/C][C]163.674[/C][C]150.75[/C][C]12.9243[/C][C]-8.67431[/C][/ROW]
[ROW][C]10[/C][C]173[/C][C]165.799[/C][C]152.083[/C][C]13.716[/C][C]7.20069[/C][/ROW]
[ROW][C]11[/C][C]160[/C][C]104.983[/C][C]156.958[/C][C]-51.9757[/C][C]55.0174[/C][/ROW]
[ROW][C]12[/C][C]47[/C][C]-37.9757[/C][C]162.292[/C][C]-200.267[/C][C]84.9757[/C][/ROW]
[ROW][C]13[/C][C]232[/C][C]342.195[/C][C]164.75[/C][C]177.445[/C][C]-110.195[/C][/ROW]
[ROW][C]14[/C][C]143[/C][C]154.553[/C][C]164.5[/C][C]-9.94653[/C][C]-11.5535[/C][/ROW]
[ROW][C]15[/C][C]161[/C][C]179.495[/C][C]166.5[/C][C]12.9951[/C][C]-18.4951[/C][/ROW]
[ROW][C]16[/C][C]159[/C][C]185.353[/C][C]171.5[/C][C]13.8535[/C][C]-26.3535[/C][/ROW]
[ROW][C]17[/C][C]243[/C][C]168.374[/C][C]172.583[/C][C]-4.20903[/C][C]74.6257[/C][/ROW]
[ROW][C]18[/C][C]192[/C][C]233.753[/C][C]171.167[/C][C]62.5868[/C][C]-41.7535[/C][/ROW]
[ROW][C]19[/C][C]157[/C][C]152.474[/C][C]172.625[/C][C]-20.1507[/C][C]4.52569[/C][/ROW]
[ROW][C]20[/C][C]143[/C][C]168.987[/C][C]175.958[/C][C]-6.97153[/C][C]-25.9868[/C][/ROW]
[ROW][C]21[/C][C]221[/C][C]191.633[/C][C]178.708[/C][C]12.9243[/C][C]29.3674[/C][/ROW]
[ROW][C]22[/C][C]227[/C][C]193.674[/C][C]179.958[/C][C]13.716[/C][C]33.3257[/C][/ROW]
[ROW][C]23[/C][C]132[/C][C]123.816[/C][C]175.792[/C][C]-51.9757[/C][C]8.18403[/C][/ROW]
[ROW][C]24[/C][C]41[/C][C]-29.0174[/C][C]171.25[/C][C]-200.267[/C][C]70.0174[/C][/ROW]
[ROW][C]25[/C][C]273[/C][C]349.32[/C][C]171.875[/C][C]177.445[/C][C]-76.3201[/C][/ROW]
[ROW][C]26[/C][C]182[/C][C]166.678[/C][C]176.625[/C][C]-9.94653[/C][C]15.3215[/C][/ROW]
[ROW][C]27[/C][C]188[/C][C]192.703[/C][C]179.708[/C][C]12.9951[/C][C]-4.70347[/C][/ROW]
[ROW][C]28[/C][C]162[/C][C]190.978[/C][C]177.125[/C][C]13.8535[/C][C]-28.9785[/C][/ROW]
[ROW][C]29[/C][C]140[/C][C]170.583[/C][C]174.792[/C][C]-4.20903[/C][C]-30.5826[/C][/ROW]
[ROW][C]30[/C][C]186[/C][C]235.795[/C][C]173.208[/C][C]62.5868[/C][C]-49.7951[/C][/ROW]
[ROW][C]31[/C][C]178[/C][C]154.808[/C][C]174.958[/C][C]-20.1507[/C][C]23.1924[/C][/ROW]
[ROW][C]32[/C][C]236[/C][C]169.487[/C][C]176.458[/C][C]-6.97153[/C][C]66.5132[/C][/ROW]
[ROW][C]33[/C][C]202[/C][C]190.258[/C][C]177.333[/C][C]12.9243[/C][C]11.7424[/C][/ROW]
[ROW][C]34[/C][C]184[/C][C]196.258[/C][C]182.542[/C][C]13.716[/C][C]-12.2576[/C][/ROW]
[ROW][C]35[/C][C]119[/C][C]135.024[/C][C]187[/C][C]-51.9757[/C][C]-16.0243[/C][/ROW]
[ROW][C]36[/C][C]16[/C][C]-6.72569[/C][C]193.542[/C][C]-200.267[/C][C]22.7257[/C][/ROW]
[ROW][C]37[/C][C]340[/C][C]375.945[/C][C]198.5[/C][C]177.445[/C][C]-35.9451[/C][/ROW]
[ROW][C]38[/C][C]151[/C][C]187.178[/C][C]197.125[/C][C]-9.94653[/C][C]-36.1785[/C][/ROW]
[ROW][C]39[/C][C]240[/C][C]209.203[/C][C]196.208[/C][C]12.9951[/C][C]30.7965[/C][/ROW]
[ROW][C]40[/C][C]235[/C][C]209.812[/C][C]195.958[/C][C]13.8535[/C][C]25.1882[/C][/ROW]
[ROW][C]41[/C][C]174[/C][C]191.124[/C][C]195.333[/C][C]-4.20903[/C][C]-17.1243[/C][/ROW]
[ROW][C]42[/C][C]309[/C][C]257.587[/C][C]195[/C][C]62.5868[/C][C]51.4132[/C][/ROW]
[ROW][C]43[/C][C]174[/C][C]174.558[/C][C]194.708[/C][C]-20.1507[/C][C]-0.557639[/C][/ROW]
[ROW][C]44[/C][C]207[/C][C]187.195[/C][C]194.167[/C][C]-6.97153[/C][C]19.8049[/C][/ROW]
[ROW][C]45[/C][C]209[/C][C]204.341[/C][C]191.417[/C][C]12.9243[/C][C]4.65903[/C][/ROW]
[ROW][C]46[/C][C]171[/C][C]199.549[/C][C]185.833[/C][C]13.716[/C][C]-28.5493[/C][/ROW]
[ROW][C]47[/C][C]117[/C][C]129.649[/C][C]181.625[/C][C]-51.9757[/C][C]-12.6493[/C][/ROW]
[ROW][C]48[/C][C]10[/C][C]-23.1424[/C][C]177.125[/C][C]-200.267[/C][C]33.1424[/C][/ROW]
[ROW][C]49[/C][C]339[/C][C]347.945[/C][C]170.5[/C][C]177.445[/C][C]-8.94514[/C][/ROW]
[ROW][C]50[/C][C]139[/C][C]153.387[/C][C]163.333[/C][C]-9.94653[/C][C]-14.3868[/C][/ROW]
[ROW][C]51[/C][C]186[/C][C]171.287[/C][C]158.292[/C][C]12.9951[/C][C]14.7132[/C][/ROW]
[ROW][C]52[/C][C]155[/C][C]170.895[/C][C]157.042[/C][C]13.8535[/C][C]-15.8951[/C][/ROW]
[ROW][C]53[/C][C]153[/C][C]155.291[/C][C]159.5[/C][C]-4.20903[/C][C]-2.29097[/C][/ROW]
[ROW][C]54[/C][C]222[/C][C]225.503[/C][C]162.917[/C][C]62.5868[/C][C]-3.50347[/C][/ROW]
[ROW][C]55[/C][C]102[/C][C]145.641[/C][C]165.792[/C][C]-20.1507[/C][C]-43.641[/C][/ROW]
[ROW][C]56[/C][C]107[/C][C]164.028[/C][C]171[/C][C]-6.97153[/C][C]-57.0285[/C][/ROW]
[ROW][C]57[/C][C]188[/C][C]189.424[/C][C]176.5[/C][C]12.9243[/C][C]-1.42431[/C][/ROW]
[ROW][C]58[/C][C]162[/C][C]196.924[/C][C]183.208[/C][C]13.716[/C][C]-34.9243[/C][/ROW]
[ROW][C]59[/C][C]185[/C][C]137.399[/C][C]189.375[/C][C]-51.9757[/C][C]47.6007[/C][/ROW]
[ROW][C]60[/C][C]24[/C][C]-7.35069[/C][C]192.917[/C][C]-200.267[/C][C]31.3507[/C][/ROW]
[ROW][C]61[/C][C]394[/C][C]376.57[/C][C]199.125[/C][C]177.445[/C][C]17.4299[/C][/ROW]
[ROW][C]62[/C][C]209[/C][C]202.303[/C][C]212.25[/C][C]-9.94653[/C][C]6.69653[/C][/ROW]
[ROW][C]63[/C][C]248[/C][C]235.828[/C][C]222.833[/C][C]12.9951[/C][C]12.1715[/C][/ROW]
[ROW][C]64[/C][C]254[/C][C]242.853[/C][C]229[/C][C]13.8535[/C][C]11.1465[/C][/ROW]
[ROW][C]65[/C][C]202[/C][C]232.583[/C][C]236.792[/C][C]-4.20903[/C][C]-30.5826[/C][/ROW]
[ROW][C]66[/C][C]258[/C][C]304.17[/C][C]241.583[/C][C]62.5868[/C][C]-46.1701[/C][/ROW]
[ROW][C]67[/C][C]215[/C][C]224.974[/C][C]245.125[/C][C]-20.1507[/C][C]-9.97431[/C][/ROW]
[ROW][C]68[/C][C]309[/C][C]246.362[/C][C]253.333[/C][C]-6.97153[/C][C]62.6382[/C][/ROW]
[ROW][C]69[/C][C]240[/C][C]274.549[/C][C]261.625[/C][C]12.9243[/C][C]-34.5493[/C][/ROW]
[ROW][C]70[/C][C]258[/C][C]281.799[/C][C]268.083[/C][C]13.716[/C][C]-23.7993[/C][/ROW]
[ROW][C]71[/C][C]276[/C][C]224.441[/C][C]276.417[/C][C]-51.9757[/C][C]51.559[/C][/ROW]
[ROW][C]72[/C][C]48[/C][C]82.2743[/C][C]282.542[/C][C]-200.267[/C][C]-34.2743[/C][/ROW]
[ROW][C]73[/C][C]455[/C][C]465.153[/C][C]287.708[/C][C]177.445[/C][C]-10.1535[/C][/ROW]
[ROW][C]74[/C][C]345[/C][C]279.845[/C][C]289.792[/C][C]-9.94653[/C][C]65.1549[/C][/ROW]
[ROW][C]75[/C][C]311[/C][C]303.495[/C][C]290.5[/C][C]12.9951[/C][C]7.50486[/C][/ROW]
[ROW][C]76[/C][C]346[/C][C]308.437[/C][C]294.583[/C][C]13.8535[/C][C]37.5632[/C][/ROW]
[ROW][C]77[/C][C]310[/C][C]288.541[/C][C]292.75[/C][C]-4.20903[/C][C]21.459[/C][/ROW]
[ROW][C]78[/C][C]297[/C][C]350.17[/C][C]287.583[/C][C]62.5868[/C][C]-53.1701[/C][/ROW]
[ROW][C]79[/C][C]300[/C][C]260.433[/C][C]280.583[/C][C]-20.1507[/C][C]39.5674[/C][/ROW]
[ROW][C]80[/C][C]274[/C][C]262.237[/C][C]269.208[/C][C]-6.97153[/C][C]11.7632[/C][/ROW]
[ROW][C]81[/C][C]292[/C][C]270.049[/C][C]257.125[/C][C]12.9243[/C][C]21.9507[/C][/ROW]
[ROW][C]82[/C][C]304[/C][C]259.174[/C][C]245.458[/C][C]13.716[/C][C]44.8257[/C][/ROW]
[ROW][C]83[/C][C]186[/C][C]183.691[/C][C]235.667[/C][C]-51.9757[/C][C]2.30903[/C][/ROW]
[ROW][C]84[/C][C]14[/C][C]28.8576[/C][C]229.125[/C][C]-200.267[/C][C]-14.8576[/C][/ROW]
[ROW][C]85[/C][C]321[/C][C]401.695[/C][C]224.25[/C][C]177.445[/C][C]-80.6951[/C][/ROW]
[ROW][C]86[/C][C]206[/C][C]207.428[/C][C]217.375[/C][C]-9.94653[/C][C]-1.42847[/C][/ROW]
[ROW][C]87[/C][C]160[/C][C]229.245[/C][C]216.25[/C][C]12.9951[/C][C]-69.2451[/C][/ROW]
[ROW][C]88[/C][C]217[/C][C]234.103[/C][C]220.25[/C][C]13.8535[/C][C]-17.1035[/C][/ROW]
[ROW][C]89[/C][C]204[/C][C]215.874[/C][C]220.083[/C][C]-4.20903[/C][C]-11.8743[/C][/ROW]
[ROW][C]90[/C][C]246[/C][C]282.587[/C][C]220[/C][C]62.5868[/C][C]-36.5868[/C][/ROW]
[ROW][C]91[/C][C]234[/C][C]210.724[/C][C]230.875[/C][C]-20.1507[/C][C]23.2757[/C][/ROW]
[ROW][C]92[/C][C]175[/C][C]233.153[/C][C]240.125[/C][C]-6.97153[/C][C]-58.1535[/C][/ROW]
[ROW][C]93[/C][C]364[/C][C]255.049[/C][C]242.125[/C][C]12.9243[/C][C]108.951[/C][/ROW]
[ROW][C]94[/C][C]328[/C][C]260.924[/C][C]247.208[/C][C]13.716[/C][C]67.0757[/C][/ROW]
[ROW][C]95[/C][C]158[/C][C]198.858[/C][C]250.833[/C][C]-51.9757[/C][C]-40.8576[/C][/ROW]
[ROW][C]96[/C][C]40[/C][C]51.941[/C][C]252.208[/C][C]-200.267[/C][C]-11.941[/C][/ROW]
[ROW][C]97[/C][C]556[/C][C]430.195[/C][C]252.75[/C][C]177.445[/C][C]125.805[/C][/ROW]
[ROW][C]98[/C][C]193[/C][C]246.262[/C][C]256.208[/C][C]-9.94653[/C][C]-53.2618[/C][/ROW]
[ROW][C]99[/C][C]221[/C][C]266.745[/C][C]253.75[/C][C]12.9951[/C][C]-45.7451[/C][/ROW]
[ROW][C]100[/C][C]278[/C][C]261.02[/C][C]247.167[/C][C]13.8535[/C][C]16.9799[/C][/ROW]
[ROW][C]101[/C][C]230[/C][C]244.041[/C][C]248.25[/C][C]-4.20903[/C][C]-14.041[/C][/ROW]
[ROW][C]102[/C][C]253[/C][C]313.17[/C][C]250.583[/C][C]62.5868[/C][C]-60.1701[/C][/ROW]
[ROW][C]103[/C][C]240[/C][C]230.808[/C][C]250.958[/C][C]-20.1507[/C][C]9.19236[/C][/ROW]
[ROW][C]104[/C][C]252[/C][C]247.612[/C][C]254.583[/C][C]-6.97153[/C][C]4.38819[/C][/ROW]
[ROW][C]105[/C][C]228[/C][C]278.508[/C][C]265.583[/C][C]12.9243[/C][C]-50.5076[/C][/ROW]
[ROW][C]106[/C][C]306[/C][C]290.299[/C][C]276.583[/C][C]13.716[/C][C]15.7007[/C][/ROW]
[ROW][C]107[/C][C]206[/C][C]231.358[/C][C]283.333[/C][C]-51.9757[/C][C]-25.3576[/C][/ROW]
[ROW][C]108[/C][C]48[/C][C]95.316[/C][C]295.583[/C][C]-200.267[/C][C]-47.316[/C][/ROW]
[ROW][C]109[/C][C]557[/C][C]484.32[/C][C]306.875[/C][C]177.445[/C][C]72.6799[/C][/ROW]
[ROW][C]110[/C][C]279[/C][C]302.512[/C][C]312.458[/C][C]-9.94653[/C][C]-23.5118[/C][/ROW]
[ROW][C]111[/C][C]399[/C][C]332.495[/C][C]319.5[/C][C]12.9951[/C][C]66.5049[/C][/ROW]
[ROW][C]112[/C][C]364[/C][C]337.978[/C][C]324.125[/C][C]13.8535[/C][C]26.0215[/C][/ROW]
[ROW][C]113[/C][C]306[/C][C]323.333[/C][C]327.542[/C][C]-4.20903[/C][C]-17.3326[/C][/ROW]
[ROW][C]114[/C][C]471[/C][C]393.128[/C][C]330.542[/C][C]62.5868[/C][C]77.8715[/C][/ROW]
[ROW][C]115[/C][C]293[/C][C]316.016[/C][C]336.167[/C][C]-20.1507[/C][C]-23.016[/C][/ROW]
[ROW][C]116[/C][C]333[/C][C]340.487[/C][C]347.458[/C][C]-6.97153[/C][C]-7.48681[/C][/ROW]
[ROW][C]117[/C][C]316[/C][C]366.383[/C][C]353.458[/C][C]12.9243[/C][C]-50.3826[/C][/ROW]
[ROW][C]118[/C][C]329[/C][C]366.466[/C][C]352.75[/C][C]13.716[/C][C]-37.466[/C][/ROW]
[ROW][C]119[/C][C]265[/C][C]303.649[/C][C]355.625[/C][C]-51.9757[/C][C]-38.6493[/C][/ROW]
[ROW][C]120[/C][C]61[/C][C]163.691[/C][C]363.958[/C][C]-200.267[/C][C]-102.691[/C][/ROW]
[ROW][C]121[/C][C]679[/C][C]541.528[/C][C]364.083[/C][C]177.445[/C][C]137.472[/C][/ROW]
[ROW][C]122[/C][C]428[/C][C]343.72[/C][C]353.667[/C][C]-9.94653[/C][C]84.2799[/C][/ROW]
[ROW][C]123[/C][C]394[/C][C]356.37[/C][C]343.375[/C][C]12.9951[/C][C]37.6299[/C][/ROW]
[ROW][C]124[/C][C]352[/C][C]349.437[/C][C]335.583[/C][C]13.8535[/C][C]2.56319[/C][/ROW]
[ROW][C]125[/C][C]387[/C][C]328.124[/C][C]332.333[/C][C]-4.20903[/C][C]58.8757[/C][/ROW]
[ROW][C]126[/C][C]590[/C][C]397.003[/C][C]334.417[/C][C]62.5868[/C][C]192.997[/C][/ROW]
[ROW][C]127[/C][C]177[/C][C]NA[/C][C]NA[/C][C]-20.1507[/C][C]NA[/C][/ROW]
[ROW][C]128[/C][C]199[/C][C]NA[/C][C]NA[/C][C]-6.97153[/C][C]NA[/C][/ROW]
[ROW][C]129[/C][C]203[/C][C]NA[/C][C]NA[/C][C]12.9243[/C][C]NA[/C][/ROW]
[ROW][C]130[/C][C]255[/C][C]NA[/C][C]NA[/C][C]13.716[/C][C]NA[/C][/ROW]
[ROW][C]131[/C][C]261[/C][C]NA[/C][C]NA[/C][C]-51.9757[/C][C]NA[/C][/ROW]
[ROW][C]132[/C][C]115[/C][C]NA[/C][C]NA[/C][C]-200.267[/C][C]NA[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=262161&T=1

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

As an alternative you can also use a QR Code:  

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

Classical Decomposition by Moving Averages
tObservationsFitTrendSeasonalRandom
1254NANA177.445NA
2200NANA-9.94653NA
3165NANA12.9951NA
4123NANA13.8535NA
5162NANA-4.20903NA
6145NANA62.5868NA
7145136.433156.583-20.15078.56736
8161146.32153.292-6.9715314.6799
9155163.674150.7512.9243-8.67431
10173165.799152.08313.7167.20069
11160104.983156.958-51.975755.0174
1247-37.9757162.292-200.26784.9757
13232342.195164.75177.445-110.195
14143154.553164.5-9.94653-11.5535
15161179.495166.512.9951-18.4951
16159185.353171.513.8535-26.3535
17243168.374172.583-4.2090374.6257
18192233.753171.16762.5868-41.7535
19157152.474172.625-20.15074.52569
20143168.987175.958-6.97153-25.9868
21221191.633178.70812.924329.3674
22227193.674179.95813.71633.3257
23132123.816175.792-51.97578.18403
2441-29.0174171.25-200.26770.0174
25273349.32171.875177.445-76.3201
26182166.678176.625-9.9465315.3215
27188192.703179.70812.9951-4.70347
28162190.978177.12513.8535-28.9785
29140170.583174.792-4.20903-30.5826
30186235.795173.20862.5868-49.7951
31178154.808174.958-20.150723.1924
32236169.487176.458-6.9715366.5132
33202190.258177.33312.924311.7424
34184196.258182.54213.716-12.2576
35119135.024187-51.9757-16.0243
3616-6.72569193.542-200.26722.7257
37340375.945198.5177.445-35.9451
38151187.178197.125-9.94653-36.1785
39240209.203196.20812.995130.7965
40235209.812195.95813.853525.1882
41174191.124195.333-4.20903-17.1243
42309257.58719562.586851.4132
43174174.558194.708-20.1507-0.557639
44207187.195194.167-6.9715319.8049
45209204.341191.41712.92434.65903
46171199.549185.83313.716-28.5493
47117129.649181.625-51.9757-12.6493
4810-23.1424177.125-200.26733.1424
49339347.945170.5177.445-8.94514
50139153.387163.333-9.94653-14.3868
51186171.287158.29212.995114.7132
52155170.895157.04213.8535-15.8951
53153155.291159.5-4.20903-2.29097
54222225.503162.91762.5868-3.50347
55102145.641165.792-20.1507-43.641
56107164.028171-6.97153-57.0285
57188189.424176.512.9243-1.42431
58162196.924183.20813.716-34.9243
59185137.399189.375-51.975747.6007
6024-7.35069192.917-200.26731.3507
61394376.57199.125177.44517.4299
62209202.303212.25-9.946536.69653
63248235.828222.83312.995112.1715
64254242.85322913.853511.1465
65202232.583236.792-4.20903-30.5826
66258304.17241.58362.5868-46.1701
67215224.974245.125-20.1507-9.97431
68309246.362253.333-6.9715362.6382
69240274.549261.62512.9243-34.5493
70258281.799268.08313.716-23.7993
71276224.441276.417-51.975751.559
724882.2743282.542-200.267-34.2743
73455465.153287.708177.445-10.1535
74345279.845289.792-9.9465365.1549
75311303.495290.512.99517.50486
76346308.437294.58313.853537.5632
77310288.541292.75-4.2090321.459
78297350.17287.58362.5868-53.1701
79300260.433280.583-20.150739.5674
80274262.237269.208-6.9715311.7632
81292270.049257.12512.924321.9507
82304259.174245.45813.71644.8257
83186183.691235.667-51.97572.30903
841428.8576229.125-200.267-14.8576
85321401.695224.25177.445-80.6951
86206207.428217.375-9.94653-1.42847
87160229.245216.2512.9951-69.2451
88217234.103220.2513.8535-17.1035
89204215.874220.083-4.20903-11.8743
90246282.58722062.5868-36.5868
91234210.724230.875-20.150723.2757
92175233.153240.125-6.97153-58.1535
93364255.049242.12512.9243108.951
94328260.924247.20813.71667.0757
95158198.858250.833-51.9757-40.8576
964051.941252.208-200.267-11.941
97556430.195252.75177.445125.805
98193246.262256.208-9.94653-53.2618
99221266.745253.7512.9951-45.7451
100278261.02247.16713.853516.9799
101230244.041248.25-4.20903-14.041
102253313.17250.58362.5868-60.1701
103240230.808250.958-20.15079.19236
104252247.612254.583-6.971534.38819
105228278.508265.58312.9243-50.5076
106306290.299276.58313.71615.7007
107206231.358283.333-51.9757-25.3576
1084895.316295.583-200.267-47.316
109557484.32306.875177.44572.6799
110279302.512312.458-9.94653-23.5118
111399332.495319.512.995166.5049
112364337.978324.12513.853526.0215
113306323.333327.542-4.20903-17.3326
114471393.128330.54262.586877.8715
115293316.016336.167-20.1507-23.016
116333340.487347.458-6.97153-7.48681
117316366.383353.45812.9243-50.3826
118329366.466352.7513.716-37.466
119265303.649355.625-51.9757-38.6493
12061163.691363.958-200.267-102.691
121679541.528364.083177.445137.472
122428343.72353.667-9.9465384.2799
123394356.37343.37512.995137.6299
124352349.437335.58313.85352.56319
125387328.124332.333-4.2090358.8757
126590397.003334.41762.5868192.997
127177NANA-20.1507NA
128199NANA-6.97153NA
129203NANA12.9243NA
130255NANA13.716NA
131261NANA-51.9757NA
132115NANA-200.267NA



Parameters (Session):
par1 = additive ; par2 = 12 ;
Parameters (R input):
par1 = additive ; par2 = 12 ;
R code (references can be found in the software module):
par2 <- as.numeric(par2)
x <- ts(x,freq=par2)
m <- decompose(x,type=par1)
m$figure
bitmap(file='test1.png')
plot(m)
dev.off()
mylagmax <- length(x)/2
bitmap(file='test2.png')
op <- par(mfrow = c(2,2))
acf(as.numeric(x),lag.max = mylagmax,main='Observed')
acf(as.numeric(m$trend),na.action=na.pass,lag.max = mylagmax,main='Trend')
acf(as.numeric(m$seasonal),na.action=na.pass,lag.max = mylagmax,main='Seasonal')
acf(as.numeric(m$random),na.action=na.pass,lag.max = mylagmax,main='Random')
par(op)
dev.off()
bitmap(file='test3.png')
op <- par(mfrow = c(2,2))
spectrum(as.numeric(x),main='Observed')
spectrum(as.numeric(m$trend[!is.na(m$trend)]),main='Trend')
spectrum(as.numeric(m$seasonal[!is.na(m$seasonal)]),main='Seasonal')
spectrum(as.numeric(m$random[!is.na(m$random)]),main='Random')
par(op)
dev.off()
bitmap(file='test4.png')
op <- par(mfrow = c(2,2))
cpgram(as.numeric(x),main='Observed')
cpgram(as.numeric(m$trend[!is.na(m$trend)]),main='Trend')
cpgram(as.numeric(m$seasonal[!is.na(m$seasonal)]),main='Seasonal')
cpgram(as.numeric(m$random[!is.na(m$random)]),main='Random')
par(op)
dev.off()
load(file='createtable')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Classical Decomposition by Moving Averages',6,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'t',header=TRUE)
a<-table.element(a,'Observations',header=TRUE)
a<-table.element(a,'Fit',header=TRUE)
a<-table.element(a,'Trend',header=TRUE)
a<-table.element(a,'Seasonal',header=TRUE)
a<-table.element(a,'Random',header=TRUE)
a<-table.row.end(a)
for (i in 1:length(m$trend)) {
a<-table.row.start(a)
a<-table.element(a,i,header=TRUE)
a<-table.element(a,x[i])
if (par1 == 'additive') a<-table.element(a,signif(m$trend[i]+m$seasonal[i],6)) else a<-table.element(a,signif(m$trend[i]*m$seasonal[i],6))
a<-table.element(a,signif(m$trend[i],6))
a<-table.element(a,signif(m$seasonal[i],6))
a<-table.element(a,signif(m$random[i],6))
a<-table.row.end(a)
}
a<-table.end(a)
table.save(a,file='mytable.tab')