Free Statistics

of Irreproducible Research!

Author's title

Author*Unverified author*
R Software Modulerwasp_decompose.wasp
Title produced by softwareClassical Decomposition
Date of computationThu, 15 Jan 2009 09:48:00 -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/2009/Jan/15/t1232038134w2atfw8cyculixg.htm/, Retrieved Tue, 07 May 2024 11:23:18 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=36885, Retrieved Tue, 07 May 2024 11:23:18 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact197
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Standard Deviation Plot] [standard deviatio...] [2009-01-08 21:49:18] [65364f12da24daf6c8f7985fc762862c]
- RMPD    [Classical Decomposition] [decompositie - te...] [2009-01-15 16:48:00] [d41d8cd98f00b204e9800998ecf8427e] [Current]
-    D      [Classical Decomposition] [Opgave 9- oefenin...] [2009-01-15 19:15:06] [ca4e42c3236d1c0cb4de680f9dd82ba0]
- RMPD      [Exponential Smoothing] [opg 10 oef 1 - Vo...] [2009-01-26 21:41:37] [65364f12da24daf6c8f7985fc762862c]
- RMP       [Exponential Smoothing] [opg10 oef2 - volk...] [2009-01-26 21:46:42] [65364f12da24daf6c8f7985fc762862c]
Feedback Forum

Post a new message
Dataseries X:
93,89
93,36
92,25
91,07
90,93
90,68
90,65
90,6
90,02
89,74
89,31
89,16
89,15
88,98
88,25
87,36
87,13
86,93
86,93
86,93
86,98
86,16
85,88
85,91
85,91
85,6
84,9
83,67
83,41
83,33
83,32
83,3
82,73
82,2
81,7
81,52
81,52
81,55
81,89
81,8
81,84
81,77
81,77
82,98
83,13
82,84
82,8
82,8
82,8
82,98
81,91
81,64
81,4
81,21
81,21
81,23
81,01
80,55
80,5
80,54
80,54
80,72
80,63
80,36
79,88
79,66
79,66
79,13
78,81
78,67
78,43
78,13
78,13
78,07
76,94
74,97
75
75,1
75,1
75,02
73,87
73,18
72,55
72,42
72,4
72,45
71,42
70,89
70,42
69,57
69,57
69,44
68,25
66,86
66,5
66,46




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time5 seconds
R Server'Herman Ole Andreas Wold' @ 193.190.124.10:1001

\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 & 5 seconds \tabularnewline
R Server & 'Herman Ole Andreas Wold' @ 193.190.124.10:1001 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=36885&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]5 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'Herman Ole Andreas Wold' @ 193.190.124.10:1001[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=36885&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=36885&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 time5 seconds
R Server'Herman Ole Andreas Wold' @ 193.190.124.10:1001







Classical Decomposition by Moving Averages
tObservationsFitTrendSeasonalRandom
193.89NANA0.27686921296297NA
293.36NANA0.468049768518513NA
392.25NANA0.125063657407403NA
491.07NANA-0.434450231481486NA
590.93NANA-0.393061342592602NA
690.68NANA-0.270422453703708NA
790.6590.734646990740790.7741666666667-0.0395196759259296-0.0846469907407226
890.690.685758101851990.39416666666670.291591435185195-0.0857581018518658
990.0290.224924768518590.0450.179924768518526-0.204924768518538
1089.7489.646591435185289.72375-0.07715856481481040.0934085648148084
1189.3189.274091435185289.4108333333333-0.1367418981481440.0359085648148181
1289.1689.10610532407489.096250.009855324074072810.0538946759259318
1389.1589.06186921296388.7850.276869212962970.0881307870370449
1488.9888.945133101851988.47708333333330.4680497685185130.0348668981481524
1588.2588.322563657407488.19750.125063657407403-0.0725636574074002
1687.3687.487216435185287.9216666666667-0.434450231481486-0.127216435185176
1787.1387.236521990740787.6295833333333-0.393061342592602-0.106521990740731
1886.9387.080827546296387.35125-0.270422453703708-0.150827546296284
1986.9387.041313657407487.0808333333333-0.0395196759259296-0.111313657407393
2086.9387.096591435185286.8050.291591435185195-0.166591435185182
2186.9886.704508101851986.52458333333330.1799247685185260.275491898148147
2286.1686.154091435185286.23125-0.07715856481481040.00590856481480273
2385.8885.785758101851985.9225-0.1367418981481440.094241898148141
2485.9185.62735532407485.61750.009855324074072810.282644675925923
2585.9185.593952546296385.31708333333330.276869212962970.316047453703703
2685.685.483466435185285.01541666666670.4680497685185130.116533564814802
2784.984.812146990740784.68708333333330.1250636574074030.0878530092592626
2883.6783.910549768518584.345-0.434450231481486-0.240549768518520
2983.4183.612771990740784.0058333333333-0.393061342592602-0.202771990740743
3083.3383.378327546296383.64875-0.270422453703708-0.0483275462962922
3183.3283.243396990740783.2829166666667-0.03951967592592960.0766030092592445
3283.383.222841435185282.931250.2915914351851950.077158564814809
3382.7382.817008101851982.63708333333330.179924768518526-0.0870081018518505
3482.282.356591435185282.43375-0.0771585648148104-0.156591435185177
3581.782.153674768518582.2904166666666-0.136741898148144-0.453674768518496
3681.5282.16985532407482.160.00985532407407281-0.649855324074068
3781.5282.307285879629682.03041666666670.27686921296297-0.787285879629621
3881.5582.420549768518581.95250.468049768518513-0.870549768518515
3981.8982.080896990740881.95583333333330.125063657407403-0.190896990740754
4081.881.564716435185281.9991666666667-0.4344502314814860.235283564814821
4181.8481.67860532407482.0716666666667-0.3930613425926020.161394675925933
4281.7781.900410879629682.1708333333333-0.270422453703708-0.130410879629636
4381.7782.23798032407482.2775-0.0395196759259296-0.467980324074063
4482.9882.682008101851882.39041666666670.2915914351851950.297991898148155
4583.1382.630758101851982.45083333333330.1799247685185260.499241898148142
4682.8482.367841435185282.445-0.07715856481481040.472158564814819
4782.882.283258101851982.42-0.1367418981481440.51674189814814
4882.882.388188657407482.37833333333330.009855324074072810.4118113425926
4982.882.608535879629682.33166666666670.276869212962970.191464120370370
5082.9882.703466435185282.23541666666670.4680497685185130.276533564814827
5181.9182.199230324074182.07416666666670.125063657407403-0.289230324074097
5281.6481.455966435185281.8904166666667-0.4344502314814860.184033564814811
5381.481.306105324074181.6991666666667-0.3930613425926020.0938946759259238
5481.2181.23874421296381.5091666666667-0.270422453703708-0.0287442129629767
5581.2181.281313657407481.3208333333333-0.0395196759259296-0.0713136574074156
5681.2381.424091435185281.13250.291591435185195-0.194091435185172
5781.0181.164924768518580.9850.179924768518526-0.154924768518512
5880.5580.801174768518580.8783333333333-0.0771585648148104-0.251174768518524
5980.580.624924768518580.7616666666667-0.136741898148144-0.124924768518511
6080.5480.64360532407480.633750.00985532407407281-0.103605324074067
6180.5480.781452546296380.50458333333330.27686921296297-0.241452546296287
6280.7280.820549768518580.35250.468049768518513-0.100549768518519
6380.6380.298396990740780.17333333333330.1250636574074030.331603009259254
6480.3679.568883101851880.0033333333333-0.4344502314814860.791116898148161
6579.8879.445688657407479.83875-0.3930613425926020.434311342592594
6679.6679.381660879629679.6520833333334-0.2704224537037080.278339120370347
6779.6679.41173032407479.45125-0.03951967592592960.248269675925926
6879.1379.532008101851979.24041666666670.291591435185195-0.402008101851862
6978.8179.156174768518578.976250.179924768518526-0.346174768518537
7078.6778.520758101851978.5979166666667-0.07715856481481040.149241898148148
7178.4378.033258101851978.17-0.1367418981481440.39674189814815
7278.1377.786521990740777.77666666666670.009855324074072810.343478009259272
7378.1377.673535879629677.39666666666660.276869212962970.456464120370384
7478.0777.503466435185277.03541666666670.4680497685185130.566533564814819
7576.9476.783396990740776.65833333333330.1250636574074030.156603009259257
7674.9775.789299768518576.22375-0.434450231481486-0.819299768518505
777575.356938657407475.75-0.393061342592602-0.356938657407412
7875.174.996660879629675.2670833333333-0.2704224537037080.103339120370364
7975.174.750896990740774.7904166666667-0.03951967592592960.349103009259267
8075.0274.609091435185274.31750.2915914351851950.410908564814804
8173.8774.033258101851973.85333333333330.179924768518526-0.163258101851866
8273.1873.376174768518573.4533333333333-0.0771585648148104-0.196174768518517
8372.5572.955758101851973.0925-0.136741898148144-0.405758101851859
8472.4272.68110532407472.671250.00985532407407281-0.261105324074066
8572.472.487285879629672.21041666666670.27686921296297-0.0872858796296327
8672.4572.215549768518571.74750.4680497685185130.234450231481489
8771.4271.405896990740771.28083333333330.1250636574074030.0141030092592587
8870.8970.348883101851870.7833333333333-0.4344502314814860.541116898148161
8970.4269.87485532407470.2679166666667-0.3930613425926020.54514467592594
9069.5769.497077546296369.7675-0.2704224537037080.072922453703697
9169.57NANA-0.0395196759259296NA
9269.44NANA0.291591435185195NA
9368.25NANA0.179924768518526NA
9466.86NANA-0.0771585648148104NA
9566.5NANA-0.136741898148144NA
9666.46NANA0.00985532407407281NA

\begin{tabular}{lllllllll}
\hline
Classical Decomposition by Moving Averages \tabularnewline
t & Observations & Fit & Trend & Seasonal & Random \tabularnewline
1 & 93.89 & NA & NA & 0.27686921296297 & NA \tabularnewline
2 & 93.36 & NA & NA & 0.468049768518513 & NA \tabularnewline
3 & 92.25 & NA & NA & 0.125063657407403 & NA \tabularnewline
4 & 91.07 & NA & NA & -0.434450231481486 & NA \tabularnewline
5 & 90.93 & NA & NA & -0.393061342592602 & NA \tabularnewline
6 & 90.68 & NA & NA & -0.270422453703708 & NA \tabularnewline
7 & 90.65 & 90.7346469907407 & 90.7741666666667 & -0.0395196759259296 & -0.0846469907407226 \tabularnewline
8 & 90.6 & 90.6857581018519 & 90.3941666666667 & 0.291591435185195 & -0.0857581018518658 \tabularnewline
9 & 90.02 & 90.2249247685185 & 90.045 & 0.179924768518526 & -0.204924768518538 \tabularnewline
10 & 89.74 & 89.6465914351852 & 89.72375 & -0.0771585648148104 & 0.0934085648148084 \tabularnewline
11 & 89.31 & 89.2740914351852 & 89.4108333333333 & -0.136741898148144 & 0.0359085648148181 \tabularnewline
12 & 89.16 & 89.106105324074 & 89.09625 & 0.00985532407407281 & 0.0538946759259318 \tabularnewline
13 & 89.15 & 89.061869212963 & 88.785 & 0.27686921296297 & 0.0881307870370449 \tabularnewline
14 & 88.98 & 88.9451331018519 & 88.4770833333333 & 0.468049768518513 & 0.0348668981481524 \tabularnewline
15 & 88.25 & 88.3225636574074 & 88.1975 & 0.125063657407403 & -0.0725636574074002 \tabularnewline
16 & 87.36 & 87.4872164351852 & 87.9216666666667 & -0.434450231481486 & -0.127216435185176 \tabularnewline
17 & 87.13 & 87.2365219907407 & 87.6295833333333 & -0.393061342592602 & -0.106521990740731 \tabularnewline
18 & 86.93 & 87.0808275462963 & 87.35125 & -0.270422453703708 & -0.150827546296284 \tabularnewline
19 & 86.93 & 87.0413136574074 & 87.0808333333333 & -0.0395196759259296 & -0.111313657407393 \tabularnewline
20 & 86.93 & 87.0965914351852 & 86.805 & 0.291591435185195 & -0.166591435185182 \tabularnewline
21 & 86.98 & 86.7045081018519 & 86.5245833333333 & 0.179924768518526 & 0.275491898148147 \tabularnewline
22 & 86.16 & 86.1540914351852 & 86.23125 & -0.0771585648148104 & 0.00590856481480273 \tabularnewline
23 & 85.88 & 85.7857581018519 & 85.9225 & -0.136741898148144 & 0.094241898148141 \tabularnewline
24 & 85.91 & 85.627355324074 & 85.6175 & 0.00985532407407281 & 0.282644675925923 \tabularnewline
25 & 85.91 & 85.5939525462963 & 85.3170833333333 & 0.27686921296297 & 0.316047453703703 \tabularnewline
26 & 85.6 & 85.4834664351852 & 85.0154166666667 & 0.468049768518513 & 0.116533564814802 \tabularnewline
27 & 84.9 & 84.8121469907407 & 84.6870833333333 & 0.125063657407403 & 0.0878530092592626 \tabularnewline
28 & 83.67 & 83.9105497685185 & 84.345 & -0.434450231481486 & -0.240549768518520 \tabularnewline
29 & 83.41 & 83.6127719907407 & 84.0058333333333 & -0.393061342592602 & -0.202771990740743 \tabularnewline
30 & 83.33 & 83.3783275462963 & 83.64875 & -0.270422453703708 & -0.0483275462962922 \tabularnewline
31 & 83.32 & 83.2433969907407 & 83.2829166666667 & -0.0395196759259296 & 0.0766030092592445 \tabularnewline
32 & 83.3 & 83.2228414351852 & 82.93125 & 0.291591435185195 & 0.077158564814809 \tabularnewline
33 & 82.73 & 82.8170081018519 & 82.6370833333333 & 0.179924768518526 & -0.0870081018518505 \tabularnewline
34 & 82.2 & 82.3565914351852 & 82.43375 & -0.0771585648148104 & -0.156591435185177 \tabularnewline
35 & 81.7 & 82.1536747685185 & 82.2904166666666 & -0.136741898148144 & -0.453674768518496 \tabularnewline
36 & 81.52 & 82.169855324074 & 82.16 & 0.00985532407407281 & -0.649855324074068 \tabularnewline
37 & 81.52 & 82.3072858796296 & 82.0304166666667 & 0.27686921296297 & -0.787285879629621 \tabularnewline
38 & 81.55 & 82.4205497685185 & 81.9525 & 0.468049768518513 & -0.870549768518515 \tabularnewline
39 & 81.89 & 82.0808969907408 & 81.9558333333333 & 0.125063657407403 & -0.190896990740754 \tabularnewline
40 & 81.8 & 81.5647164351852 & 81.9991666666667 & -0.434450231481486 & 0.235283564814821 \tabularnewline
41 & 81.84 & 81.678605324074 & 82.0716666666667 & -0.393061342592602 & 0.161394675925933 \tabularnewline
42 & 81.77 & 81.9004108796296 & 82.1708333333333 & -0.270422453703708 & -0.130410879629636 \tabularnewline
43 & 81.77 & 82.237980324074 & 82.2775 & -0.0395196759259296 & -0.467980324074063 \tabularnewline
44 & 82.98 & 82.6820081018518 & 82.3904166666667 & 0.291591435185195 & 0.297991898148155 \tabularnewline
45 & 83.13 & 82.6307581018519 & 82.4508333333333 & 0.179924768518526 & 0.499241898148142 \tabularnewline
46 & 82.84 & 82.3678414351852 & 82.445 & -0.0771585648148104 & 0.472158564814819 \tabularnewline
47 & 82.8 & 82.2832581018519 & 82.42 & -0.136741898148144 & 0.51674189814814 \tabularnewline
48 & 82.8 & 82.3881886574074 & 82.3783333333333 & 0.00985532407407281 & 0.4118113425926 \tabularnewline
49 & 82.8 & 82.6085358796296 & 82.3316666666667 & 0.27686921296297 & 0.191464120370370 \tabularnewline
50 & 82.98 & 82.7034664351852 & 82.2354166666667 & 0.468049768518513 & 0.276533564814827 \tabularnewline
51 & 81.91 & 82.1992303240741 & 82.0741666666667 & 0.125063657407403 & -0.289230324074097 \tabularnewline
52 & 81.64 & 81.4559664351852 & 81.8904166666667 & -0.434450231481486 & 0.184033564814811 \tabularnewline
53 & 81.4 & 81.3061053240741 & 81.6991666666667 & -0.393061342592602 & 0.0938946759259238 \tabularnewline
54 & 81.21 & 81.238744212963 & 81.5091666666667 & -0.270422453703708 & -0.0287442129629767 \tabularnewline
55 & 81.21 & 81.2813136574074 & 81.3208333333333 & -0.0395196759259296 & -0.0713136574074156 \tabularnewline
56 & 81.23 & 81.4240914351852 & 81.1325 & 0.291591435185195 & -0.194091435185172 \tabularnewline
57 & 81.01 & 81.1649247685185 & 80.985 & 0.179924768518526 & -0.154924768518512 \tabularnewline
58 & 80.55 & 80.8011747685185 & 80.8783333333333 & -0.0771585648148104 & -0.251174768518524 \tabularnewline
59 & 80.5 & 80.6249247685185 & 80.7616666666667 & -0.136741898148144 & -0.124924768518511 \tabularnewline
60 & 80.54 & 80.643605324074 & 80.63375 & 0.00985532407407281 & -0.103605324074067 \tabularnewline
61 & 80.54 & 80.7814525462963 & 80.5045833333333 & 0.27686921296297 & -0.241452546296287 \tabularnewline
62 & 80.72 & 80.8205497685185 & 80.3525 & 0.468049768518513 & -0.100549768518519 \tabularnewline
63 & 80.63 & 80.2983969907407 & 80.1733333333333 & 0.125063657407403 & 0.331603009259254 \tabularnewline
64 & 80.36 & 79.5688831018518 & 80.0033333333333 & -0.434450231481486 & 0.791116898148161 \tabularnewline
65 & 79.88 & 79.4456886574074 & 79.83875 & -0.393061342592602 & 0.434311342592594 \tabularnewline
66 & 79.66 & 79.3816608796296 & 79.6520833333334 & -0.270422453703708 & 0.278339120370347 \tabularnewline
67 & 79.66 & 79.411730324074 & 79.45125 & -0.0395196759259296 & 0.248269675925926 \tabularnewline
68 & 79.13 & 79.5320081018519 & 79.2404166666667 & 0.291591435185195 & -0.402008101851862 \tabularnewline
69 & 78.81 & 79.1561747685185 & 78.97625 & 0.179924768518526 & -0.346174768518537 \tabularnewline
70 & 78.67 & 78.5207581018519 & 78.5979166666667 & -0.0771585648148104 & 0.149241898148148 \tabularnewline
71 & 78.43 & 78.0332581018519 & 78.17 & -0.136741898148144 & 0.39674189814815 \tabularnewline
72 & 78.13 & 77.7865219907407 & 77.7766666666667 & 0.00985532407407281 & 0.343478009259272 \tabularnewline
73 & 78.13 & 77.6735358796296 & 77.3966666666666 & 0.27686921296297 & 0.456464120370384 \tabularnewline
74 & 78.07 & 77.5034664351852 & 77.0354166666667 & 0.468049768518513 & 0.566533564814819 \tabularnewline
75 & 76.94 & 76.7833969907407 & 76.6583333333333 & 0.125063657407403 & 0.156603009259257 \tabularnewline
76 & 74.97 & 75.7892997685185 & 76.22375 & -0.434450231481486 & -0.819299768518505 \tabularnewline
77 & 75 & 75.3569386574074 & 75.75 & -0.393061342592602 & -0.356938657407412 \tabularnewline
78 & 75.1 & 74.9966608796296 & 75.2670833333333 & -0.270422453703708 & 0.103339120370364 \tabularnewline
79 & 75.1 & 74.7508969907407 & 74.7904166666667 & -0.0395196759259296 & 0.349103009259267 \tabularnewline
80 & 75.02 & 74.6090914351852 & 74.3175 & 0.291591435185195 & 0.410908564814804 \tabularnewline
81 & 73.87 & 74.0332581018519 & 73.8533333333333 & 0.179924768518526 & -0.163258101851866 \tabularnewline
82 & 73.18 & 73.3761747685185 & 73.4533333333333 & -0.0771585648148104 & -0.196174768518517 \tabularnewline
83 & 72.55 & 72.9557581018519 & 73.0925 & -0.136741898148144 & -0.405758101851859 \tabularnewline
84 & 72.42 & 72.681105324074 & 72.67125 & 0.00985532407407281 & -0.261105324074066 \tabularnewline
85 & 72.4 & 72.4872858796296 & 72.2104166666667 & 0.27686921296297 & -0.0872858796296327 \tabularnewline
86 & 72.45 & 72.2155497685185 & 71.7475 & 0.468049768518513 & 0.234450231481489 \tabularnewline
87 & 71.42 & 71.4058969907407 & 71.2808333333333 & 0.125063657407403 & 0.0141030092592587 \tabularnewline
88 & 70.89 & 70.3488831018518 & 70.7833333333333 & -0.434450231481486 & 0.541116898148161 \tabularnewline
89 & 70.42 & 69.874855324074 & 70.2679166666667 & -0.393061342592602 & 0.54514467592594 \tabularnewline
90 & 69.57 & 69.4970775462963 & 69.7675 & -0.270422453703708 & 0.072922453703697 \tabularnewline
91 & 69.57 & NA & NA & -0.0395196759259296 & NA \tabularnewline
92 & 69.44 & NA & NA & 0.291591435185195 & NA \tabularnewline
93 & 68.25 & NA & NA & 0.179924768518526 & NA \tabularnewline
94 & 66.86 & NA & NA & -0.0771585648148104 & NA \tabularnewline
95 & 66.5 & NA & NA & -0.136741898148144 & NA \tabularnewline
96 & 66.46 & NA & NA & 0.00985532407407281 & NA \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=36885&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]93.89[/C][C]NA[/C][C]NA[/C][C]0.27686921296297[/C][C]NA[/C][/ROW]
[ROW][C]2[/C][C]93.36[/C][C]NA[/C][C]NA[/C][C]0.468049768518513[/C][C]NA[/C][/ROW]
[ROW][C]3[/C][C]92.25[/C][C]NA[/C][C]NA[/C][C]0.125063657407403[/C][C]NA[/C][/ROW]
[ROW][C]4[/C][C]91.07[/C][C]NA[/C][C]NA[/C][C]-0.434450231481486[/C][C]NA[/C][/ROW]
[ROW][C]5[/C][C]90.93[/C][C]NA[/C][C]NA[/C][C]-0.393061342592602[/C][C]NA[/C][/ROW]
[ROW][C]6[/C][C]90.68[/C][C]NA[/C][C]NA[/C][C]-0.270422453703708[/C][C]NA[/C][/ROW]
[ROW][C]7[/C][C]90.65[/C][C]90.7346469907407[/C][C]90.7741666666667[/C][C]-0.0395196759259296[/C][C]-0.0846469907407226[/C][/ROW]
[ROW][C]8[/C][C]90.6[/C][C]90.6857581018519[/C][C]90.3941666666667[/C][C]0.291591435185195[/C][C]-0.0857581018518658[/C][/ROW]
[ROW][C]9[/C][C]90.02[/C][C]90.2249247685185[/C][C]90.045[/C][C]0.179924768518526[/C][C]-0.204924768518538[/C][/ROW]
[ROW][C]10[/C][C]89.74[/C][C]89.6465914351852[/C][C]89.72375[/C][C]-0.0771585648148104[/C][C]0.0934085648148084[/C][/ROW]
[ROW][C]11[/C][C]89.31[/C][C]89.2740914351852[/C][C]89.4108333333333[/C][C]-0.136741898148144[/C][C]0.0359085648148181[/C][/ROW]
[ROW][C]12[/C][C]89.16[/C][C]89.106105324074[/C][C]89.09625[/C][C]0.00985532407407281[/C][C]0.0538946759259318[/C][/ROW]
[ROW][C]13[/C][C]89.15[/C][C]89.061869212963[/C][C]88.785[/C][C]0.27686921296297[/C][C]0.0881307870370449[/C][/ROW]
[ROW][C]14[/C][C]88.98[/C][C]88.9451331018519[/C][C]88.4770833333333[/C][C]0.468049768518513[/C][C]0.0348668981481524[/C][/ROW]
[ROW][C]15[/C][C]88.25[/C][C]88.3225636574074[/C][C]88.1975[/C][C]0.125063657407403[/C][C]-0.0725636574074002[/C][/ROW]
[ROW][C]16[/C][C]87.36[/C][C]87.4872164351852[/C][C]87.9216666666667[/C][C]-0.434450231481486[/C][C]-0.127216435185176[/C][/ROW]
[ROW][C]17[/C][C]87.13[/C][C]87.2365219907407[/C][C]87.6295833333333[/C][C]-0.393061342592602[/C][C]-0.106521990740731[/C][/ROW]
[ROW][C]18[/C][C]86.93[/C][C]87.0808275462963[/C][C]87.35125[/C][C]-0.270422453703708[/C][C]-0.150827546296284[/C][/ROW]
[ROW][C]19[/C][C]86.93[/C][C]87.0413136574074[/C][C]87.0808333333333[/C][C]-0.0395196759259296[/C][C]-0.111313657407393[/C][/ROW]
[ROW][C]20[/C][C]86.93[/C][C]87.0965914351852[/C][C]86.805[/C][C]0.291591435185195[/C][C]-0.166591435185182[/C][/ROW]
[ROW][C]21[/C][C]86.98[/C][C]86.7045081018519[/C][C]86.5245833333333[/C][C]0.179924768518526[/C][C]0.275491898148147[/C][/ROW]
[ROW][C]22[/C][C]86.16[/C][C]86.1540914351852[/C][C]86.23125[/C][C]-0.0771585648148104[/C][C]0.00590856481480273[/C][/ROW]
[ROW][C]23[/C][C]85.88[/C][C]85.7857581018519[/C][C]85.9225[/C][C]-0.136741898148144[/C][C]0.094241898148141[/C][/ROW]
[ROW][C]24[/C][C]85.91[/C][C]85.627355324074[/C][C]85.6175[/C][C]0.00985532407407281[/C][C]0.282644675925923[/C][/ROW]
[ROW][C]25[/C][C]85.91[/C][C]85.5939525462963[/C][C]85.3170833333333[/C][C]0.27686921296297[/C][C]0.316047453703703[/C][/ROW]
[ROW][C]26[/C][C]85.6[/C][C]85.4834664351852[/C][C]85.0154166666667[/C][C]0.468049768518513[/C][C]0.116533564814802[/C][/ROW]
[ROW][C]27[/C][C]84.9[/C][C]84.8121469907407[/C][C]84.6870833333333[/C][C]0.125063657407403[/C][C]0.0878530092592626[/C][/ROW]
[ROW][C]28[/C][C]83.67[/C][C]83.9105497685185[/C][C]84.345[/C][C]-0.434450231481486[/C][C]-0.240549768518520[/C][/ROW]
[ROW][C]29[/C][C]83.41[/C][C]83.6127719907407[/C][C]84.0058333333333[/C][C]-0.393061342592602[/C][C]-0.202771990740743[/C][/ROW]
[ROW][C]30[/C][C]83.33[/C][C]83.3783275462963[/C][C]83.64875[/C][C]-0.270422453703708[/C][C]-0.0483275462962922[/C][/ROW]
[ROW][C]31[/C][C]83.32[/C][C]83.2433969907407[/C][C]83.2829166666667[/C][C]-0.0395196759259296[/C][C]0.0766030092592445[/C][/ROW]
[ROW][C]32[/C][C]83.3[/C][C]83.2228414351852[/C][C]82.93125[/C][C]0.291591435185195[/C][C]0.077158564814809[/C][/ROW]
[ROW][C]33[/C][C]82.73[/C][C]82.8170081018519[/C][C]82.6370833333333[/C][C]0.179924768518526[/C][C]-0.0870081018518505[/C][/ROW]
[ROW][C]34[/C][C]82.2[/C][C]82.3565914351852[/C][C]82.43375[/C][C]-0.0771585648148104[/C][C]-0.156591435185177[/C][/ROW]
[ROW][C]35[/C][C]81.7[/C][C]82.1536747685185[/C][C]82.2904166666666[/C][C]-0.136741898148144[/C][C]-0.453674768518496[/C][/ROW]
[ROW][C]36[/C][C]81.52[/C][C]82.169855324074[/C][C]82.16[/C][C]0.00985532407407281[/C][C]-0.649855324074068[/C][/ROW]
[ROW][C]37[/C][C]81.52[/C][C]82.3072858796296[/C][C]82.0304166666667[/C][C]0.27686921296297[/C][C]-0.787285879629621[/C][/ROW]
[ROW][C]38[/C][C]81.55[/C][C]82.4205497685185[/C][C]81.9525[/C][C]0.468049768518513[/C][C]-0.870549768518515[/C][/ROW]
[ROW][C]39[/C][C]81.89[/C][C]82.0808969907408[/C][C]81.9558333333333[/C][C]0.125063657407403[/C][C]-0.190896990740754[/C][/ROW]
[ROW][C]40[/C][C]81.8[/C][C]81.5647164351852[/C][C]81.9991666666667[/C][C]-0.434450231481486[/C][C]0.235283564814821[/C][/ROW]
[ROW][C]41[/C][C]81.84[/C][C]81.678605324074[/C][C]82.0716666666667[/C][C]-0.393061342592602[/C][C]0.161394675925933[/C][/ROW]
[ROW][C]42[/C][C]81.77[/C][C]81.9004108796296[/C][C]82.1708333333333[/C][C]-0.270422453703708[/C][C]-0.130410879629636[/C][/ROW]
[ROW][C]43[/C][C]81.77[/C][C]82.237980324074[/C][C]82.2775[/C][C]-0.0395196759259296[/C][C]-0.467980324074063[/C][/ROW]
[ROW][C]44[/C][C]82.98[/C][C]82.6820081018518[/C][C]82.3904166666667[/C][C]0.291591435185195[/C][C]0.297991898148155[/C][/ROW]
[ROW][C]45[/C][C]83.13[/C][C]82.6307581018519[/C][C]82.4508333333333[/C][C]0.179924768518526[/C][C]0.499241898148142[/C][/ROW]
[ROW][C]46[/C][C]82.84[/C][C]82.3678414351852[/C][C]82.445[/C][C]-0.0771585648148104[/C][C]0.472158564814819[/C][/ROW]
[ROW][C]47[/C][C]82.8[/C][C]82.2832581018519[/C][C]82.42[/C][C]-0.136741898148144[/C][C]0.51674189814814[/C][/ROW]
[ROW][C]48[/C][C]82.8[/C][C]82.3881886574074[/C][C]82.3783333333333[/C][C]0.00985532407407281[/C][C]0.4118113425926[/C][/ROW]
[ROW][C]49[/C][C]82.8[/C][C]82.6085358796296[/C][C]82.3316666666667[/C][C]0.27686921296297[/C][C]0.191464120370370[/C][/ROW]
[ROW][C]50[/C][C]82.98[/C][C]82.7034664351852[/C][C]82.2354166666667[/C][C]0.468049768518513[/C][C]0.276533564814827[/C][/ROW]
[ROW][C]51[/C][C]81.91[/C][C]82.1992303240741[/C][C]82.0741666666667[/C][C]0.125063657407403[/C][C]-0.289230324074097[/C][/ROW]
[ROW][C]52[/C][C]81.64[/C][C]81.4559664351852[/C][C]81.8904166666667[/C][C]-0.434450231481486[/C][C]0.184033564814811[/C][/ROW]
[ROW][C]53[/C][C]81.4[/C][C]81.3061053240741[/C][C]81.6991666666667[/C][C]-0.393061342592602[/C][C]0.0938946759259238[/C][/ROW]
[ROW][C]54[/C][C]81.21[/C][C]81.238744212963[/C][C]81.5091666666667[/C][C]-0.270422453703708[/C][C]-0.0287442129629767[/C][/ROW]
[ROW][C]55[/C][C]81.21[/C][C]81.2813136574074[/C][C]81.3208333333333[/C][C]-0.0395196759259296[/C][C]-0.0713136574074156[/C][/ROW]
[ROW][C]56[/C][C]81.23[/C][C]81.4240914351852[/C][C]81.1325[/C][C]0.291591435185195[/C][C]-0.194091435185172[/C][/ROW]
[ROW][C]57[/C][C]81.01[/C][C]81.1649247685185[/C][C]80.985[/C][C]0.179924768518526[/C][C]-0.154924768518512[/C][/ROW]
[ROW][C]58[/C][C]80.55[/C][C]80.8011747685185[/C][C]80.8783333333333[/C][C]-0.0771585648148104[/C][C]-0.251174768518524[/C][/ROW]
[ROW][C]59[/C][C]80.5[/C][C]80.6249247685185[/C][C]80.7616666666667[/C][C]-0.136741898148144[/C][C]-0.124924768518511[/C][/ROW]
[ROW][C]60[/C][C]80.54[/C][C]80.643605324074[/C][C]80.63375[/C][C]0.00985532407407281[/C][C]-0.103605324074067[/C][/ROW]
[ROW][C]61[/C][C]80.54[/C][C]80.7814525462963[/C][C]80.5045833333333[/C][C]0.27686921296297[/C][C]-0.241452546296287[/C][/ROW]
[ROW][C]62[/C][C]80.72[/C][C]80.8205497685185[/C][C]80.3525[/C][C]0.468049768518513[/C][C]-0.100549768518519[/C][/ROW]
[ROW][C]63[/C][C]80.63[/C][C]80.2983969907407[/C][C]80.1733333333333[/C][C]0.125063657407403[/C][C]0.331603009259254[/C][/ROW]
[ROW][C]64[/C][C]80.36[/C][C]79.5688831018518[/C][C]80.0033333333333[/C][C]-0.434450231481486[/C][C]0.791116898148161[/C][/ROW]
[ROW][C]65[/C][C]79.88[/C][C]79.4456886574074[/C][C]79.83875[/C][C]-0.393061342592602[/C][C]0.434311342592594[/C][/ROW]
[ROW][C]66[/C][C]79.66[/C][C]79.3816608796296[/C][C]79.6520833333334[/C][C]-0.270422453703708[/C][C]0.278339120370347[/C][/ROW]
[ROW][C]67[/C][C]79.66[/C][C]79.411730324074[/C][C]79.45125[/C][C]-0.0395196759259296[/C][C]0.248269675925926[/C][/ROW]
[ROW][C]68[/C][C]79.13[/C][C]79.5320081018519[/C][C]79.2404166666667[/C][C]0.291591435185195[/C][C]-0.402008101851862[/C][/ROW]
[ROW][C]69[/C][C]78.81[/C][C]79.1561747685185[/C][C]78.97625[/C][C]0.179924768518526[/C][C]-0.346174768518537[/C][/ROW]
[ROW][C]70[/C][C]78.67[/C][C]78.5207581018519[/C][C]78.5979166666667[/C][C]-0.0771585648148104[/C][C]0.149241898148148[/C][/ROW]
[ROW][C]71[/C][C]78.43[/C][C]78.0332581018519[/C][C]78.17[/C][C]-0.136741898148144[/C][C]0.39674189814815[/C][/ROW]
[ROW][C]72[/C][C]78.13[/C][C]77.7865219907407[/C][C]77.7766666666667[/C][C]0.00985532407407281[/C][C]0.343478009259272[/C][/ROW]
[ROW][C]73[/C][C]78.13[/C][C]77.6735358796296[/C][C]77.3966666666666[/C][C]0.27686921296297[/C][C]0.456464120370384[/C][/ROW]
[ROW][C]74[/C][C]78.07[/C][C]77.5034664351852[/C][C]77.0354166666667[/C][C]0.468049768518513[/C][C]0.566533564814819[/C][/ROW]
[ROW][C]75[/C][C]76.94[/C][C]76.7833969907407[/C][C]76.6583333333333[/C][C]0.125063657407403[/C][C]0.156603009259257[/C][/ROW]
[ROW][C]76[/C][C]74.97[/C][C]75.7892997685185[/C][C]76.22375[/C][C]-0.434450231481486[/C][C]-0.819299768518505[/C][/ROW]
[ROW][C]77[/C][C]75[/C][C]75.3569386574074[/C][C]75.75[/C][C]-0.393061342592602[/C][C]-0.356938657407412[/C][/ROW]
[ROW][C]78[/C][C]75.1[/C][C]74.9966608796296[/C][C]75.2670833333333[/C][C]-0.270422453703708[/C][C]0.103339120370364[/C][/ROW]
[ROW][C]79[/C][C]75.1[/C][C]74.7508969907407[/C][C]74.7904166666667[/C][C]-0.0395196759259296[/C][C]0.349103009259267[/C][/ROW]
[ROW][C]80[/C][C]75.02[/C][C]74.6090914351852[/C][C]74.3175[/C][C]0.291591435185195[/C][C]0.410908564814804[/C][/ROW]
[ROW][C]81[/C][C]73.87[/C][C]74.0332581018519[/C][C]73.8533333333333[/C][C]0.179924768518526[/C][C]-0.163258101851866[/C][/ROW]
[ROW][C]82[/C][C]73.18[/C][C]73.3761747685185[/C][C]73.4533333333333[/C][C]-0.0771585648148104[/C][C]-0.196174768518517[/C][/ROW]
[ROW][C]83[/C][C]72.55[/C][C]72.9557581018519[/C][C]73.0925[/C][C]-0.136741898148144[/C][C]-0.405758101851859[/C][/ROW]
[ROW][C]84[/C][C]72.42[/C][C]72.681105324074[/C][C]72.67125[/C][C]0.00985532407407281[/C][C]-0.261105324074066[/C][/ROW]
[ROW][C]85[/C][C]72.4[/C][C]72.4872858796296[/C][C]72.2104166666667[/C][C]0.27686921296297[/C][C]-0.0872858796296327[/C][/ROW]
[ROW][C]86[/C][C]72.45[/C][C]72.2155497685185[/C][C]71.7475[/C][C]0.468049768518513[/C][C]0.234450231481489[/C][/ROW]
[ROW][C]87[/C][C]71.42[/C][C]71.4058969907407[/C][C]71.2808333333333[/C][C]0.125063657407403[/C][C]0.0141030092592587[/C][/ROW]
[ROW][C]88[/C][C]70.89[/C][C]70.3488831018518[/C][C]70.7833333333333[/C][C]-0.434450231481486[/C][C]0.541116898148161[/C][/ROW]
[ROW][C]89[/C][C]70.42[/C][C]69.874855324074[/C][C]70.2679166666667[/C][C]-0.393061342592602[/C][C]0.54514467592594[/C][/ROW]
[ROW][C]90[/C][C]69.57[/C][C]69.4970775462963[/C][C]69.7675[/C][C]-0.270422453703708[/C][C]0.072922453703697[/C][/ROW]
[ROW][C]91[/C][C]69.57[/C][C]NA[/C][C]NA[/C][C]-0.0395196759259296[/C][C]NA[/C][/ROW]
[ROW][C]92[/C][C]69.44[/C][C]NA[/C][C]NA[/C][C]0.291591435185195[/C][C]NA[/C][/ROW]
[ROW][C]93[/C][C]68.25[/C][C]NA[/C][C]NA[/C][C]0.179924768518526[/C][C]NA[/C][/ROW]
[ROW][C]94[/C][C]66.86[/C][C]NA[/C][C]NA[/C][C]-0.0771585648148104[/C][C]NA[/C][/ROW]
[ROW][C]95[/C][C]66.5[/C][C]NA[/C][C]NA[/C][C]-0.136741898148144[/C][C]NA[/C][/ROW]
[ROW][C]96[/C][C]66.46[/C][C]NA[/C][C]NA[/C][C]0.00985532407407281[/C][C]NA[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=36885&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=36885&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
193.89NANA0.27686921296297NA
293.36NANA0.468049768518513NA
392.25NANA0.125063657407403NA
491.07NANA-0.434450231481486NA
590.93NANA-0.393061342592602NA
690.68NANA-0.270422453703708NA
790.6590.734646990740790.7741666666667-0.0395196759259296-0.0846469907407226
890.690.685758101851990.39416666666670.291591435185195-0.0857581018518658
990.0290.224924768518590.0450.179924768518526-0.204924768518538
1089.7489.646591435185289.72375-0.07715856481481040.0934085648148084
1189.3189.274091435185289.4108333333333-0.1367418981481440.0359085648148181
1289.1689.10610532407489.096250.009855324074072810.0538946759259318
1389.1589.06186921296388.7850.276869212962970.0881307870370449
1488.9888.945133101851988.47708333333330.4680497685185130.0348668981481524
1588.2588.322563657407488.19750.125063657407403-0.0725636574074002
1687.3687.487216435185287.9216666666667-0.434450231481486-0.127216435185176
1787.1387.236521990740787.6295833333333-0.393061342592602-0.106521990740731
1886.9387.080827546296387.35125-0.270422453703708-0.150827546296284
1986.9387.041313657407487.0808333333333-0.0395196759259296-0.111313657407393
2086.9387.096591435185286.8050.291591435185195-0.166591435185182
2186.9886.704508101851986.52458333333330.1799247685185260.275491898148147
2286.1686.154091435185286.23125-0.07715856481481040.00590856481480273
2385.8885.785758101851985.9225-0.1367418981481440.094241898148141
2485.9185.62735532407485.61750.009855324074072810.282644675925923
2585.9185.593952546296385.31708333333330.276869212962970.316047453703703
2685.685.483466435185285.01541666666670.4680497685185130.116533564814802
2784.984.812146990740784.68708333333330.1250636574074030.0878530092592626
2883.6783.910549768518584.345-0.434450231481486-0.240549768518520
2983.4183.612771990740784.0058333333333-0.393061342592602-0.202771990740743
3083.3383.378327546296383.64875-0.270422453703708-0.0483275462962922
3183.3283.243396990740783.2829166666667-0.03951967592592960.0766030092592445
3283.383.222841435185282.931250.2915914351851950.077158564814809
3382.7382.817008101851982.63708333333330.179924768518526-0.0870081018518505
3482.282.356591435185282.43375-0.0771585648148104-0.156591435185177
3581.782.153674768518582.2904166666666-0.136741898148144-0.453674768518496
3681.5282.16985532407482.160.00985532407407281-0.649855324074068
3781.5282.307285879629682.03041666666670.27686921296297-0.787285879629621
3881.5582.420549768518581.95250.468049768518513-0.870549768518515
3981.8982.080896990740881.95583333333330.125063657407403-0.190896990740754
4081.881.564716435185281.9991666666667-0.4344502314814860.235283564814821
4181.8481.67860532407482.0716666666667-0.3930613425926020.161394675925933
4281.7781.900410879629682.1708333333333-0.270422453703708-0.130410879629636
4381.7782.23798032407482.2775-0.0395196759259296-0.467980324074063
4482.9882.682008101851882.39041666666670.2915914351851950.297991898148155
4583.1382.630758101851982.45083333333330.1799247685185260.499241898148142
4682.8482.367841435185282.445-0.07715856481481040.472158564814819
4782.882.283258101851982.42-0.1367418981481440.51674189814814
4882.882.388188657407482.37833333333330.009855324074072810.4118113425926
4982.882.608535879629682.33166666666670.276869212962970.191464120370370
5082.9882.703466435185282.23541666666670.4680497685185130.276533564814827
5181.9182.199230324074182.07416666666670.125063657407403-0.289230324074097
5281.6481.455966435185281.8904166666667-0.4344502314814860.184033564814811
5381.481.306105324074181.6991666666667-0.3930613425926020.0938946759259238
5481.2181.23874421296381.5091666666667-0.270422453703708-0.0287442129629767
5581.2181.281313657407481.3208333333333-0.0395196759259296-0.0713136574074156
5681.2381.424091435185281.13250.291591435185195-0.194091435185172
5781.0181.164924768518580.9850.179924768518526-0.154924768518512
5880.5580.801174768518580.8783333333333-0.0771585648148104-0.251174768518524
5980.580.624924768518580.7616666666667-0.136741898148144-0.124924768518511
6080.5480.64360532407480.633750.00985532407407281-0.103605324074067
6180.5480.781452546296380.50458333333330.27686921296297-0.241452546296287
6280.7280.820549768518580.35250.468049768518513-0.100549768518519
6380.6380.298396990740780.17333333333330.1250636574074030.331603009259254
6480.3679.568883101851880.0033333333333-0.4344502314814860.791116898148161
6579.8879.445688657407479.83875-0.3930613425926020.434311342592594
6679.6679.381660879629679.6520833333334-0.2704224537037080.278339120370347
6779.6679.41173032407479.45125-0.03951967592592960.248269675925926
6879.1379.532008101851979.24041666666670.291591435185195-0.402008101851862
6978.8179.156174768518578.976250.179924768518526-0.346174768518537
7078.6778.520758101851978.5979166666667-0.07715856481481040.149241898148148
7178.4378.033258101851978.17-0.1367418981481440.39674189814815
7278.1377.786521990740777.77666666666670.009855324074072810.343478009259272
7378.1377.673535879629677.39666666666660.276869212962970.456464120370384
7478.0777.503466435185277.03541666666670.4680497685185130.566533564814819
7576.9476.783396990740776.65833333333330.1250636574074030.156603009259257
7674.9775.789299768518576.22375-0.434450231481486-0.819299768518505
777575.356938657407475.75-0.393061342592602-0.356938657407412
7875.174.996660879629675.2670833333333-0.2704224537037080.103339120370364
7975.174.750896990740774.7904166666667-0.03951967592592960.349103009259267
8075.0274.609091435185274.31750.2915914351851950.410908564814804
8173.8774.033258101851973.85333333333330.179924768518526-0.163258101851866
8273.1873.376174768518573.4533333333333-0.0771585648148104-0.196174768518517
8372.5572.955758101851973.0925-0.136741898148144-0.405758101851859
8472.4272.68110532407472.671250.00985532407407281-0.261105324074066
8572.472.487285879629672.21041666666670.27686921296297-0.0872858796296327
8672.4572.215549768518571.74750.4680497685185130.234450231481489
8771.4271.405896990740771.28083333333330.1250636574074030.0141030092592587
8870.8970.348883101851870.7833333333333-0.4344502314814860.541116898148161
8970.4269.87485532407470.2679166666667-0.3930613425926020.54514467592594
9069.5769.497077546296369.7675-0.2704224537037080.072922453703697
9169.57NANA-0.0395196759259296NA
9269.44NANA0.291591435185195NA
9368.25NANA0.179924768518526NA
9466.86NANA-0.0771585648148104NA
9566.5NANA-0.136741898148144NA
9666.46NANA0.00985532407407281NA



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,m$trend[i]+m$seasonal[i]) else a<-table.element(a,m$trend[i]*m$seasonal[i])
a<-table.element(a,m$trend[i])
a<-table.element(a,m$seasonal[i])
a<-table.element(a,m$random[i])
a<-table.row.end(a)
}
a<-table.end(a)
table.save(a,file='mytable.tab')