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

Thu, 12 Dec 2013 11:16:21 -0500

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/2013/Dec/12/t1386866310ib06ybdpkxa4td6.htm/, Retrieved Sun, 03 May 2026 00:46:44 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=232259, Retrieved Sun, 03 May 2026 00:46:44 +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

396

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

-       [Classical Decomposition] [] [2013-12-12 16:16:21] [5e7911d8fd88d8bc3975d02d8918deef] [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	4 seconds
R Server	'Gwilym Jenkins' @ jenkins.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 & 4 seconds \tabularnewline
R Server & 'Gwilym Jenkins' @ jenkins.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=232259&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]4 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'Gwilym Jenkins' @ jenkins.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=232259&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=232259&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	4 seconds
R Server	'Gwilym Jenkins' @ jenkins.wessa.net

Classical Decomposition by Moving Averages
t	Observations	Fit	Trend	Seasonal	Random
1	51.02	NA	NA	-0.0415208	NA
2	51.06	NA	NA	-0.0930208	NA
3	50.9	NA	NA	-0.101438	NA
4	51.23	NA	NA	-0.0222708	NA
5	51.29	NA	NA	0.155979	NA
6	51.3	NA	NA	0.0866458	NA
7	51.3	51.3473	51.36	-0.0126875	-0.0473125
8	51.3	51.332	51.4258	-0.0938542	-0.0319792
9	51.46	51.4206	51.5	-0.0794375	0.0394375
10	51.47	51.5915	51.5712	0.0202292	-0.121479
11	51.77	51.767	51.6396	0.127396	0.00302083
12	51.82	51.7727	51.7187	0.0539792	0.0472708
13	51.82	51.7581	51.7996	-0.0415208	0.0619375
14	51.84	51.7878	51.8808	-0.0930208	0.0521875
15	51.9	51.8648	51.9662	-0.101438	0.0351875
16	51.94	52.0411	52.0633	-0.0222708	-0.101062
17	52.22	52.3114	52.1554	0.155979	-0.0913958
18	52.27	52.3171	52.2304	0.0866458	-0.0470625
19	52.27	52.2886	52.3013	-0.0126875	-0.0185625
20	52.28	52.2766	52.3704	-0.0938542	0.0034375
21	52.53	52.3576	52.4371	-0.0794375	0.172354
22	52.73	52.5231	52.5029	0.0202292	0.206854
23	52.72	52.6891	52.5617	0.127396	0.0309375
24	52.67	52.6648	52.6108	0.0539792	0.0051875
25	52.67	52.616	52.6575	-0.0415208	0.0540208
26	52.65	52.6111	52.7042	-0.0930208	0.0388542
27	52.69	52.6381	52.7396	-0.101438	0.0518542
28	52.73	52.7444	52.7667	-0.0222708	-0.0143958
29	52.84	52.966	52.81	0.155979	-0.125979
30	52.83	52.9566	52.87	0.0866458	-0.126646
31	52.83	52.9206	52.9333	-0.0126875	-0.0906458
32	52.84	52.9032	52.9971	-0.0938542	-0.0632292
33	52.82	52.9876	53.0671	-0.0794375	-0.167646
34	53.09	53.1652	53.145	0.0202292	-0.0752292
35	53.4	53.3628	53.2354	0.127396	0.0371875
36	53.43	53.3902	53.3362	0.0539792	0.0397708
37	53.43	53.3956	53.4371	-0.0415208	0.0344375
38	53.42	53.4461	53.5392	-0.0930208	-0.0261458
39	53.6	53.5406	53.6421	-0.101438	0.0593542
40	53.69	53.7252	53.7475	-0.0222708	-0.0352292
41	54.05	53.9985	53.8425	0.155979	0.0515208
42	54.04	54.0129	53.9262	0.0866458	0.0271042
43	54.04	53.9994	54.0121	-0.0126875	0.0406042
44	54.08	54.0141	54.1079	-0.0938542	0.0659375
45	54.05	54.136	54.2154	-0.0794375	-0.0859792
46	54.39	54.3665	54.3462	0.0202292	0.0235208
47	54.38	54.6316	54.5042	0.127396	-0.251562
48	54.46	54.7244	54.6704	0.0539792	-0.264396
49	54.46	54.7981	54.8396	-0.0415208	-0.338062
50	54.69	54.9149	55.0079	-0.0930208	-0.224896
51	54.91	55.0836	55.185	-0.101438	-0.173562
52	55.52	55.3419	55.3642	-0.0222708	0.178104
53	56.01	55.7097	55.5538	0.155979	0.300271
54	56.07	55.8446	55.7579	0.0866458	0.225438
55	56.07	55.9461	55.9588	-0.0126875	0.123938
56	56.09	56.0561	56.15	-0.0938542	0.0338542
57	56.29	56.2401	56.3196	-0.0794375	0.0498542
58	56.45	56.4756	56.4554	0.0202292	-0.0256458
59	56.87	56.6816	56.5542	0.127396	0.188437
60	56.87	56.6898	56.6358	0.0539792	0.180188
61	56.87	56.6743	56.7158	-0.0415208	0.195687
62	56.87	56.702	56.795	-0.0930208	0.168021
63	56.8	56.7648	56.8663	-0.101438	0.0351875
64	56.89	56.9094	56.9317	-0.0222708	-0.0193958
65	57.01	57.1364	56.9804	0.155979	-0.126396
66	57.03	57.1008	57.0142	0.0866458	-0.0708125
67	57.03	NA	NA	-0.0126875	NA
68	57.03	NA	NA	-0.0938542	NA
69	57.06	NA	NA	-0.0794375	NA
70	57.25	NA	NA	0.0202292	NA
71	57.24	NA	NA	0.127396	NA
72	57.31	NA	NA	0.0539792	NA

\begin{tabular}{lllllllll}
\hline
Classical Decomposition by Moving Averages \tabularnewline
t & Observations & Fit & Trend & Seasonal & Random \tabularnewline
1 & 51.02 & NA & NA & -0.0415208 & NA \tabularnewline
2 & 51.06 & NA & NA & -0.0930208 & NA \tabularnewline
3 & 50.9 & NA & NA & -0.101438 & NA \tabularnewline
4 & 51.23 & NA & NA & -0.0222708 & NA \tabularnewline
5 & 51.29 & NA & NA & 0.155979 & NA \tabularnewline
6 & 51.3 & NA & NA & 0.0866458 & NA \tabularnewline
7 & 51.3 & 51.3473 & 51.36 & -0.0126875 & -0.0473125 \tabularnewline
8 & 51.3 & 51.332 & 51.4258 & -0.0938542 & -0.0319792 \tabularnewline
9 & 51.46 & 51.4206 & 51.5 & -0.0794375 & 0.0394375 \tabularnewline
10 & 51.47 & 51.5915 & 51.5712 & 0.0202292 & -0.121479 \tabularnewline
11 & 51.77 & 51.767 & 51.6396 & 0.127396 & 0.00302083 \tabularnewline
12 & 51.82 & 51.7727 & 51.7187 & 0.0539792 & 0.0472708 \tabularnewline
13 & 51.82 & 51.7581 & 51.7996 & -0.0415208 & 0.0619375 \tabularnewline
14 & 51.84 & 51.7878 & 51.8808 & -0.0930208 & 0.0521875 \tabularnewline
15 & 51.9 & 51.8648 & 51.9662 & -0.101438 & 0.0351875 \tabularnewline
16 & 51.94 & 52.0411 & 52.0633 & -0.0222708 & -0.101062 \tabularnewline
17 & 52.22 & 52.3114 & 52.1554 & 0.155979 & -0.0913958 \tabularnewline
18 & 52.27 & 52.3171 & 52.2304 & 0.0866458 & -0.0470625 \tabularnewline
19 & 52.27 & 52.2886 & 52.3013 & -0.0126875 & -0.0185625 \tabularnewline
20 & 52.28 & 52.2766 & 52.3704 & -0.0938542 & 0.0034375 \tabularnewline
21 & 52.53 & 52.3576 & 52.4371 & -0.0794375 & 0.172354 \tabularnewline
22 & 52.73 & 52.5231 & 52.5029 & 0.0202292 & 0.206854 \tabularnewline
23 & 52.72 & 52.6891 & 52.5617 & 0.127396 & 0.0309375 \tabularnewline
24 & 52.67 & 52.6648 & 52.6108 & 0.0539792 & 0.0051875 \tabularnewline
25 & 52.67 & 52.616 & 52.6575 & -0.0415208 & 0.0540208 \tabularnewline
26 & 52.65 & 52.6111 & 52.7042 & -0.0930208 & 0.0388542 \tabularnewline
27 & 52.69 & 52.6381 & 52.7396 & -0.101438 & 0.0518542 \tabularnewline
28 & 52.73 & 52.7444 & 52.7667 & -0.0222708 & -0.0143958 \tabularnewline
29 & 52.84 & 52.966 & 52.81 & 0.155979 & -0.125979 \tabularnewline
30 & 52.83 & 52.9566 & 52.87 & 0.0866458 & -0.126646 \tabularnewline
31 & 52.83 & 52.9206 & 52.9333 & -0.0126875 & -0.0906458 \tabularnewline
32 & 52.84 & 52.9032 & 52.9971 & -0.0938542 & -0.0632292 \tabularnewline
33 & 52.82 & 52.9876 & 53.0671 & -0.0794375 & -0.167646 \tabularnewline
34 & 53.09 & 53.1652 & 53.145 & 0.0202292 & -0.0752292 \tabularnewline
35 & 53.4 & 53.3628 & 53.2354 & 0.127396 & 0.0371875 \tabularnewline
36 & 53.43 & 53.3902 & 53.3362 & 0.0539792 & 0.0397708 \tabularnewline
37 & 53.43 & 53.3956 & 53.4371 & -0.0415208 & 0.0344375 \tabularnewline
38 & 53.42 & 53.4461 & 53.5392 & -0.0930208 & -0.0261458 \tabularnewline
39 & 53.6 & 53.5406 & 53.6421 & -0.101438 & 0.0593542 \tabularnewline
40 & 53.69 & 53.7252 & 53.7475 & -0.0222708 & -0.0352292 \tabularnewline
41 & 54.05 & 53.9985 & 53.8425 & 0.155979 & 0.0515208 \tabularnewline
42 & 54.04 & 54.0129 & 53.9262 & 0.0866458 & 0.0271042 \tabularnewline
43 & 54.04 & 53.9994 & 54.0121 & -0.0126875 & 0.0406042 \tabularnewline
44 & 54.08 & 54.0141 & 54.1079 & -0.0938542 & 0.0659375 \tabularnewline
45 & 54.05 & 54.136 & 54.2154 & -0.0794375 & -0.0859792 \tabularnewline
46 & 54.39 & 54.3665 & 54.3462 & 0.0202292 & 0.0235208 \tabularnewline
47 & 54.38 & 54.6316 & 54.5042 & 0.127396 & -0.251562 \tabularnewline
48 & 54.46 & 54.7244 & 54.6704 & 0.0539792 & -0.264396 \tabularnewline
49 & 54.46 & 54.7981 & 54.8396 & -0.0415208 & -0.338062 \tabularnewline
50 & 54.69 & 54.9149 & 55.0079 & -0.0930208 & -0.224896 \tabularnewline
51 & 54.91 & 55.0836 & 55.185 & -0.101438 & -0.173562 \tabularnewline
52 & 55.52 & 55.3419 & 55.3642 & -0.0222708 & 0.178104 \tabularnewline
53 & 56.01 & 55.7097 & 55.5538 & 0.155979 & 0.300271 \tabularnewline
54 & 56.07 & 55.8446 & 55.7579 & 0.0866458 & 0.225438 \tabularnewline
55 & 56.07 & 55.9461 & 55.9588 & -0.0126875 & 0.123938 \tabularnewline
56 & 56.09 & 56.0561 & 56.15 & -0.0938542 & 0.0338542 \tabularnewline
57 & 56.29 & 56.2401 & 56.3196 & -0.0794375 & 0.0498542 \tabularnewline
58 & 56.45 & 56.4756 & 56.4554 & 0.0202292 & -0.0256458 \tabularnewline
59 & 56.87 & 56.6816 & 56.5542 & 0.127396 & 0.188437 \tabularnewline
60 & 56.87 & 56.6898 & 56.6358 & 0.0539792 & 0.180188 \tabularnewline
61 & 56.87 & 56.6743 & 56.7158 & -0.0415208 & 0.195687 \tabularnewline
62 & 56.87 & 56.702 & 56.795 & -0.0930208 & 0.168021 \tabularnewline
63 & 56.8 & 56.7648 & 56.8663 & -0.101438 & 0.0351875 \tabularnewline
64 & 56.89 & 56.9094 & 56.9317 & -0.0222708 & -0.0193958 \tabularnewline
65 & 57.01 & 57.1364 & 56.9804 & 0.155979 & -0.126396 \tabularnewline
66 & 57.03 & 57.1008 & 57.0142 & 0.0866458 & -0.0708125 \tabularnewline
67 & 57.03 & NA & NA & -0.0126875 & NA \tabularnewline
68 & 57.03 & NA & NA & -0.0938542 & NA \tabularnewline
69 & 57.06 & NA & NA & -0.0794375 & NA \tabularnewline
70 & 57.25 & NA & NA & 0.0202292 & NA \tabularnewline
71 & 57.24 & NA & NA & 0.127396 & NA \tabularnewline
72 & 57.31 & NA & NA & 0.0539792 & NA \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=232259&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]51.02[/C][C]NA[/C][C]NA[/C][C]-0.0415208[/C][C]NA[/C][/ROW]
[ROW][C]2[/C][C]51.06[/C][C]NA[/C][C]NA[/C][C]-0.0930208[/C][C]NA[/C][/ROW]
[ROW][C]3[/C][C]50.9[/C][C]NA[/C][C]NA[/C][C]-0.101438[/C][C]NA[/C][/ROW]
[ROW][C]4[/C][C]51.23[/C][C]NA[/C][C]NA[/C][C]-0.0222708[/C][C]NA[/C][/ROW]
[ROW][C]5[/C][C]51.29[/C][C]NA[/C][C]NA[/C][C]0.155979[/C][C]NA[/C][/ROW]
[ROW][C]6[/C][C]51.3[/C][C]NA[/C][C]NA[/C][C]0.0866458[/C][C]NA[/C][/ROW]
[ROW][C]7[/C][C]51.3[/C][C]51.3473[/C][C]51.36[/C][C]-0.0126875[/C][C]-0.0473125[/C][/ROW]
[ROW][C]8[/C][C]51.3[/C][C]51.332[/C][C]51.4258[/C][C]-0.0938542[/C][C]-0.0319792[/C][/ROW]
[ROW][C]9[/C][C]51.46[/C][C]51.4206[/C][C]51.5[/C][C]-0.0794375[/C][C]0.0394375[/C][/ROW]
[ROW][C]10[/C][C]51.47[/C][C]51.5915[/C][C]51.5712[/C][C]0.0202292[/C][C]-0.121479[/C][/ROW]
[ROW][C]11[/C][C]51.77[/C][C]51.767[/C][C]51.6396[/C][C]0.127396[/C][C]0.00302083[/C][/ROW]
[ROW][C]12[/C][C]51.82[/C][C]51.7727[/C][C]51.7187[/C][C]0.0539792[/C][C]0.0472708[/C][/ROW]
[ROW][C]13[/C][C]51.82[/C][C]51.7581[/C][C]51.7996[/C][C]-0.0415208[/C][C]0.0619375[/C][/ROW]
[ROW][C]14[/C][C]51.84[/C][C]51.7878[/C][C]51.8808[/C][C]-0.0930208[/C][C]0.0521875[/C][/ROW]
[ROW][C]15[/C][C]51.9[/C][C]51.8648[/C][C]51.9662[/C][C]-0.101438[/C][C]0.0351875[/C][/ROW]
[ROW][C]16[/C][C]51.94[/C][C]52.0411[/C][C]52.0633[/C][C]-0.0222708[/C][C]-0.101062[/C][/ROW]
[ROW][C]17[/C][C]52.22[/C][C]52.3114[/C][C]52.1554[/C][C]0.155979[/C][C]-0.0913958[/C][/ROW]
[ROW][C]18[/C][C]52.27[/C][C]52.3171[/C][C]52.2304[/C][C]0.0866458[/C][C]-0.0470625[/C][/ROW]
[ROW][C]19[/C][C]52.27[/C][C]52.2886[/C][C]52.3013[/C][C]-0.0126875[/C][C]-0.0185625[/C][/ROW]
[ROW][C]20[/C][C]52.28[/C][C]52.2766[/C][C]52.3704[/C][C]-0.0938542[/C][C]0.0034375[/C][/ROW]
[ROW][C]21[/C][C]52.53[/C][C]52.3576[/C][C]52.4371[/C][C]-0.0794375[/C][C]0.172354[/C][/ROW]
[ROW][C]22[/C][C]52.73[/C][C]52.5231[/C][C]52.5029[/C][C]0.0202292[/C][C]0.206854[/C][/ROW]
[ROW][C]23[/C][C]52.72[/C][C]52.6891[/C][C]52.5617[/C][C]0.127396[/C][C]0.0309375[/C][/ROW]
[ROW][C]24[/C][C]52.67[/C][C]52.6648[/C][C]52.6108[/C][C]0.0539792[/C][C]0.0051875[/C][/ROW]
[ROW][C]25[/C][C]52.67[/C][C]52.616[/C][C]52.6575[/C][C]-0.0415208[/C][C]0.0540208[/C][/ROW]
[ROW][C]26[/C][C]52.65[/C][C]52.6111[/C][C]52.7042[/C][C]-0.0930208[/C][C]0.0388542[/C][/ROW]
[ROW][C]27[/C][C]52.69[/C][C]52.6381[/C][C]52.7396[/C][C]-0.101438[/C][C]0.0518542[/C][/ROW]
[ROW][C]28[/C][C]52.73[/C][C]52.7444[/C][C]52.7667[/C][C]-0.0222708[/C][C]-0.0143958[/C][/ROW]
[ROW][C]29[/C][C]52.84[/C][C]52.966[/C][C]52.81[/C][C]0.155979[/C][C]-0.125979[/C][/ROW]
[ROW][C]30[/C][C]52.83[/C][C]52.9566[/C][C]52.87[/C][C]0.0866458[/C][C]-0.126646[/C][/ROW]
[ROW][C]31[/C][C]52.83[/C][C]52.9206[/C][C]52.9333[/C][C]-0.0126875[/C][C]-0.0906458[/C][/ROW]
[ROW][C]32[/C][C]52.84[/C][C]52.9032[/C][C]52.9971[/C][C]-0.0938542[/C][C]-0.0632292[/C][/ROW]
[ROW][C]33[/C][C]52.82[/C][C]52.9876[/C][C]53.0671[/C][C]-0.0794375[/C][C]-0.167646[/C][/ROW]
[ROW][C]34[/C][C]53.09[/C][C]53.1652[/C][C]53.145[/C][C]0.0202292[/C][C]-0.0752292[/C][/ROW]
[ROW][C]35[/C][C]53.4[/C][C]53.3628[/C][C]53.2354[/C][C]0.127396[/C][C]0.0371875[/C][/ROW]
[ROW][C]36[/C][C]53.43[/C][C]53.3902[/C][C]53.3362[/C][C]0.0539792[/C][C]0.0397708[/C][/ROW]
[ROW][C]37[/C][C]53.43[/C][C]53.3956[/C][C]53.4371[/C][C]-0.0415208[/C][C]0.0344375[/C][/ROW]
[ROW][C]38[/C][C]53.42[/C][C]53.4461[/C][C]53.5392[/C][C]-0.0930208[/C][C]-0.0261458[/C][/ROW]
[ROW][C]39[/C][C]53.6[/C][C]53.5406[/C][C]53.6421[/C][C]-0.101438[/C][C]0.0593542[/C][/ROW]
[ROW][C]40[/C][C]53.69[/C][C]53.7252[/C][C]53.7475[/C][C]-0.0222708[/C][C]-0.0352292[/C][/ROW]
[ROW][C]41[/C][C]54.05[/C][C]53.9985[/C][C]53.8425[/C][C]0.155979[/C][C]0.0515208[/C][/ROW]
[ROW][C]42[/C][C]54.04[/C][C]54.0129[/C][C]53.9262[/C][C]0.0866458[/C][C]0.0271042[/C][/ROW]
[ROW][C]43[/C][C]54.04[/C][C]53.9994[/C][C]54.0121[/C][C]-0.0126875[/C][C]0.0406042[/C][/ROW]
[ROW][C]44[/C][C]54.08[/C][C]54.0141[/C][C]54.1079[/C][C]-0.0938542[/C][C]0.0659375[/C][/ROW]
[ROW][C]45[/C][C]54.05[/C][C]54.136[/C][C]54.2154[/C][C]-0.0794375[/C][C]-0.0859792[/C][/ROW]
[ROW][C]46[/C][C]54.39[/C][C]54.3665[/C][C]54.3462[/C][C]0.0202292[/C][C]0.0235208[/C][/ROW]
[ROW][C]47[/C][C]54.38[/C][C]54.6316[/C][C]54.5042[/C][C]0.127396[/C][C]-0.251562[/C][/ROW]
[ROW][C]48[/C][C]54.46[/C][C]54.7244[/C][C]54.6704[/C][C]0.0539792[/C][C]-0.264396[/C][/ROW]
[ROW][C]49[/C][C]54.46[/C][C]54.7981[/C][C]54.8396[/C][C]-0.0415208[/C][C]-0.338062[/C][/ROW]
[ROW][C]50[/C][C]54.69[/C][C]54.9149[/C][C]55.0079[/C][C]-0.0930208[/C][C]-0.224896[/C][/ROW]
[ROW][C]51[/C][C]54.91[/C][C]55.0836[/C][C]55.185[/C][C]-0.101438[/C][C]-0.173562[/C][/ROW]
[ROW][C]52[/C][C]55.52[/C][C]55.3419[/C][C]55.3642[/C][C]-0.0222708[/C][C]0.178104[/C][/ROW]
[ROW][C]53[/C][C]56.01[/C][C]55.7097[/C][C]55.5538[/C][C]0.155979[/C][C]0.300271[/C][/ROW]
[ROW][C]54[/C][C]56.07[/C][C]55.8446[/C][C]55.7579[/C][C]0.0866458[/C][C]0.225438[/C][/ROW]
[ROW][C]55[/C][C]56.07[/C][C]55.9461[/C][C]55.9588[/C][C]-0.0126875[/C][C]0.123938[/C][/ROW]
[ROW][C]56[/C][C]56.09[/C][C]56.0561[/C][C]56.15[/C][C]-0.0938542[/C][C]0.0338542[/C][/ROW]
[ROW][C]57[/C][C]56.29[/C][C]56.2401[/C][C]56.3196[/C][C]-0.0794375[/C][C]0.0498542[/C][/ROW]
[ROW][C]58[/C][C]56.45[/C][C]56.4756[/C][C]56.4554[/C][C]0.0202292[/C][C]-0.0256458[/C][/ROW]
[ROW][C]59[/C][C]56.87[/C][C]56.6816[/C][C]56.5542[/C][C]0.127396[/C][C]0.188437[/C][/ROW]
[ROW][C]60[/C][C]56.87[/C][C]56.6898[/C][C]56.6358[/C][C]0.0539792[/C][C]0.180188[/C][/ROW]
[ROW][C]61[/C][C]56.87[/C][C]56.6743[/C][C]56.7158[/C][C]-0.0415208[/C][C]0.195687[/C][/ROW]
[ROW][C]62[/C][C]56.87[/C][C]56.702[/C][C]56.795[/C][C]-0.0930208[/C][C]0.168021[/C][/ROW]
[ROW][C]63[/C][C]56.8[/C][C]56.7648[/C][C]56.8663[/C][C]-0.101438[/C][C]0.0351875[/C][/ROW]
[ROW][C]64[/C][C]56.89[/C][C]56.9094[/C][C]56.9317[/C][C]-0.0222708[/C][C]-0.0193958[/C][/ROW]
[ROW][C]65[/C][C]57.01[/C][C]57.1364[/C][C]56.9804[/C][C]0.155979[/C][C]-0.126396[/C][/ROW]
[ROW][C]66[/C][C]57.03[/C][C]57.1008[/C][C]57.0142[/C][C]0.0866458[/C][C]-0.0708125[/C][/ROW]
[ROW][C]67[/C][C]57.03[/C][C]NA[/C][C]NA[/C][C]-0.0126875[/C][C]NA[/C][/ROW]
[ROW][C]68[/C][C]57.03[/C][C]NA[/C][C]NA[/C][C]-0.0938542[/C][C]NA[/C][/ROW]
[ROW][C]69[/C][C]57.06[/C][C]NA[/C][C]NA[/C][C]-0.0794375[/C][C]NA[/C][/ROW]
[ROW][C]70[/C][C]57.25[/C][C]NA[/C][C]NA[/C][C]0.0202292[/C][C]NA[/C][/ROW]
[ROW][C]71[/C][C]57.24[/C][C]NA[/C][C]NA[/C][C]0.127396[/C][C]NA[/C][/ROW]
[ROW][C]72[/C][C]57.31[/C][C]NA[/C][C]NA[/C][C]0.0539792[/C][C]NA[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=232259&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=232259&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	51.02	NA	NA	-0.0415208	NA
2	51.06	NA	NA	-0.0930208	NA
3	50.9	NA	NA	-0.101438	NA
4	51.23	NA	NA	-0.0222708	NA
5	51.29	NA	NA	0.155979	NA
6	51.3	NA	NA	0.0866458	NA
7	51.3	51.3473	51.36	-0.0126875	-0.0473125
8	51.3	51.332	51.4258	-0.0938542	-0.0319792
9	51.46	51.4206	51.5	-0.0794375	0.0394375
10	51.47	51.5915	51.5712	0.0202292	-0.121479
11	51.77	51.767	51.6396	0.127396	0.00302083
12	51.82	51.7727	51.7187	0.0539792	0.0472708
13	51.82	51.7581	51.7996	-0.0415208	0.0619375
14	51.84	51.7878	51.8808	-0.0930208	0.0521875
15	51.9	51.8648	51.9662	-0.101438	0.0351875
16	51.94	52.0411	52.0633	-0.0222708	-0.101062
17	52.22	52.3114	52.1554	0.155979	-0.0913958
18	52.27	52.3171	52.2304	0.0866458	-0.0470625
19	52.27	52.2886	52.3013	-0.0126875	-0.0185625
20	52.28	52.2766	52.3704	-0.0938542	0.0034375
21	52.53	52.3576	52.4371	-0.0794375	0.172354
22	52.73	52.5231	52.5029	0.0202292	0.206854
23	52.72	52.6891	52.5617	0.127396	0.0309375
24	52.67	52.6648	52.6108	0.0539792	0.0051875
25	52.67	52.616	52.6575	-0.0415208	0.0540208
26	52.65	52.6111	52.7042	-0.0930208	0.0388542
27	52.69	52.6381	52.7396	-0.101438	0.0518542
28	52.73	52.7444	52.7667	-0.0222708	-0.0143958
29	52.84	52.966	52.81	0.155979	-0.125979
30	52.83	52.9566	52.87	0.0866458	-0.126646
31	52.83	52.9206	52.9333	-0.0126875	-0.0906458
32	52.84	52.9032	52.9971	-0.0938542	-0.0632292
33	52.82	52.9876	53.0671	-0.0794375	-0.167646
34	53.09	53.1652	53.145	0.0202292	-0.0752292
35	53.4	53.3628	53.2354	0.127396	0.0371875
36	53.43	53.3902	53.3362	0.0539792	0.0397708
37	53.43	53.3956	53.4371	-0.0415208	0.0344375
38	53.42	53.4461	53.5392	-0.0930208	-0.0261458
39	53.6	53.5406	53.6421	-0.101438	0.0593542
40	53.69	53.7252	53.7475	-0.0222708	-0.0352292
41	54.05	53.9985	53.8425	0.155979	0.0515208
42	54.04	54.0129	53.9262	0.0866458	0.0271042
43	54.04	53.9994	54.0121	-0.0126875	0.0406042
44	54.08	54.0141	54.1079	-0.0938542	0.0659375
45	54.05	54.136	54.2154	-0.0794375	-0.0859792
46	54.39	54.3665	54.3462	0.0202292	0.0235208
47	54.38	54.6316	54.5042	0.127396	-0.251562
48	54.46	54.7244	54.6704	0.0539792	-0.264396
49	54.46	54.7981	54.8396	-0.0415208	-0.338062
50	54.69	54.9149	55.0079	-0.0930208	-0.224896
51	54.91	55.0836	55.185	-0.101438	-0.173562
52	55.52	55.3419	55.3642	-0.0222708	0.178104
53	56.01	55.7097	55.5538	0.155979	0.300271
54	56.07	55.8446	55.7579	0.0866458	0.225438
55	56.07	55.9461	55.9588	-0.0126875	0.123938
56	56.09	56.0561	56.15	-0.0938542	0.0338542
57	56.29	56.2401	56.3196	-0.0794375	0.0498542
58	56.45	56.4756	56.4554	0.0202292	-0.0256458
59	56.87	56.6816	56.5542	0.127396	0.188437
60	56.87	56.6898	56.6358	0.0539792	0.180188
61	56.87	56.6743	56.7158	-0.0415208	0.195687
62	56.87	56.702	56.795	-0.0930208	0.168021
63	56.8	56.7648	56.8663	-0.101438	0.0351875
64	56.89	56.9094	56.9317	-0.0222708	-0.0193958
65	57.01	57.1364	56.9804	0.155979	-0.126396
66	57.03	57.1008	57.0142	0.0866458	-0.0708125
67	57.03	NA	NA	-0.0126875	NA
68	57.03	NA	NA	-0.0938542	NA
69	57.06	NA	NA	-0.0794375	NA
70	57.25	NA	NA	0.0202292	NA
71	57.24	NA	NA	0.127396	NA
72	57.31	NA	NA	0.0539792	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