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, 04 Dec 2013 04:05:26 -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/04/t1386148104sytkzuh57p35kmn.htm/, Retrieved Fri, 19 Apr 2024 21:35:50 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=230448, Retrieved Fri, 19 Apr 2024 21:35:50 +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

123

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

-       [Classical Decomposition] [] [2013-12-04 09:05:26] [5a3c7f9bb7dd641f8bd846ae07c7d6c7] [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	8 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 & 8 seconds \tabularnewline
R Server & 'Gwilym Jenkins' @ jenkins.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=230448&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]8 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=230448&T=0

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

Classical Decomposition by Moving Averages
t	Observations	Fit	Trend	Seasonal	Random
1	19.4	NA	NA	-0.611458	NA
2	19.4	NA	NA	-0.498958	NA
3	19.4	NA	NA	-0.386458	NA
4	19.5	NA	NA	-2.06632	NA
5	19.5	NA	NA	-2.03854	NA
6	19.5	NA	NA	-2.01076	NA
7	28.7	25.8017	22.375	3.42674	2.89826
8	28.7	25.8656	22.425	3.44062	2.83438
9	28.7	25.9295	22.475	3.45451	2.77049
10	21.8	21.6802	22.6292	-0.948958	0.119792
11	21.8	21.9844	22.8875	-0.903125	-0.184375
12	21.8	22.2885	23.1458	-0.857292	-0.488542
13	20	22.401	23.0125	-0.611458	-2.40104
14	20	21.9885	22.4875	-0.498958	-1.98854
15	20	21.576	21.9625	-0.386458	-1.57604
16	22.6	19.5003	21.5667	-2.06632	3.09965
17	22.6	19.2615	21.3	-2.03854	3.33854
18	22.6	19.0226	21.0333	-2.01076	3.57743
19	22.4	24.1684	20.7417	3.42674	-1.7684
20	22.4	23.8656	20.425	3.44062	-1.46563
21	22.4	23.5628	20.1083	3.45451	-1.16285
22	18.6	18.6344	19.5833	-0.948958	-0.034375
23	18.6	17.9469	18.85	-0.903125	0.653125
24	18.6	17.2594	18.1167	-0.857292	1.34062
25	16.2	17.2094	17.8208	-0.611458	-1.00938
26	16.2	17.4635	17.9625	-0.498958	-1.26354
27	16.2	17.7177	18.1042	-0.386458	-1.51771
28	13.8	16.1628	18.2292	-2.06632	-2.36285
29	13.8	16.299	18.3375	-2.03854	-2.49896
30	13.8	16.4351	18.4458	-2.01076	-2.63507
31	24.1	22.1809	18.7542	3.42674	1.9191
32	24.1	22.7031	19.2625	3.44062	1.39688
33	24.1	23.2253	19.7708	3.45451	0.874653
34	19.9	19.3719	20.3208	-0.948958	0.528125
35	19.9	20.0094	20.9125	-0.903125	-0.109375
36	19.9	20.6469	21.5042	-0.857292	-0.746875
37	22.3	21.1635	21.775	-0.611458	1.13646
38	22.3	21.226	21.725	-0.498958	1.07396
39	22.3	21.2885	21.675	-0.386458	1.01146
40	20.9	19.717	21.7833	-2.06632	1.18299
41	20.9	20.0115	22.05	-2.03854	0.888542
42	20.9	20.3059	22.3167	-2.01076	0.594097
43	23.5	26.0184	22.5917	3.42674	-2.5184
44	23.5	26.3156	22.875	3.44062	-2.81563
45	23.5	26.6128	23.1583	3.45451	-3.11285
46	23.1	22.301	23.25	-0.948958	0.798958
47	23.1	22.2469	23.15	-0.903125	0.853125
48	23.1	22.1927	23.05	-0.857292	0.907292
49	25.7	22.3719	22.9833	-0.611458	3.32812
50	25.7	22.451	22.95	-0.498958	3.24896
51	25.7	22.5302	22.9167	-0.386458	3.16979
52	19.7	20.7337	22.8	-2.06632	-1.03368
53	19.7	20.5615	22.6	-2.03854	-0.861458
54	19.7	20.3892	22.4	-2.01076	-0.689236
55	23.1	25.4059	21.9792	3.42674	-2.3059
56	23.1	24.7781	21.3375	3.44062	-1.67812
57	23.1	24.1503	20.6958	3.45451	-1.05035
58	20.7	19.3094	20.2583	-0.948958	1.39062
59	20.7	19.1219	20.025	-0.903125	1.57812
60	20.7	18.9344	19.7917	-0.857292	1.76562
61	18	19.1177	19.7292	-0.611458	-1.11771
62	18	19.3385	19.8375	-0.498958	-1.33854
63	18	19.5594	19.9458	-0.386458	-1.55937
64	16.9	17.717	19.7833	-2.06632	-0.817014
65	16.9	17.3115	19.35	-2.03854	-0.411458
66	16.9	16.9059	18.9167	-2.01076	-0.00590278
67	24.4	22.1434	18.7167	3.42674	2.2566
68	24.4	22.1906	18.75	3.44062	2.20938
69	24.4	22.2378	18.7833	3.45451	2.16215
70	15.5	17.8219	18.7708	-0.948958	-2.32187
71	15.5	17.8094	18.7125	-0.903125	-2.30937
72	15.5	17.7969	18.6542	-0.857292	-2.29687
73	18.4	17.8552	18.4667	-0.611458	0.544792
74	18.4	17.651	18.15	-0.498958	0.748958
75	18.4	17.4469	17.8333	-0.386458	0.953125
76	16.2	15.7878	17.8542	-2.06632	0.412153
77	16.2	16.174	18.2125	-2.03854	0.0260417
78	16.2	16.5601	18.5708	-2.01076	-0.360069
79	20.6	NA	NA	3.42674	NA
80	20.6	NA	NA	3.44062	NA
81	20.6	NA	NA	3.45451	NA
82	19.8	NA	NA	-0.948958	NA
83	19.8	NA	NA	-0.903125	NA
84	19.8	NA	NA	-0.857292	NA

\begin{tabular}{lllllllll}
\hline
Classical Decomposition by Moving Averages \tabularnewline
t & Observations & Fit & Trend & Seasonal & Random \tabularnewline
1 & 19.4 & NA & NA & -0.611458 & NA \tabularnewline
2 & 19.4 & NA & NA & -0.498958 & NA \tabularnewline
3 & 19.4 & NA & NA & -0.386458 & NA \tabularnewline
4 & 19.5 & NA & NA & -2.06632 & NA \tabularnewline
5 & 19.5 & NA & NA & -2.03854 & NA \tabularnewline
6 & 19.5 & NA & NA & -2.01076 & NA \tabularnewline
7 & 28.7 & 25.8017 & 22.375 & 3.42674 & 2.89826 \tabularnewline
8 & 28.7 & 25.8656 & 22.425 & 3.44062 & 2.83438 \tabularnewline
9 & 28.7 & 25.9295 & 22.475 & 3.45451 & 2.77049 \tabularnewline
10 & 21.8 & 21.6802 & 22.6292 & -0.948958 & 0.119792 \tabularnewline
11 & 21.8 & 21.9844 & 22.8875 & -0.903125 & -0.184375 \tabularnewline
12 & 21.8 & 22.2885 & 23.1458 & -0.857292 & -0.488542 \tabularnewline
13 & 20 & 22.401 & 23.0125 & -0.611458 & -2.40104 \tabularnewline
14 & 20 & 21.9885 & 22.4875 & -0.498958 & -1.98854 \tabularnewline
15 & 20 & 21.576 & 21.9625 & -0.386458 & -1.57604 \tabularnewline
16 & 22.6 & 19.5003 & 21.5667 & -2.06632 & 3.09965 \tabularnewline
17 & 22.6 & 19.2615 & 21.3 & -2.03854 & 3.33854 \tabularnewline
18 & 22.6 & 19.0226 & 21.0333 & -2.01076 & 3.57743 \tabularnewline
19 & 22.4 & 24.1684 & 20.7417 & 3.42674 & -1.7684 \tabularnewline
20 & 22.4 & 23.8656 & 20.425 & 3.44062 & -1.46563 \tabularnewline
21 & 22.4 & 23.5628 & 20.1083 & 3.45451 & -1.16285 \tabularnewline
22 & 18.6 & 18.6344 & 19.5833 & -0.948958 & -0.034375 \tabularnewline
23 & 18.6 & 17.9469 & 18.85 & -0.903125 & 0.653125 \tabularnewline
24 & 18.6 & 17.2594 & 18.1167 & -0.857292 & 1.34062 \tabularnewline
25 & 16.2 & 17.2094 & 17.8208 & -0.611458 & -1.00938 \tabularnewline
26 & 16.2 & 17.4635 & 17.9625 & -0.498958 & -1.26354 \tabularnewline
27 & 16.2 & 17.7177 & 18.1042 & -0.386458 & -1.51771 \tabularnewline
28 & 13.8 & 16.1628 & 18.2292 & -2.06632 & -2.36285 \tabularnewline
29 & 13.8 & 16.299 & 18.3375 & -2.03854 & -2.49896 \tabularnewline
30 & 13.8 & 16.4351 & 18.4458 & -2.01076 & -2.63507 \tabularnewline
31 & 24.1 & 22.1809 & 18.7542 & 3.42674 & 1.9191 \tabularnewline
32 & 24.1 & 22.7031 & 19.2625 & 3.44062 & 1.39688 \tabularnewline
33 & 24.1 & 23.2253 & 19.7708 & 3.45451 & 0.874653 \tabularnewline
34 & 19.9 & 19.3719 & 20.3208 & -0.948958 & 0.528125 \tabularnewline
35 & 19.9 & 20.0094 & 20.9125 & -0.903125 & -0.109375 \tabularnewline
36 & 19.9 & 20.6469 & 21.5042 & -0.857292 & -0.746875 \tabularnewline
37 & 22.3 & 21.1635 & 21.775 & -0.611458 & 1.13646 \tabularnewline
38 & 22.3 & 21.226 & 21.725 & -0.498958 & 1.07396 \tabularnewline
39 & 22.3 & 21.2885 & 21.675 & -0.386458 & 1.01146 \tabularnewline
40 & 20.9 & 19.717 & 21.7833 & -2.06632 & 1.18299 \tabularnewline
41 & 20.9 & 20.0115 & 22.05 & -2.03854 & 0.888542 \tabularnewline
42 & 20.9 & 20.3059 & 22.3167 & -2.01076 & 0.594097 \tabularnewline
43 & 23.5 & 26.0184 & 22.5917 & 3.42674 & -2.5184 \tabularnewline
44 & 23.5 & 26.3156 & 22.875 & 3.44062 & -2.81563 \tabularnewline
45 & 23.5 & 26.6128 & 23.1583 & 3.45451 & -3.11285 \tabularnewline
46 & 23.1 & 22.301 & 23.25 & -0.948958 & 0.798958 \tabularnewline
47 & 23.1 & 22.2469 & 23.15 & -0.903125 & 0.853125 \tabularnewline
48 & 23.1 & 22.1927 & 23.05 & -0.857292 & 0.907292 \tabularnewline
49 & 25.7 & 22.3719 & 22.9833 & -0.611458 & 3.32812 \tabularnewline
50 & 25.7 & 22.451 & 22.95 & -0.498958 & 3.24896 \tabularnewline
51 & 25.7 & 22.5302 & 22.9167 & -0.386458 & 3.16979 \tabularnewline
52 & 19.7 & 20.7337 & 22.8 & -2.06632 & -1.03368 \tabularnewline
53 & 19.7 & 20.5615 & 22.6 & -2.03854 & -0.861458 \tabularnewline
54 & 19.7 & 20.3892 & 22.4 & -2.01076 & -0.689236 \tabularnewline
55 & 23.1 & 25.4059 & 21.9792 & 3.42674 & -2.3059 \tabularnewline
56 & 23.1 & 24.7781 & 21.3375 & 3.44062 & -1.67812 \tabularnewline
57 & 23.1 & 24.1503 & 20.6958 & 3.45451 & -1.05035 \tabularnewline
58 & 20.7 & 19.3094 & 20.2583 & -0.948958 & 1.39062 \tabularnewline
59 & 20.7 & 19.1219 & 20.025 & -0.903125 & 1.57812 \tabularnewline
60 & 20.7 & 18.9344 & 19.7917 & -0.857292 & 1.76562 \tabularnewline
61 & 18 & 19.1177 & 19.7292 & -0.611458 & -1.11771 \tabularnewline
62 & 18 & 19.3385 & 19.8375 & -0.498958 & -1.33854 \tabularnewline
63 & 18 & 19.5594 & 19.9458 & -0.386458 & -1.55937 \tabularnewline
64 & 16.9 & 17.717 & 19.7833 & -2.06632 & -0.817014 \tabularnewline
65 & 16.9 & 17.3115 & 19.35 & -2.03854 & -0.411458 \tabularnewline
66 & 16.9 & 16.9059 & 18.9167 & -2.01076 & -0.00590278 \tabularnewline
67 & 24.4 & 22.1434 & 18.7167 & 3.42674 & 2.2566 \tabularnewline
68 & 24.4 & 22.1906 & 18.75 & 3.44062 & 2.20938 \tabularnewline
69 & 24.4 & 22.2378 & 18.7833 & 3.45451 & 2.16215 \tabularnewline
70 & 15.5 & 17.8219 & 18.7708 & -0.948958 & -2.32187 \tabularnewline
71 & 15.5 & 17.8094 & 18.7125 & -0.903125 & -2.30937 \tabularnewline
72 & 15.5 & 17.7969 & 18.6542 & -0.857292 & -2.29687 \tabularnewline
73 & 18.4 & 17.8552 & 18.4667 & -0.611458 & 0.544792 \tabularnewline
74 & 18.4 & 17.651 & 18.15 & -0.498958 & 0.748958 \tabularnewline
75 & 18.4 & 17.4469 & 17.8333 & -0.386458 & 0.953125 \tabularnewline
76 & 16.2 & 15.7878 & 17.8542 & -2.06632 & 0.412153 \tabularnewline
77 & 16.2 & 16.174 & 18.2125 & -2.03854 & 0.0260417 \tabularnewline
78 & 16.2 & 16.5601 & 18.5708 & -2.01076 & -0.360069 \tabularnewline
79 & 20.6 & NA & NA & 3.42674 & NA \tabularnewline
80 & 20.6 & NA & NA & 3.44062 & NA \tabularnewline
81 & 20.6 & NA & NA & 3.45451 & NA \tabularnewline
82 & 19.8 & NA & NA & -0.948958 & NA \tabularnewline
83 & 19.8 & NA & NA & -0.903125 & NA \tabularnewline
84 & 19.8 & NA & NA & -0.857292 & NA \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=230448&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]19.4[/C][C]NA[/C][C]NA[/C][C]-0.611458[/C][C]NA[/C][/ROW]
[ROW][C]2[/C][C]19.4[/C][C]NA[/C][C]NA[/C][C]-0.498958[/C][C]NA[/C][/ROW]
[ROW][C]3[/C][C]19.4[/C][C]NA[/C][C]NA[/C][C]-0.386458[/C][C]NA[/C][/ROW]
[ROW][C]4[/C][C]19.5[/C][C]NA[/C][C]NA[/C][C]-2.06632[/C][C]NA[/C][/ROW]
[ROW][C]5[/C][C]19.5[/C][C]NA[/C][C]NA[/C][C]-2.03854[/C][C]NA[/C][/ROW]
[ROW][C]6[/C][C]19.5[/C][C]NA[/C][C]NA[/C][C]-2.01076[/C][C]NA[/C][/ROW]
[ROW][C]7[/C][C]28.7[/C][C]25.8017[/C][C]22.375[/C][C]3.42674[/C][C]2.89826[/C][/ROW]
[ROW][C]8[/C][C]28.7[/C][C]25.8656[/C][C]22.425[/C][C]3.44062[/C][C]2.83438[/C][/ROW]
[ROW][C]9[/C][C]28.7[/C][C]25.9295[/C][C]22.475[/C][C]3.45451[/C][C]2.77049[/C][/ROW]
[ROW][C]10[/C][C]21.8[/C][C]21.6802[/C][C]22.6292[/C][C]-0.948958[/C][C]0.119792[/C][/ROW]
[ROW][C]11[/C][C]21.8[/C][C]21.9844[/C][C]22.8875[/C][C]-0.903125[/C][C]-0.184375[/C][/ROW]
[ROW][C]12[/C][C]21.8[/C][C]22.2885[/C][C]23.1458[/C][C]-0.857292[/C][C]-0.488542[/C][/ROW]
[ROW][C]13[/C][C]20[/C][C]22.401[/C][C]23.0125[/C][C]-0.611458[/C][C]-2.40104[/C][/ROW]
[ROW][C]14[/C][C]20[/C][C]21.9885[/C][C]22.4875[/C][C]-0.498958[/C][C]-1.98854[/C][/ROW]
[ROW][C]15[/C][C]20[/C][C]21.576[/C][C]21.9625[/C][C]-0.386458[/C][C]-1.57604[/C][/ROW]
[ROW][C]16[/C][C]22.6[/C][C]19.5003[/C][C]21.5667[/C][C]-2.06632[/C][C]3.09965[/C][/ROW]
[ROW][C]17[/C][C]22.6[/C][C]19.2615[/C][C]21.3[/C][C]-2.03854[/C][C]3.33854[/C][/ROW]
[ROW][C]18[/C][C]22.6[/C][C]19.0226[/C][C]21.0333[/C][C]-2.01076[/C][C]3.57743[/C][/ROW]
[ROW][C]19[/C][C]22.4[/C][C]24.1684[/C][C]20.7417[/C][C]3.42674[/C][C]-1.7684[/C][/ROW]
[ROW][C]20[/C][C]22.4[/C][C]23.8656[/C][C]20.425[/C][C]3.44062[/C][C]-1.46563[/C][/ROW]
[ROW][C]21[/C][C]22.4[/C][C]23.5628[/C][C]20.1083[/C][C]3.45451[/C][C]-1.16285[/C][/ROW]
[ROW][C]22[/C][C]18.6[/C][C]18.6344[/C][C]19.5833[/C][C]-0.948958[/C][C]-0.034375[/C][/ROW]
[ROW][C]23[/C][C]18.6[/C][C]17.9469[/C][C]18.85[/C][C]-0.903125[/C][C]0.653125[/C][/ROW]
[ROW][C]24[/C][C]18.6[/C][C]17.2594[/C][C]18.1167[/C][C]-0.857292[/C][C]1.34062[/C][/ROW]
[ROW][C]25[/C][C]16.2[/C][C]17.2094[/C][C]17.8208[/C][C]-0.611458[/C][C]-1.00938[/C][/ROW]
[ROW][C]26[/C][C]16.2[/C][C]17.4635[/C][C]17.9625[/C][C]-0.498958[/C][C]-1.26354[/C][/ROW]
[ROW][C]27[/C][C]16.2[/C][C]17.7177[/C][C]18.1042[/C][C]-0.386458[/C][C]-1.51771[/C][/ROW]
[ROW][C]28[/C][C]13.8[/C][C]16.1628[/C][C]18.2292[/C][C]-2.06632[/C][C]-2.36285[/C][/ROW]
[ROW][C]29[/C][C]13.8[/C][C]16.299[/C][C]18.3375[/C][C]-2.03854[/C][C]-2.49896[/C][/ROW]
[ROW][C]30[/C][C]13.8[/C][C]16.4351[/C][C]18.4458[/C][C]-2.01076[/C][C]-2.63507[/C][/ROW]
[ROW][C]31[/C][C]24.1[/C][C]22.1809[/C][C]18.7542[/C][C]3.42674[/C][C]1.9191[/C][/ROW]
[ROW][C]32[/C][C]24.1[/C][C]22.7031[/C][C]19.2625[/C][C]3.44062[/C][C]1.39688[/C][/ROW]
[ROW][C]33[/C][C]24.1[/C][C]23.2253[/C][C]19.7708[/C][C]3.45451[/C][C]0.874653[/C][/ROW]
[ROW][C]34[/C][C]19.9[/C][C]19.3719[/C][C]20.3208[/C][C]-0.948958[/C][C]0.528125[/C][/ROW]
[ROW][C]35[/C][C]19.9[/C][C]20.0094[/C][C]20.9125[/C][C]-0.903125[/C][C]-0.109375[/C][/ROW]
[ROW][C]36[/C][C]19.9[/C][C]20.6469[/C][C]21.5042[/C][C]-0.857292[/C][C]-0.746875[/C][/ROW]
[ROW][C]37[/C][C]22.3[/C][C]21.1635[/C][C]21.775[/C][C]-0.611458[/C][C]1.13646[/C][/ROW]
[ROW][C]38[/C][C]22.3[/C][C]21.226[/C][C]21.725[/C][C]-0.498958[/C][C]1.07396[/C][/ROW]
[ROW][C]39[/C][C]22.3[/C][C]21.2885[/C][C]21.675[/C][C]-0.386458[/C][C]1.01146[/C][/ROW]
[ROW][C]40[/C][C]20.9[/C][C]19.717[/C][C]21.7833[/C][C]-2.06632[/C][C]1.18299[/C][/ROW]
[ROW][C]41[/C][C]20.9[/C][C]20.0115[/C][C]22.05[/C][C]-2.03854[/C][C]0.888542[/C][/ROW]
[ROW][C]42[/C][C]20.9[/C][C]20.3059[/C][C]22.3167[/C][C]-2.01076[/C][C]0.594097[/C][/ROW]
[ROW][C]43[/C][C]23.5[/C][C]26.0184[/C][C]22.5917[/C][C]3.42674[/C][C]-2.5184[/C][/ROW]
[ROW][C]44[/C][C]23.5[/C][C]26.3156[/C][C]22.875[/C][C]3.44062[/C][C]-2.81563[/C][/ROW]
[ROW][C]45[/C][C]23.5[/C][C]26.6128[/C][C]23.1583[/C][C]3.45451[/C][C]-3.11285[/C][/ROW]
[ROW][C]46[/C][C]23.1[/C][C]22.301[/C][C]23.25[/C][C]-0.948958[/C][C]0.798958[/C][/ROW]
[ROW][C]47[/C][C]23.1[/C][C]22.2469[/C][C]23.15[/C][C]-0.903125[/C][C]0.853125[/C][/ROW]
[ROW][C]48[/C][C]23.1[/C][C]22.1927[/C][C]23.05[/C][C]-0.857292[/C][C]0.907292[/C][/ROW]
[ROW][C]49[/C][C]25.7[/C][C]22.3719[/C][C]22.9833[/C][C]-0.611458[/C][C]3.32812[/C][/ROW]
[ROW][C]50[/C][C]25.7[/C][C]22.451[/C][C]22.95[/C][C]-0.498958[/C][C]3.24896[/C][/ROW]
[ROW][C]51[/C][C]25.7[/C][C]22.5302[/C][C]22.9167[/C][C]-0.386458[/C][C]3.16979[/C][/ROW]
[ROW][C]52[/C][C]19.7[/C][C]20.7337[/C][C]22.8[/C][C]-2.06632[/C][C]-1.03368[/C][/ROW]
[ROW][C]53[/C][C]19.7[/C][C]20.5615[/C][C]22.6[/C][C]-2.03854[/C][C]-0.861458[/C][/ROW]
[ROW][C]54[/C][C]19.7[/C][C]20.3892[/C][C]22.4[/C][C]-2.01076[/C][C]-0.689236[/C][/ROW]
[ROW][C]55[/C][C]23.1[/C][C]25.4059[/C][C]21.9792[/C][C]3.42674[/C][C]-2.3059[/C][/ROW]
[ROW][C]56[/C][C]23.1[/C][C]24.7781[/C][C]21.3375[/C][C]3.44062[/C][C]-1.67812[/C][/ROW]
[ROW][C]57[/C][C]23.1[/C][C]24.1503[/C][C]20.6958[/C][C]3.45451[/C][C]-1.05035[/C][/ROW]
[ROW][C]58[/C][C]20.7[/C][C]19.3094[/C][C]20.2583[/C][C]-0.948958[/C][C]1.39062[/C][/ROW]
[ROW][C]59[/C][C]20.7[/C][C]19.1219[/C][C]20.025[/C][C]-0.903125[/C][C]1.57812[/C][/ROW]
[ROW][C]60[/C][C]20.7[/C][C]18.9344[/C][C]19.7917[/C][C]-0.857292[/C][C]1.76562[/C][/ROW]
[ROW][C]61[/C][C]18[/C][C]19.1177[/C][C]19.7292[/C][C]-0.611458[/C][C]-1.11771[/C][/ROW]
[ROW][C]62[/C][C]18[/C][C]19.3385[/C][C]19.8375[/C][C]-0.498958[/C][C]-1.33854[/C][/ROW]
[ROW][C]63[/C][C]18[/C][C]19.5594[/C][C]19.9458[/C][C]-0.386458[/C][C]-1.55937[/C][/ROW]
[ROW][C]64[/C][C]16.9[/C][C]17.717[/C][C]19.7833[/C][C]-2.06632[/C][C]-0.817014[/C][/ROW]
[ROW][C]65[/C][C]16.9[/C][C]17.3115[/C][C]19.35[/C][C]-2.03854[/C][C]-0.411458[/C][/ROW]
[ROW][C]66[/C][C]16.9[/C][C]16.9059[/C][C]18.9167[/C][C]-2.01076[/C][C]-0.00590278[/C][/ROW]
[ROW][C]67[/C][C]24.4[/C][C]22.1434[/C][C]18.7167[/C][C]3.42674[/C][C]2.2566[/C][/ROW]
[ROW][C]68[/C][C]24.4[/C][C]22.1906[/C][C]18.75[/C][C]3.44062[/C][C]2.20938[/C][/ROW]
[ROW][C]69[/C][C]24.4[/C][C]22.2378[/C][C]18.7833[/C][C]3.45451[/C][C]2.16215[/C][/ROW]
[ROW][C]70[/C][C]15.5[/C][C]17.8219[/C][C]18.7708[/C][C]-0.948958[/C][C]-2.32187[/C][/ROW]
[ROW][C]71[/C][C]15.5[/C][C]17.8094[/C][C]18.7125[/C][C]-0.903125[/C][C]-2.30937[/C][/ROW]
[ROW][C]72[/C][C]15.5[/C][C]17.7969[/C][C]18.6542[/C][C]-0.857292[/C][C]-2.29687[/C][/ROW]
[ROW][C]73[/C][C]18.4[/C][C]17.8552[/C][C]18.4667[/C][C]-0.611458[/C][C]0.544792[/C][/ROW]
[ROW][C]74[/C][C]18.4[/C][C]17.651[/C][C]18.15[/C][C]-0.498958[/C][C]0.748958[/C][/ROW]
[ROW][C]75[/C][C]18.4[/C][C]17.4469[/C][C]17.8333[/C][C]-0.386458[/C][C]0.953125[/C][/ROW]
[ROW][C]76[/C][C]16.2[/C][C]15.7878[/C][C]17.8542[/C][C]-2.06632[/C][C]0.412153[/C][/ROW]
[ROW][C]77[/C][C]16.2[/C][C]16.174[/C][C]18.2125[/C][C]-2.03854[/C][C]0.0260417[/C][/ROW]
[ROW][C]78[/C][C]16.2[/C][C]16.5601[/C][C]18.5708[/C][C]-2.01076[/C][C]-0.360069[/C][/ROW]
[ROW][C]79[/C][C]20.6[/C][C]NA[/C][C]NA[/C][C]3.42674[/C][C]NA[/C][/ROW]
[ROW][C]80[/C][C]20.6[/C][C]NA[/C][C]NA[/C][C]3.44062[/C][C]NA[/C][/ROW]
[ROW][C]81[/C][C]20.6[/C][C]NA[/C][C]NA[/C][C]3.45451[/C][C]NA[/C][/ROW]
[ROW][C]82[/C][C]19.8[/C][C]NA[/C][C]NA[/C][C]-0.948958[/C][C]NA[/C][/ROW]
[ROW][C]83[/C][C]19.8[/C][C]NA[/C][C]NA[/C][C]-0.903125[/C][C]NA[/C][/ROW]
[ROW][C]84[/C][C]19.8[/C][C]NA[/C][C]NA[/C][C]-0.857292[/C][C]NA[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=230448&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=230448&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	19.4	NA	NA	-0.611458	NA
2	19.4	NA	NA	-0.498958	NA
3	19.4	NA	NA	-0.386458	NA
4	19.5	NA	NA	-2.06632	NA
5	19.5	NA	NA	-2.03854	NA
6	19.5	NA	NA	-2.01076	NA
7	28.7	25.8017	22.375	3.42674	2.89826
8	28.7	25.8656	22.425	3.44062	2.83438
9	28.7	25.9295	22.475	3.45451	2.77049
10	21.8	21.6802	22.6292	-0.948958	0.119792
11	21.8	21.9844	22.8875	-0.903125	-0.184375
12	21.8	22.2885	23.1458	-0.857292	-0.488542
13	20	22.401	23.0125	-0.611458	-2.40104
14	20	21.9885	22.4875	-0.498958	-1.98854
15	20	21.576	21.9625	-0.386458	-1.57604
16	22.6	19.5003	21.5667	-2.06632	3.09965
17	22.6	19.2615	21.3	-2.03854	3.33854
18	22.6	19.0226	21.0333	-2.01076	3.57743
19	22.4	24.1684	20.7417	3.42674	-1.7684
20	22.4	23.8656	20.425	3.44062	-1.46563
21	22.4	23.5628	20.1083	3.45451	-1.16285
22	18.6	18.6344	19.5833	-0.948958	-0.034375
23	18.6	17.9469	18.85	-0.903125	0.653125
24	18.6	17.2594	18.1167	-0.857292	1.34062
25	16.2	17.2094	17.8208	-0.611458	-1.00938
26	16.2	17.4635	17.9625	-0.498958	-1.26354
27	16.2	17.7177	18.1042	-0.386458	-1.51771
28	13.8	16.1628	18.2292	-2.06632	-2.36285
29	13.8	16.299	18.3375	-2.03854	-2.49896
30	13.8	16.4351	18.4458	-2.01076	-2.63507
31	24.1	22.1809	18.7542	3.42674	1.9191
32	24.1	22.7031	19.2625	3.44062	1.39688
33	24.1	23.2253	19.7708	3.45451	0.874653
34	19.9	19.3719	20.3208	-0.948958	0.528125
35	19.9	20.0094	20.9125	-0.903125	-0.109375
36	19.9	20.6469	21.5042	-0.857292	-0.746875
37	22.3	21.1635	21.775	-0.611458	1.13646
38	22.3	21.226	21.725	-0.498958	1.07396
39	22.3	21.2885	21.675	-0.386458	1.01146
40	20.9	19.717	21.7833	-2.06632	1.18299
41	20.9	20.0115	22.05	-2.03854	0.888542
42	20.9	20.3059	22.3167	-2.01076	0.594097
43	23.5	26.0184	22.5917	3.42674	-2.5184
44	23.5	26.3156	22.875	3.44062	-2.81563
45	23.5	26.6128	23.1583	3.45451	-3.11285
46	23.1	22.301	23.25	-0.948958	0.798958
47	23.1	22.2469	23.15	-0.903125	0.853125
48	23.1	22.1927	23.05	-0.857292	0.907292
49	25.7	22.3719	22.9833	-0.611458	3.32812
50	25.7	22.451	22.95	-0.498958	3.24896
51	25.7	22.5302	22.9167	-0.386458	3.16979
52	19.7	20.7337	22.8	-2.06632	-1.03368
53	19.7	20.5615	22.6	-2.03854	-0.861458
54	19.7	20.3892	22.4	-2.01076	-0.689236
55	23.1	25.4059	21.9792	3.42674	-2.3059
56	23.1	24.7781	21.3375	3.44062	-1.67812
57	23.1	24.1503	20.6958	3.45451	-1.05035
58	20.7	19.3094	20.2583	-0.948958	1.39062
59	20.7	19.1219	20.025	-0.903125	1.57812
60	20.7	18.9344	19.7917	-0.857292	1.76562
61	18	19.1177	19.7292	-0.611458	-1.11771
62	18	19.3385	19.8375	-0.498958	-1.33854
63	18	19.5594	19.9458	-0.386458	-1.55937
64	16.9	17.717	19.7833	-2.06632	-0.817014
65	16.9	17.3115	19.35	-2.03854	-0.411458
66	16.9	16.9059	18.9167	-2.01076	-0.00590278
67	24.4	22.1434	18.7167	3.42674	2.2566
68	24.4	22.1906	18.75	3.44062	2.20938
69	24.4	22.2378	18.7833	3.45451	2.16215
70	15.5	17.8219	18.7708	-0.948958	-2.32187
71	15.5	17.8094	18.7125	-0.903125	-2.30937
72	15.5	17.7969	18.6542	-0.857292	-2.29687
73	18.4	17.8552	18.4667	-0.611458	0.544792
74	18.4	17.651	18.15	-0.498958	0.748958
75	18.4	17.4469	17.8333	-0.386458	0.953125
76	16.2	15.7878	17.8542	-2.06632	0.412153
77	16.2	16.174	18.2125	-2.03854	0.0260417
78	16.2	16.5601	18.5708	-2.01076	-0.360069
79	20.6	NA	NA	3.42674	NA
80	20.6	NA	NA	3.44062	NA
81	20.6	NA	NA	3.45451	NA
82	19.8	NA	NA	-0.948958	NA
83	19.8	NA	NA	-0.903125	NA
84	19.8	NA	NA	-0.857292	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