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

Wed, 14 May 2014 10:00:46 -0400

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/2014/May/14/t1400076123urqesxgyu4e32to.htm/, Retrieved Wed, 15 May 2024 08:48:19 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=234865, Retrieved Wed, 15 May 2024 08:48:19 +0000

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

165

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)

-       [Classical Decomposition] [prijs scheerappar...] [2014-05-14 14:00:46] [7314f5de623f4497f735e8af2050bf2f] [Current]

Feedback Forum

Post a new message

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	3 seconds
R Server	'Gertrude Mary Cox' @ cox.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 & 'Gertrude Mary Cox' @ cox.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=234865&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]'Gertrude Mary Cox' @ cox.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=234865&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=234865&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	3 seconds
R Server	'Gertrude Mary Cox' @ cox.wessa.net

Classical Decomposition by Moving Averages
t	Observations	Fit	Trend	Seasonal	Random
1	74.74	NA	NA	-0.0100231	NA
2	74.8	NA	NA	0.311019	NA
3	74.46	NA	NA	0.105394	NA
4	74.03	NA	NA	0.141088	NA
5	74.45	NA	NA	-0.19787	NA
6	74.74	NA	NA	-0.10787	NA
7	74.74	74.4405	74.4946	-0.0541204	0.299537
8	74.78	74.45	74.4783	-0.028287	0.329954
9	74.25	74.316	74.4742	-0.158148	-0.0660185
10	74.14	74.4068	74.4967	-0.0898843	-0.266782
11	74.41	74.5603	74.5142	0.046088	-0.150255
12	74.51	74.528	74.4854	0.0426157	-0.0180324
13	74.51	74.4229	74.4329	-0.0100231	0.0871065
14	74.64	74.6935	74.3825	0.311019	-0.0535185
15	74.52	74.4466	74.3412	0.105394	0.0733565
16	74.51	74.4548	74.3138	0.141088	0.055162
17	74.39	74.1013	74.2992	-0.19787	0.288704
18	74.11	74.1475	74.2554	-0.10787	-0.0375463
19	74.11	74.1221	74.1762	-0.0541204	-0.0121296
20	74.2	74.0813	74.1096	-0.028287	0.118704
21	73.84	73.8873	74.0454	-0.158148	-0.0472685
22	73.89	73.8768	73.9667	-0.0898843	0.0132176
23	74.31	73.9382	73.8921	0.046088	0.371829
24	73.56	73.8568	73.8142	0.0426157	-0.296782
25	73.56	73.7141	73.7242	-0.0100231	-0.154144
26	73.99	73.9239	73.6129	0.311019	0.0660648
27	73.63	73.5879	73.4825	0.105394	0.0421065
28	73.51	73.504	73.3629	0.141088	0.00599537
29	73.6	73.045	73.2429	-0.19787	0.554954
30	73.03	73.0438	73.1517	-0.10787	-0.0137963
31	73.03	73.0442	73.0983	-0.0541204	-0.014213
32	72.61	72.9992	73.0275	-0.028287	-0.389213
33	72.3	72.8044	72.9625	-0.158148	-0.504352
34	72.56	72.8434	72.9333	-0.0898843	-0.283449
35	72.76	72.9603	72.9142	0.046088	-0.200255
36	72.92	72.9993	72.9567	0.0426157	-0.0792824
37	72.92	73.0533	73.0633	-0.0100231	-0.13331
38	72.93	73.5127	73.2017	0.311019	-0.582685
39	73.13	73.4954	73.39	0.105394	-0.365394
40	73.31	73.7248	73.5838	0.141088	-0.414838
41	73.34	73.5575	73.7554	-0.19787	-0.217546
42	74.31	73.8	73.9079	-0.10787	0.509954
43	74.31	73.9963	74.0504	-0.0541204	0.313704
44	74.65	74.1775	74.2058	-0.028287	0.472454
45	74.78	74.2169	74.375	-0.158148	0.563148
46	74.73	74.4609	74.5508	-0.0898843	0.269051
47	74.71	74.7378	74.6917	0.046088	-0.0277546
48	74.63	74.8376	74.795	0.0426157	-0.207616
49	74.63	74.8916	74.9017	-0.0100231	-0.261644
50	74.95	75.3248	75.0138	0.311019	-0.374769
51	75.17	75.2312	75.1258	0.105394	-0.0612269
52	75.49	75.3894	75.2483	0.141088	0.100579
53	74.54	75.1896	75.3875	-0.19787	-0.64963
54	75.59	75.4455	75.5533	-0.10787	0.144537
55	75.59	75.6909	75.745	-0.0541204	-0.10088
56	76.06	75.9142	75.9425	-0.028287	0.145787
57	76.06	75.9894	76.1475	-0.158148	0.0706481
58	76.39	76.2672	76.3571	-0.0898843	0.122801
59	76.39	76.6394	76.5933	0.046088	-0.249421
60	76.93	76.8376	76.795	0.0426157	0.0923843
61	76.93	76.9283	76.9383	-0.0100231	0.00168981
62	77.39	77.3739	77.0629	0.311019	0.0160648
63	77.65	77.3025	77.1971	0.105394	0.347523
64	78.04	77.4994	77.3583	0.141088	0.540579
65	77.66	77.333	77.5308	-0.19787	0.327037
66	77.31	77.5992	77.7071	-0.10787	-0.289213
67	77.31	77.8205	77.8746	-0.0541204	-0.510463
68	77.33	78.0321	78.0604	-0.028287	-0.70213
69	78.01	78.0506	78.2088	-0.158148	-0.0406019
70	78.31	78.1893	78.2792	-0.0898843	0.120718
71	78.61	78.3786	78.3325	0.046088	0.231412
72	78.94	78.4551	78.4125	0.0426157	0.484884
73	78.94	78.5041	78.5142	-0.0100231	0.435856
74	79.84	78.9356	78.6246	0.311019	0.904398
75	78.76	78.8208	78.7154	0.105394	-0.0608102
76	78.62	78.9319	78.7908	0.141088	-0.311921
77	78.36	78.688	78.8858	-0.19787	-0.327963
78	78.53	78.8684	78.9762	-0.10787	-0.33838
79	78.53	NA	NA	-0.0541204	NA
80	78.76	NA	NA	-0.028287	NA
81	78.76	NA	NA	-0.158148	NA
82	79.37	NA	NA	-0.0898843	NA
83	79.83	NA	NA	0.046088	NA
84	79.89	NA	NA	0.0426157	NA

\begin{tabular}{lllllllll}
\hline
Classical Decomposition by Moving Averages \tabularnewline
t & Observations & Fit & Trend & Seasonal & Random \tabularnewline
1 & 74.74 & NA & NA & -0.0100231 & NA \tabularnewline
2 & 74.8 & NA & NA & 0.311019 & NA \tabularnewline
3 & 74.46 & NA & NA & 0.105394 & NA \tabularnewline
4 & 74.03 & NA & NA & 0.141088 & NA \tabularnewline
5 & 74.45 & NA & NA & -0.19787 & NA \tabularnewline
6 & 74.74 & NA & NA & -0.10787 & NA \tabularnewline
7 & 74.74 & 74.4405 & 74.4946 & -0.0541204 & 0.299537 \tabularnewline
8 & 74.78 & 74.45 & 74.4783 & -0.028287 & 0.329954 \tabularnewline
9 & 74.25 & 74.316 & 74.4742 & -0.158148 & -0.0660185 \tabularnewline
10 & 74.14 & 74.4068 & 74.4967 & -0.0898843 & -0.266782 \tabularnewline
11 & 74.41 & 74.5603 & 74.5142 & 0.046088 & -0.150255 \tabularnewline
12 & 74.51 & 74.528 & 74.4854 & 0.0426157 & -0.0180324 \tabularnewline
13 & 74.51 & 74.4229 & 74.4329 & -0.0100231 & 0.0871065 \tabularnewline
14 & 74.64 & 74.6935 & 74.3825 & 0.311019 & -0.0535185 \tabularnewline
15 & 74.52 & 74.4466 & 74.3412 & 0.105394 & 0.0733565 \tabularnewline
16 & 74.51 & 74.4548 & 74.3138 & 0.141088 & 0.055162 \tabularnewline
17 & 74.39 & 74.1013 & 74.2992 & -0.19787 & 0.288704 \tabularnewline
18 & 74.11 & 74.1475 & 74.2554 & -0.10787 & -0.0375463 \tabularnewline
19 & 74.11 & 74.1221 & 74.1762 & -0.0541204 & -0.0121296 \tabularnewline
20 & 74.2 & 74.0813 & 74.1096 & -0.028287 & 0.118704 \tabularnewline
21 & 73.84 & 73.8873 & 74.0454 & -0.158148 & -0.0472685 \tabularnewline
22 & 73.89 & 73.8768 & 73.9667 & -0.0898843 & 0.0132176 \tabularnewline
23 & 74.31 & 73.9382 & 73.8921 & 0.046088 & 0.371829 \tabularnewline
24 & 73.56 & 73.8568 & 73.8142 & 0.0426157 & -0.296782 \tabularnewline
25 & 73.56 & 73.7141 & 73.7242 & -0.0100231 & -0.154144 \tabularnewline
26 & 73.99 & 73.9239 & 73.6129 & 0.311019 & 0.0660648 \tabularnewline
27 & 73.63 & 73.5879 & 73.4825 & 0.105394 & 0.0421065 \tabularnewline
28 & 73.51 & 73.504 & 73.3629 & 0.141088 & 0.00599537 \tabularnewline
29 & 73.6 & 73.045 & 73.2429 & -0.19787 & 0.554954 \tabularnewline
30 & 73.03 & 73.0438 & 73.1517 & -0.10787 & -0.0137963 \tabularnewline
31 & 73.03 & 73.0442 & 73.0983 & -0.0541204 & -0.014213 \tabularnewline
32 & 72.61 & 72.9992 & 73.0275 & -0.028287 & -0.389213 \tabularnewline
33 & 72.3 & 72.8044 & 72.9625 & -0.158148 & -0.504352 \tabularnewline
34 & 72.56 & 72.8434 & 72.9333 & -0.0898843 & -0.283449 \tabularnewline
35 & 72.76 & 72.9603 & 72.9142 & 0.046088 & -0.200255 \tabularnewline
36 & 72.92 & 72.9993 & 72.9567 & 0.0426157 & -0.0792824 \tabularnewline
37 & 72.92 & 73.0533 & 73.0633 & -0.0100231 & -0.13331 \tabularnewline
38 & 72.93 & 73.5127 & 73.2017 & 0.311019 & -0.582685 \tabularnewline
39 & 73.13 & 73.4954 & 73.39 & 0.105394 & -0.365394 \tabularnewline
40 & 73.31 & 73.7248 & 73.5838 & 0.141088 & -0.414838 \tabularnewline
41 & 73.34 & 73.5575 & 73.7554 & -0.19787 & -0.217546 \tabularnewline
42 & 74.31 & 73.8 & 73.9079 & -0.10787 & 0.509954 \tabularnewline
43 & 74.31 & 73.9963 & 74.0504 & -0.0541204 & 0.313704 \tabularnewline
44 & 74.65 & 74.1775 & 74.2058 & -0.028287 & 0.472454 \tabularnewline
45 & 74.78 & 74.2169 & 74.375 & -0.158148 & 0.563148 \tabularnewline
46 & 74.73 & 74.4609 & 74.5508 & -0.0898843 & 0.269051 \tabularnewline
47 & 74.71 & 74.7378 & 74.6917 & 0.046088 & -0.0277546 \tabularnewline
48 & 74.63 & 74.8376 & 74.795 & 0.0426157 & -0.207616 \tabularnewline
49 & 74.63 & 74.8916 & 74.9017 & -0.0100231 & -0.261644 \tabularnewline
50 & 74.95 & 75.3248 & 75.0138 & 0.311019 & -0.374769 \tabularnewline
51 & 75.17 & 75.2312 & 75.1258 & 0.105394 & -0.0612269 \tabularnewline
52 & 75.49 & 75.3894 & 75.2483 & 0.141088 & 0.100579 \tabularnewline
53 & 74.54 & 75.1896 & 75.3875 & -0.19787 & -0.64963 \tabularnewline
54 & 75.59 & 75.4455 & 75.5533 & -0.10787 & 0.144537 \tabularnewline
55 & 75.59 & 75.6909 & 75.745 & -0.0541204 & -0.10088 \tabularnewline
56 & 76.06 & 75.9142 & 75.9425 & -0.028287 & 0.145787 \tabularnewline
57 & 76.06 & 75.9894 & 76.1475 & -0.158148 & 0.0706481 \tabularnewline
58 & 76.39 & 76.2672 & 76.3571 & -0.0898843 & 0.122801 \tabularnewline
59 & 76.39 & 76.6394 & 76.5933 & 0.046088 & -0.249421 \tabularnewline
60 & 76.93 & 76.8376 & 76.795 & 0.0426157 & 0.0923843 \tabularnewline
61 & 76.93 & 76.9283 & 76.9383 & -0.0100231 & 0.00168981 \tabularnewline
62 & 77.39 & 77.3739 & 77.0629 & 0.311019 & 0.0160648 \tabularnewline
63 & 77.65 & 77.3025 & 77.1971 & 0.105394 & 0.347523 \tabularnewline
64 & 78.04 & 77.4994 & 77.3583 & 0.141088 & 0.540579 \tabularnewline
65 & 77.66 & 77.333 & 77.5308 & -0.19787 & 0.327037 \tabularnewline
66 & 77.31 & 77.5992 & 77.7071 & -0.10787 & -0.289213 \tabularnewline
67 & 77.31 & 77.8205 & 77.8746 & -0.0541204 & -0.510463 \tabularnewline
68 & 77.33 & 78.0321 & 78.0604 & -0.028287 & -0.70213 \tabularnewline
69 & 78.01 & 78.0506 & 78.2088 & -0.158148 & -0.0406019 \tabularnewline
70 & 78.31 & 78.1893 & 78.2792 & -0.0898843 & 0.120718 \tabularnewline
71 & 78.61 & 78.3786 & 78.3325 & 0.046088 & 0.231412 \tabularnewline
72 & 78.94 & 78.4551 & 78.4125 & 0.0426157 & 0.484884 \tabularnewline
73 & 78.94 & 78.5041 & 78.5142 & -0.0100231 & 0.435856 \tabularnewline
74 & 79.84 & 78.9356 & 78.6246 & 0.311019 & 0.904398 \tabularnewline
75 & 78.76 & 78.8208 & 78.7154 & 0.105394 & -0.0608102 \tabularnewline
76 & 78.62 & 78.9319 & 78.7908 & 0.141088 & -0.311921 \tabularnewline
77 & 78.36 & 78.688 & 78.8858 & -0.19787 & -0.327963 \tabularnewline
78 & 78.53 & 78.8684 & 78.9762 & -0.10787 & -0.33838 \tabularnewline
79 & 78.53 & NA & NA & -0.0541204 & NA \tabularnewline
80 & 78.76 & NA & NA & -0.028287 & NA \tabularnewline
81 & 78.76 & NA & NA & -0.158148 & NA \tabularnewline
82 & 79.37 & NA & NA & -0.0898843 & NA \tabularnewline
83 & 79.83 & NA & NA & 0.046088 & NA \tabularnewline
84 & 79.89 & NA & NA & 0.0426157 & NA \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=234865&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]74.74[/C][C]NA[/C][C]NA[/C][C]-0.0100231[/C][C]NA[/C][/ROW]
[ROW][C]2[/C][C]74.8[/C][C]NA[/C][C]NA[/C][C]0.311019[/C][C]NA[/C][/ROW]
[ROW][C]3[/C][C]74.46[/C][C]NA[/C][C]NA[/C][C]0.105394[/C][C]NA[/C][/ROW]
[ROW][C]4[/C][C]74.03[/C][C]NA[/C][C]NA[/C][C]0.141088[/C][C]NA[/C][/ROW]
[ROW][C]5[/C][C]74.45[/C][C]NA[/C][C]NA[/C][C]-0.19787[/C][C]NA[/C][/ROW]
[ROW][C]6[/C][C]74.74[/C][C]NA[/C][C]NA[/C][C]-0.10787[/C][C]NA[/C][/ROW]
[ROW][C]7[/C][C]74.74[/C][C]74.4405[/C][C]74.4946[/C][C]-0.0541204[/C][C]0.299537[/C][/ROW]
[ROW][C]8[/C][C]74.78[/C][C]74.45[/C][C]74.4783[/C][C]-0.028287[/C][C]0.329954[/C][/ROW]
[ROW][C]9[/C][C]74.25[/C][C]74.316[/C][C]74.4742[/C][C]-0.158148[/C][C]-0.0660185[/C][/ROW]
[ROW][C]10[/C][C]74.14[/C][C]74.4068[/C][C]74.4967[/C][C]-0.0898843[/C][C]-0.266782[/C][/ROW]
[ROW][C]11[/C][C]74.41[/C][C]74.5603[/C][C]74.5142[/C][C]0.046088[/C][C]-0.150255[/C][/ROW]
[ROW][C]12[/C][C]74.51[/C][C]74.528[/C][C]74.4854[/C][C]0.0426157[/C][C]-0.0180324[/C][/ROW]
[ROW][C]13[/C][C]74.51[/C][C]74.4229[/C][C]74.4329[/C][C]-0.0100231[/C][C]0.0871065[/C][/ROW]
[ROW][C]14[/C][C]74.64[/C][C]74.6935[/C][C]74.3825[/C][C]0.311019[/C][C]-0.0535185[/C][/ROW]
[ROW][C]15[/C][C]74.52[/C][C]74.4466[/C][C]74.3412[/C][C]0.105394[/C][C]0.0733565[/C][/ROW]
[ROW][C]16[/C][C]74.51[/C][C]74.4548[/C][C]74.3138[/C][C]0.141088[/C][C]0.055162[/C][/ROW]
[ROW][C]17[/C][C]74.39[/C][C]74.1013[/C][C]74.2992[/C][C]-0.19787[/C][C]0.288704[/C][/ROW]
[ROW][C]18[/C][C]74.11[/C][C]74.1475[/C][C]74.2554[/C][C]-0.10787[/C][C]-0.0375463[/C][/ROW]
[ROW][C]19[/C][C]74.11[/C][C]74.1221[/C][C]74.1762[/C][C]-0.0541204[/C][C]-0.0121296[/C][/ROW]
[ROW][C]20[/C][C]74.2[/C][C]74.0813[/C][C]74.1096[/C][C]-0.028287[/C][C]0.118704[/C][/ROW]
[ROW][C]21[/C][C]73.84[/C][C]73.8873[/C][C]74.0454[/C][C]-0.158148[/C][C]-0.0472685[/C][/ROW]
[ROW][C]22[/C][C]73.89[/C][C]73.8768[/C][C]73.9667[/C][C]-0.0898843[/C][C]0.0132176[/C][/ROW]
[ROW][C]23[/C][C]74.31[/C][C]73.9382[/C][C]73.8921[/C][C]0.046088[/C][C]0.371829[/C][/ROW]
[ROW][C]24[/C][C]73.56[/C][C]73.8568[/C][C]73.8142[/C][C]0.0426157[/C][C]-0.296782[/C][/ROW]
[ROW][C]25[/C][C]73.56[/C][C]73.7141[/C][C]73.7242[/C][C]-0.0100231[/C][C]-0.154144[/C][/ROW]
[ROW][C]26[/C][C]73.99[/C][C]73.9239[/C][C]73.6129[/C][C]0.311019[/C][C]0.0660648[/C][/ROW]
[ROW][C]27[/C][C]73.63[/C][C]73.5879[/C][C]73.4825[/C][C]0.105394[/C][C]0.0421065[/C][/ROW]
[ROW][C]28[/C][C]73.51[/C][C]73.504[/C][C]73.3629[/C][C]0.141088[/C][C]0.00599537[/C][/ROW]
[ROW][C]29[/C][C]73.6[/C][C]73.045[/C][C]73.2429[/C][C]-0.19787[/C][C]0.554954[/C][/ROW]
[ROW][C]30[/C][C]73.03[/C][C]73.0438[/C][C]73.1517[/C][C]-0.10787[/C][C]-0.0137963[/C][/ROW]
[ROW][C]31[/C][C]73.03[/C][C]73.0442[/C][C]73.0983[/C][C]-0.0541204[/C][C]-0.014213[/C][/ROW]
[ROW][C]32[/C][C]72.61[/C][C]72.9992[/C][C]73.0275[/C][C]-0.028287[/C][C]-0.389213[/C][/ROW]
[ROW][C]33[/C][C]72.3[/C][C]72.8044[/C][C]72.9625[/C][C]-0.158148[/C][C]-0.504352[/C][/ROW]
[ROW][C]34[/C][C]72.56[/C][C]72.8434[/C][C]72.9333[/C][C]-0.0898843[/C][C]-0.283449[/C][/ROW]
[ROW][C]35[/C][C]72.76[/C][C]72.9603[/C][C]72.9142[/C][C]0.046088[/C][C]-0.200255[/C][/ROW]
[ROW][C]36[/C][C]72.92[/C][C]72.9993[/C][C]72.9567[/C][C]0.0426157[/C][C]-0.0792824[/C][/ROW]
[ROW][C]37[/C][C]72.92[/C][C]73.0533[/C][C]73.0633[/C][C]-0.0100231[/C][C]-0.13331[/C][/ROW]
[ROW][C]38[/C][C]72.93[/C][C]73.5127[/C][C]73.2017[/C][C]0.311019[/C][C]-0.582685[/C][/ROW]
[ROW][C]39[/C][C]73.13[/C][C]73.4954[/C][C]73.39[/C][C]0.105394[/C][C]-0.365394[/C][/ROW]
[ROW][C]40[/C][C]73.31[/C][C]73.7248[/C][C]73.5838[/C][C]0.141088[/C][C]-0.414838[/C][/ROW]
[ROW][C]41[/C][C]73.34[/C][C]73.5575[/C][C]73.7554[/C][C]-0.19787[/C][C]-0.217546[/C][/ROW]
[ROW][C]42[/C][C]74.31[/C][C]73.8[/C][C]73.9079[/C][C]-0.10787[/C][C]0.509954[/C][/ROW]
[ROW][C]43[/C][C]74.31[/C][C]73.9963[/C][C]74.0504[/C][C]-0.0541204[/C][C]0.313704[/C][/ROW]
[ROW][C]44[/C][C]74.65[/C][C]74.1775[/C][C]74.2058[/C][C]-0.028287[/C][C]0.472454[/C][/ROW]
[ROW][C]45[/C][C]74.78[/C][C]74.2169[/C][C]74.375[/C][C]-0.158148[/C][C]0.563148[/C][/ROW]
[ROW][C]46[/C][C]74.73[/C][C]74.4609[/C][C]74.5508[/C][C]-0.0898843[/C][C]0.269051[/C][/ROW]
[ROW][C]47[/C][C]74.71[/C][C]74.7378[/C][C]74.6917[/C][C]0.046088[/C][C]-0.0277546[/C][/ROW]
[ROW][C]48[/C][C]74.63[/C][C]74.8376[/C][C]74.795[/C][C]0.0426157[/C][C]-0.207616[/C][/ROW]
[ROW][C]49[/C][C]74.63[/C][C]74.8916[/C][C]74.9017[/C][C]-0.0100231[/C][C]-0.261644[/C][/ROW]
[ROW][C]50[/C][C]74.95[/C][C]75.3248[/C][C]75.0138[/C][C]0.311019[/C][C]-0.374769[/C][/ROW]
[ROW][C]51[/C][C]75.17[/C][C]75.2312[/C][C]75.1258[/C][C]0.105394[/C][C]-0.0612269[/C][/ROW]
[ROW][C]52[/C][C]75.49[/C][C]75.3894[/C][C]75.2483[/C][C]0.141088[/C][C]0.100579[/C][/ROW]
[ROW][C]53[/C][C]74.54[/C][C]75.1896[/C][C]75.3875[/C][C]-0.19787[/C][C]-0.64963[/C][/ROW]
[ROW][C]54[/C][C]75.59[/C][C]75.4455[/C][C]75.5533[/C][C]-0.10787[/C][C]0.144537[/C][/ROW]
[ROW][C]55[/C][C]75.59[/C][C]75.6909[/C][C]75.745[/C][C]-0.0541204[/C][C]-0.10088[/C][/ROW]
[ROW][C]56[/C][C]76.06[/C][C]75.9142[/C][C]75.9425[/C][C]-0.028287[/C][C]0.145787[/C][/ROW]
[ROW][C]57[/C][C]76.06[/C][C]75.9894[/C][C]76.1475[/C][C]-0.158148[/C][C]0.0706481[/C][/ROW]
[ROW][C]58[/C][C]76.39[/C][C]76.2672[/C][C]76.3571[/C][C]-0.0898843[/C][C]0.122801[/C][/ROW]
[ROW][C]59[/C][C]76.39[/C][C]76.6394[/C][C]76.5933[/C][C]0.046088[/C][C]-0.249421[/C][/ROW]
[ROW][C]60[/C][C]76.93[/C][C]76.8376[/C][C]76.795[/C][C]0.0426157[/C][C]0.0923843[/C][/ROW]
[ROW][C]61[/C][C]76.93[/C][C]76.9283[/C][C]76.9383[/C][C]-0.0100231[/C][C]0.00168981[/C][/ROW]
[ROW][C]62[/C][C]77.39[/C][C]77.3739[/C][C]77.0629[/C][C]0.311019[/C][C]0.0160648[/C][/ROW]
[ROW][C]63[/C][C]77.65[/C][C]77.3025[/C][C]77.1971[/C][C]0.105394[/C][C]0.347523[/C][/ROW]
[ROW][C]64[/C][C]78.04[/C][C]77.4994[/C][C]77.3583[/C][C]0.141088[/C][C]0.540579[/C][/ROW]
[ROW][C]65[/C][C]77.66[/C][C]77.333[/C][C]77.5308[/C][C]-0.19787[/C][C]0.327037[/C][/ROW]
[ROW][C]66[/C][C]77.31[/C][C]77.5992[/C][C]77.7071[/C][C]-0.10787[/C][C]-0.289213[/C][/ROW]
[ROW][C]67[/C][C]77.31[/C][C]77.8205[/C][C]77.8746[/C][C]-0.0541204[/C][C]-0.510463[/C][/ROW]
[ROW][C]68[/C][C]77.33[/C][C]78.0321[/C][C]78.0604[/C][C]-0.028287[/C][C]-0.70213[/C][/ROW]
[ROW][C]69[/C][C]78.01[/C][C]78.0506[/C][C]78.2088[/C][C]-0.158148[/C][C]-0.0406019[/C][/ROW]
[ROW][C]70[/C][C]78.31[/C][C]78.1893[/C][C]78.2792[/C][C]-0.0898843[/C][C]0.120718[/C][/ROW]
[ROW][C]71[/C][C]78.61[/C][C]78.3786[/C][C]78.3325[/C][C]0.046088[/C][C]0.231412[/C][/ROW]
[ROW][C]72[/C][C]78.94[/C][C]78.4551[/C][C]78.4125[/C][C]0.0426157[/C][C]0.484884[/C][/ROW]
[ROW][C]73[/C][C]78.94[/C][C]78.5041[/C][C]78.5142[/C][C]-0.0100231[/C][C]0.435856[/C][/ROW]
[ROW][C]74[/C][C]79.84[/C][C]78.9356[/C][C]78.6246[/C][C]0.311019[/C][C]0.904398[/C][/ROW]
[ROW][C]75[/C][C]78.76[/C][C]78.8208[/C][C]78.7154[/C][C]0.105394[/C][C]-0.0608102[/C][/ROW]
[ROW][C]76[/C][C]78.62[/C][C]78.9319[/C][C]78.7908[/C][C]0.141088[/C][C]-0.311921[/C][/ROW]
[ROW][C]77[/C][C]78.36[/C][C]78.688[/C][C]78.8858[/C][C]-0.19787[/C][C]-0.327963[/C][/ROW]
[ROW][C]78[/C][C]78.53[/C][C]78.8684[/C][C]78.9762[/C][C]-0.10787[/C][C]-0.33838[/C][/ROW]
[ROW][C]79[/C][C]78.53[/C][C]NA[/C][C]NA[/C][C]-0.0541204[/C][C]NA[/C][/ROW]
[ROW][C]80[/C][C]78.76[/C][C]NA[/C][C]NA[/C][C]-0.028287[/C][C]NA[/C][/ROW]
[ROW][C]81[/C][C]78.76[/C][C]NA[/C][C]NA[/C][C]-0.158148[/C][C]NA[/C][/ROW]
[ROW][C]82[/C][C]79.37[/C][C]NA[/C][C]NA[/C][C]-0.0898843[/C][C]NA[/C][/ROW]
[ROW][C]83[/C][C]79.83[/C][C]NA[/C][C]NA[/C][C]0.046088[/C][C]NA[/C][/ROW]
[ROW][C]84[/C][C]79.89[/C][C]NA[/C][C]NA[/C][C]0.0426157[/C][C]NA[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=234865&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=234865&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	74.74	NA	NA	-0.0100231	NA
2	74.8	NA	NA	0.311019	NA
3	74.46	NA	NA	0.105394	NA
4	74.03	NA	NA	0.141088	NA
5	74.45	NA	NA	-0.19787	NA
6	74.74	NA	NA	-0.10787	NA
7	74.74	74.4405	74.4946	-0.0541204	0.299537
8	74.78	74.45	74.4783	-0.028287	0.329954
9	74.25	74.316	74.4742	-0.158148	-0.0660185
10	74.14	74.4068	74.4967	-0.0898843	-0.266782
11	74.41	74.5603	74.5142	0.046088	-0.150255
12	74.51	74.528	74.4854	0.0426157	-0.0180324
13	74.51	74.4229	74.4329	-0.0100231	0.0871065
14	74.64	74.6935	74.3825	0.311019	-0.0535185
15	74.52	74.4466	74.3412	0.105394	0.0733565
16	74.51	74.4548	74.3138	0.141088	0.055162
17	74.39	74.1013	74.2992	-0.19787	0.288704
18	74.11	74.1475	74.2554	-0.10787	-0.0375463
19	74.11	74.1221	74.1762	-0.0541204	-0.0121296
20	74.2	74.0813	74.1096	-0.028287	0.118704
21	73.84	73.8873	74.0454	-0.158148	-0.0472685
22	73.89	73.8768	73.9667	-0.0898843	0.0132176
23	74.31	73.9382	73.8921	0.046088	0.371829
24	73.56	73.8568	73.8142	0.0426157	-0.296782
25	73.56	73.7141	73.7242	-0.0100231	-0.154144
26	73.99	73.9239	73.6129	0.311019	0.0660648
27	73.63	73.5879	73.4825	0.105394	0.0421065
28	73.51	73.504	73.3629	0.141088	0.00599537
29	73.6	73.045	73.2429	-0.19787	0.554954
30	73.03	73.0438	73.1517	-0.10787	-0.0137963
31	73.03	73.0442	73.0983	-0.0541204	-0.014213
32	72.61	72.9992	73.0275	-0.028287	-0.389213
33	72.3	72.8044	72.9625	-0.158148	-0.504352
34	72.56	72.8434	72.9333	-0.0898843	-0.283449
35	72.76	72.9603	72.9142	0.046088	-0.200255
36	72.92	72.9993	72.9567	0.0426157	-0.0792824
37	72.92	73.0533	73.0633	-0.0100231	-0.13331
38	72.93	73.5127	73.2017	0.311019	-0.582685
39	73.13	73.4954	73.39	0.105394	-0.365394
40	73.31	73.7248	73.5838	0.141088	-0.414838
41	73.34	73.5575	73.7554	-0.19787	-0.217546
42	74.31	73.8	73.9079	-0.10787	0.509954
43	74.31	73.9963	74.0504	-0.0541204	0.313704
44	74.65	74.1775	74.2058	-0.028287	0.472454
45	74.78	74.2169	74.375	-0.158148	0.563148
46	74.73	74.4609	74.5508	-0.0898843	0.269051
47	74.71	74.7378	74.6917	0.046088	-0.0277546
48	74.63	74.8376	74.795	0.0426157	-0.207616
49	74.63	74.8916	74.9017	-0.0100231	-0.261644
50	74.95	75.3248	75.0138	0.311019	-0.374769
51	75.17	75.2312	75.1258	0.105394	-0.0612269
52	75.49	75.3894	75.2483	0.141088	0.100579
53	74.54	75.1896	75.3875	-0.19787	-0.64963
54	75.59	75.4455	75.5533	-0.10787	0.144537
55	75.59	75.6909	75.745	-0.0541204	-0.10088
56	76.06	75.9142	75.9425	-0.028287	0.145787
57	76.06	75.9894	76.1475	-0.158148	0.0706481
58	76.39	76.2672	76.3571	-0.0898843	0.122801
59	76.39	76.6394	76.5933	0.046088	-0.249421
60	76.93	76.8376	76.795	0.0426157	0.0923843
61	76.93	76.9283	76.9383	-0.0100231	0.00168981
62	77.39	77.3739	77.0629	0.311019	0.0160648
63	77.65	77.3025	77.1971	0.105394	0.347523
64	78.04	77.4994	77.3583	0.141088	0.540579
65	77.66	77.333	77.5308	-0.19787	0.327037
66	77.31	77.5992	77.7071	-0.10787	-0.289213
67	77.31	77.8205	77.8746	-0.0541204	-0.510463
68	77.33	78.0321	78.0604	-0.028287	-0.70213
69	78.01	78.0506	78.2088	-0.158148	-0.0406019
70	78.31	78.1893	78.2792	-0.0898843	0.120718
71	78.61	78.3786	78.3325	0.046088	0.231412
72	78.94	78.4551	78.4125	0.0426157	0.484884
73	78.94	78.5041	78.5142	-0.0100231	0.435856
74	79.84	78.9356	78.6246	0.311019	0.904398
75	78.76	78.8208	78.7154	0.105394	-0.0608102
76	78.62	78.9319	78.7908	0.141088	-0.311921
77	78.36	78.688	78.8858	-0.19787	-0.327963
78	78.53	78.8684	78.9762	-0.10787	-0.33838
79	78.53	NA	NA	-0.0541204	NA
80	78.76	NA	NA	-0.028287	NA
81	78.76	NA	NA	-0.158148	NA
82	79.37	NA	NA	-0.0898843	NA
83	79.83	NA	NA	0.046088	NA
84	79.89	NA	NA	0.0426157	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