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, 05 Dec 2011 13:56:38 -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/2011/Dec/05/t1323111806iwk86mhsjdvzcha.htm/, Retrieved Sun, 17 May 2026 04:59:48 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=151174, Retrieved Sun, 17 May 2026 04:59:48 +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

KDGP2W92

Estimated Impact

345

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

-       [Classical Decomposition] [] [2011-12-05 18:56:38] [d41d8cd98f00b204e9800998ecf8427e] [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	1 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 & 1 seconds \tabularnewline
R Server & 'Gwilym Jenkins' @ jenkins.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=151174&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]1 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=151174&T=0

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

Classical Decomposition by Moving Averages
t	Observations	Fit	Trend	Seasonal	Random
1	20.89	NA	NA	-0.0906336805555572	NA
2	21.04	NA	NA	-0.00771701388888868	NA
3	21.07	NA	NA	-0.00677951388888864	NA
4	21.12	NA	NA	0.0113454861111126	NA
5	21.25	NA	NA	0.0319704861111108	NA
6	21.24	NA	NA	0.0358246527777792	NA
7	21.24	21.2001996527778	21.17125	0.0289496527777775	0.0398003472222186
8	21.22	21.2864496527778	21.2025	0.0839496527777772	-0.0664496527777736
9	21.29	21.3509288194444	21.2441666666667	0.106762152777778	-0.0609288194444453
10	21.25	21.2182204861111	21.2858333333333	-0.0676128472222217	0.0317795138888926
11	21.15	21.2664496527778	21.32375	-0.0573003472222213	-0.116449652777781
12	21.16	21.2908246527778	21.3595833333333	-0.0687586805555576	-0.130824652777779
13	21.16	21.3047829861111	21.3954166666667	-0.0906336805555572	-0.14478298611111
14	21.52	21.4235329861111	21.43125	-0.00771701388888868	0.0964670138888906
15	21.59	21.4611371527778	21.4679166666667	-0.00677951388888864	0.128862847222226
16	21.6	21.5175954861111	21.50625	0.0113454861111126	0.0824045138888927
17	21.68	21.5865538194444	21.5545833333333	0.0319704861111108	0.0934461805555564
18	21.67	21.6516579861111	21.6158333333333	0.0358246527777792	0.018342013888887
19	21.67	21.7097829861111	21.6808333333333	0.0289496527777775	-0.0397829861111099
20	21.65	21.8151996527778	21.73125	0.0839496527777772	-0.16519965277778
21	21.74	21.8713454861111	21.7645833333333	0.106762152777778	-0.131345486111112
22	21.72	21.7332204861111	21.8008333333333	-0.0676128472222217	-0.0132204861111092
23	21.84	21.7831163194444	21.8404166666667	-0.0573003472222213	0.0568836805555577
24	21.94	21.8116579861111	21.8804166666667	-0.0687586805555576	0.128342013888894
25	21.94	21.8322829861111	21.9229166666667	-0.0906336805555572	0.107717013888895
26	21.95	21.9622829861111	21.97	-0.00771701388888868	-0.0122829861111065
27	21.96	22.0123871527778	22.0191666666667	-0.00677951388888864	-0.0523871527777793
28	22.1	22.0671788194444	22.0558333333333	0.0113454861111126	0.0328211805555583
29	22.13	22.1098871527778	22.0779166666667	0.0319704861111108	0.0201128472222258
30	22.18	22.1274913194444	22.0916666666667	0.0358246527777792	0.0525086805555581
31	22.18	22.1306163194444	22.1016666666667	0.0289496527777775	0.0493836805555645
32	22.27	22.1951996527778	22.11125	0.0839496527777772	0.0748003472222258
33	22.3	22.2230121527778	22.11625	0.106762152777778	0.0769878472222274
34	22.04	22.0461371527778	22.11375	-0.0676128472222217	-0.00613715277777871
35	22.05	22.0514496527778	22.10875	-0.0573003472222213	-0.00144965277777587
36	22.06	22.0358246527778	22.1045833333333	-0.0687586805555576	0.0241753472222221
37	22.06	22.0097829861111	22.1004166666667	-0.0906336805555572	0.05021701388889
38	22.06	22.0960329861111	22.10375	-0.00771701388888868	-0.0360329861111097
39	21.97	22.1065538194444	22.1133333333333	-0.00677951388888864	-0.136553819444444
40	22.03	22.1321788194444	22.1208333333333	0.0113454861111126	-0.10217881944444
41	22.08	22.1632204861111	22.13125	0.0319704861111108	-0.083220486111113
42	22.13	22.1774913194444	22.1416666666667	0.0358246527777792	-0.0474913194444468
43	22.13	22.1772829861111	22.1483333333333	0.0289496527777775	-0.0472829861111137
44	22.4	22.2410329861111	22.1570833333333	0.0839496527777772	0.158967013888891
45	22.4	22.2825954861111	22.1758333333333	0.106762152777778	0.117404513888889
46	22.12	22.1303038194444	22.1979166666667	-0.0676128472222217	-0.0103038194444451
47	22.22	22.1568663194444	22.2141666666667	-0.0573003472222213	0.0631336805555556
48	22.14	22.1595746527778	22.2283333333333	-0.0687586805555576	-0.0195746527777771
49	22.14	22.1510329861111	22.2416666666667	-0.0906336805555572	-0.0110329861111111
50	22.19	22.2360329861111	22.24375	-0.00771701388888868	-0.0460329861111113
51	22.29	22.2278038194444	22.2345833333333	-0.00677951388888864	0.0621961805555529
52	22.24	22.2509288194444	22.2395833333333	0.0113454861111126	-0.0109288194444481
53	22.26	22.2882204861111	22.25625	0.0319704861111108	-0.0282204861111062
54	22.29	22.3112413194444	22.2754166666667	0.0358246527777792	-0.0212413194444423
55	22.29	NA	NA	0.0289496527777775	NA
56	22.29	NA	NA	0.0839496527777772	NA
57	22.29	NA	NA	0.106762152777778	NA
58	22.35	NA	NA	-0.0676128472222217	NA
59	22.39	NA	NA	-0.0573003472222213	NA
60	22.43	NA	NA	-0.0687586805555576	NA

\begin{tabular}{lllllllll}
\hline
Classical Decomposition by Moving Averages \tabularnewline
t & Observations & Fit & Trend & Seasonal & Random \tabularnewline
1 & 20.89 & NA & NA & -0.0906336805555572 & NA \tabularnewline
2 & 21.04 & NA & NA & -0.00771701388888868 & NA \tabularnewline
3 & 21.07 & NA & NA & -0.00677951388888864 & NA \tabularnewline
4 & 21.12 & NA & NA & 0.0113454861111126 & NA \tabularnewline
5 & 21.25 & NA & NA & 0.0319704861111108 & NA \tabularnewline
6 & 21.24 & NA & NA & 0.0358246527777792 & NA \tabularnewline
7 & 21.24 & 21.2001996527778 & 21.17125 & 0.0289496527777775 & 0.0398003472222186 \tabularnewline
8 & 21.22 & 21.2864496527778 & 21.2025 & 0.0839496527777772 & -0.0664496527777736 \tabularnewline
9 & 21.29 & 21.3509288194444 & 21.2441666666667 & 0.106762152777778 & -0.0609288194444453 \tabularnewline
10 & 21.25 & 21.2182204861111 & 21.2858333333333 & -0.0676128472222217 & 0.0317795138888926 \tabularnewline
11 & 21.15 & 21.2664496527778 & 21.32375 & -0.0573003472222213 & -0.116449652777781 \tabularnewline
12 & 21.16 & 21.2908246527778 & 21.3595833333333 & -0.0687586805555576 & -0.130824652777779 \tabularnewline
13 & 21.16 & 21.3047829861111 & 21.3954166666667 & -0.0906336805555572 & -0.14478298611111 \tabularnewline
14 & 21.52 & 21.4235329861111 & 21.43125 & -0.00771701388888868 & 0.0964670138888906 \tabularnewline
15 & 21.59 & 21.4611371527778 & 21.4679166666667 & -0.00677951388888864 & 0.128862847222226 \tabularnewline
16 & 21.6 & 21.5175954861111 & 21.50625 & 0.0113454861111126 & 0.0824045138888927 \tabularnewline
17 & 21.68 & 21.5865538194444 & 21.5545833333333 & 0.0319704861111108 & 0.0934461805555564 \tabularnewline
18 & 21.67 & 21.6516579861111 & 21.6158333333333 & 0.0358246527777792 & 0.018342013888887 \tabularnewline
19 & 21.67 & 21.7097829861111 & 21.6808333333333 & 0.0289496527777775 & -0.0397829861111099 \tabularnewline
20 & 21.65 & 21.8151996527778 & 21.73125 & 0.0839496527777772 & -0.16519965277778 \tabularnewline
21 & 21.74 & 21.8713454861111 & 21.7645833333333 & 0.106762152777778 & -0.131345486111112 \tabularnewline
22 & 21.72 & 21.7332204861111 & 21.8008333333333 & -0.0676128472222217 & -0.0132204861111092 \tabularnewline
23 & 21.84 & 21.7831163194444 & 21.8404166666667 & -0.0573003472222213 & 0.0568836805555577 \tabularnewline
24 & 21.94 & 21.8116579861111 & 21.8804166666667 & -0.0687586805555576 & 0.128342013888894 \tabularnewline
25 & 21.94 & 21.8322829861111 & 21.9229166666667 & -0.0906336805555572 & 0.107717013888895 \tabularnewline
26 & 21.95 & 21.9622829861111 & 21.97 & -0.00771701388888868 & -0.0122829861111065 \tabularnewline
27 & 21.96 & 22.0123871527778 & 22.0191666666667 & -0.00677951388888864 & -0.0523871527777793 \tabularnewline
28 & 22.1 & 22.0671788194444 & 22.0558333333333 & 0.0113454861111126 & 0.0328211805555583 \tabularnewline
29 & 22.13 & 22.1098871527778 & 22.0779166666667 & 0.0319704861111108 & 0.0201128472222258 \tabularnewline
30 & 22.18 & 22.1274913194444 & 22.0916666666667 & 0.0358246527777792 & 0.0525086805555581 \tabularnewline
31 & 22.18 & 22.1306163194444 & 22.1016666666667 & 0.0289496527777775 & 0.0493836805555645 \tabularnewline
32 & 22.27 & 22.1951996527778 & 22.11125 & 0.0839496527777772 & 0.0748003472222258 \tabularnewline
33 & 22.3 & 22.2230121527778 & 22.11625 & 0.106762152777778 & 0.0769878472222274 \tabularnewline
34 & 22.04 & 22.0461371527778 & 22.11375 & -0.0676128472222217 & -0.00613715277777871 \tabularnewline
35 & 22.05 & 22.0514496527778 & 22.10875 & -0.0573003472222213 & -0.00144965277777587 \tabularnewline
36 & 22.06 & 22.0358246527778 & 22.1045833333333 & -0.0687586805555576 & 0.0241753472222221 \tabularnewline
37 & 22.06 & 22.0097829861111 & 22.1004166666667 & -0.0906336805555572 & 0.05021701388889 \tabularnewline
38 & 22.06 & 22.0960329861111 & 22.10375 & -0.00771701388888868 & -0.0360329861111097 \tabularnewline
39 & 21.97 & 22.1065538194444 & 22.1133333333333 & -0.00677951388888864 & -0.136553819444444 \tabularnewline
40 & 22.03 & 22.1321788194444 & 22.1208333333333 & 0.0113454861111126 & -0.10217881944444 \tabularnewline
41 & 22.08 & 22.1632204861111 & 22.13125 & 0.0319704861111108 & -0.083220486111113 \tabularnewline
42 & 22.13 & 22.1774913194444 & 22.1416666666667 & 0.0358246527777792 & -0.0474913194444468 \tabularnewline
43 & 22.13 & 22.1772829861111 & 22.1483333333333 & 0.0289496527777775 & -0.0472829861111137 \tabularnewline
44 & 22.4 & 22.2410329861111 & 22.1570833333333 & 0.0839496527777772 & 0.158967013888891 \tabularnewline
45 & 22.4 & 22.2825954861111 & 22.1758333333333 & 0.106762152777778 & 0.117404513888889 \tabularnewline
46 & 22.12 & 22.1303038194444 & 22.1979166666667 & -0.0676128472222217 & -0.0103038194444451 \tabularnewline
47 & 22.22 & 22.1568663194444 & 22.2141666666667 & -0.0573003472222213 & 0.0631336805555556 \tabularnewline
48 & 22.14 & 22.1595746527778 & 22.2283333333333 & -0.0687586805555576 & -0.0195746527777771 \tabularnewline
49 & 22.14 & 22.1510329861111 & 22.2416666666667 & -0.0906336805555572 & -0.0110329861111111 \tabularnewline
50 & 22.19 & 22.2360329861111 & 22.24375 & -0.00771701388888868 & -0.0460329861111113 \tabularnewline
51 & 22.29 & 22.2278038194444 & 22.2345833333333 & -0.00677951388888864 & 0.0621961805555529 \tabularnewline
52 & 22.24 & 22.2509288194444 & 22.2395833333333 & 0.0113454861111126 & -0.0109288194444481 \tabularnewline
53 & 22.26 & 22.2882204861111 & 22.25625 & 0.0319704861111108 & -0.0282204861111062 \tabularnewline
54 & 22.29 & 22.3112413194444 & 22.2754166666667 & 0.0358246527777792 & -0.0212413194444423 \tabularnewline
55 & 22.29 & NA & NA & 0.0289496527777775 & NA \tabularnewline
56 & 22.29 & NA & NA & 0.0839496527777772 & NA \tabularnewline
57 & 22.29 & NA & NA & 0.106762152777778 & NA \tabularnewline
58 & 22.35 & NA & NA & -0.0676128472222217 & NA \tabularnewline
59 & 22.39 & NA & NA & -0.0573003472222213 & NA \tabularnewline
60 & 22.43 & NA & NA & -0.0687586805555576 & NA \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=151174&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]20.89[/C][C]NA[/C][C]NA[/C][C]-0.0906336805555572[/C][C]NA[/C][/ROW]
[ROW][C]2[/C][C]21.04[/C][C]NA[/C][C]NA[/C][C]-0.00771701388888868[/C][C]NA[/C][/ROW]
[ROW][C]3[/C][C]21.07[/C][C]NA[/C][C]NA[/C][C]-0.00677951388888864[/C][C]NA[/C][/ROW]
[ROW][C]4[/C][C]21.12[/C][C]NA[/C][C]NA[/C][C]0.0113454861111126[/C][C]NA[/C][/ROW]
[ROW][C]5[/C][C]21.25[/C][C]NA[/C][C]NA[/C][C]0.0319704861111108[/C][C]NA[/C][/ROW]
[ROW][C]6[/C][C]21.24[/C][C]NA[/C][C]NA[/C][C]0.0358246527777792[/C][C]NA[/C][/ROW]
[ROW][C]7[/C][C]21.24[/C][C]21.2001996527778[/C][C]21.17125[/C][C]0.0289496527777775[/C][C]0.0398003472222186[/C][/ROW]
[ROW][C]8[/C][C]21.22[/C][C]21.2864496527778[/C][C]21.2025[/C][C]0.0839496527777772[/C][C]-0.0664496527777736[/C][/ROW]
[ROW][C]9[/C][C]21.29[/C][C]21.3509288194444[/C][C]21.2441666666667[/C][C]0.106762152777778[/C][C]-0.0609288194444453[/C][/ROW]
[ROW][C]10[/C][C]21.25[/C][C]21.2182204861111[/C][C]21.2858333333333[/C][C]-0.0676128472222217[/C][C]0.0317795138888926[/C][/ROW]
[ROW][C]11[/C][C]21.15[/C][C]21.2664496527778[/C][C]21.32375[/C][C]-0.0573003472222213[/C][C]-0.116449652777781[/C][/ROW]
[ROW][C]12[/C][C]21.16[/C][C]21.2908246527778[/C][C]21.3595833333333[/C][C]-0.0687586805555576[/C][C]-0.130824652777779[/C][/ROW]
[ROW][C]13[/C][C]21.16[/C][C]21.3047829861111[/C][C]21.3954166666667[/C][C]-0.0906336805555572[/C][C]-0.14478298611111[/C][/ROW]
[ROW][C]14[/C][C]21.52[/C][C]21.4235329861111[/C][C]21.43125[/C][C]-0.00771701388888868[/C][C]0.0964670138888906[/C][/ROW]
[ROW][C]15[/C][C]21.59[/C][C]21.4611371527778[/C][C]21.4679166666667[/C][C]-0.00677951388888864[/C][C]0.128862847222226[/C][/ROW]
[ROW][C]16[/C][C]21.6[/C][C]21.5175954861111[/C][C]21.50625[/C][C]0.0113454861111126[/C][C]0.0824045138888927[/C][/ROW]
[ROW][C]17[/C][C]21.68[/C][C]21.5865538194444[/C][C]21.5545833333333[/C][C]0.0319704861111108[/C][C]0.0934461805555564[/C][/ROW]
[ROW][C]18[/C][C]21.67[/C][C]21.6516579861111[/C][C]21.6158333333333[/C][C]0.0358246527777792[/C][C]0.018342013888887[/C][/ROW]
[ROW][C]19[/C][C]21.67[/C][C]21.7097829861111[/C][C]21.6808333333333[/C][C]0.0289496527777775[/C][C]-0.0397829861111099[/C][/ROW]
[ROW][C]20[/C][C]21.65[/C][C]21.8151996527778[/C][C]21.73125[/C][C]0.0839496527777772[/C][C]-0.16519965277778[/C][/ROW]
[ROW][C]21[/C][C]21.74[/C][C]21.8713454861111[/C][C]21.7645833333333[/C][C]0.106762152777778[/C][C]-0.131345486111112[/C][/ROW]
[ROW][C]22[/C][C]21.72[/C][C]21.7332204861111[/C][C]21.8008333333333[/C][C]-0.0676128472222217[/C][C]-0.0132204861111092[/C][/ROW]
[ROW][C]23[/C][C]21.84[/C][C]21.7831163194444[/C][C]21.8404166666667[/C][C]-0.0573003472222213[/C][C]0.0568836805555577[/C][/ROW]
[ROW][C]24[/C][C]21.94[/C][C]21.8116579861111[/C][C]21.8804166666667[/C][C]-0.0687586805555576[/C][C]0.128342013888894[/C][/ROW]
[ROW][C]25[/C][C]21.94[/C][C]21.8322829861111[/C][C]21.9229166666667[/C][C]-0.0906336805555572[/C][C]0.107717013888895[/C][/ROW]
[ROW][C]26[/C][C]21.95[/C][C]21.9622829861111[/C][C]21.97[/C][C]-0.00771701388888868[/C][C]-0.0122829861111065[/C][/ROW]
[ROW][C]27[/C][C]21.96[/C][C]22.0123871527778[/C][C]22.0191666666667[/C][C]-0.00677951388888864[/C][C]-0.0523871527777793[/C][/ROW]
[ROW][C]28[/C][C]22.1[/C][C]22.0671788194444[/C][C]22.0558333333333[/C][C]0.0113454861111126[/C][C]0.0328211805555583[/C][/ROW]
[ROW][C]29[/C][C]22.13[/C][C]22.1098871527778[/C][C]22.0779166666667[/C][C]0.0319704861111108[/C][C]0.0201128472222258[/C][/ROW]
[ROW][C]30[/C][C]22.18[/C][C]22.1274913194444[/C][C]22.0916666666667[/C][C]0.0358246527777792[/C][C]0.0525086805555581[/C][/ROW]
[ROW][C]31[/C][C]22.18[/C][C]22.1306163194444[/C][C]22.1016666666667[/C][C]0.0289496527777775[/C][C]0.0493836805555645[/C][/ROW]
[ROW][C]32[/C][C]22.27[/C][C]22.1951996527778[/C][C]22.11125[/C][C]0.0839496527777772[/C][C]0.0748003472222258[/C][/ROW]
[ROW][C]33[/C][C]22.3[/C][C]22.2230121527778[/C][C]22.11625[/C][C]0.106762152777778[/C][C]0.0769878472222274[/C][/ROW]
[ROW][C]34[/C][C]22.04[/C][C]22.0461371527778[/C][C]22.11375[/C][C]-0.0676128472222217[/C][C]-0.00613715277777871[/C][/ROW]
[ROW][C]35[/C][C]22.05[/C][C]22.0514496527778[/C][C]22.10875[/C][C]-0.0573003472222213[/C][C]-0.00144965277777587[/C][/ROW]
[ROW][C]36[/C][C]22.06[/C][C]22.0358246527778[/C][C]22.1045833333333[/C][C]-0.0687586805555576[/C][C]0.0241753472222221[/C][/ROW]
[ROW][C]37[/C][C]22.06[/C][C]22.0097829861111[/C][C]22.1004166666667[/C][C]-0.0906336805555572[/C][C]0.05021701388889[/C][/ROW]
[ROW][C]38[/C][C]22.06[/C][C]22.0960329861111[/C][C]22.10375[/C][C]-0.00771701388888868[/C][C]-0.0360329861111097[/C][/ROW]
[ROW][C]39[/C][C]21.97[/C][C]22.1065538194444[/C][C]22.1133333333333[/C][C]-0.00677951388888864[/C][C]-0.136553819444444[/C][/ROW]
[ROW][C]40[/C][C]22.03[/C][C]22.1321788194444[/C][C]22.1208333333333[/C][C]0.0113454861111126[/C][C]-0.10217881944444[/C][/ROW]
[ROW][C]41[/C][C]22.08[/C][C]22.1632204861111[/C][C]22.13125[/C][C]0.0319704861111108[/C][C]-0.083220486111113[/C][/ROW]
[ROW][C]42[/C][C]22.13[/C][C]22.1774913194444[/C][C]22.1416666666667[/C][C]0.0358246527777792[/C][C]-0.0474913194444468[/C][/ROW]
[ROW][C]43[/C][C]22.13[/C][C]22.1772829861111[/C][C]22.1483333333333[/C][C]0.0289496527777775[/C][C]-0.0472829861111137[/C][/ROW]
[ROW][C]44[/C][C]22.4[/C][C]22.2410329861111[/C][C]22.1570833333333[/C][C]0.0839496527777772[/C][C]0.158967013888891[/C][/ROW]
[ROW][C]45[/C][C]22.4[/C][C]22.2825954861111[/C][C]22.1758333333333[/C][C]0.106762152777778[/C][C]0.117404513888889[/C][/ROW]
[ROW][C]46[/C][C]22.12[/C][C]22.1303038194444[/C][C]22.1979166666667[/C][C]-0.0676128472222217[/C][C]-0.0103038194444451[/C][/ROW]
[ROW][C]47[/C][C]22.22[/C][C]22.1568663194444[/C][C]22.2141666666667[/C][C]-0.0573003472222213[/C][C]0.0631336805555556[/C][/ROW]
[ROW][C]48[/C][C]22.14[/C][C]22.1595746527778[/C][C]22.2283333333333[/C][C]-0.0687586805555576[/C][C]-0.0195746527777771[/C][/ROW]
[ROW][C]49[/C][C]22.14[/C][C]22.1510329861111[/C][C]22.2416666666667[/C][C]-0.0906336805555572[/C][C]-0.0110329861111111[/C][/ROW]
[ROW][C]50[/C][C]22.19[/C][C]22.2360329861111[/C][C]22.24375[/C][C]-0.00771701388888868[/C][C]-0.0460329861111113[/C][/ROW]
[ROW][C]51[/C][C]22.29[/C][C]22.2278038194444[/C][C]22.2345833333333[/C][C]-0.00677951388888864[/C][C]0.0621961805555529[/C][/ROW]
[ROW][C]52[/C][C]22.24[/C][C]22.2509288194444[/C][C]22.2395833333333[/C][C]0.0113454861111126[/C][C]-0.0109288194444481[/C][/ROW]
[ROW][C]53[/C][C]22.26[/C][C]22.2882204861111[/C][C]22.25625[/C][C]0.0319704861111108[/C][C]-0.0282204861111062[/C][/ROW]
[ROW][C]54[/C][C]22.29[/C][C]22.3112413194444[/C][C]22.2754166666667[/C][C]0.0358246527777792[/C][C]-0.0212413194444423[/C][/ROW]
[ROW][C]55[/C][C]22.29[/C][C]NA[/C][C]NA[/C][C]0.0289496527777775[/C][C]NA[/C][/ROW]
[ROW][C]56[/C][C]22.29[/C][C]NA[/C][C]NA[/C][C]0.0839496527777772[/C][C]NA[/C][/ROW]
[ROW][C]57[/C][C]22.29[/C][C]NA[/C][C]NA[/C][C]0.106762152777778[/C][C]NA[/C][/ROW]
[ROW][C]58[/C][C]22.35[/C][C]NA[/C][C]NA[/C][C]-0.0676128472222217[/C][C]NA[/C][/ROW]
[ROW][C]59[/C][C]22.39[/C][C]NA[/C][C]NA[/C][C]-0.0573003472222213[/C][C]NA[/C][/ROW]
[ROW][C]60[/C][C]22.43[/C][C]NA[/C][C]NA[/C][C]-0.0687586805555576[/C][C]NA[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=151174&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=151174&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	20.89	NA	NA	-0.0906336805555572	NA
2	21.04	NA	NA	-0.00771701388888868	NA
3	21.07	NA	NA	-0.00677951388888864	NA
4	21.12	NA	NA	0.0113454861111126	NA
5	21.25	NA	NA	0.0319704861111108	NA
6	21.24	NA	NA	0.0358246527777792	NA
7	21.24	21.2001996527778	21.17125	0.0289496527777775	0.0398003472222186
8	21.22	21.2864496527778	21.2025	0.0839496527777772	-0.0664496527777736
9	21.29	21.3509288194444	21.2441666666667	0.106762152777778	-0.0609288194444453
10	21.25	21.2182204861111	21.2858333333333	-0.0676128472222217	0.0317795138888926
11	21.15	21.2664496527778	21.32375	-0.0573003472222213	-0.116449652777781
12	21.16	21.2908246527778	21.3595833333333	-0.0687586805555576	-0.130824652777779
13	21.16	21.3047829861111	21.3954166666667	-0.0906336805555572	-0.14478298611111
14	21.52	21.4235329861111	21.43125	-0.00771701388888868	0.0964670138888906
15	21.59	21.4611371527778	21.4679166666667	-0.00677951388888864	0.128862847222226
16	21.6	21.5175954861111	21.50625	0.0113454861111126	0.0824045138888927
17	21.68	21.5865538194444	21.5545833333333	0.0319704861111108	0.0934461805555564
18	21.67	21.6516579861111	21.6158333333333	0.0358246527777792	0.018342013888887
19	21.67	21.7097829861111	21.6808333333333	0.0289496527777775	-0.0397829861111099
20	21.65	21.8151996527778	21.73125	0.0839496527777772	-0.16519965277778
21	21.74	21.8713454861111	21.7645833333333	0.106762152777778	-0.131345486111112
22	21.72	21.7332204861111	21.8008333333333	-0.0676128472222217	-0.0132204861111092
23	21.84	21.7831163194444	21.8404166666667	-0.0573003472222213	0.0568836805555577
24	21.94	21.8116579861111	21.8804166666667	-0.0687586805555576	0.128342013888894
25	21.94	21.8322829861111	21.9229166666667	-0.0906336805555572	0.107717013888895
26	21.95	21.9622829861111	21.97	-0.00771701388888868	-0.0122829861111065
27	21.96	22.0123871527778	22.0191666666667	-0.00677951388888864	-0.0523871527777793
28	22.1	22.0671788194444	22.0558333333333	0.0113454861111126	0.0328211805555583
29	22.13	22.1098871527778	22.0779166666667	0.0319704861111108	0.0201128472222258
30	22.18	22.1274913194444	22.0916666666667	0.0358246527777792	0.0525086805555581
31	22.18	22.1306163194444	22.1016666666667	0.0289496527777775	0.0493836805555645
32	22.27	22.1951996527778	22.11125	0.0839496527777772	0.0748003472222258
33	22.3	22.2230121527778	22.11625	0.106762152777778	0.0769878472222274
34	22.04	22.0461371527778	22.11375	-0.0676128472222217	-0.00613715277777871
35	22.05	22.0514496527778	22.10875	-0.0573003472222213	-0.00144965277777587
36	22.06	22.0358246527778	22.1045833333333	-0.0687586805555576	0.0241753472222221
37	22.06	22.0097829861111	22.1004166666667	-0.0906336805555572	0.05021701388889
38	22.06	22.0960329861111	22.10375	-0.00771701388888868	-0.0360329861111097
39	21.97	22.1065538194444	22.1133333333333	-0.00677951388888864	-0.136553819444444
40	22.03	22.1321788194444	22.1208333333333	0.0113454861111126	-0.10217881944444
41	22.08	22.1632204861111	22.13125	0.0319704861111108	-0.083220486111113
42	22.13	22.1774913194444	22.1416666666667	0.0358246527777792	-0.0474913194444468
43	22.13	22.1772829861111	22.1483333333333	0.0289496527777775	-0.0472829861111137
44	22.4	22.2410329861111	22.1570833333333	0.0839496527777772	0.158967013888891
45	22.4	22.2825954861111	22.1758333333333	0.106762152777778	0.117404513888889
46	22.12	22.1303038194444	22.1979166666667	-0.0676128472222217	-0.0103038194444451
47	22.22	22.1568663194444	22.2141666666667	-0.0573003472222213	0.0631336805555556
48	22.14	22.1595746527778	22.2283333333333	-0.0687586805555576	-0.0195746527777771
49	22.14	22.1510329861111	22.2416666666667	-0.0906336805555572	-0.0110329861111111
50	22.19	22.2360329861111	22.24375	-0.00771701388888868	-0.0460329861111113
51	22.29	22.2278038194444	22.2345833333333	-0.00677951388888864	0.0621961805555529
52	22.24	22.2509288194444	22.2395833333333	0.0113454861111126	-0.0109288194444481
53	22.26	22.2882204861111	22.25625	0.0319704861111108	-0.0282204861111062
54	22.29	22.3112413194444	22.2754166666667	0.0358246527777792	-0.0212413194444423
55	22.29	NA	NA	0.0289496527777775	NA
56	22.29	NA	NA	0.0839496527777772	NA
57	22.29	NA	NA	0.106762152777778	NA
58	22.35	NA	NA	-0.0676128472222217	NA
59	22.39	NA	NA	-0.0573003472222213	NA
60	22.43	NA	NA	-0.0687586805555576	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,m$trend[i]+m$seasonal[i]) else a<-table.element(a,m$trend[i]*m$seasonal[i])
a<-table.element(a,m$trend[i])
a<-table.element(a,m$seasonal[i])
a<-table.element(a,m$random[i])
a<-table.row.end(a)
}
a<-table.end(a)
table.save(a,file='mytable.tab')

Free Statistics

Description of Statistical Computation

Tree of Dependent Computations

Dataset

Tables (Output of Computation)

Figures (Output of Computation)

Input Parameters & R Code