Repository of Reproducible Computations

Free Statistics

of Irreproducible Research!

Author's title

Author

*Unverified author*

R Software Module

rwasp_decompose.wasp

Title produced by software

Classical Decomposition

Date of computation

Mon, 15 Aug 2016 20:05:02 +0100

Cite this page as follows

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2016/Aug/15/t14712879494g2njlq3imzl543.htm/, Retrieved Sun, 28 Apr 2024 19:04:35 +0200

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=, Retrieved Sun, 28 Apr 2024 19:04:35 +0200

QR Codes:

Paste this QR Code to cite your computation.

Original text written by user:

IsPrivate?

No (this computation is public)

User-defined keywords

Estimated Impact

Dataseries X:

Download CSV

Histogram

Boxplots

Summary of computational transaction
Raw Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	2 seconds
R Server	'Sir Maurice George Kendall' @ kendall.wessa.net
R Framework error message	Warning: there are blank lines in the 'Data' field. Please, use NA for missing data - blank lines are simply deleted and are NOT treated as missing values.

\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 & 'Sir Maurice George Kendall' @ kendall.wessa.net \tabularnewline
R Framework error message & Warning: there are blank lines in the 'Data' field.
Please, use NA for missing data - blank lines are simply
 deleted and are NOT treated as missing values. \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=&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]'Sir Maurice George Kendall' @ kendall.wessa.net[/C][/ROW]
[ROW][C]R Framework error message[/C][C]Warning: there are blank lines in the 'Data' field.
Please, use NA for missing data - blank lines are simply
 deleted and are NOT treated as missing values.[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=&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 Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	2 seconds
R Server	'Sir Maurice George Kendall' @ kendall.wessa.net
R Framework error message	Warning: there are blank lines in the 'Data' field. Please, use NA for missing data - blank lines are simply deleted and are NOT treated as missing values.

Classical Decomposition by Moving Averages
t	Observations	Fit	Trend	Seasonal	Random
1	21571	NA	NA	-1378.06	NA
2	21493	NA	NA	-563.943	NA
3	21422	NA	NA	-305.828	NA
4	21272	NA	NA	-197.679	NA
5	22747	NA	NA	1180.95	NA
6	22676	NA	NA	1244.5	NA
7	21571	21605.2	21437.6	167.58	-34.1632
8	20831	21390.5	21422.2	-31.6563	-559.51
9	20909	21421.7	21446.8	-25.1007	-512.733
10	20909	22090.8	21480.7	610.126	-1181.83
11	20980	21270.7	21484	-213.332	-290.668
12	21130	20953.4	21441	-487.564	176.605
13	21051	19998.2	21376.3	-1378.06	1052.81
14	21643	20763.3	21327.2	-563.943	879.693
15	21864	20987.8	21293.7	-305.828	876.161
16	21643	21065.1	21262.8	-197.679	577.888
17	22455	22391.5	21210.6	1180.95	63.4618
18	21935	22387.7	21143.2	1244.5	-452.709
19	20759	21243.4	21075.8	167.58	-484.413
20	20467	20955.4	20987.1	-31.6563	-488.427
21	20467	20879.1	20904.2	-25.1007	-412.108
22	20610	21465	20854.9	610.126	-855.001
23	20026	20598.5	20811.8	-213.332	-572.459
24	20467	20281.4	20769	-487.564	185.564
25	20097	19354.4	20732.5	-1378.06	742.601
26	20467	20116.3	20680.2	-563.943	350.735
27	21051	20303.5	20609.3	-305.828	747.536
28	21272	20334.7	20532.4	-197.679	937.263
29	21792	21648.9	20468	1180.95	143.087
30	21571	21644.8	20400.3	1244.5	-73.7928
31	20246	20484.8	20317.2	167.58	-238.788
32	19726	20214.9	20246.6	-31.6563	-488.927
33	19506	20157.1	20182.2	-25.1007	-651.108
34	19726	20712.8	20102.7	610.126	-986.793
35	19363	19840.4	20053.7	-213.332	-477.376
36	19506	19562.9	20050.5	-487.564	-56.9363
37	19064	18657.1	20035.1	-1378.06	406.934
38	19805	19437.7	20001.6	-563.943	367.318
39	20168	19674.7	19980.5	-305.828	493.286
40	20246	19771	19968.7	-197.679	475.013
41	21643	21112.8	19931.9	1180.95	530.17
42	21643	21090.3	19845.8	1244.5	552.749
43	19805	19899.9	19732.3	167.58	-94.9132
44	19363	19559.7	19591.3	-31.6563	-196.677
45	19363	19413.1	19438.2	-25.1007	-50.066
46	19584	19882.7	19272.6	610.126	-298.709
47	18622	18869	19082.3	-213.332	-247.001
48	18180	18414	18901.5	-487.564	-233.978
49	17668	17370	18748	-1378.06	298.017
50	17817	18045.8	18609.7	-563.943	-228.765
51	18480	18150.4	18456.3	-305.828	329.578
52	17960	18095.9	18293.6	-197.679	-135.904
53	19363	19321.1	18140.1	1180.95	41.9201
54	19584	19243.6	17999.1	1244.5	340.374
55	18180	18004.3	17836.8	167.58	175.67
56	17668	17621.1	17652.7	-31.6563	46.9479
57	17375	17424.9	17450	-25.1007	-49.8576
58	17668	17857.6	17247.5	610.126	-189.626
59	16855	16856.4	17069.7	-213.332	-1.37616
60	16563	16388.6	16876.2	-487.564	174.397
61	15388	15277.3	16655.3	-1378.06	110.726
62	15680	15849.2	16413.1	-563.943	-169.182
63	15751	15855.6	16161.4	-305.828	-104.589
64	15830	15715.3	15913	-197.679	114.721
65	17226	16824.1	15643.1	1180.95	401.92
66	17076	16565.6	15321.1	1244.5	510.416
67	15388	15114.4	14946.8	167.58	273.628
68	14647	14510.3	14541.9	-31.6563	136.74
69	14355	14103	14128.1	-25.1007	251.976
70	14725	14312	13701.9	610.126	412.999
71	13322	13046.8	13260.2	-213.332	275.166
72	12367	12334.2	12821.8	-487.564	32.8137
73	10601	11023.4	12401.5	-1378.06	-422.399
74	10750	11444.8	12008.8	-563.943	-694.807
75	10750	11316.5	11622.3	-305.828	-566.464
76	10601	11044.1	11241.8	-197.679	-443.112
77	11854	12057.7	10876.7	1180.95	-203.663
78	11926	11756.1	10511.6	1244.5	169.874
79	10451	10320.3	10152.8	167.58	130.67
80	10159	9774.39	9806.04	-31.6563	384.615
81	9568	9424.77	9449.87	-25.1007	143.226
82	10380	9697.83	9087.71	610.126	682.166
83	8905	8518.46	8731.79	-213.332	386.541
84	8022	7888.35	8375.92	-487.564	133.647
85	6333	6679.07	8057.12	-1378.06	-346.066
86	6697	7214.14	7778.08	-563.943	-517.14
87	6255	7226.71	7532.54	-305.828	-971.714
88	6404	7120.2	7317.87	-197.679	-716.196
89	7509	8281.25	7100.29	1180.95	-772.247
90	7730	8108.79	6864.29	1244.5	-378.793
91	6996	6777.16	6609.58	167.58	218.837
92	6917	6363.01	6394.67	-31.6563	553.99
93	6917	6213.11	6238.21	-25.1007	703.892
94	7879	6698.13	6088	610.126	1180.87
95	6184	5749.08	5962.42	-213.332	434.916
96	5079	5358.44	5846	-487.564	-279.436
97	3163	4329.86	5707.92	-1378.06	-1166.86
98	4709	5021.39	5585.33	-563.943	-312.39
99	4488	5175.67	5481.5	-305.828	-687.672
100	4566	5195.11	5392.79	-197.679	-629.112
101	6333	6506.37	5325.42	1180.95	-173.372
102	6112	6517.96	5273.46	1244.5	-405.959
103	5300	5419.66	5252.08	167.58	-119.663
104	5671	5232.89	5264.54	-31.6563	438.115
105	5671	5267.36	5292.46	-25.1007	403.642
106	6996	5933.21	5323.08	610.126	1062.79
107	5450	5130.88	5344.21	-213.332	319.124
108	4566	4871.81	5359.38	-487.564	-305.811
109	3163	4011.9	5389.96	-1378.06	-848.899
110	5008	4856.6	5420.54	-563.943	151.402
111	4859	5148.26	5454.08	-305.828	-289.256
112	4930	5283.7	5481.38	-197.679	-353.696
113	6476	6680.41	5499.46	1180.95	-204.413
114	6333	6768.29	5523.79	1244.5	-435.293
115	5813	NA	NA	167.58	NA
116	5892	NA	NA	-31.6563	NA
117	6255	NA	NA	-25.1007	NA
118	7067	NA	NA	610.126	NA
119	5813	NA	NA	-213.332	NA
120	4787	NA	NA	-487.564	NA

\begin{tabular}{lllllllll}
\hline
Classical Decomposition by Moving Averages \tabularnewline
t & Observations & Fit & Trend & Seasonal & Random \tabularnewline
1 & 21571 & NA & NA & -1378.06 & NA \tabularnewline
2 & 21493 & NA & NA & -563.943 & NA \tabularnewline
3 & 21422 & NA & NA & -305.828 & NA \tabularnewline
4 & 21272 & NA & NA & -197.679 & NA \tabularnewline
5 & 22747 & NA & NA & 1180.95 & NA \tabularnewline
6 & 22676 & NA & NA & 1244.5 & NA \tabularnewline
7 & 21571 & 21605.2 & 21437.6 & 167.58 & -34.1632 \tabularnewline
8 & 20831 & 21390.5 & 21422.2 & -31.6563 & -559.51 \tabularnewline
9 & 20909 & 21421.7 & 21446.8 & -25.1007 & -512.733 \tabularnewline
10 & 20909 & 22090.8 & 21480.7 & 610.126 & -1181.83 \tabularnewline
11 & 20980 & 21270.7 & 21484 & -213.332 & -290.668 \tabularnewline
12 & 21130 & 20953.4 & 21441 & -487.564 & 176.605 \tabularnewline
13 & 21051 & 19998.2 & 21376.3 & -1378.06 & 1052.81 \tabularnewline
14 & 21643 & 20763.3 & 21327.2 & -563.943 & 879.693 \tabularnewline
15 & 21864 & 20987.8 & 21293.7 & -305.828 & 876.161 \tabularnewline
16 & 21643 & 21065.1 & 21262.8 & -197.679 & 577.888 \tabularnewline
17 & 22455 & 22391.5 & 21210.6 & 1180.95 & 63.4618 \tabularnewline
18 & 21935 & 22387.7 & 21143.2 & 1244.5 & -452.709 \tabularnewline
19 & 20759 & 21243.4 & 21075.8 & 167.58 & -484.413 \tabularnewline
20 & 20467 & 20955.4 & 20987.1 & -31.6563 & -488.427 \tabularnewline
21 & 20467 & 20879.1 & 20904.2 & -25.1007 & -412.108 \tabularnewline
22 & 20610 & 21465 & 20854.9 & 610.126 & -855.001 \tabularnewline
23 & 20026 & 20598.5 & 20811.8 & -213.332 & -572.459 \tabularnewline
24 & 20467 & 20281.4 & 20769 & -487.564 & 185.564 \tabularnewline
25 & 20097 & 19354.4 & 20732.5 & -1378.06 & 742.601 \tabularnewline
26 & 20467 & 20116.3 & 20680.2 & -563.943 & 350.735 \tabularnewline
27 & 21051 & 20303.5 & 20609.3 & -305.828 & 747.536 \tabularnewline
28 & 21272 & 20334.7 & 20532.4 & -197.679 & 937.263 \tabularnewline
29 & 21792 & 21648.9 & 20468 & 1180.95 & 143.087 \tabularnewline
30 & 21571 & 21644.8 & 20400.3 & 1244.5 & -73.7928 \tabularnewline
31 & 20246 & 20484.8 & 20317.2 & 167.58 & -238.788 \tabularnewline
32 & 19726 & 20214.9 & 20246.6 & -31.6563 & -488.927 \tabularnewline
33 & 19506 & 20157.1 & 20182.2 & -25.1007 & -651.108 \tabularnewline
34 & 19726 & 20712.8 & 20102.7 & 610.126 & -986.793 \tabularnewline
35 & 19363 & 19840.4 & 20053.7 & -213.332 & -477.376 \tabularnewline
36 & 19506 & 19562.9 & 20050.5 & -487.564 & -56.9363 \tabularnewline
37 & 19064 & 18657.1 & 20035.1 & -1378.06 & 406.934 \tabularnewline
38 & 19805 & 19437.7 & 20001.6 & -563.943 & 367.318 \tabularnewline
39 & 20168 & 19674.7 & 19980.5 & -305.828 & 493.286 \tabularnewline
40 & 20246 & 19771 & 19968.7 & -197.679 & 475.013 \tabularnewline
41 & 21643 & 21112.8 & 19931.9 & 1180.95 & 530.17 \tabularnewline
42 & 21643 & 21090.3 & 19845.8 & 1244.5 & 552.749 \tabularnewline
43 & 19805 & 19899.9 & 19732.3 & 167.58 & -94.9132 \tabularnewline
44 & 19363 & 19559.7 & 19591.3 & -31.6563 & -196.677 \tabularnewline
45 & 19363 & 19413.1 & 19438.2 & -25.1007 & -50.066 \tabularnewline
46 & 19584 & 19882.7 & 19272.6 & 610.126 & -298.709 \tabularnewline
47 & 18622 & 18869 & 19082.3 & -213.332 & -247.001 \tabularnewline
48 & 18180 & 18414 & 18901.5 & -487.564 & -233.978 \tabularnewline
49 & 17668 & 17370 & 18748 & -1378.06 & 298.017 \tabularnewline
50 & 17817 & 18045.8 & 18609.7 & -563.943 & -228.765 \tabularnewline
51 & 18480 & 18150.4 & 18456.3 & -305.828 & 329.578 \tabularnewline
52 & 17960 & 18095.9 & 18293.6 & -197.679 & -135.904 \tabularnewline
53 & 19363 & 19321.1 & 18140.1 & 1180.95 & 41.9201 \tabularnewline
54 & 19584 & 19243.6 & 17999.1 & 1244.5 & 340.374 \tabularnewline
55 & 18180 & 18004.3 & 17836.8 & 167.58 & 175.67 \tabularnewline
56 & 17668 & 17621.1 & 17652.7 & -31.6563 & 46.9479 \tabularnewline
57 & 17375 & 17424.9 & 17450 & -25.1007 & -49.8576 \tabularnewline
58 & 17668 & 17857.6 & 17247.5 & 610.126 & -189.626 \tabularnewline
59 & 16855 & 16856.4 & 17069.7 & -213.332 & -1.37616 \tabularnewline
60 & 16563 & 16388.6 & 16876.2 & -487.564 & 174.397 \tabularnewline
61 & 15388 & 15277.3 & 16655.3 & -1378.06 & 110.726 \tabularnewline
62 & 15680 & 15849.2 & 16413.1 & -563.943 & -169.182 \tabularnewline
63 & 15751 & 15855.6 & 16161.4 & -305.828 & -104.589 \tabularnewline
64 & 15830 & 15715.3 & 15913 & -197.679 & 114.721 \tabularnewline
65 & 17226 & 16824.1 & 15643.1 & 1180.95 & 401.92 \tabularnewline
66 & 17076 & 16565.6 & 15321.1 & 1244.5 & 510.416 \tabularnewline
67 & 15388 & 15114.4 & 14946.8 & 167.58 & 273.628 \tabularnewline
68 & 14647 & 14510.3 & 14541.9 & -31.6563 & 136.74 \tabularnewline
69 & 14355 & 14103 & 14128.1 & -25.1007 & 251.976 \tabularnewline
70 & 14725 & 14312 & 13701.9 & 610.126 & 412.999 \tabularnewline
71 & 13322 & 13046.8 & 13260.2 & -213.332 & 275.166 \tabularnewline
72 & 12367 & 12334.2 & 12821.8 & -487.564 & 32.8137 \tabularnewline
73 & 10601 & 11023.4 & 12401.5 & -1378.06 & -422.399 \tabularnewline
74 & 10750 & 11444.8 & 12008.8 & -563.943 & -694.807 \tabularnewline
75 & 10750 & 11316.5 & 11622.3 & -305.828 & -566.464 \tabularnewline
76 & 10601 & 11044.1 & 11241.8 & -197.679 & -443.112 \tabularnewline
77 & 11854 & 12057.7 & 10876.7 & 1180.95 & -203.663 \tabularnewline
78 & 11926 & 11756.1 & 10511.6 & 1244.5 & 169.874 \tabularnewline
79 & 10451 & 10320.3 & 10152.8 & 167.58 & 130.67 \tabularnewline
80 & 10159 & 9774.39 & 9806.04 & -31.6563 & 384.615 \tabularnewline
81 & 9568 & 9424.77 & 9449.87 & -25.1007 & 143.226 \tabularnewline
82 & 10380 & 9697.83 & 9087.71 & 610.126 & 682.166 \tabularnewline
83 & 8905 & 8518.46 & 8731.79 & -213.332 & 386.541 \tabularnewline
84 & 8022 & 7888.35 & 8375.92 & -487.564 & 133.647 \tabularnewline
85 & 6333 & 6679.07 & 8057.12 & -1378.06 & -346.066 \tabularnewline
86 & 6697 & 7214.14 & 7778.08 & -563.943 & -517.14 \tabularnewline
87 & 6255 & 7226.71 & 7532.54 & -305.828 & -971.714 \tabularnewline
88 & 6404 & 7120.2 & 7317.87 & -197.679 & -716.196 \tabularnewline
89 & 7509 & 8281.25 & 7100.29 & 1180.95 & -772.247 \tabularnewline
90 & 7730 & 8108.79 & 6864.29 & 1244.5 & -378.793 \tabularnewline
91 & 6996 & 6777.16 & 6609.58 & 167.58 & 218.837 \tabularnewline
92 & 6917 & 6363.01 & 6394.67 & -31.6563 & 553.99 \tabularnewline
93 & 6917 & 6213.11 & 6238.21 & -25.1007 & 703.892 \tabularnewline
94 & 7879 & 6698.13 & 6088 & 610.126 & 1180.87 \tabularnewline
95 & 6184 & 5749.08 & 5962.42 & -213.332 & 434.916 \tabularnewline
96 & 5079 & 5358.44 & 5846 & -487.564 & -279.436 \tabularnewline
97 & 3163 & 4329.86 & 5707.92 & -1378.06 & -1166.86 \tabularnewline
98 & 4709 & 5021.39 & 5585.33 & -563.943 & -312.39 \tabularnewline
99 & 4488 & 5175.67 & 5481.5 & -305.828 & -687.672 \tabularnewline
100 & 4566 & 5195.11 & 5392.79 & -197.679 & -629.112 \tabularnewline
101 & 6333 & 6506.37 & 5325.42 & 1180.95 & -173.372 \tabularnewline
102 & 6112 & 6517.96 & 5273.46 & 1244.5 & -405.959 \tabularnewline
103 & 5300 & 5419.66 & 5252.08 & 167.58 & -119.663 \tabularnewline
104 & 5671 & 5232.89 & 5264.54 & -31.6563 & 438.115 \tabularnewline
105 & 5671 & 5267.36 & 5292.46 & -25.1007 & 403.642 \tabularnewline
106 & 6996 & 5933.21 & 5323.08 & 610.126 & 1062.79 \tabularnewline
107 & 5450 & 5130.88 & 5344.21 & -213.332 & 319.124 \tabularnewline
108 & 4566 & 4871.81 & 5359.38 & -487.564 & -305.811 \tabularnewline
109 & 3163 & 4011.9 & 5389.96 & -1378.06 & -848.899 \tabularnewline
110 & 5008 & 4856.6 & 5420.54 & -563.943 & 151.402 \tabularnewline
111 & 4859 & 5148.26 & 5454.08 & -305.828 & -289.256 \tabularnewline
112 & 4930 & 5283.7 & 5481.38 & -197.679 & -353.696 \tabularnewline
113 & 6476 & 6680.41 & 5499.46 & 1180.95 & -204.413 \tabularnewline
114 & 6333 & 6768.29 & 5523.79 & 1244.5 & -435.293 \tabularnewline
115 & 5813 & NA & NA & 167.58 & NA \tabularnewline
116 & 5892 & NA & NA & -31.6563 & NA \tabularnewline
117 & 6255 & NA & NA & -25.1007 & NA \tabularnewline
118 & 7067 & NA & NA & 610.126 & NA \tabularnewline
119 & 5813 & NA & NA & -213.332 & NA \tabularnewline
120 & 4787 & NA & NA & -487.564 & NA \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=&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]21571[/C][C]NA[/C][C]NA[/C][C]-1378.06[/C][C]NA[/C][/ROW]
[ROW][C]2[/C][C]21493[/C][C]NA[/C][C]NA[/C][C]-563.943[/C][C]NA[/C][/ROW]
[ROW][C]3[/C][C]21422[/C][C]NA[/C][C]NA[/C][C]-305.828[/C][C]NA[/C][/ROW]
[ROW][C]4[/C][C]21272[/C][C]NA[/C][C]NA[/C][C]-197.679[/C][C]NA[/C][/ROW]
[ROW][C]5[/C][C]22747[/C][C]NA[/C][C]NA[/C][C]1180.95[/C][C]NA[/C][/ROW]
[ROW][C]6[/C][C]22676[/C][C]NA[/C][C]NA[/C][C]1244.5[/C][C]NA[/C][/ROW]
[ROW][C]7[/C][C]21571[/C][C]21605.2[/C][C]21437.6[/C][C]167.58[/C][C]-34.1632[/C][/ROW]
[ROW][C]8[/C][C]20831[/C][C]21390.5[/C][C]21422.2[/C][C]-31.6563[/C][C]-559.51[/C][/ROW]
[ROW][C]9[/C][C]20909[/C][C]21421.7[/C][C]21446.8[/C][C]-25.1007[/C][C]-512.733[/C][/ROW]
[ROW][C]10[/C][C]20909[/C][C]22090.8[/C][C]21480.7[/C][C]610.126[/C][C]-1181.83[/C][/ROW]
[ROW][C]11[/C][C]20980[/C][C]21270.7[/C][C]21484[/C][C]-213.332[/C][C]-290.668[/C][/ROW]
[ROW][C]12[/C][C]21130[/C][C]20953.4[/C][C]21441[/C][C]-487.564[/C][C]176.605[/C][/ROW]
[ROW][C]13[/C][C]21051[/C][C]19998.2[/C][C]21376.3[/C][C]-1378.06[/C][C]1052.81[/C][/ROW]
[ROW][C]14[/C][C]21643[/C][C]20763.3[/C][C]21327.2[/C][C]-563.943[/C][C]879.693[/C][/ROW]
[ROW][C]15[/C][C]21864[/C][C]20987.8[/C][C]21293.7[/C][C]-305.828[/C][C]876.161[/C][/ROW]
[ROW][C]16[/C][C]21643[/C][C]21065.1[/C][C]21262.8[/C][C]-197.679[/C][C]577.888[/C][/ROW]
[ROW][C]17[/C][C]22455[/C][C]22391.5[/C][C]21210.6[/C][C]1180.95[/C][C]63.4618[/C][/ROW]
[ROW][C]18[/C][C]21935[/C][C]22387.7[/C][C]21143.2[/C][C]1244.5[/C][C]-452.709[/C][/ROW]
[ROW][C]19[/C][C]20759[/C][C]21243.4[/C][C]21075.8[/C][C]167.58[/C][C]-484.413[/C][/ROW]
[ROW][C]20[/C][C]20467[/C][C]20955.4[/C][C]20987.1[/C][C]-31.6563[/C][C]-488.427[/C][/ROW]
[ROW][C]21[/C][C]20467[/C][C]20879.1[/C][C]20904.2[/C][C]-25.1007[/C][C]-412.108[/C][/ROW]
[ROW][C]22[/C][C]20610[/C][C]21465[/C][C]20854.9[/C][C]610.126[/C][C]-855.001[/C][/ROW]
[ROW][C]23[/C][C]20026[/C][C]20598.5[/C][C]20811.8[/C][C]-213.332[/C][C]-572.459[/C][/ROW]
[ROW][C]24[/C][C]20467[/C][C]20281.4[/C][C]20769[/C][C]-487.564[/C][C]185.564[/C][/ROW]
[ROW][C]25[/C][C]20097[/C][C]19354.4[/C][C]20732.5[/C][C]-1378.06[/C][C]742.601[/C][/ROW]
[ROW][C]26[/C][C]20467[/C][C]20116.3[/C][C]20680.2[/C][C]-563.943[/C][C]350.735[/C][/ROW]
[ROW][C]27[/C][C]21051[/C][C]20303.5[/C][C]20609.3[/C][C]-305.828[/C][C]747.536[/C][/ROW]
[ROW][C]28[/C][C]21272[/C][C]20334.7[/C][C]20532.4[/C][C]-197.679[/C][C]937.263[/C][/ROW]
[ROW][C]29[/C][C]21792[/C][C]21648.9[/C][C]20468[/C][C]1180.95[/C][C]143.087[/C][/ROW]
[ROW][C]30[/C][C]21571[/C][C]21644.8[/C][C]20400.3[/C][C]1244.5[/C][C]-73.7928[/C][/ROW]
[ROW][C]31[/C][C]20246[/C][C]20484.8[/C][C]20317.2[/C][C]167.58[/C][C]-238.788[/C][/ROW]
[ROW][C]32[/C][C]19726[/C][C]20214.9[/C][C]20246.6[/C][C]-31.6563[/C][C]-488.927[/C][/ROW]
[ROW][C]33[/C][C]19506[/C][C]20157.1[/C][C]20182.2[/C][C]-25.1007[/C][C]-651.108[/C][/ROW]
[ROW][C]34[/C][C]19726[/C][C]20712.8[/C][C]20102.7[/C][C]610.126[/C][C]-986.793[/C][/ROW]
[ROW][C]35[/C][C]19363[/C][C]19840.4[/C][C]20053.7[/C][C]-213.332[/C][C]-477.376[/C][/ROW]
[ROW][C]36[/C][C]19506[/C][C]19562.9[/C][C]20050.5[/C][C]-487.564[/C][C]-56.9363[/C][/ROW]
[ROW][C]37[/C][C]19064[/C][C]18657.1[/C][C]20035.1[/C][C]-1378.06[/C][C]406.934[/C][/ROW]
[ROW][C]38[/C][C]19805[/C][C]19437.7[/C][C]20001.6[/C][C]-563.943[/C][C]367.318[/C][/ROW]
[ROW][C]39[/C][C]20168[/C][C]19674.7[/C][C]19980.5[/C][C]-305.828[/C][C]493.286[/C][/ROW]
[ROW][C]40[/C][C]20246[/C][C]19771[/C][C]19968.7[/C][C]-197.679[/C][C]475.013[/C][/ROW]
[ROW][C]41[/C][C]21643[/C][C]21112.8[/C][C]19931.9[/C][C]1180.95[/C][C]530.17[/C][/ROW]
[ROW][C]42[/C][C]21643[/C][C]21090.3[/C][C]19845.8[/C][C]1244.5[/C][C]552.749[/C][/ROW]
[ROW][C]43[/C][C]19805[/C][C]19899.9[/C][C]19732.3[/C][C]167.58[/C][C]-94.9132[/C][/ROW]
[ROW][C]44[/C][C]19363[/C][C]19559.7[/C][C]19591.3[/C][C]-31.6563[/C][C]-196.677[/C][/ROW]
[ROW][C]45[/C][C]19363[/C][C]19413.1[/C][C]19438.2[/C][C]-25.1007[/C][C]-50.066[/C][/ROW]
[ROW][C]46[/C][C]19584[/C][C]19882.7[/C][C]19272.6[/C][C]610.126[/C][C]-298.709[/C][/ROW]
[ROW][C]47[/C][C]18622[/C][C]18869[/C][C]19082.3[/C][C]-213.332[/C][C]-247.001[/C][/ROW]
[ROW][C]48[/C][C]18180[/C][C]18414[/C][C]18901.5[/C][C]-487.564[/C][C]-233.978[/C][/ROW]
[ROW][C]49[/C][C]17668[/C][C]17370[/C][C]18748[/C][C]-1378.06[/C][C]298.017[/C][/ROW]
[ROW][C]50[/C][C]17817[/C][C]18045.8[/C][C]18609.7[/C][C]-563.943[/C][C]-228.765[/C][/ROW]
[ROW][C]51[/C][C]18480[/C][C]18150.4[/C][C]18456.3[/C][C]-305.828[/C][C]329.578[/C][/ROW]
[ROW][C]52[/C][C]17960[/C][C]18095.9[/C][C]18293.6[/C][C]-197.679[/C][C]-135.904[/C][/ROW]
[ROW][C]53[/C][C]19363[/C][C]19321.1[/C][C]18140.1[/C][C]1180.95[/C][C]41.9201[/C][/ROW]
[ROW][C]54[/C][C]19584[/C][C]19243.6[/C][C]17999.1[/C][C]1244.5[/C][C]340.374[/C][/ROW]
[ROW][C]55[/C][C]18180[/C][C]18004.3[/C][C]17836.8[/C][C]167.58[/C][C]175.67[/C][/ROW]
[ROW][C]56[/C][C]17668[/C][C]17621.1[/C][C]17652.7[/C][C]-31.6563[/C][C]46.9479[/C][/ROW]
[ROW][C]57[/C][C]17375[/C][C]17424.9[/C][C]17450[/C][C]-25.1007[/C][C]-49.8576[/C][/ROW]
[ROW][C]58[/C][C]17668[/C][C]17857.6[/C][C]17247.5[/C][C]610.126[/C][C]-189.626[/C][/ROW]
[ROW][C]59[/C][C]16855[/C][C]16856.4[/C][C]17069.7[/C][C]-213.332[/C][C]-1.37616[/C][/ROW]
[ROW][C]60[/C][C]16563[/C][C]16388.6[/C][C]16876.2[/C][C]-487.564[/C][C]174.397[/C][/ROW]
[ROW][C]61[/C][C]15388[/C][C]15277.3[/C][C]16655.3[/C][C]-1378.06[/C][C]110.726[/C][/ROW]
[ROW][C]62[/C][C]15680[/C][C]15849.2[/C][C]16413.1[/C][C]-563.943[/C][C]-169.182[/C][/ROW]
[ROW][C]63[/C][C]15751[/C][C]15855.6[/C][C]16161.4[/C][C]-305.828[/C][C]-104.589[/C][/ROW]
[ROW][C]64[/C][C]15830[/C][C]15715.3[/C][C]15913[/C][C]-197.679[/C][C]114.721[/C][/ROW]
[ROW][C]65[/C][C]17226[/C][C]16824.1[/C][C]15643.1[/C][C]1180.95[/C][C]401.92[/C][/ROW]
[ROW][C]66[/C][C]17076[/C][C]16565.6[/C][C]15321.1[/C][C]1244.5[/C][C]510.416[/C][/ROW]
[ROW][C]67[/C][C]15388[/C][C]15114.4[/C][C]14946.8[/C][C]167.58[/C][C]273.628[/C][/ROW]
[ROW][C]68[/C][C]14647[/C][C]14510.3[/C][C]14541.9[/C][C]-31.6563[/C][C]136.74[/C][/ROW]
[ROW][C]69[/C][C]14355[/C][C]14103[/C][C]14128.1[/C][C]-25.1007[/C][C]251.976[/C][/ROW]
[ROW][C]70[/C][C]14725[/C][C]14312[/C][C]13701.9[/C][C]610.126[/C][C]412.999[/C][/ROW]
[ROW][C]71[/C][C]13322[/C][C]13046.8[/C][C]13260.2[/C][C]-213.332[/C][C]275.166[/C][/ROW]
[ROW][C]72[/C][C]12367[/C][C]12334.2[/C][C]12821.8[/C][C]-487.564[/C][C]32.8137[/C][/ROW]
[ROW][C]73[/C][C]10601[/C][C]11023.4[/C][C]12401.5[/C][C]-1378.06[/C][C]-422.399[/C][/ROW]
[ROW][C]74[/C][C]10750[/C][C]11444.8[/C][C]12008.8[/C][C]-563.943[/C][C]-694.807[/C][/ROW]
[ROW][C]75[/C][C]10750[/C][C]11316.5[/C][C]11622.3[/C][C]-305.828[/C][C]-566.464[/C][/ROW]
[ROW][C]76[/C][C]10601[/C][C]11044.1[/C][C]11241.8[/C][C]-197.679[/C][C]-443.112[/C][/ROW]
[ROW][C]77[/C][C]11854[/C][C]12057.7[/C][C]10876.7[/C][C]1180.95[/C][C]-203.663[/C][/ROW]
[ROW][C]78[/C][C]11926[/C][C]11756.1[/C][C]10511.6[/C][C]1244.5[/C][C]169.874[/C][/ROW]
[ROW][C]79[/C][C]10451[/C][C]10320.3[/C][C]10152.8[/C][C]167.58[/C][C]130.67[/C][/ROW]
[ROW][C]80[/C][C]10159[/C][C]9774.39[/C][C]9806.04[/C][C]-31.6563[/C][C]384.615[/C][/ROW]
[ROW][C]81[/C][C]9568[/C][C]9424.77[/C][C]9449.87[/C][C]-25.1007[/C][C]143.226[/C][/ROW]
[ROW][C]82[/C][C]10380[/C][C]9697.83[/C][C]9087.71[/C][C]610.126[/C][C]682.166[/C][/ROW]
[ROW][C]83[/C][C]8905[/C][C]8518.46[/C][C]8731.79[/C][C]-213.332[/C][C]386.541[/C][/ROW]
[ROW][C]84[/C][C]8022[/C][C]7888.35[/C][C]8375.92[/C][C]-487.564[/C][C]133.647[/C][/ROW]
[ROW][C]85[/C][C]6333[/C][C]6679.07[/C][C]8057.12[/C][C]-1378.06[/C][C]-346.066[/C][/ROW]
[ROW][C]86[/C][C]6697[/C][C]7214.14[/C][C]7778.08[/C][C]-563.943[/C][C]-517.14[/C][/ROW]
[ROW][C]87[/C][C]6255[/C][C]7226.71[/C][C]7532.54[/C][C]-305.828[/C][C]-971.714[/C][/ROW]
[ROW][C]88[/C][C]6404[/C][C]7120.2[/C][C]7317.87[/C][C]-197.679[/C][C]-716.196[/C][/ROW]
[ROW][C]89[/C][C]7509[/C][C]8281.25[/C][C]7100.29[/C][C]1180.95[/C][C]-772.247[/C][/ROW]
[ROW][C]90[/C][C]7730[/C][C]8108.79[/C][C]6864.29[/C][C]1244.5[/C][C]-378.793[/C][/ROW]
[ROW][C]91[/C][C]6996[/C][C]6777.16[/C][C]6609.58[/C][C]167.58[/C][C]218.837[/C][/ROW]
[ROW][C]92[/C][C]6917[/C][C]6363.01[/C][C]6394.67[/C][C]-31.6563[/C][C]553.99[/C][/ROW]
[ROW][C]93[/C][C]6917[/C][C]6213.11[/C][C]6238.21[/C][C]-25.1007[/C][C]703.892[/C][/ROW]
[ROW][C]94[/C][C]7879[/C][C]6698.13[/C][C]6088[/C][C]610.126[/C][C]1180.87[/C][/ROW]
[ROW][C]95[/C][C]6184[/C][C]5749.08[/C][C]5962.42[/C][C]-213.332[/C][C]434.916[/C][/ROW]
[ROW][C]96[/C][C]5079[/C][C]5358.44[/C][C]5846[/C][C]-487.564[/C][C]-279.436[/C][/ROW]
[ROW][C]97[/C][C]3163[/C][C]4329.86[/C][C]5707.92[/C][C]-1378.06[/C][C]-1166.86[/C][/ROW]
[ROW][C]98[/C][C]4709[/C][C]5021.39[/C][C]5585.33[/C][C]-563.943[/C][C]-312.39[/C][/ROW]
[ROW][C]99[/C][C]4488[/C][C]5175.67[/C][C]5481.5[/C][C]-305.828[/C][C]-687.672[/C][/ROW]
[ROW][C]100[/C][C]4566[/C][C]5195.11[/C][C]5392.79[/C][C]-197.679[/C][C]-629.112[/C][/ROW]
[ROW][C]101[/C][C]6333[/C][C]6506.37[/C][C]5325.42[/C][C]1180.95[/C][C]-173.372[/C][/ROW]
[ROW][C]102[/C][C]6112[/C][C]6517.96[/C][C]5273.46[/C][C]1244.5[/C][C]-405.959[/C][/ROW]
[ROW][C]103[/C][C]5300[/C][C]5419.66[/C][C]5252.08[/C][C]167.58[/C][C]-119.663[/C][/ROW]
[ROW][C]104[/C][C]5671[/C][C]5232.89[/C][C]5264.54[/C][C]-31.6563[/C][C]438.115[/C][/ROW]
[ROW][C]105[/C][C]5671[/C][C]5267.36[/C][C]5292.46[/C][C]-25.1007[/C][C]403.642[/C][/ROW]
[ROW][C]106[/C][C]6996[/C][C]5933.21[/C][C]5323.08[/C][C]610.126[/C][C]1062.79[/C][/ROW]
[ROW][C]107[/C][C]5450[/C][C]5130.88[/C][C]5344.21[/C][C]-213.332[/C][C]319.124[/C][/ROW]
[ROW][C]108[/C][C]4566[/C][C]4871.81[/C][C]5359.38[/C][C]-487.564[/C][C]-305.811[/C][/ROW]
[ROW][C]109[/C][C]3163[/C][C]4011.9[/C][C]5389.96[/C][C]-1378.06[/C][C]-848.899[/C][/ROW]
[ROW][C]110[/C][C]5008[/C][C]4856.6[/C][C]5420.54[/C][C]-563.943[/C][C]151.402[/C][/ROW]
[ROW][C]111[/C][C]4859[/C][C]5148.26[/C][C]5454.08[/C][C]-305.828[/C][C]-289.256[/C][/ROW]
[ROW][C]112[/C][C]4930[/C][C]5283.7[/C][C]5481.38[/C][C]-197.679[/C][C]-353.696[/C][/ROW]
[ROW][C]113[/C][C]6476[/C][C]6680.41[/C][C]5499.46[/C][C]1180.95[/C][C]-204.413[/C][/ROW]
[ROW][C]114[/C][C]6333[/C][C]6768.29[/C][C]5523.79[/C][C]1244.5[/C][C]-435.293[/C][/ROW]
[ROW][C]115[/C][C]5813[/C][C]NA[/C][C]NA[/C][C]167.58[/C][C]NA[/C][/ROW]
[ROW][C]116[/C][C]5892[/C][C]NA[/C][C]NA[/C][C]-31.6563[/C][C]NA[/C][/ROW]
[ROW][C]117[/C][C]6255[/C][C]NA[/C][C]NA[/C][C]-25.1007[/C][C]NA[/C][/ROW]
[ROW][C]118[/C][C]7067[/C][C]NA[/C][C]NA[/C][C]610.126[/C][C]NA[/C][/ROW]
[ROW][C]119[/C][C]5813[/C][C]NA[/C][C]NA[/C][C]-213.332[/C][C]NA[/C][/ROW]
[ROW][C]120[/C][C]4787[/C][C]NA[/C][C]NA[/C][C]-487.564[/C][C]NA[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=&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
t	Observations	Fit	Trend	Seasonal	Random
1	21571	NA	NA	-1378.06	NA
2	21493	NA	NA	-563.943	NA
3	21422	NA	NA	-305.828	NA
4	21272	NA	NA	-197.679	NA
5	22747	NA	NA	1180.95	NA
6	22676	NA	NA	1244.5	NA
7	21571	21605.2	21437.6	167.58	-34.1632
8	20831	21390.5	21422.2	-31.6563	-559.51
9	20909	21421.7	21446.8	-25.1007	-512.733
10	20909	22090.8	21480.7	610.126	-1181.83
11	20980	21270.7	21484	-213.332	-290.668
12	21130	20953.4	21441	-487.564	176.605
13	21051	19998.2	21376.3	-1378.06	1052.81
14	21643	20763.3	21327.2	-563.943	879.693
15	21864	20987.8	21293.7	-305.828	876.161
16	21643	21065.1	21262.8	-197.679	577.888
17	22455	22391.5	21210.6	1180.95	63.4618
18	21935	22387.7	21143.2	1244.5	-452.709
19	20759	21243.4	21075.8	167.58	-484.413
20	20467	20955.4	20987.1	-31.6563	-488.427
21	20467	20879.1	20904.2	-25.1007	-412.108
22	20610	21465	20854.9	610.126	-855.001
23	20026	20598.5	20811.8	-213.332	-572.459
24	20467	20281.4	20769	-487.564	185.564
25	20097	19354.4	20732.5	-1378.06	742.601
26	20467	20116.3	20680.2	-563.943	350.735
27	21051	20303.5	20609.3	-305.828	747.536
28	21272	20334.7	20532.4	-197.679	937.263
29	21792	21648.9	20468	1180.95	143.087
30	21571	21644.8	20400.3	1244.5	-73.7928
31	20246	20484.8	20317.2	167.58	-238.788
32	19726	20214.9	20246.6	-31.6563	-488.927
33	19506	20157.1	20182.2	-25.1007	-651.108
34	19726	20712.8	20102.7	610.126	-986.793
35	19363	19840.4	20053.7	-213.332	-477.376
36	19506	19562.9	20050.5	-487.564	-56.9363
37	19064	18657.1	20035.1	-1378.06	406.934
38	19805	19437.7	20001.6	-563.943	367.318
39	20168	19674.7	19980.5	-305.828	493.286
40	20246	19771	19968.7	-197.679	475.013
41	21643	21112.8	19931.9	1180.95	530.17
42	21643	21090.3	19845.8	1244.5	552.749
43	19805	19899.9	19732.3	167.58	-94.9132
44	19363	19559.7	19591.3	-31.6563	-196.677
45	19363	19413.1	19438.2	-25.1007	-50.066
46	19584	19882.7	19272.6	610.126	-298.709
47	18622	18869	19082.3	-213.332	-247.001
48	18180	18414	18901.5	-487.564	-233.978
49	17668	17370	18748	-1378.06	298.017
50	17817	18045.8	18609.7	-563.943	-228.765
51	18480	18150.4	18456.3	-305.828	329.578
52	17960	18095.9	18293.6	-197.679	-135.904
53	19363	19321.1	18140.1	1180.95	41.9201
54	19584	19243.6	17999.1	1244.5	340.374
55	18180	18004.3	17836.8	167.58	175.67
56	17668	17621.1	17652.7	-31.6563	46.9479
57	17375	17424.9	17450	-25.1007	-49.8576
58	17668	17857.6	17247.5	610.126	-189.626
59	16855	16856.4	17069.7	-213.332	-1.37616
60	16563	16388.6	16876.2	-487.564	174.397
61	15388	15277.3	16655.3	-1378.06	110.726
62	15680	15849.2	16413.1	-563.943	-169.182
63	15751	15855.6	16161.4	-305.828	-104.589
64	15830	15715.3	15913	-197.679	114.721
65	17226	16824.1	15643.1	1180.95	401.92
66	17076	16565.6	15321.1	1244.5	510.416
67	15388	15114.4	14946.8	167.58	273.628
68	14647	14510.3	14541.9	-31.6563	136.74
69	14355	14103	14128.1	-25.1007	251.976
70	14725	14312	13701.9	610.126	412.999
71	13322	13046.8	13260.2	-213.332	275.166
72	12367	12334.2	12821.8	-487.564	32.8137
73	10601	11023.4	12401.5	-1378.06	-422.399
74	10750	11444.8	12008.8	-563.943	-694.807
75	10750	11316.5	11622.3	-305.828	-566.464
76	10601	11044.1	11241.8	-197.679	-443.112
77	11854	12057.7	10876.7	1180.95	-203.663
78	11926	11756.1	10511.6	1244.5	169.874
79	10451	10320.3	10152.8	167.58	130.67
80	10159	9774.39	9806.04	-31.6563	384.615
81	9568	9424.77	9449.87	-25.1007	143.226
82	10380	9697.83	9087.71	610.126	682.166
83	8905	8518.46	8731.79	-213.332	386.541
84	8022	7888.35	8375.92	-487.564	133.647
85	6333	6679.07	8057.12	-1378.06	-346.066
86	6697	7214.14	7778.08	-563.943	-517.14
87	6255	7226.71	7532.54	-305.828	-971.714
88	6404	7120.2	7317.87	-197.679	-716.196
89	7509	8281.25	7100.29	1180.95	-772.247
90	7730	8108.79	6864.29	1244.5	-378.793
91	6996	6777.16	6609.58	167.58	218.837
92	6917	6363.01	6394.67	-31.6563	553.99
93	6917	6213.11	6238.21	-25.1007	703.892
94	7879	6698.13	6088	610.126	1180.87
95	6184	5749.08	5962.42	-213.332	434.916
96	5079	5358.44	5846	-487.564	-279.436
97	3163	4329.86	5707.92	-1378.06	-1166.86
98	4709	5021.39	5585.33	-563.943	-312.39
99	4488	5175.67	5481.5	-305.828	-687.672
100	4566	5195.11	5392.79	-197.679	-629.112
101	6333	6506.37	5325.42	1180.95	-173.372
102	6112	6517.96	5273.46	1244.5	-405.959
103	5300	5419.66	5252.08	167.58	-119.663
104	5671	5232.89	5264.54	-31.6563	438.115
105	5671	5267.36	5292.46	-25.1007	403.642
106	6996	5933.21	5323.08	610.126	1062.79
107	5450	5130.88	5344.21	-213.332	319.124
108	4566	4871.81	5359.38	-487.564	-305.811
109	3163	4011.9	5389.96	-1378.06	-848.899
110	5008	4856.6	5420.54	-563.943	151.402
111	4859	5148.26	5454.08	-305.828	-289.256
112	4930	5283.7	5481.38	-197.679	-353.696
113	6476	6680.41	5499.46	1180.95	-204.413
114	6333	6768.29	5523.79	1244.5	-435.293
115	5813	NA	NA	167.58	NA
116	5892	NA	NA	-31.6563	NA
117	6255	NA	NA	-25.1007	NA
118	7067	NA	NA	610.126	NA
119	5813	NA	NA	-213.332	NA
120	4787	NA	NA	-487.564	NA

Figure 1

PNG link

Postscript link

PDF link

Figure 2

PNG link

Postscript link

PDF link

Figure 3

PNG link

Postscript link

PDF link

Figure 4

PNG link

Postscript link

PDF link

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

Free Statistics

Description of Statistical Computation

Tree of Dependent Computations

Dataset

Tables (Output of Computation)

Figures (Output of Computation)

Input Parameters & R Code