Free Statistics

of Irreproducible Research!

Author's title

Author*Unverified author*
R Software Modulerwasp_decompose.wasp
Title produced by softwareClassical Decomposition
Date of computationMon, 25 Apr 2016 09:56:34 +0100
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2016/Apr/25/t1461574729gw6fnyatb590mz2.htm/, Retrieved Mon, 06 May 2024 09:27:12 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=294666, Retrieved Mon, 06 May 2024 09:27:12 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact113
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Classical Decomposition] [consumptieprijsin...] [2016-04-25 08:56:34] [567a9be58124adae7ccc8a0c8709ba48] [Current]
Feedback Forum

Post a new message
Dataseries X:
84,97
85,57
85,74
85,88
85,88
85,96
85,96
85,99
86,02
86,14
86,3
86,32
86,32
86,77
87,47
87,39
87,3
87,31
87,31
87,38
87,4
87,32
87,37
87,4
87,4
87,89
87,7
87,89
88,02
88,08
88,08
88,15
88,21
88,41
88,39
88,41
88,41
89,1
90,35
90,61
91,18
91,22
91,22
91,4
91,52
91,68
91,71
91,77
91,77
92,16
93,64
93,78
93,96
93,82
93,82
93,89
94,05
94,46
94,62
94,72
94,72
95,76
96,14
97,11
97,19
97,43
97,43
97,56
97,66
97,75
97,82
97,82
97,82
98,35
98,19
98,19
98,21
98,22
98,26
98,23
98,26
98,5
98,51
98,51
98,51
98,89
99,55
99,9
100,12
100,09
100,09
100,09
100,46
100,71
100,79
100,79
100,93
101,15
101,53
101,91
102,18
102,24
102,2
102,32
102,43
102,45
102,84
102,96
102,96
103,1
103,4
103,74
103,97
104,29
104,33
104,46
104,9
105,31
105,63
105,68




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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=294666&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 time3 seconds
R Server'George Udny Yule' @ yule.wessa.net







Classical Decomposition by Moving Averages
tObservationsFitTrendSeasonalRandom
184.97NANA-0.437407NA
285.57NANA-0.126852NA
385.74NANA0.233565NA
485.88NANA0.340741NA
585.88NANA0.341389NA
685.96NANA0.225602NA
785.9686.013185.95040.0626852-0.0531019
885.9986.02686.0567-0.0306481-0.0360185
986.0286.096386.1787-0.0824537-0.0762963
1086.1486.223586.3137-0.0902315-0.0835185
1186.386.282586.4358-0.1533330.0175
1286.3286.268286.5512-0.2830560.0518056
1386.3286.226386.6637-0.4374070.0936574
1486.7786.651186.7779-0.1268520.118935
1587.4787.126986.89330.2335650.343102
1687.3987.3407870.3407410.0492593
1787.387.435187.09370.341389-0.135139
1887.3187.408987.18330.225602-0.0989352
1987.3187.33687.27330.0626852-0.0260185
2087.3887.334487.365-0.03064810.0456481
2187.487.338887.4212-0.08245370.0612037
2287.3287.361487.4517-0.0902315-0.0414352
2387.3787.349287.5025-0.1533330.0208333
2487.487.281587.5646-0.2830560.118472
2587.487.191387.6288-0.4374070.208657
2687.8987.566187.6929-0.1268520.323935
2787.787.992387.75880.233565-0.292315
2887.8988.178787.83790.340741-0.288657
2988.0288.267287.92580.341389-0.247222
3088.0888.23688.01040.225602-0.156019
3188.0888.157388.09460.0626852-0.0772685
3288.1588.156488.1871-0.0306481-0.00643519
3388.2188.265588.3479-0.0824537-0.055463
3488.4188.481488.5717-0.0902315-0.0714352
3588.3988.663388.8167-0.153333-0.273333
3688.4188.796189.0792-0.283056-0.386111
3788.4188.903489.3408-0.437407-0.493426
3889.189.480289.6071-0.126852-0.380231
3990.3590.11489.88040.2335650.236019
4090.6190.495390.15460.3407410.114676
4191.1890.770690.42920.3413890.409444
4291.2290.933190.70750.2256020.286898
4391.2291.050290.98750.06268520.169815
4491.491.224491.255-0.03064810.175648
4591.5291.437191.5196-0.08245370.0828704
4691.6891.698591.7887-0.0902315-0.0185185
4791.7191.883392.0367-0.153333-0.173333
4891.7791.977892.2608-0.283056-0.207778
4991.7792.040192.4775-0.437407-0.270093
5092.1692.562792.6896-0.126852-0.402731
5193.6493.132392.89870.2335650.507685
5293.7893.460793.120.3407410.319259
5393.9693.698593.35710.3413890.261528
5493.8293.826993.60120.225602-0.00685185
5593.8293.909893.84710.0626852-0.0897685
5693.8994.089494.12-0.0306481-0.199352
5794.0594.291794.3742-0.0824537-0.241713
5894.4694.526994.6171-0.0902315-0.0668519
5994.6294.737194.8904-0.153333-0.117083
6094.7294.892495.1754-0.283056-0.172361
6194.7295.038895.4763-0.437407-0.318843
6295.7695.652795.7796-0.1268520.107269
6396.1496.316596.08290.233565-0.176481
6497.1196.711296.37040.3407410.398843
6597.1996.982296.64080.3413890.207778
6697.4397.128996.90330.2256020.301065
6797.4397.224497.16170.06268520.205648
6897.5697.368197.3987-0.03064810.191898
6997.6697.509697.5921-0.08245370.15037
7097.7597.632397.7225-0.09023150.117731
7197.8297.656797.81-0.1533330.163333
7297.8297.602497.8854-0.2830560.217639
7397.8297.515597.9529-0.4374070.304491
7498.3597.888698.0154-0.1268520.461435
7598.1998.301998.06830.233565-0.111898
7698.1998.465398.12460.340741-0.275324
7798.2198.52698.18460.341389-0.315972
7898.2298.467798.24210.225602-0.247685
7998.2698.362398.29960.0626852-0.102269
8098.2398.320298.3508-0.0306481-0.0901852
8198.2698.347598.43-0.0824537-0.0875463
8298.598.467798.5579-0.09023150.0323148
8398.5198.555498.7088-0.153333-0.0454167
8498.5198.583298.8663-0.283056-0.0731944
8598.5198.58399.0204-0.437407-0.0730093
8698.8999.047399.1742-0.126852-0.157315
8799.5599.576999.34330.233565-0.0268981
8899.999.867899.52710.3407410.0321759
89100.12100.05699.71420.3413890.0644444
90100.09100.1399.90420.225602-0.0397685
91100.09100.163100.10.0626852-0.0726852
92100.09100.264100.295-0.0306481-0.174352
93100.46100.389100.472-0.08245370.070787
94100.71100.548100.638-0.09023150.162315
95100.79100.654100.808-0.1533330.135833
96100.79100.7100.983-0.2830560.0901389
97100.93100.723101.16-0.4374070.206991
98101.15101.214101.341-0.126852-0.0643981
99101.53101.75101.5160.233565-0.219815
100101.91102.012101.6710.340741-0.101574
101102.18102.17101.8290.3413890.00986111
102102.24102.23102.0050.2256020.00981481
103102.2102.242102.180.0626852-0.0422685
104102.32102.315102.345-0.03064810.00523148
105102.43102.422102.505-0.08245370.00787037
106102.45102.569102.659-0.0902315-0.118519
107102.84102.656102.81-0.1533330.18375
108102.96102.687102.97-0.2830560.273472
109102.96102.706103.144-0.4374070.253657
110103.1103.195103.322-0.126852-0.0948148
111103.4103.747103.5140.233565-0.347315
112103.74104.077103.7360.340741-0.336574
113103.97104.313103.9710.341389-0.342639
114104.29104.426104.2010.225602-0.136435
115104.33NANA0.0626852NA
116104.46NANA-0.0306481NA
117104.9NANA-0.0824537NA
118105.31NANA-0.0902315NA
119105.63NANA-0.153333NA
120105.68NANA-0.283056NA

\begin{tabular}{lllllllll}
\hline
Classical Decomposition by Moving Averages \tabularnewline
t & Observations & Fit & Trend & Seasonal & Random \tabularnewline
1 & 84.97 & NA & NA & -0.437407 & NA \tabularnewline
2 & 85.57 & NA & NA & -0.126852 & NA \tabularnewline
3 & 85.74 & NA & NA & 0.233565 & NA \tabularnewline
4 & 85.88 & NA & NA & 0.340741 & NA \tabularnewline
5 & 85.88 & NA & NA & 0.341389 & NA \tabularnewline
6 & 85.96 & NA & NA & 0.225602 & NA \tabularnewline
7 & 85.96 & 86.0131 & 85.9504 & 0.0626852 & -0.0531019 \tabularnewline
8 & 85.99 & 86.026 & 86.0567 & -0.0306481 & -0.0360185 \tabularnewline
9 & 86.02 & 86.0963 & 86.1787 & -0.0824537 & -0.0762963 \tabularnewline
10 & 86.14 & 86.2235 & 86.3137 & -0.0902315 & -0.0835185 \tabularnewline
11 & 86.3 & 86.2825 & 86.4358 & -0.153333 & 0.0175 \tabularnewline
12 & 86.32 & 86.2682 & 86.5512 & -0.283056 & 0.0518056 \tabularnewline
13 & 86.32 & 86.2263 & 86.6637 & -0.437407 & 0.0936574 \tabularnewline
14 & 86.77 & 86.6511 & 86.7779 & -0.126852 & 0.118935 \tabularnewline
15 & 87.47 & 87.1269 & 86.8933 & 0.233565 & 0.343102 \tabularnewline
16 & 87.39 & 87.3407 & 87 & 0.340741 & 0.0492593 \tabularnewline
17 & 87.3 & 87.4351 & 87.0937 & 0.341389 & -0.135139 \tabularnewline
18 & 87.31 & 87.4089 & 87.1833 & 0.225602 & -0.0989352 \tabularnewline
19 & 87.31 & 87.336 & 87.2733 & 0.0626852 & -0.0260185 \tabularnewline
20 & 87.38 & 87.3344 & 87.365 & -0.0306481 & 0.0456481 \tabularnewline
21 & 87.4 & 87.3388 & 87.4212 & -0.0824537 & 0.0612037 \tabularnewline
22 & 87.32 & 87.3614 & 87.4517 & -0.0902315 & -0.0414352 \tabularnewline
23 & 87.37 & 87.3492 & 87.5025 & -0.153333 & 0.0208333 \tabularnewline
24 & 87.4 & 87.2815 & 87.5646 & -0.283056 & 0.118472 \tabularnewline
25 & 87.4 & 87.1913 & 87.6288 & -0.437407 & 0.208657 \tabularnewline
26 & 87.89 & 87.5661 & 87.6929 & -0.126852 & 0.323935 \tabularnewline
27 & 87.7 & 87.9923 & 87.7588 & 0.233565 & -0.292315 \tabularnewline
28 & 87.89 & 88.1787 & 87.8379 & 0.340741 & -0.288657 \tabularnewline
29 & 88.02 & 88.2672 & 87.9258 & 0.341389 & -0.247222 \tabularnewline
30 & 88.08 & 88.236 & 88.0104 & 0.225602 & -0.156019 \tabularnewline
31 & 88.08 & 88.1573 & 88.0946 & 0.0626852 & -0.0772685 \tabularnewline
32 & 88.15 & 88.1564 & 88.1871 & -0.0306481 & -0.00643519 \tabularnewline
33 & 88.21 & 88.2655 & 88.3479 & -0.0824537 & -0.055463 \tabularnewline
34 & 88.41 & 88.4814 & 88.5717 & -0.0902315 & -0.0714352 \tabularnewline
35 & 88.39 & 88.6633 & 88.8167 & -0.153333 & -0.273333 \tabularnewline
36 & 88.41 & 88.7961 & 89.0792 & -0.283056 & -0.386111 \tabularnewline
37 & 88.41 & 88.9034 & 89.3408 & -0.437407 & -0.493426 \tabularnewline
38 & 89.1 & 89.4802 & 89.6071 & -0.126852 & -0.380231 \tabularnewline
39 & 90.35 & 90.114 & 89.8804 & 0.233565 & 0.236019 \tabularnewline
40 & 90.61 & 90.4953 & 90.1546 & 0.340741 & 0.114676 \tabularnewline
41 & 91.18 & 90.7706 & 90.4292 & 0.341389 & 0.409444 \tabularnewline
42 & 91.22 & 90.9331 & 90.7075 & 0.225602 & 0.286898 \tabularnewline
43 & 91.22 & 91.0502 & 90.9875 & 0.0626852 & 0.169815 \tabularnewline
44 & 91.4 & 91.2244 & 91.255 & -0.0306481 & 0.175648 \tabularnewline
45 & 91.52 & 91.4371 & 91.5196 & -0.0824537 & 0.0828704 \tabularnewline
46 & 91.68 & 91.6985 & 91.7887 & -0.0902315 & -0.0185185 \tabularnewline
47 & 91.71 & 91.8833 & 92.0367 & -0.153333 & -0.173333 \tabularnewline
48 & 91.77 & 91.9778 & 92.2608 & -0.283056 & -0.207778 \tabularnewline
49 & 91.77 & 92.0401 & 92.4775 & -0.437407 & -0.270093 \tabularnewline
50 & 92.16 & 92.5627 & 92.6896 & -0.126852 & -0.402731 \tabularnewline
51 & 93.64 & 93.1323 & 92.8987 & 0.233565 & 0.507685 \tabularnewline
52 & 93.78 & 93.4607 & 93.12 & 0.340741 & 0.319259 \tabularnewline
53 & 93.96 & 93.6985 & 93.3571 & 0.341389 & 0.261528 \tabularnewline
54 & 93.82 & 93.8269 & 93.6012 & 0.225602 & -0.00685185 \tabularnewline
55 & 93.82 & 93.9098 & 93.8471 & 0.0626852 & -0.0897685 \tabularnewline
56 & 93.89 & 94.0894 & 94.12 & -0.0306481 & -0.199352 \tabularnewline
57 & 94.05 & 94.2917 & 94.3742 & -0.0824537 & -0.241713 \tabularnewline
58 & 94.46 & 94.5269 & 94.6171 & -0.0902315 & -0.0668519 \tabularnewline
59 & 94.62 & 94.7371 & 94.8904 & -0.153333 & -0.117083 \tabularnewline
60 & 94.72 & 94.8924 & 95.1754 & -0.283056 & -0.172361 \tabularnewline
61 & 94.72 & 95.0388 & 95.4763 & -0.437407 & -0.318843 \tabularnewline
62 & 95.76 & 95.6527 & 95.7796 & -0.126852 & 0.107269 \tabularnewline
63 & 96.14 & 96.3165 & 96.0829 & 0.233565 & -0.176481 \tabularnewline
64 & 97.11 & 96.7112 & 96.3704 & 0.340741 & 0.398843 \tabularnewline
65 & 97.19 & 96.9822 & 96.6408 & 0.341389 & 0.207778 \tabularnewline
66 & 97.43 & 97.1289 & 96.9033 & 0.225602 & 0.301065 \tabularnewline
67 & 97.43 & 97.2244 & 97.1617 & 0.0626852 & 0.205648 \tabularnewline
68 & 97.56 & 97.3681 & 97.3987 & -0.0306481 & 0.191898 \tabularnewline
69 & 97.66 & 97.5096 & 97.5921 & -0.0824537 & 0.15037 \tabularnewline
70 & 97.75 & 97.6323 & 97.7225 & -0.0902315 & 0.117731 \tabularnewline
71 & 97.82 & 97.6567 & 97.81 & -0.153333 & 0.163333 \tabularnewline
72 & 97.82 & 97.6024 & 97.8854 & -0.283056 & 0.217639 \tabularnewline
73 & 97.82 & 97.5155 & 97.9529 & -0.437407 & 0.304491 \tabularnewline
74 & 98.35 & 97.8886 & 98.0154 & -0.126852 & 0.461435 \tabularnewline
75 & 98.19 & 98.3019 & 98.0683 & 0.233565 & -0.111898 \tabularnewline
76 & 98.19 & 98.4653 & 98.1246 & 0.340741 & -0.275324 \tabularnewline
77 & 98.21 & 98.526 & 98.1846 & 0.341389 & -0.315972 \tabularnewline
78 & 98.22 & 98.4677 & 98.2421 & 0.225602 & -0.247685 \tabularnewline
79 & 98.26 & 98.3623 & 98.2996 & 0.0626852 & -0.102269 \tabularnewline
80 & 98.23 & 98.3202 & 98.3508 & -0.0306481 & -0.0901852 \tabularnewline
81 & 98.26 & 98.3475 & 98.43 & -0.0824537 & -0.0875463 \tabularnewline
82 & 98.5 & 98.4677 & 98.5579 & -0.0902315 & 0.0323148 \tabularnewline
83 & 98.51 & 98.5554 & 98.7088 & -0.153333 & -0.0454167 \tabularnewline
84 & 98.51 & 98.5832 & 98.8663 & -0.283056 & -0.0731944 \tabularnewline
85 & 98.51 & 98.583 & 99.0204 & -0.437407 & -0.0730093 \tabularnewline
86 & 98.89 & 99.0473 & 99.1742 & -0.126852 & -0.157315 \tabularnewline
87 & 99.55 & 99.5769 & 99.3433 & 0.233565 & -0.0268981 \tabularnewline
88 & 99.9 & 99.8678 & 99.5271 & 0.340741 & 0.0321759 \tabularnewline
89 & 100.12 & 100.056 & 99.7142 & 0.341389 & 0.0644444 \tabularnewline
90 & 100.09 & 100.13 & 99.9042 & 0.225602 & -0.0397685 \tabularnewline
91 & 100.09 & 100.163 & 100.1 & 0.0626852 & -0.0726852 \tabularnewline
92 & 100.09 & 100.264 & 100.295 & -0.0306481 & -0.174352 \tabularnewline
93 & 100.46 & 100.389 & 100.472 & -0.0824537 & 0.070787 \tabularnewline
94 & 100.71 & 100.548 & 100.638 & -0.0902315 & 0.162315 \tabularnewline
95 & 100.79 & 100.654 & 100.808 & -0.153333 & 0.135833 \tabularnewline
96 & 100.79 & 100.7 & 100.983 & -0.283056 & 0.0901389 \tabularnewline
97 & 100.93 & 100.723 & 101.16 & -0.437407 & 0.206991 \tabularnewline
98 & 101.15 & 101.214 & 101.341 & -0.126852 & -0.0643981 \tabularnewline
99 & 101.53 & 101.75 & 101.516 & 0.233565 & -0.219815 \tabularnewline
100 & 101.91 & 102.012 & 101.671 & 0.340741 & -0.101574 \tabularnewline
101 & 102.18 & 102.17 & 101.829 & 0.341389 & 0.00986111 \tabularnewline
102 & 102.24 & 102.23 & 102.005 & 0.225602 & 0.00981481 \tabularnewline
103 & 102.2 & 102.242 & 102.18 & 0.0626852 & -0.0422685 \tabularnewline
104 & 102.32 & 102.315 & 102.345 & -0.0306481 & 0.00523148 \tabularnewline
105 & 102.43 & 102.422 & 102.505 & -0.0824537 & 0.00787037 \tabularnewline
106 & 102.45 & 102.569 & 102.659 & -0.0902315 & -0.118519 \tabularnewline
107 & 102.84 & 102.656 & 102.81 & -0.153333 & 0.18375 \tabularnewline
108 & 102.96 & 102.687 & 102.97 & -0.283056 & 0.273472 \tabularnewline
109 & 102.96 & 102.706 & 103.144 & -0.437407 & 0.253657 \tabularnewline
110 & 103.1 & 103.195 & 103.322 & -0.126852 & -0.0948148 \tabularnewline
111 & 103.4 & 103.747 & 103.514 & 0.233565 & -0.347315 \tabularnewline
112 & 103.74 & 104.077 & 103.736 & 0.340741 & -0.336574 \tabularnewline
113 & 103.97 & 104.313 & 103.971 & 0.341389 & -0.342639 \tabularnewline
114 & 104.29 & 104.426 & 104.201 & 0.225602 & -0.136435 \tabularnewline
115 & 104.33 & NA & NA & 0.0626852 & NA \tabularnewline
116 & 104.46 & NA & NA & -0.0306481 & NA \tabularnewline
117 & 104.9 & NA & NA & -0.0824537 & NA \tabularnewline
118 & 105.31 & NA & NA & -0.0902315 & NA \tabularnewline
119 & 105.63 & NA & NA & -0.153333 & NA \tabularnewline
120 & 105.68 & NA & NA & -0.283056 & NA \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=294666&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]84.97[/C][C]NA[/C][C]NA[/C][C]-0.437407[/C][C]NA[/C][/ROW]
[ROW][C]2[/C][C]85.57[/C][C]NA[/C][C]NA[/C][C]-0.126852[/C][C]NA[/C][/ROW]
[ROW][C]3[/C][C]85.74[/C][C]NA[/C][C]NA[/C][C]0.233565[/C][C]NA[/C][/ROW]
[ROW][C]4[/C][C]85.88[/C][C]NA[/C][C]NA[/C][C]0.340741[/C][C]NA[/C][/ROW]
[ROW][C]5[/C][C]85.88[/C][C]NA[/C][C]NA[/C][C]0.341389[/C][C]NA[/C][/ROW]
[ROW][C]6[/C][C]85.96[/C][C]NA[/C][C]NA[/C][C]0.225602[/C][C]NA[/C][/ROW]
[ROW][C]7[/C][C]85.96[/C][C]86.0131[/C][C]85.9504[/C][C]0.0626852[/C][C]-0.0531019[/C][/ROW]
[ROW][C]8[/C][C]85.99[/C][C]86.026[/C][C]86.0567[/C][C]-0.0306481[/C][C]-0.0360185[/C][/ROW]
[ROW][C]9[/C][C]86.02[/C][C]86.0963[/C][C]86.1787[/C][C]-0.0824537[/C][C]-0.0762963[/C][/ROW]
[ROW][C]10[/C][C]86.14[/C][C]86.2235[/C][C]86.3137[/C][C]-0.0902315[/C][C]-0.0835185[/C][/ROW]
[ROW][C]11[/C][C]86.3[/C][C]86.2825[/C][C]86.4358[/C][C]-0.153333[/C][C]0.0175[/C][/ROW]
[ROW][C]12[/C][C]86.32[/C][C]86.2682[/C][C]86.5512[/C][C]-0.283056[/C][C]0.0518056[/C][/ROW]
[ROW][C]13[/C][C]86.32[/C][C]86.2263[/C][C]86.6637[/C][C]-0.437407[/C][C]0.0936574[/C][/ROW]
[ROW][C]14[/C][C]86.77[/C][C]86.6511[/C][C]86.7779[/C][C]-0.126852[/C][C]0.118935[/C][/ROW]
[ROW][C]15[/C][C]87.47[/C][C]87.1269[/C][C]86.8933[/C][C]0.233565[/C][C]0.343102[/C][/ROW]
[ROW][C]16[/C][C]87.39[/C][C]87.3407[/C][C]87[/C][C]0.340741[/C][C]0.0492593[/C][/ROW]
[ROW][C]17[/C][C]87.3[/C][C]87.4351[/C][C]87.0937[/C][C]0.341389[/C][C]-0.135139[/C][/ROW]
[ROW][C]18[/C][C]87.31[/C][C]87.4089[/C][C]87.1833[/C][C]0.225602[/C][C]-0.0989352[/C][/ROW]
[ROW][C]19[/C][C]87.31[/C][C]87.336[/C][C]87.2733[/C][C]0.0626852[/C][C]-0.0260185[/C][/ROW]
[ROW][C]20[/C][C]87.38[/C][C]87.3344[/C][C]87.365[/C][C]-0.0306481[/C][C]0.0456481[/C][/ROW]
[ROW][C]21[/C][C]87.4[/C][C]87.3388[/C][C]87.4212[/C][C]-0.0824537[/C][C]0.0612037[/C][/ROW]
[ROW][C]22[/C][C]87.32[/C][C]87.3614[/C][C]87.4517[/C][C]-0.0902315[/C][C]-0.0414352[/C][/ROW]
[ROW][C]23[/C][C]87.37[/C][C]87.3492[/C][C]87.5025[/C][C]-0.153333[/C][C]0.0208333[/C][/ROW]
[ROW][C]24[/C][C]87.4[/C][C]87.2815[/C][C]87.5646[/C][C]-0.283056[/C][C]0.118472[/C][/ROW]
[ROW][C]25[/C][C]87.4[/C][C]87.1913[/C][C]87.6288[/C][C]-0.437407[/C][C]0.208657[/C][/ROW]
[ROW][C]26[/C][C]87.89[/C][C]87.5661[/C][C]87.6929[/C][C]-0.126852[/C][C]0.323935[/C][/ROW]
[ROW][C]27[/C][C]87.7[/C][C]87.9923[/C][C]87.7588[/C][C]0.233565[/C][C]-0.292315[/C][/ROW]
[ROW][C]28[/C][C]87.89[/C][C]88.1787[/C][C]87.8379[/C][C]0.340741[/C][C]-0.288657[/C][/ROW]
[ROW][C]29[/C][C]88.02[/C][C]88.2672[/C][C]87.9258[/C][C]0.341389[/C][C]-0.247222[/C][/ROW]
[ROW][C]30[/C][C]88.08[/C][C]88.236[/C][C]88.0104[/C][C]0.225602[/C][C]-0.156019[/C][/ROW]
[ROW][C]31[/C][C]88.08[/C][C]88.1573[/C][C]88.0946[/C][C]0.0626852[/C][C]-0.0772685[/C][/ROW]
[ROW][C]32[/C][C]88.15[/C][C]88.1564[/C][C]88.1871[/C][C]-0.0306481[/C][C]-0.00643519[/C][/ROW]
[ROW][C]33[/C][C]88.21[/C][C]88.2655[/C][C]88.3479[/C][C]-0.0824537[/C][C]-0.055463[/C][/ROW]
[ROW][C]34[/C][C]88.41[/C][C]88.4814[/C][C]88.5717[/C][C]-0.0902315[/C][C]-0.0714352[/C][/ROW]
[ROW][C]35[/C][C]88.39[/C][C]88.6633[/C][C]88.8167[/C][C]-0.153333[/C][C]-0.273333[/C][/ROW]
[ROW][C]36[/C][C]88.41[/C][C]88.7961[/C][C]89.0792[/C][C]-0.283056[/C][C]-0.386111[/C][/ROW]
[ROW][C]37[/C][C]88.41[/C][C]88.9034[/C][C]89.3408[/C][C]-0.437407[/C][C]-0.493426[/C][/ROW]
[ROW][C]38[/C][C]89.1[/C][C]89.4802[/C][C]89.6071[/C][C]-0.126852[/C][C]-0.380231[/C][/ROW]
[ROW][C]39[/C][C]90.35[/C][C]90.114[/C][C]89.8804[/C][C]0.233565[/C][C]0.236019[/C][/ROW]
[ROW][C]40[/C][C]90.61[/C][C]90.4953[/C][C]90.1546[/C][C]0.340741[/C][C]0.114676[/C][/ROW]
[ROW][C]41[/C][C]91.18[/C][C]90.7706[/C][C]90.4292[/C][C]0.341389[/C][C]0.409444[/C][/ROW]
[ROW][C]42[/C][C]91.22[/C][C]90.9331[/C][C]90.7075[/C][C]0.225602[/C][C]0.286898[/C][/ROW]
[ROW][C]43[/C][C]91.22[/C][C]91.0502[/C][C]90.9875[/C][C]0.0626852[/C][C]0.169815[/C][/ROW]
[ROW][C]44[/C][C]91.4[/C][C]91.2244[/C][C]91.255[/C][C]-0.0306481[/C][C]0.175648[/C][/ROW]
[ROW][C]45[/C][C]91.52[/C][C]91.4371[/C][C]91.5196[/C][C]-0.0824537[/C][C]0.0828704[/C][/ROW]
[ROW][C]46[/C][C]91.68[/C][C]91.6985[/C][C]91.7887[/C][C]-0.0902315[/C][C]-0.0185185[/C][/ROW]
[ROW][C]47[/C][C]91.71[/C][C]91.8833[/C][C]92.0367[/C][C]-0.153333[/C][C]-0.173333[/C][/ROW]
[ROW][C]48[/C][C]91.77[/C][C]91.9778[/C][C]92.2608[/C][C]-0.283056[/C][C]-0.207778[/C][/ROW]
[ROW][C]49[/C][C]91.77[/C][C]92.0401[/C][C]92.4775[/C][C]-0.437407[/C][C]-0.270093[/C][/ROW]
[ROW][C]50[/C][C]92.16[/C][C]92.5627[/C][C]92.6896[/C][C]-0.126852[/C][C]-0.402731[/C][/ROW]
[ROW][C]51[/C][C]93.64[/C][C]93.1323[/C][C]92.8987[/C][C]0.233565[/C][C]0.507685[/C][/ROW]
[ROW][C]52[/C][C]93.78[/C][C]93.4607[/C][C]93.12[/C][C]0.340741[/C][C]0.319259[/C][/ROW]
[ROW][C]53[/C][C]93.96[/C][C]93.6985[/C][C]93.3571[/C][C]0.341389[/C][C]0.261528[/C][/ROW]
[ROW][C]54[/C][C]93.82[/C][C]93.8269[/C][C]93.6012[/C][C]0.225602[/C][C]-0.00685185[/C][/ROW]
[ROW][C]55[/C][C]93.82[/C][C]93.9098[/C][C]93.8471[/C][C]0.0626852[/C][C]-0.0897685[/C][/ROW]
[ROW][C]56[/C][C]93.89[/C][C]94.0894[/C][C]94.12[/C][C]-0.0306481[/C][C]-0.199352[/C][/ROW]
[ROW][C]57[/C][C]94.05[/C][C]94.2917[/C][C]94.3742[/C][C]-0.0824537[/C][C]-0.241713[/C][/ROW]
[ROW][C]58[/C][C]94.46[/C][C]94.5269[/C][C]94.6171[/C][C]-0.0902315[/C][C]-0.0668519[/C][/ROW]
[ROW][C]59[/C][C]94.62[/C][C]94.7371[/C][C]94.8904[/C][C]-0.153333[/C][C]-0.117083[/C][/ROW]
[ROW][C]60[/C][C]94.72[/C][C]94.8924[/C][C]95.1754[/C][C]-0.283056[/C][C]-0.172361[/C][/ROW]
[ROW][C]61[/C][C]94.72[/C][C]95.0388[/C][C]95.4763[/C][C]-0.437407[/C][C]-0.318843[/C][/ROW]
[ROW][C]62[/C][C]95.76[/C][C]95.6527[/C][C]95.7796[/C][C]-0.126852[/C][C]0.107269[/C][/ROW]
[ROW][C]63[/C][C]96.14[/C][C]96.3165[/C][C]96.0829[/C][C]0.233565[/C][C]-0.176481[/C][/ROW]
[ROW][C]64[/C][C]97.11[/C][C]96.7112[/C][C]96.3704[/C][C]0.340741[/C][C]0.398843[/C][/ROW]
[ROW][C]65[/C][C]97.19[/C][C]96.9822[/C][C]96.6408[/C][C]0.341389[/C][C]0.207778[/C][/ROW]
[ROW][C]66[/C][C]97.43[/C][C]97.1289[/C][C]96.9033[/C][C]0.225602[/C][C]0.301065[/C][/ROW]
[ROW][C]67[/C][C]97.43[/C][C]97.2244[/C][C]97.1617[/C][C]0.0626852[/C][C]0.205648[/C][/ROW]
[ROW][C]68[/C][C]97.56[/C][C]97.3681[/C][C]97.3987[/C][C]-0.0306481[/C][C]0.191898[/C][/ROW]
[ROW][C]69[/C][C]97.66[/C][C]97.5096[/C][C]97.5921[/C][C]-0.0824537[/C][C]0.15037[/C][/ROW]
[ROW][C]70[/C][C]97.75[/C][C]97.6323[/C][C]97.7225[/C][C]-0.0902315[/C][C]0.117731[/C][/ROW]
[ROW][C]71[/C][C]97.82[/C][C]97.6567[/C][C]97.81[/C][C]-0.153333[/C][C]0.163333[/C][/ROW]
[ROW][C]72[/C][C]97.82[/C][C]97.6024[/C][C]97.8854[/C][C]-0.283056[/C][C]0.217639[/C][/ROW]
[ROW][C]73[/C][C]97.82[/C][C]97.5155[/C][C]97.9529[/C][C]-0.437407[/C][C]0.304491[/C][/ROW]
[ROW][C]74[/C][C]98.35[/C][C]97.8886[/C][C]98.0154[/C][C]-0.126852[/C][C]0.461435[/C][/ROW]
[ROW][C]75[/C][C]98.19[/C][C]98.3019[/C][C]98.0683[/C][C]0.233565[/C][C]-0.111898[/C][/ROW]
[ROW][C]76[/C][C]98.19[/C][C]98.4653[/C][C]98.1246[/C][C]0.340741[/C][C]-0.275324[/C][/ROW]
[ROW][C]77[/C][C]98.21[/C][C]98.526[/C][C]98.1846[/C][C]0.341389[/C][C]-0.315972[/C][/ROW]
[ROW][C]78[/C][C]98.22[/C][C]98.4677[/C][C]98.2421[/C][C]0.225602[/C][C]-0.247685[/C][/ROW]
[ROW][C]79[/C][C]98.26[/C][C]98.3623[/C][C]98.2996[/C][C]0.0626852[/C][C]-0.102269[/C][/ROW]
[ROW][C]80[/C][C]98.23[/C][C]98.3202[/C][C]98.3508[/C][C]-0.0306481[/C][C]-0.0901852[/C][/ROW]
[ROW][C]81[/C][C]98.26[/C][C]98.3475[/C][C]98.43[/C][C]-0.0824537[/C][C]-0.0875463[/C][/ROW]
[ROW][C]82[/C][C]98.5[/C][C]98.4677[/C][C]98.5579[/C][C]-0.0902315[/C][C]0.0323148[/C][/ROW]
[ROW][C]83[/C][C]98.51[/C][C]98.5554[/C][C]98.7088[/C][C]-0.153333[/C][C]-0.0454167[/C][/ROW]
[ROW][C]84[/C][C]98.51[/C][C]98.5832[/C][C]98.8663[/C][C]-0.283056[/C][C]-0.0731944[/C][/ROW]
[ROW][C]85[/C][C]98.51[/C][C]98.583[/C][C]99.0204[/C][C]-0.437407[/C][C]-0.0730093[/C][/ROW]
[ROW][C]86[/C][C]98.89[/C][C]99.0473[/C][C]99.1742[/C][C]-0.126852[/C][C]-0.157315[/C][/ROW]
[ROW][C]87[/C][C]99.55[/C][C]99.5769[/C][C]99.3433[/C][C]0.233565[/C][C]-0.0268981[/C][/ROW]
[ROW][C]88[/C][C]99.9[/C][C]99.8678[/C][C]99.5271[/C][C]0.340741[/C][C]0.0321759[/C][/ROW]
[ROW][C]89[/C][C]100.12[/C][C]100.056[/C][C]99.7142[/C][C]0.341389[/C][C]0.0644444[/C][/ROW]
[ROW][C]90[/C][C]100.09[/C][C]100.13[/C][C]99.9042[/C][C]0.225602[/C][C]-0.0397685[/C][/ROW]
[ROW][C]91[/C][C]100.09[/C][C]100.163[/C][C]100.1[/C][C]0.0626852[/C][C]-0.0726852[/C][/ROW]
[ROW][C]92[/C][C]100.09[/C][C]100.264[/C][C]100.295[/C][C]-0.0306481[/C][C]-0.174352[/C][/ROW]
[ROW][C]93[/C][C]100.46[/C][C]100.389[/C][C]100.472[/C][C]-0.0824537[/C][C]0.070787[/C][/ROW]
[ROW][C]94[/C][C]100.71[/C][C]100.548[/C][C]100.638[/C][C]-0.0902315[/C][C]0.162315[/C][/ROW]
[ROW][C]95[/C][C]100.79[/C][C]100.654[/C][C]100.808[/C][C]-0.153333[/C][C]0.135833[/C][/ROW]
[ROW][C]96[/C][C]100.79[/C][C]100.7[/C][C]100.983[/C][C]-0.283056[/C][C]0.0901389[/C][/ROW]
[ROW][C]97[/C][C]100.93[/C][C]100.723[/C][C]101.16[/C][C]-0.437407[/C][C]0.206991[/C][/ROW]
[ROW][C]98[/C][C]101.15[/C][C]101.214[/C][C]101.341[/C][C]-0.126852[/C][C]-0.0643981[/C][/ROW]
[ROW][C]99[/C][C]101.53[/C][C]101.75[/C][C]101.516[/C][C]0.233565[/C][C]-0.219815[/C][/ROW]
[ROW][C]100[/C][C]101.91[/C][C]102.012[/C][C]101.671[/C][C]0.340741[/C][C]-0.101574[/C][/ROW]
[ROW][C]101[/C][C]102.18[/C][C]102.17[/C][C]101.829[/C][C]0.341389[/C][C]0.00986111[/C][/ROW]
[ROW][C]102[/C][C]102.24[/C][C]102.23[/C][C]102.005[/C][C]0.225602[/C][C]0.00981481[/C][/ROW]
[ROW][C]103[/C][C]102.2[/C][C]102.242[/C][C]102.18[/C][C]0.0626852[/C][C]-0.0422685[/C][/ROW]
[ROW][C]104[/C][C]102.32[/C][C]102.315[/C][C]102.345[/C][C]-0.0306481[/C][C]0.00523148[/C][/ROW]
[ROW][C]105[/C][C]102.43[/C][C]102.422[/C][C]102.505[/C][C]-0.0824537[/C][C]0.00787037[/C][/ROW]
[ROW][C]106[/C][C]102.45[/C][C]102.569[/C][C]102.659[/C][C]-0.0902315[/C][C]-0.118519[/C][/ROW]
[ROW][C]107[/C][C]102.84[/C][C]102.656[/C][C]102.81[/C][C]-0.153333[/C][C]0.18375[/C][/ROW]
[ROW][C]108[/C][C]102.96[/C][C]102.687[/C][C]102.97[/C][C]-0.283056[/C][C]0.273472[/C][/ROW]
[ROW][C]109[/C][C]102.96[/C][C]102.706[/C][C]103.144[/C][C]-0.437407[/C][C]0.253657[/C][/ROW]
[ROW][C]110[/C][C]103.1[/C][C]103.195[/C][C]103.322[/C][C]-0.126852[/C][C]-0.0948148[/C][/ROW]
[ROW][C]111[/C][C]103.4[/C][C]103.747[/C][C]103.514[/C][C]0.233565[/C][C]-0.347315[/C][/ROW]
[ROW][C]112[/C][C]103.74[/C][C]104.077[/C][C]103.736[/C][C]0.340741[/C][C]-0.336574[/C][/ROW]
[ROW][C]113[/C][C]103.97[/C][C]104.313[/C][C]103.971[/C][C]0.341389[/C][C]-0.342639[/C][/ROW]
[ROW][C]114[/C][C]104.29[/C][C]104.426[/C][C]104.201[/C][C]0.225602[/C][C]-0.136435[/C][/ROW]
[ROW][C]115[/C][C]104.33[/C][C]NA[/C][C]NA[/C][C]0.0626852[/C][C]NA[/C][/ROW]
[ROW][C]116[/C][C]104.46[/C][C]NA[/C][C]NA[/C][C]-0.0306481[/C][C]NA[/C][/ROW]
[ROW][C]117[/C][C]104.9[/C][C]NA[/C][C]NA[/C][C]-0.0824537[/C][C]NA[/C][/ROW]
[ROW][C]118[/C][C]105.31[/C][C]NA[/C][C]NA[/C][C]-0.0902315[/C][C]NA[/C][/ROW]
[ROW][C]119[/C][C]105.63[/C][C]NA[/C][C]NA[/C][C]-0.153333[/C][C]NA[/C][/ROW]
[ROW][C]120[/C][C]105.68[/C][C]NA[/C][C]NA[/C][C]-0.283056[/C][C]NA[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=294666&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=294666&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
184.97NANA-0.437407NA
285.57NANA-0.126852NA
385.74NANA0.233565NA
485.88NANA0.340741NA
585.88NANA0.341389NA
685.96NANA0.225602NA
785.9686.013185.95040.0626852-0.0531019
885.9986.02686.0567-0.0306481-0.0360185
986.0286.096386.1787-0.0824537-0.0762963
1086.1486.223586.3137-0.0902315-0.0835185
1186.386.282586.4358-0.1533330.0175
1286.3286.268286.5512-0.2830560.0518056
1386.3286.226386.6637-0.4374070.0936574
1486.7786.651186.7779-0.1268520.118935
1587.4787.126986.89330.2335650.343102
1687.3987.3407870.3407410.0492593
1787.387.435187.09370.341389-0.135139
1887.3187.408987.18330.225602-0.0989352
1987.3187.33687.27330.0626852-0.0260185
2087.3887.334487.365-0.03064810.0456481
2187.487.338887.4212-0.08245370.0612037
2287.3287.361487.4517-0.0902315-0.0414352
2387.3787.349287.5025-0.1533330.0208333
2487.487.281587.5646-0.2830560.118472
2587.487.191387.6288-0.4374070.208657
2687.8987.566187.6929-0.1268520.323935
2787.787.992387.75880.233565-0.292315
2887.8988.178787.83790.340741-0.288657
2988.0288.267287.92580.341389-0.247222
3088.0888.23688.01040.225602-0.156019
3188.0888.157388.09460.0626852-0.0772685
3288.1588.156488.1871-0.0306481-0.00643519
3388.2188.265588.3479-0.0824537-0.055463
3488.4188.481488.5717-0.0902315-0.0714352
3588.3988.663388.8167-0.153333-0.273333
3688.4188.796189.0792-0.283056-0.386111
3788.4188.903489.3408-0.437407-0.493426
3889.189.480289.6071-0.126852-0.380231
3990.3590.11489.88040.2335650.236019
4090.6190.495390.15460.3407410.114676
4191.1890.770690.42920.3413890.409444
4291.2290.933190.70750.2256020.286898
4391.2291.050290.98750.06268520.169815
4491.491.224491.255-0.03064810.175648
4591.5291.437191.5196-0.08245370.0828704
4691.6891.698591.7887-0.0902315-0.0185185
4791.7191.883392.0367-0.153333-0.173333
4891.7791.977892.2608-0.283056-0.207778
4991.7792.040192.4775-0.437407-0.270093
5092.1692.562792.6896-0.126852-0.402731
5193.6493.132392.89870.2335650.507685
5293.7893.460793.120.3407410.319259
5393.9693.698593.35710.3413890.261528
5493.8293.826993.60120.225602-0.00685185
5593.8293.909893.84710.0626852-0.0897685
5693.8994.089494.12-0.0306481-0.199352
5794.0594.291794.3742-0.0824537-0.241713
5894.4694.526994.6171-0.0902315-0.0668519
5994.6294.737194.8904-0.153333-0.117083
6094.7294.892495.1754-0.283056-0.172361
6194.7295.038895.4763-0.437407-0.318843
6295.7695.652795.7796-0.1268520.107269
6396.1496.316596.08290.233565-0.176481
6497.1196.711296.37040.3407410.398843
6597.1996.982296.64080.3413890.207778
6697.4397.128996.90330.2256020.301065
6797.4397.224497.16170.06268520.205648
6897.5697.368197.3987-0.03064810.191898
6997.6697.509697.5921-0.08245370.15037
7097.7597.632397.7225-0.09023150.117731
7197.8297.656797.81-0.1533330.163333
7297.8297.602497.8854-0.2830560.217639
7397.8297.515597.9529-0.4374070.304491
7498.3597.888698.0154-0.1268520.461435
7598.1998.301998.06830.233565-0.111898
7698.1998.465398.12460.340741-0.275324
7798.2198.52698.18460.341389-0.315972
7898.2298.467798.24210.225602-0.247685
7998.2698.362398.29960.0626852-0.102269
8098.2398.320298.3508-0.0306481-0.0901852
8198.2698.347598.43-0.0824537-0.0875463
8298.598.467798.5579-0.09023150.0323148
8398.5198.555498.7088-0.153333-0.0454167
8498.5198.583298.8663-0.283056-0.0731944
8598.5198.58399.0204-0.437407-0.0730093
8698.8999.047399.1742-0.126852-0.157315
8799.5599.576999.34330.233565-0.0268981
8899.999.867899.52710.3407410.0321759
89100.12100.05699.71420.3413890.0644444
90100.09100.1399.90420.225602-0.0397685
91100.09100.163100.10.0626852-0.0726852
92100.09100.264100.295-0.0306481-0.174352
93100.46100.389100.472-0.08245370.070787
94100.71100.548100.638-0.09023150.162315
95100.79100.654100.808-0.1533330.135833
96100.79100.7100.983-0.2830560.0901389
97100.93100.723101.16-0.4374070.206991
98101.15101.214101.341-0.126852-0.0643981
99101.53101.75101.5160.233565-0.219815
100101.91102.012101.6710.340741-0.101574
101102.18102.17101.8290.3413890.00986111
102102.24102.23102.0050.2256020.00981481
103102.2102.242102.180.0626852-0.0422685
104102.32102.315102.345-0.03064810.00523148
105102.43102.422102.505-0.08245370.00787037
106102.45102.569102.659-0.0902315-0.118519
107102.84102.656102.81-0.1533330.18375
108102.96102.687102.97-0.2830560.273472
109102.96102.706103.144-0.4374070.253657
110103.1103.195103.322-0.126852-0.0948148
111103.4103.747103.5140.233565-0.347315
112103.74104.077103.7360.340741-0.336574
113103.97104.313103.9710.341389-0.342639
114104.29104.426104.2010.225602-0.136435
115104.33NANA0.0626852NA
116104.46NANA-0.0306481NA
117104.9NANA-0.0824537NA
118105.31NANA-0.0902315NA
119105.63NANA-0.153333NA
120105.68NANA-0.283056NA



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