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, 27 Nov 2014 12:03:58 +0000

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/Nov/27/t14170898677l9pymg797zw240.htm/, Retrieved Sun, 19 May 2024 21:35:03 +0000

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

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

-       [Classical Decomposition] [Gemiddelde consum...] [2014-11-27 12:03:58] [1ab96e54865215824aa8065210e49a0c] [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	2 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 & 2 seconds \tabularnewline
R Server & 'Gwilym Jenkins' @ jenkins.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=259846&T=0

[TABLE]
[ROW][C]Summary of computational transaction[/C][/ROW]
[ROW][C]Raw Input[/C][C]view raw input (R code) [/C][/ROW]
[ROW][C]Raw Output[/C][C]view raw output of R engine [/C][/ROW]
[ROW][C]Computing time[/C][C]2 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'Gwilym Jenkins' @ jenkins.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=259846&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=259846&T=0

As an alternative you can also use a QR Code:

The GUIDs for individual cells are displayed in the table below:

Summary of computational transaction
Raw Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	2 seconds
R Server	'Gwilym Jenkins' @ jenkins.wessa.net

Classical Decomposition by Moving Averages
t	Observations	Fit	Trend	Seasonal	Random
1	48.74	NA	NA	-0.204854	NA
2	48.79	NA	NA	-0.264021	NA
3	48.82	NA	NA	-0.225604	NA
4	48.82	NA	NA	-0.105271	NA
5	49.2	NA	NA	0.0478125	NA
6	49.3	NA	NA	0.0075625	NA
7	49.3	49.2564	49.2821	-0.0256875	0.0436042
8	49.34	49.2954	49.3621	-0.0666875	0.0446042
9	49.47	49.4561	49.4529	0.00314583	0.0139375
10	49.65	49.7981	49.5629	0.235229	-0.148146
11	49.7	49.9921	49.6754	0.316729	-0.292146
12	49.75	50.0646	49.7829	0.281646	-0.314562
13	49.75	49.6822	49.8871	-0.204854	0.0677708
14	49.7	49.7256	49.9896	-0.264021	-0.0255625
15	50.09	49.8606	50.0862	-0.225604	0.229354
16	50.19	50.0672	50.1725	-0.105271	0.122771
17	50.53	50.312	50.2642	0.0478125	0.218021
18	50.55	50.3759	50.3683	0.0075625	0.174104
19	50.55	50.4476	50.4733	-0.0256875	0.102354
20	50.55	50.515	50.5817	-0.0666875	0.0350208
21	50.58	50.6848	50.6817	0.00314583	-0.104812
22	50.61	51.0077	50.7725	0.235229	-0.397729
23	50.94	51.1684	50.8517	0.316729	-0.228396
24	51.01	51.1987	50.9171	0.281646	-0.188729
25	51.01	50.7781	50.9829	-0.204854	0.231938
26	51.04	50.7847	51.0488	-0.264021	0.255271
27	51.15	50.8931	51.1188	-0.225604	0.256854
28	51.31	51.1064	51.2117	-0.105271	0.203604
29	51.31	51.3582	51.3104	0.0478125	-0.0482292
30	51.34	51.3988	51.3912	0.0075625	-0.0588125
31	51.34	51.4414	51.4671	-0.0256875	-0.101396
32	51.34	51.4746	51.5412	-0.0666875	-0.134562
33	51.47	51.6148	51.6117	0.00314583	-0.144813
34	51.95	51.9156	51.6804	0.235229	0.0343542
35	51.97	52.0742	51.7575	0.316729	-0.104229
36	51.92	52.1258	51.8442	0.281646	-0.205813
37	51.92	51.7276	51.9325	-0.204854	0.192354
38	51.91	51.7572	52.0212	-0.264021	0.152771
39	51.97	51.8919	52.1175	-0.225604	0.0781042
40	52.14	52.1147	52.22	-0.105271	0.0252708
41	52.33	52.3753	52.3275	0.0478125	-0.0453125
42	52.4	52.4501	52.4425	0.0075625	-0.0500625
43	52.4	52.5335	52.5592	-0.0256875	-0.133479
44	52.41	52.6087	52.6754	-0.0666875	-0.198729
45	52.71	52.7923	52.7892	0.00314583	-0.0823125
46	53.17	53.1461	52.9108	0.235229	0.0239375
47	53.33	53.3576	53.0408	0.316729	-0.0275625
48	53.32	53.4496	53.1679	0.281646	-0.129562
49	53.32	53.0889	53.2938	-0.204854	0.231104
50	53.3	53.1572	53.4212	-0.264021	0.142771
51	53.31	53.3148	53.5404	-0.225604	-0.0048125
52	53.72	53.5381	53.6433	-0.105271	0.181937
53	53.87	53.7874	53.7396	0.0478125	0.0826042
54	53.91	53.8459	53.8383	0.0075625	0.0641042
55	53.91	53.8251	53.8508	-0.0256875	0.0848542
56	53.96	53.7104	53.7771	-0.0666875	0.249604
57	54.02	53.7061	53.7029	0.00314583	0.313938
58	54.33	53.8465	53.6112	0.235229	0.483521
59	54.48	53.8317	53.515	0.316729	0.648271
60	54.54	53.7054	53.4238	0.281646	0.834604
61	52.4	53.1272	53.3321	-0.204854	-0.727229
62	52.45	52.9793	53.2433	-0.264021	-0.529312
63	52.38	52.9436	53.1692	-0.225604	-0.563563
64	52.45	52.9876	53.0929	-0.105271	-0.537646
65	52.83	53.0411	52.9933	0.0478125	-0.211146
66	52.76	52.8934	52.8858	0.0075625	-0.133396
67	52.86	NA	NA	-0.0256875	NA
68	52.88	NA	NA	-0.0666875	NA
69	53.32	NA	NA	0.00314583	NA
70	53.2	NA	NA	0.235229	NA
71	53.22	NA	NA	0.316729	NA
72	53.22	NA	NA	0.281646	NA

\begin{tabular}{lllllllll}
\hline
Classical Decomposition by Moving Averages \tabularnewline
t & Observations & Fit & Trend & Seasonal & Random \tabularnewline
1 & 48.74 & NA & NA & -0.204854 & NA \tabularnewline
2 & 48.79 & NA & NA & -0.264021 & NA \tabularnewline
3 & 48.82 & NA & NA & -0.225604 & NA \tabularnewline
4 & 48.82 & NA & NA & -0.105271 & NA \tabularnewline
5 & 49.2 & NA & NA & 0.0478125 & NA \tabularnewline
6 & 49.3 & NA & NA & 0.0075625 & NA \tabularnewline
7 & 49.3 & 49.2564 & 49.2821 & -0.0256875 & 0.0436042 \tabularnewline
8 & 49.34 & 49.2954 & 49.3621 & -0.0666875 & 0.0446042 \tabularnewline
9 & 49.47 & 49.4561 & 49.4529 & 0.00314583 & 0.0139375 \tabularnewline
10 & 49.65 & 49.7981 & 49.5629 & 0.235229 & -0.148146 \tabularnewline
11 & 49.7 & 49.9921 & 49.6754 & 0.316729 & -0.292146 \tabularnewline
12 & 49.75 & 50.0646 & 49.7829 & 0.281646 & -0.314562 \tabularnewline
13 & 49.75 & 49.6822 & 49.8871 & -0.204854 & 0.0677708 \tabularnewline
14 & 49.7 & 49.7256 & 49.9896 & -0.264021 & -0.0255625 \tabularnewline
15 & 50.09 & 49.8606 & 50.0862 & -0.225604 & 0.229354 \tabularnewline
16 & 50.19 & 50.0672 & 50.1725 & -0.105271 & 0.122771 \tabularnewline
17 & 50.53 & 50.312 & 50.2642 & 0.0478125 & 0.218021 \tabularnewline
18 & 50.55 & 50.3759 & 50.3683 & 0.0075625 & 0.174104 \tabularnewline
19 & 50.55 & 50.4476 & 50.4733 & -0.0256875 & 0.102354 \tabularnewline
20 & 50.55 & 50.515 & 50.5817 & -0.0666875 & 0.0350208 \tabularnewline
21 & 50.58 & 50.6848 & 50.6817 & 0.00314583 & -0.104812 \tabularnewline
22 & 50.61 & 51.0077 & 50.7725 & 0.235229 & -0.397729 \tabularnewline
23 & 50.94 & 51.1684 & 50.8517 & 0.316729 & -0.228396 \tabularnewline
24 & 51.01 & 51.1987 & 50.9171 & 0.281646 & -0.188729 \tabularnewline
25 & 51.01 & 50.7781 & 50.9829 & -0.204854 & 0.231938 \tabularnewline
26 & 51.04 & 50.7847 & 51.0488 & -0.264021 & 0.255271 \tabularnewline
27 & 51.15 & 50.8931 & 51.1188 & -0.225604 & 0.256854 \tabularnewline
28 & 51.31 & 51.1064 & 51.2117 & -0.105271 & 0.203604 \tabularnewline
29 & 51.31 & 51.3582 & 51.3104 & 0.0478125 & -0.0482292 \tabularnewline
30 & 51.34 & 51.3988 & 51.3912 & 0.0075625 & -0.0588125 \tabularnewline
31 & 51.34 & 51.4414 & 51.4671 & -0.0256875 & -0.101396 \tabularnewline
32 & 51.34 & 51.4746 & 51.5412 & -0.0666875 & -0.134562 \tabularnewline
33 & 51.47 & 51.6148 & 51.6117 & 0.00314583 & -0.144813 \tabularnewline
34 & 51.95 & 51.9156 & 51.6804 & 0.235229 & 0.0343542 \tabularnewline
35 & 51.97 & 52.0742 & 51.7575 & 0.316729 & -0.104229 \tabularnewline
36 & 51.92 & 52.1258 & 51.8442 & 0.281646 & -0.205813 \tabularnewline
37 & 51.92 & 51.7276 & 51.9325 & -0.204854 & 0.192354 \tabularnewline
38 & 51.91 & 51.7572 & 52.0212 & -0.264021 & 0.152771 \tabularnewline
39 & 51.97 & 51.8919 & 52.1175 & -0.225604 & 0.0781042 \tabularnewline
40 & 52.14 & 52.1147 & 52.22 & -0.105271 & 0.0252708 \tabularnewline
41 & 52.33 & 52.3753 & 52.3275 & 0.0478125 & -0.0453125 \tabularnewline
42 & 52.4 & 52.4501 & 52.4425 & 0.0075625 & -0.0500625 \tabularnewline
43 & 52.4 & 52.5335 & 52.5592 & -0.0256875 & -0.133479 \tabularnewline
44 & 52.41 & 52.6087 & 52.6754 & -0.0666875 & -0.198729 \tabularnewline
45 & 52.71 & 52.7923 & 52.7892 & 0.00314583 & -0.0823125 \tabularnewline
46 & 53.17 & 53.1461 & 52.9108 & 0.235229 & 0.0239375 \tabularnewline
47 & 53.33 & 53.3576 & 53.0408 & 0.316729 & -0.0275625 \tabularnewline
48 & 53.32 & 53.4496 & 53.1679 & 0.281646 & -0.129562 \tabularnewline
49 & 53.32 & 53.0889 & 53.2938 & -0.204854 & 0.231104 \tabularnewline
50 & 53.3 & 53.1572 & 53.4212 & -0.264021 & 0.142771 \tabularnewline
51 & 53.31 & 53.3148 & 53.5404 & -0.225604 & -0.0048125 \tabularnewline
52 & 53.72 & 53.5381 & 53.6433 & -0.105271 & 0.181937 \tabularnewline
53 & 53.87 & 53.7874 & 53.7396 & 0.0478125 & 0.0826042 \tabularnewline
54 & 53.91 & 53.8459 & 53.8383 & 0.0075625 & 0.0641042 \tabularnewline
55 & 53.91 & 53.8251 & 53.8508 & -0.0256875 & 0.0848542 \tabularnewline
56 & 53.96 & 53.7104 & 53.7771 & -0.0666875 & 0.249604 \tabularnewline
57 & 54.02 & 53.7061 & 53.7029 & 0.00314583 & 0.313938 \tabularnewline
58 & 54.33 & 53.8465 & 53.6112 & 0.235229 & 0.483521 \tabularnewline
59 & 54.48 & 53.8317 & 53.515 & 0.316729 & 0.648271 \tabularnewline
60 & 54.54 & 53.7054 & 53.4238 & 0.281646 & 0.834604 \tabularnewline
61 & 52.4 & 53.1272 & 53.3321 & -0.204854 & -0.727229 \tabularnewline
62 & 52.45 & 52.9793 & 53.2433 & -0.264021 & -0.529312 \tabularnewline
63 & 52.38 & 52.9436 & 53.1692 & -0.225604 & -0.563563 \tabularnewline
64 & 52.45 & 52.9876 & 53.0929 & -0.105271 & -0.537646 \tabularnewline
65 & 52.83 & 53.0411 & 52.9933 & 0.0478125 & -0.211146 \tabularnewline
66 & 52.76 & 52.8934 & 52.8858 & 0.0075625 & -0.133396 \tabularnewline
67 & 52.86 & NA & NA & -0.0256875 & NA \tabularnewline
68 & 52.88 & NA & NA & -0.0666875 & NA \tabularnewline
69 & 53.32 & NA & NA & 0.00314583 & NA \tabularnewline
70 & 53.2 & NA & NA & 0.235229 & NA \tabularnewline
71 & 53.22 & NA & NA & 0.316729 & NA \tabularnewline
72 & 53.22 & NA & NA & 0.281646 & NA \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=259846&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]48.74[/C][C]NA[/C][C]NA[/C][C]-0.204854[/C][C]NA[/C][/ROW]
[ROW][C]2[/C][C]48.79[/C][C]NA[/C][C]NA[/C][C]-0.264021[/C][C]NA[/C][/ROW]
[ROW][C]3[/C][C]48.82[/C][C]NA[/C][C]NA[/C][C]-0.225604[/C][C]NA[/C][/ROW]
[ROW][C]4[/C][C]48.82[/C][C]NA[/C][C]NA[/C][C]-0.105271[/C][C]NA[/C][/ROW]
[ROW][C]5[/C][C]49.2[/C][C]NA[/C][C]NA[/C][C]0.0478125[/C][C]NA[/C][/ROW]
[ROW][C]6[/C][C]49.3[/C][C]NA[/C][C]NA[/C][C]0.0075625[/C][C]NA[/C][/ROW]
[ROW][C]7[/C][C]49.3[/C][C]49.2564[/C][C]49.2821[/C][C]-0.0256875[/C][C]0.0436042[/C][/ROW]
[ROW][C]8[/C][C]49.34[/C][C]49.2954[/C][C]49.3621[/C][C]-0.0666875[/C][C]0.0446042[/C][/ROW]
[ROW][C]9[/C][C]49.47[/C][C]49.4561[/C][C]49.4529[/C][C]0.00314583[/C][C]0.0139375[/C][/ROW]
[ROW][C]10[/C][C]49.65[/C][C]49.7981[/C][C]49.5629[/C][C]0.235229[/C][C]-0.148146[/C][/ROW]
[ROW][C]11[/C][C]49.7[/C][C]49.9921[/C][C]49.6754[/C][C]0.316729[/C][C]-0.292146[/C][/ROW]
[ROW][C]12[/C][C]49.75[/C][C]50.0646[/C][C]49.7829[/C][C]0.281646[/C][C]-0.314562[/C][/ROW]
[ROW][C]13[/C][C]49.75[/C][C]49.6822[/C][C]49.8871[/C][C]-0.204854[/C][C]0.0677708[/C][/ROW]
[ROW][C]14[/C][C]49.7[/C][C]49.7256[/C][C]49.9896[/C][C]-0.264021[/C][C]-0.0255625[/C][/ROW]
[ROW][C]15[/C][C]50.09[/C][C]49.8606[/C][C]50.0862[/C][C]-0.225604[/C][C]0.229354[/C][/ROW]
[ROW][C]16[/C][C]50.19[/C][C]50.0672[/C][C]50.1725[/C][C]-0.105271[/C][C]0.122771[/C][/ROW]
[ROW][C]17[/C][C]50.53[/C][C]50.312[/C][C]50.2642[/C][C]0.0478125[/C][C]0.218021[/C][/ROW]
[ROW][C]18[/C][C]50.55[/C][C]50.3759[/C][C]50.3683[/C][C]0.0075625[/C][C]0.174104[/C][/ROW]
[ROW][C]19[/C][C]50.55[/C][C]50.4476[/C][C]50.4733[/C][C]-0.0256875[/C][C]0.102354[/C][/ROW]
[ROW][C]20[/C][C]50.55[/C][C]50.515[/C][C]50.5817[/C][C]-0.0666875[/C][C]0.0350208[/C][/ROW]
[ROW][C]21[/C][C]50.58[/C][C]50.6848[/C][C]50.6817[/C][C]0.00314583[/C][C]-0.104812[/C][/ROW]
[ROW][C]22[/C][C]50.61[/C][C]51.0077[/C][C]50.7725[/C][C]0.235229[/C][C]-0.397729[/C][/ROW]
[ROW][C]23[/C][C]50.94[/C][C]51.1684[/C][C]50.8517[/C][C]0.316729[/C][C]-0.228396[/C][/ROW]
[ROW][C]24[/C][C]51.01[/C][C]51.1987[/C][C]50.9171[/C][C]0.281646[/C][C]-0.188729[/C][/ROW]
[ROW][C]25[/C][C]51.01[/C][C]50.7781[/C][C]50.9829[/C][C]-0.204854[/C][C]0.231938[/C][/ROW]
[ROW][C]26[/C][C]51.04[/C][C]50.7847[/C][C]51.0488[/C][C]-0.264021[/C][C]0.255271[/C][/ROW]
[ROW][C]27[/C][C]51.15[/C][C]50.8931[/C][C]51.1188[/C][C]-0.225604[/C][C]0.256854[/C][/ROW]
[ROW][C]28[/C][C]51.31[/C][C]51.1064[/C][C]51.2117[/C][C]-0.105271[/C][C]0.203604[/C][/ROW]
[ROW][C]29[/C][C]51.31[/C][C]51.3582[/C][C]51.3104[/C][C]0.0478125[/C][C]-0.0482292[/C][/ROW]
[ROW][C]30[/C][C]51.34[/C][C]51.3988[/C][C]51.3912[/C][C]0.0075625[/C][C]-0.0588125[/C][/ROW]
[ROW][C]31[/C][C]51.34[/C][C]51.4414[/C][C]51.4671[/C][C]-0.0256875[/C][C]-0.101396[/C][/ROW]
[ROW][C]32[/C][C]51.34[/C][C]51.4746[/C][C]51.5412[/C][C]-0.0666875[/C][C]-0.134562[/C][/ROW]
[ROW][C]33[/C][C]51.47[/C][C]51.6148[/C][C]51.6117[/C][C]0.00314583[/C][C]-0.144813[/C][/ROW]
[ROW][C]34[/C][C]51.95[/C][C]51.9156[/C][C]51.6804[/C][C]0.235229[/C][C]0.0343542[/C][/ROW]
[ROW][C]35[/C][C]51.97[/C][C]52.0742[/C][C]51.7575[/C][C]0.316729[/C][C]-0.104229[/C][/ROW]
[ROW][C]36[/C][C]51.92[/C][C]52.1258[/C][C]51.8442[/C][C]0.281646[/C][C]-0.205813[/C][/ROW]
[ROW][C]37[/C][C]51.92[/C][C]51.7276[/C][C]51.9325[/C][C]-0.204854[/C][C]0.192354[/C][/ROW]
[ROW][C]38[/C][C]51.91[/C][C]51.7572[/C][C]52.0212[/C][C]-0.264021[/C][C]0.152771[/C][/ROW]
[ROW][C]39[/C][C]51.97[/C][C]51.8919[/C][C]52.1175[/C][C]-0.225604[/C][C]0.0781042[/C][/ROW]
[ROW][C]40[/C][C]52.14[/C][C]52.1147[/C][C]52.22[/C][C]-0.105271[/C][C]0.0252708[/C][/ROW]
[ROW][C]41[/C][C]52.33[/C][C]52.3753[/C][C]52.3275[/C][C]0.0478125[/C][C]-0.0453125[/C][/ROW]
[ROW][C]42[/C][C]52.4[/C][C]52.4501[/C][C]52.4425[/C][C]0.0075625[/C][C]-0.0500625[/C][/ROW]
[ROW][C]43[/C][C]52.4[/C][C]52.5335[/C][C]52.5592[/C][C]-0.0256875[/C][C]-0.133479[/C][/ROW]
[ROW][C]44[/C][C]52.41[/C][C]52.6087[/C][C]52.6754[/C][C]-0.0666875[/C][C]-0.198729[/C][/ROW]
[ROW][C]45[/C][C]52.71[/C][C]52.7923[/C][C]52.7892[/C][C]0.00314583[/C][C]-0.0823125[/C][/ROW]
[ROW][C]46[/C][C]53.17[/C][C]53.1461[/C][C]52.9108[/C][C]0.235229[/C][C]0.0239375[/C][/ROW]
[ROW][C]47[/C][C]53.33[/C][C]53.3576[/C][C]53.0408[/C][C]0.316729[/C][C]-0.0275625[/C][/ROW]
[ROW][C]48[/C][C]53.32[/C][C]53.4496[/C][C]53.1679[/C][C]0.281646[/C][C]-0.129562[/C][/ROW]
[ROW][C]49[/C][C]53.32[/C][C]53.0889[/C][C]53.2938[/C][C]-0.204854[/C][C]0.231104[/C][/ROW]
[ROW][C]50[/C][C]53.3[/C][C]53.1572[/C][C]53.4212[/C][C]-0.264021[/C][C]0.142771[/C][/ROW]
[ROW][C]51[/C][C]53.31[/C][C]53.3148[/C][C]53.5404[/C][C]-0.225604[/C][C]-0.0048125[/C][/ROW]
[ROW][C]52[/C][C]53.72[/C][C]53.5381[/C][C]53.6433[/C][C]-0.105271[/C][C]0.181937[/C][/ROW]
[ROW][C]53[/C][C]53.87[/C][C]53.7874[/C][C]53.7396[/C][C]0.0478125[/C][C]0.0826042[/C][/ROW]
[ROW][C]54[/C][C]53.91[/C][C]53.8459[/C][C]53.8383[/C][C]0.0075625[/C][C]0.0641042[/C][/ROW]
[ROW][C]55[/C][C]53.91[/C][C]53.8251[/C][C]53.8508[/C][C]-0.0256875[/C][C]0.0848542[/C][/ROW]
[ROW][C]56[/C][C]53.96[/C][C]53.7104[/C][C]53.7771[/C][C]-0.0666875[/C][C]0.249604[/C][/ROW]
[ROW][C]57[/C][C]54.02[/C][C]53.7061[/C][C]53.7029[/C][C]0.00314583[/C][C]0.313938[/C][/ROW]
[ROW][C]58[/C][C]54.33[/C][C]53.8465[/C][C]53.6112[/C][C]0.235229[/C][C]0.483521[/C][/ROW]
[ROW][C]59[/C][C]54.48[/C][C]53.8317[/C][C]53.515[/C][C]0.316729[/C][C]0.648271[/C][/ROW]
[ROW][C]60[/C][C]54.54[/C][C]53.7054[/C][C]53.4238[/C][C]0.281646[/C][C]0.834604[/C][/ROW]
[ROW][C]61[/C][C]52.4[/C][C]53.1272[/C][C]53.3321[/C][C]-0.204854[/C][C]-0.727229[/C][/ROW]
[ROW][C]62[/C][C]52.45[/C][C]52.9793[/C][C]53.2433[/C][C]-0.264021[/C][C]-0.529312[/C][/ROW]
[ROW][C]63[/C][C]52.38[/C][C]52.9436[/C][C]53.1692[/C][C]-0.225604[/C][C]-0.563563[/C][/ROW]
[ROW][C]64[/C][C]52.45[/C][C]52.9876[/C][C]53.0929[/C][C]-0.105271[/C][C]-0.537646[/C][/ROW]
[ROW][C]65[/C][C]52.83[/C][C]53.0411[/C][C]52.9933[/C][C]0.0478125[/C][C]-0.211146[/C][/ROW]
[ROW][C]66[/C][C]52.76[/C][C]52.8934[/C][C]52.8858[/C][C]0.0075625[/C][C]-0.133396[/C][/ROW]
[ROW][C]67[/C][C]52.86[/C][C]NA[/C][C]NA[/C][C]-0.0256875[/C][C]NA[/C][/ROW]
[ROW][C]68[/C][C]52.88[/C][C]NA[/C][C]NA[/C][C]-0.0666875[/C][C]NA[/C][/ROW]
[ROW][C]69[/C][C]53.32[/C][C]NA[/C][C]NA[/C][C]0.00314583[/C][C]NA[/C][/ROW]
[ROW][C]70[/C][C]53.2[/C][C]NA[/C][C]NA[/C][C]0.235229[/C][C]NA[/C][/ROW]
[ROW][C]71[/C][C]53.22[/C][C]NA[/C][C]NA[/C][C]0.316729[/C][C]NA[/C][/ROW]
[ROW][C]72[/C][C]53.22[/C][C]NA[/C][C]NA[/C][C]0.281646[/C][C]NA[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=259846&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=259846&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	48.74	NA	NA	-0.204854	NA
2	48.79	NA	NA	-0.264021	NA
3	48.82	NA	NA	-0.225604	NA
4	48.82	NA	NA	-0.105271	NA
5	49.2	NA	NA	0.0478125	NA
6	49.3	NA	NA	0.0075625	NA
7	49.3	49.2564	49.2821	-0.0256875	0.0436042
8	49.34	49.2954	49.3621	-0.0666875	0.0446042
9	49.47	49.4561	49.4529	0.00314583	0.0139375
10	49.65	49.7981	49.5629	0.235229	-0.148146
11	49.7	49.9921	49.6754	0.316729	-0.292146
12	49.75	50.0646	49.7829	0.281646	-0.314562
13	49.75	49.6822	49.8871	-0.204854	0.0677708
14	49.7	49.7256	49.9896	-0.264021	-0.0255625
15	50.09	49.8606	50.0862	-0.225604	0.229354
16	50.19	50.0672	50.1725	-0.105271	0.122771
17	50.53	50.312	50.2642	0.0478125	0.218021
18	50.55	50.3759	50.3683	0.0075625	0.174104
19	50.55	50.4476	50.4733	-0.0256875	0.102354
20	50.55	50.515	50.5817	-0.0666875	0.0350208
21	50.58	50.6848	50.6817	0.00314583	-0.104812
22	50.61	51.0077	50.7725	0.235229	-0.397729
23	50.94	51.1684	50.8517	0.316729	-0.228396
24	51.01	51.1987	50.9171	0.281646	-0.188729
25	51.01	50.7781	50.9829	-0.204854	0.231938
26	51.04	50.7847	51.0488	-0.264021	0.255271
27	51.15	50.8931	51.1188	-0.225604	0.256854
28	51.31	51.1064	51.2117	-0.105271	0.203604
29	51.31	51.3582	51.3104	0.0478125	-0.0482292
30	51.34	51.3988	51.3912	0.0075625	-0.0588125
31	51.34	51.4414	51.4671	-0.0256875	-0.101396
32	51.34	51.4746	51.5412	-0.0666875	-0.134562
33	51.47	51.6148	51.6117	0.00314583	-0.144813
34	51.95	51.9156	51.6804	0.235229	0.0343542
35	51.97	52.0742	51.7575	0.316729	-0.104229
36	51.92	52.1258	51.8442	0.281646	-0.205813
37	51.92	51.7276	51.9325	-0.204854	0.192354
38	51.91	51.7572	52.0212	-0.264021	0.152771
39	51.97	51.8919	52.1175	-0.225604	0.0781042
40	52.14	52.1147	52.22	-0.105271	0.0252708
41	52.33	52.3753	52.3275	0.0478125	-0.0453125
42	52.4	52.4501	52.4425	0.0075625	-0.0500625
43	52.4	52.5335	52.5592	-0.0256875	-0.133479
44	52.41	52.6087	52.6754	-0.0666875	-0.198729
45	52.71	52.7923	52.7892	0.00314583	-0.0823125
46	53.17	53.1461	52.9108	0.235229	0.0239375
47	53.33	53.3576	53.0408	0.316729	-0.0275625
48	53.32	53.4496	53.1679	0.281646	-0.129562
49	53.32	53.0889	53.2938	-0.204854	0.231104
50	53.3	53.1572	53.4212	-0.264021	0.142771
51	53.31	53.3148	53.5404	-0.225604	-0.0048125
52	53.72	53.5381	53.6433	-0.105271	0.181937
53	53.87	53.7874	53.7396	0.0478125	0.0826042
54	53.91	53.8459	53.8383	0.0075625	0.0641042
55	53.91	53.8251	53.8508	-0.0256875	0.0848542
56	53.96	53.7104	53.7771	-0.0666875	0.249604
57	54.02	53.7061	53.7029	0.00314583	0.313938
58	54.33	53.8465	53.6112	0.235229	0.483521
59	54.48	53.8317	53.515	0.316729	0.648271
60	54.54	53.7054	53.4238	0.281646	0.834604
61	52.4	53.1272	53.3321	-0.204854	-0.727229
62	52.45	52.9793	53.2433	-0.264021	-0.529312
63	52.38	52.9436	53.1692	-0.225604	-0.563563
64	52.45	52.9876	53.0929	-0.105271	-0.537646
65	52.83	53.0411	52.9933	0.0478125	-0.211146
66	52.76	52.8934	52.8858	0.0075625	-0.133396
67	52.86	NA	NA	-0.0256875	NA
68	52.88	NA	NA	-0.0666875	NA
69	53.32	NA	NA	0.00314583	NA
70	53.2	NA	NA	0.235229	NA
71	53.22	NA	NA	0.316729	NA
72	53.22	NA	NA	0.281646	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 <- '12'
par1 <- 'multiplicative'
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