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, 12 May 2014 13:38:53 -0400

Cite this page as follows

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2014/May/12/t1399916752mdt4s8xgberdoxe.htm/, Retrieved Wed, 15 May 2024 00:25:18 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=234839, Retrieved Wed, 15 May 2024 00:25:18 +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

115

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

-       [Classical Decomposition] [eigen reekst opdr...] [2014-05-12 17:38:53] [5251501093c7f29df32c3ec23cad27f5] [Current]

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

0,45
0,44
0,42
0,43
0,43
0,47
0,47
0,47
0,47
0,48
0,48
0,48
0,49
0,49
0,47
0,5
0,51
0,5
0,49
0,5
0,51
0,51
0,5
0,53
0,5
0,49
0,46
0,46
0,47
0,49
0,5
0,5
0,51
0,5
0,52
0,5
0,48
0,47
0,43
0,42
0,45
0,5
0,52
0,52
0,51
0,52
0,52
0,51
0,51
0,51
0,48
0,49
0,47
0,51
0,5
0,51
0,51
0,52
0,51
0,52
0,48
0,49
0,47
0,44
0,44
0,47
0,51
0,51
0,52
0,52
0,52
0,52

Summary of computational transaction
Raw Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	3 seconds
R Server	'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 & 3 seconds \tabularnewline
R Server & 'Gwilym Jenkins' @ jenkins.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=234839&T=0

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

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

As an alternative you can also use a QR Code:

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

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

Classical Decomposition by Moving Averages
t	Observations	Fit	Trend	Seasonal	Random
1	0.45	NA	NA	0.00180556	NA
2	0.44	NA	NA	-0.000861111	NA
3	0.42	NA	NA	-0.0296111	NA
4	0.43	NA	NA	-0.0303611	NA
5	0.43	NA	NA	-0.0250278	NA
6	0.47	NA	NA	0.000305556	NA
7	0.47	0.467556	0.459167	0.00838889	0.00244444
8	0.47	0.474639	0.462917	0.0117222	-0.00463889
9	0.47	0.479972	0.467083	0.0128889	-0.00997222
10	0.48	0.488472	0.472083	0.0163889	-0.00847222
11	0.48	0.494556	0.478333	0.0162222	-0.0145556
12	0.48	0.501056	0.482917	0.0181389	-0.0210556
13	0.49	0.486806	0.485	0.00180556	0.00319444
14	0.49	0.486222	0.487083	-0.000861111	0.00377778
15	0.47	0.460389	0.49	-0.0296111	0.00961111
16	0.5	0.462556	0.492917	-0.0303611	0.0374444
17	0.51	0.469972	0.495	-0.0250278	0.0400278
18	0.5	0.498222	0.497917	0.000305556	0.00177778
19	0.49	0.508806	0.500417	0.00838889	-0.0188056
20	0.5	0.512556	0.500833	0.0117222	-0.0125556
21	0.51	0.513306	0.500417	0.0128889	-0.00330556
22	0.51	0.514722	0.498333	0.0163889	-0.00472222
23	0.5	0.511222	0.495	0.0162222	-0.0112222
24	0.53	0.511056	0.492917	0.0181389	0.0189444
25	0.5	0.494722	0.492917	0.00180556	0.00527778
26	0.49	0.492472	0.493333	-0.000861111	-0.00247222
27	0.46	0.463722	0.493333	-0.0296111	-0.00372222
28	0.46	0.462556	0.492917	-0.0303611	-0.00255556
29	0.47	0.468306	0.493333	-0.0250278	0.00169444
30	0.49	0.493222	0.492917	0.000305556	-0.00322222
31	0.5	0.499222	0.490833	0.00838889	0.000777778
32	0.5	0.500889	0.489167	0.0117222	-0.000888889
33	0.51	0.499972	0.487083	0.0128889	0.0100278
34	0.5	0.500556	0.484167	0.0163889	-0.000555556
35	0.52	0.497889	0.481667	0.0162222	0.0221111
36	0.5	0.499389	0.48125	0.0181389	0.000611111
37	0.48	0.484306	0.4825	0.00180556	-0.00430556
38	0.47	0.483306	0.484167	-0.000861111	-0.0133056
39	0.43	0.455389	0.485	-0.0296111	-0.0253889
40	0.42	0.455472	0.485833	-0.0303611	-0.0354722
41	0.45	0.461639	0.486667	-0.0250278	-0.0116389
42	0.5	0.487389	0.487083	0.000305556	0.0126111
43	0.52	0.497139	0.48875	0.00838889	0.0228611
44	0.52	0.503389	0.491667	0.0117222	0.0166111
45	0.51	0.508306	0.495417	0.0128889	0.00169444
46	0.52	0.516806	0.500417	0.0163889	0.00319444
47	0.52	0.520389	0.504167	0.0162222	-0.000388889
48	0.51	0.523556	0.505417	0.0181389	-0.0135556
49	0.51	0.506806	0.505	0.00180556	0.00319444
50	0.51	0.502889	0.50375	-0.000861111	0.00711111
51	0.48	0.473722	0.503333	-0.0296111	0.00627778
52	0.49	0.472972	0.503333	-0.0303611	0.0170278
53	0.47	0.477889	0.502917	-0.0250278	-0.00788889
54	0.51	0.503222	0.502917	0.000305556	0.00677778
55	0.5	0.510472	0.502083	0.00838889	-0.0104722
56	0.51	0.511722	0.5	0.0117222	-0.00172222
57	0.51	0.511639	0.49875	0.0128889	-0.00163889
58	0.52	0.512639	0.49625	0.0163889	0.00736111
59	0.51	0.509139	0.492917	0.0162222	0.000861111
60	0.52	0.508139	0.49	0.0181389	0.0118611
61	0.48	0.490556	0.48875	0.00180556	-0.0105556
62	0.49	0.488306	0.489167	-0.000861111	0.00169444
63	0.47	0.459972	0.489583	-0.0296111	0.0100278
64	0.44	0.459639	0.49	-0.0303611	-0.0196389
65	0.44	0.465389	0.490417	-0.0250278	-0.0253889
66	0.47	0.491139	0.490833	0.000305556	-0.0211389
67	0.51	NA	NA	0.00838889	NA
68	0.51	NA	NA	0.0117222	NA
69	0.52	NA	NA	0.0128889	NA
70	0.52	NA	NA	0.0163889	NA
71	0.52	NA	NA	0.0162222	NA
72	0.52	NA	NA	0.0181389	NA

\begin{tabular}{lllllllll}
\hline
Classical Decomposition by Moving Averages \tabularnewline
t & Observations & Fit & Trend & Seasonal & Random \tabularnewline
1 & 0.45 & NA & NA & 0.00180556 & NA \tabularnewline
2 & 0.44 & NA & NA & -0.000861111 & NA \tabularnewline
3 & 0.42 & NA & NA & -0.0296111 & NA \tabularnewline
4 & 0.43 & NA & NA & -0.0303611 & NA \tabularnewline
5 & 0.43 & NA & NA & -0.0250278 & NA \tabularnewline
6 & 0.47 & NA & NA & 0.000305556 & NA \tabularnewline
7 & 0.47 & 0.467556 & 0.459167 & 0.00838889 & 0.00244444 \tabularnewline
8 & 0.47 & 0.474639 & 0.462917 & 0.0117222 & -0.00463889 \tabularnewline
9 & 0.47 & 0.479972 & 0.467083 & 0.0128889 & -0.00997222 \tabularnewline
10 & 0.48 & 0.488472 & 0.472083 & 0.0163889 & -0.00847222 \tabularnewline
11 & 0.48 & 0.494556 & 0.478333 & 0.0162222 & -0.0145556 \tabularnewline
12 & 0.48 & 0.501056 & 0.482917 & 0.0181389 & -0.0210556 \tabularnewline
13 & 0.49 & 0.486806 & 0.485 & 0.00180556 & 0.00319444 \tabularnewline
14 & 0.49 & 0.486222 & 0.487083 & -0.000861111 & 0.00377778 \tabularnewline
15 & 0.47 & 0.460389 & 0.49 & -0.0296111 & 0.00961111 \tabularnewline
16 & 0.5 & 0.462556 & 0.492917 & -0.0303611 & 0.0374444 \tabularnewline
17 & 0.51 & 0.469972 & 0.495 & -0.0250278 & 0.0400278 \tabularnewline
18 & 0.5 & 0.498222 & 0.497917 & 0.000305556 & 0.00177778 \tabularnewline
19 & 0.49 & 0.508806 & 0.500417 & 0.00838889 & -0.0188056 \tabularnewline
20 & 0.5 & 0.512556 & 0.500833 & 0.0117222 & -0.0125556 \tabularnewline
21 & 0.51 & 0.513306 & 0.500417 & 0.0128889 & -0.00330556 \tabularnewline
22 & 0.51 & 0.514722 & 0.498333 & 0.0163889 & -0.00472222 \tabularnewline
23 & 0.5 & 0.511222 & 0.495 & 0.0162222 & -0.0112222 \tabularnewline
24 & 0.53 & 0.511056 & 0.492917 & 0.0181389 & 0.0189444 \tabularnewline
25 & 0.5 & 0.494722 & 0.492917 & 0.00180556 & 0.00527778 \tabularnewline
26 & 0.49 & 0.492472 & 0.493333 & -0.000861111 & -0.00247222 \tabularnewline
27 & 0.46 & 0.463722 & 0.493333 & -0.0296111 & -0.00372222 \tabularnewline
28 & 0.46 & 0.462556 & 0.492917 & -0.0303611 & -0.00255556 \tabularnewline
29 & 0.47 & 0.468306 & 0.493333 & -0.0250278 & 0.00169444 \tabularnewline
30 & 0.49 & 0.493222 & 0.492917 & 0.000305556 & -0.00322222 \tabularnewline
31 & 0.5 & 0.499222 & 0.490833 & 0.00838889 & 0.000777778 \tabularnewline
32 & 0.5 & 0.500889 & 0.489167 & 0.0117222 & -0.000888889 \tabularnewline
33 & 0.51 & 0.499972 & 0.487083 & 0.0128889 & 0.0100278 \tabularnewline
34 & 0.5 & 0.500556 & 0.484167 & 0.0163889 & -0.000555556 \tabularnewline
35 & 0.52 & 0.497889 & 0.481667 & 0.0162222 & 0.0221111 \tabularnewline
36 & 0.5 & 0.499389 & 0.48125 & 0.0181389 & 0.000611111 \tabularnewline
37 & 0.48 & 0.484306 & 0.4825 & 0.00180556 & -0.00430556 \tabularnewline
38 & 0.47 & 0.483306 & 0.484167 & -0.000861111 & -0.0133056 \tabularnewline
39 & 0.43 & 0.455389 & 0.485 & -0.0296111 & -0.0253889 \tabularnewline
40 & 0.42 & 0.455472 & 0.485833 & -0.0303611 & -0.0354722 \tabularnewline
41 & 0.45 & 0.461639 & 0.486667 & -0.0250278 & -0.0116389 \tabularnewline
42 & 0.5 & 0.487389 & 0.487083 & 0.000305556 & 0.0126111 \tabularnewline
43 & 0.52 & 0.497139 & 0.48875 & 0.00838889 & 0.0228611 \tabularnewline
44 & 0.52 & 0.503389 & 0.491667 & 0.0117222 & 0.0166111 \tabularnewline
45 & 0.51 & 0.508306 & 0.495417 & 0.0128889 & 0.00169444 \tabularnewline
46 & 0.52 & 0.516806 & 0.500417 & 0.0163889 & 0.00319444 \tabularnewline
47 & 0.52 & 0.520389 & 0.504167 & 0.0162222 & -0.000388889 \tabularnewline
48 & 0.51 & 0.523556 & 0.505417 & 0.0181389 & -0.0135556 \tabularnewline
49 & 0.51 & 0.506806 & 0.505 & 0.00180556 & 0.00319444 \tabularnewline
50 & 0.51 & 0.502889 & 0.50375 & -0.000861111 & 0.00711111 \tabularnewline
51 & 0.48 & 0.473722 & 0.503333 & -0.0296111 & 0.00627778 \tabularnewline
52 & 0.49 & 0.472972 & 0.503333 & -0.0303611 & 0.0170278 \tabularnewline
53 & 0.47 & 0.477889 & 0.502917 & -0.0250278 & -0.00788889 \tabularnewline
54 & 0.51 & 0.503222 & 0.502917 & 0.000305556 & 0.00677778 \tabularnewline
55 & 0.5 & 0.510472 & 0.502083 & 0.00838889 & -0.0104722 \tabularnewline
56 & 0.51 & 0.511722 & 0.5 & 0.0117222 & -0.00172222 \tabularnewline
57 & 0.51 & 0.511639 & 0.49875 & 0.0128889 & -0.00163889 \tabularnewline
58 & 0.52 & 0.512639 & 0.49625 & 0.0163889 & 0.00736111 \tabularnewline
59 & 0.51 & 0.509139 & 0.492917 & 0.0162222 & 0.000861111 \tabularnewline
60 & 0.52 & 0.508139 & 0.49 & 0.0181389 & 0.0118611 \tabularnewline
61 & 0.48 & 0.490556 & 0.48875 & 0.00180556 & -0.0105556 \tabularnewline
62 & 0.49 & 0.488306 & 0.489167 & -0.000861111 & 0.00169444 \tabularnewline
63 & 0.47 & 0.459972 & 0.489583 & -0.0296111 & 0.0100278 \tabularnewline
64 & 0.44 & 0.459639 & 0.49 & -0.0303611 & -0.0196389 \tabularnewline
65 & 0.44 & 0.465389 & 0.490417 & -0.0250278 & -0.0253889 \tabularnewline
66 & 0.47 & 0.491139 & 0.490833 & 0.000305556 & -0.0211389 \tabularnewline
67 & 0.51 & NA & NA & 0.00838889 & NA \tabularnewline
68 & 0.51 & NA & NA & 0.0117222 & NA \tabularnewline
69 & 0.52 & NA & NA & 0.0128889 & NA \tabularnewline
70 & 0.52 & NA & NA & 0.0163889 & NA \tabularnewline
71 & 0.52 & NA & NA & 0.0162222 & NA \tabularnewline
72 & 0.52 & NA & NA & 0.0181389 & NA \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=234839&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]0.45[/C][C]NA[/C][C]NA[/C][C]0.00180556[/C][C]NA[/C][/ROW]
[ROW][C]2[/C][C]0.44[/C][C]NA[/C][C]NA[/C][C]-0.000861111[/C][C]NA[/C][/ROW]
[ROW][C]3[/C][C]0.42[/C][C]NA[/C][C]NA[/C][C]-0.0296111[/C][C]NA[/C][/ROW]
[ROW][C]4[/C][C]0.43[/C][C]NA[/C][C]NA[/C][C]-0.0303611[/C][C]NA[/C][/ROW]
[ROW][C]5[/C][C]0.43[/C][C]NA[/C][C]NA[/C][C]-0.0250278[/C][C]NA[/C][/ROW]
[ROW][C]6[/C][C]0.47[/C][C]NA[/C][C]NA[/C][C]0.000305556[/C][C]NA[/C][/ROW]
[ROW][C]7[/C][C]0.47[/C][C]0.467556[/C][C]0.459167[/C][C]0.00838889[/C][C]0.00244444[/C][/ROW]
[ROW][C]8[/C][C]0.47[/C][C]0.474639[/C][C]0.462917[/C][C]0.0117222[/C][C]-0.00463889[/C][/ROW]
[ROW][C]9[/C][C]0.47[/C][C]0.479972[/C][C]0.467083[/C][C]0.0128889[/C][C]-0.00997222[/C][/ROW]
[ROW][C]10[/C][C]0.48[/C][C]0.488472[/C][C]0.472083[/C][C]0.0163889[/C][C]-0.00847222[/C][/ROW]
[ROW][C]11[/C][C]0.48[/C][C]0.494556[/C][C]0.478333[/C][C]0.0162222[/C][C]-0.0145556[/C][/ROW]
[ROW][C]12[/C][C]0.48[/C][C]0.501056[/C][C]0.482917[/C][C]0.0181389[/C][C]-0.0210556[/C][/ROW]
[ROW][C]13[/C][C]0.49[/C][C]0.486806[/C][C]0.485[/C][C]0.00180556[/C][C]0.00319444[/C][/ROW]
[ROW][C]14[/C][C]0.49[/C][C]0.486222[/C][C]0.487083[/C][C]-0.000861111[/C][C]0.00377778[/C][/ROW]
[ROW][C]15[/C][C]0.47[/C][C]0.460389[/C][C]0.49[/C][C]-0.0296111[/C][C]0.00961111[/C][/ROW]
[ROW][C]16[/C][C]0.5[/C][C]0.462556[/C][C]0.492917[/C][C]-0.0303611[/C][C]0.0374444[/C][/ROW]
[ROW][C]17[/C][C]0.51[/C][C]0.469972[/C][C]0.495[/C][C]-0.0250278[/C][C]0.0400278[/C][/ROW]
[ROW][C]18[/C][C]0.5[/C][C]0.498222[/C][C]0.497917[/C][C]0.000305556[/C][C]0.00177778[/C][/ROW]
[ROW][C]19[/C][C]0.49[/C][C]0.508806[/C][C]0.500417[/C][C]0.00838889[/C][C]-0.0188056[/C][/ROW]
[ROW][C]20[/C][C]0.5[/C][C]0.512556[/C][C]0.500833[/C][C]0.0117222[/C][C]-0.0125556[/C][/ROW]
[ROW][C]21[/C][C]0.51[/C][C]0.513306[/C][C]0.500417[/C][C]0.0128889[/C][C]-0.00330556[/C][/ROW]
[ROW][C]22[/C][C]0.51[/C][C]0.514722[/C][C]0.498333[/C][C]0.0163889[/C][C]-0.00472222[/C][/ROW]
[ROW][C]23[/C][C]0.5[/C][C]0.511222[/C][C]0.495[/C][C]0.0162222[/C][C]-0.0112222[/C][/ROW]
[ROW][C]24[/C][C]0.53[/C][C]0.511056[/C][C]0.492917[/C][C]0.0181389[/C][C]0.0189444[/C][/ROW]
[ROW][C]25[/C][C]0.5[/C][C]0.494722[/C][C]0.492917[/C][C]0.00180556[/C][C]0.00527778[/C][/ROW]
[ROW][C]26[/C][C]0.49[/C][C]0.492472[/C][C]0.493333[/C][C]-0.000861111[/C][C]-0.00247222[/C][/ROW]
[ROW][C]27[/C][C]0.46[/C][C]0.463722[/C][C]0.493333[/C][C]-0.0296111[/C][C]-0.00372222[/C][/ROW]
[ROW][C]28[/C][C]0.46[/C][C]0.462556[/C][C]0.492917[/C][C]-0.0303611[/C][C]-0.00255556[/C][/ROW]
[ROW][C]29[/C][C]0.47[/C][C]0.468306[/C][C]0.493333[/C][C]-0.0250278[/C][C]0.00169444[/C][/ROW]
[ROW][C]30[/C][C]0.49[/C][C]0.493222[/C][C]0.492917[/C][C]0.000305556[/C][C]-0.00322222[/C][/ROW]
[ROW][C]31[/C][C]0.5[/C][C]0.499222[/C][C]0.490833[/C][C]0.00838889[/C][C]0.000777778[/C][/ROW]
[ROW][C]32[/C][C]0.5[/C][C]0.500889[/C][C]0.489167[/C][C]0.0117222[/C][C]-0.000888889[/C][/ROW]
[ROW][C]33[/C][C]0.51[/C][C]0.499972[/C][C]0.487083[/C][C]0.0128889[/C][C]0.0100278[/C][/ROW]
[ROW][C]34[/C][C]0.5[/C][C]0.500556[/C][C]0.484167[/C][C]0.0163889[/C][C]-0.000555556[/C][/ROW]
[ROW][C]35[/C][C]0.52[/C][C]0.497889[/C][C]0.481667[/C][C]0.0162222[/C][C]0.0221111[/C][/ROW]
[ROW][C]36[/C][C]0.5[/C][C]0.499389[/C][C]0.48125[/C][C]0.0181389[/C][C]0.000611111[/C][/ROW]
[ROW][C]37[/C][C]0.48[/C][C]0.484306[/C][C]0.4825[/C][C]0.00180556[/C][C]-0.00430556[/C][/ROW]
[ROW][C]38[/C][C]0.47[/C][C]0.483306[/C][C]0.484167[/C][C]-0.000861111[/C][C]-0.0133056[/C][/ROW]
[ROW][C]39[/C][C]0.43[/C][C]0.455389[/C][C]0.485[/C][C]-0.0296111[/C][C]-0.0253889[/C][/ROW]
[ROW][C]40[/C][C]0.42[/C][C]0.455472[/C][C]0.485833[/C][C]-0.0303611[/C][C]-0.0354722[/C][/ROW]
[ROW][C]41[/C][C]0.45[/C][C]0.461639[/C][C]0.486667[/C][C]-0.0250278[/C][C]-0.0116389[/C][/ROW]
[ROW][C]42[/C][C]0.5[/C][C]0.487389[/C][C]0.487083[/C][C]0.000305556[/C][C]0.0126111[/C][/ROW]
[ROW][C]43[/C][C]0.52[/C][C]0.497139[/C][C]0.48875[/C][C]0.00838889[/C][C]0.0228611[/C][/ROW]
[ROW][C]44[/C][C]0.52[/C][C]0.503389[/C][C]0.491667[/C][C]0.0117222[/C][C]0.0166111[/C][/ROW]
[ROW][C]45[/C][C]0.51[/C][C]0.508306[/C][C]0.495417[/C][C]0.0128889[/C][C]0.00169444[/C][/ROW]
[ROW][C]46[/C][C]0.52[/C][C]0.516806[/C][C]0.500417[/C][C]0.0163889[/C][C]0.00319444[/C][/ROW]
[ROW][C]47[/C][C]0.52[/C][C]0.520389[/C][C]0.504167[/C][C]0.0162222[/C][C]-0.000388889[/C][/ROW]
[ROW][C]48[/C][C]0.51[/C][C]0.523556[/C][C]0.505417[/C][C]0.0181389[/C][C]-0.0135556[/C][/ROW]
[ROW][C]49[/C][C]0.51[/C][C]0.506806[/C][C]0.505[/C][C]0.00180556[/C][C]0.00319444[/C][/ROW]
[ROW][C]50[/C][C]0.51[/C][C]0.502889[/C][C]0.50375[/C][C]-0.000861111[/C][C]0.00711111[/C][/ROW]
[ROW][C]51[/C][C]0.48[/C][C]0.473722[/C][C]0.503333[/C][C]-0.0296111[/C][C]0.00627778[/C][/ROW]
[ROW][C]52[/C][C]0.49[/C][C]0.472972[/C][C]0.503333[/C][C]-0.0303611[/C][C]0.0170278[/C][/ROW]
[ROW][C]53[/C][C]0.47[/C][C]0.477889[/C][C]0.502917[/C][C]-0.0250278[/C][C]-0.00788889[/C][/ROW]
[ROW][C]54[/C][C]0.51[/C][C]0.503222[/C][C]0.502917[/C][C]0.000305556[/C][C]0.00677778[/C][/ROW]
[ROW][C]55[/C][C]0.5[/C][C]0.510472[/C][C]0.502083[/C][C]0.00838889[/C][C]-0.0104722[/C][/ROW]
[ROW][C]56[/C][C]0.51[/C][C]0.511722[/C][C]0.5[/C][C]0.0117222[/C][C]-0.00172222[/C][/ROW]
[ROW][C]57[/C][C]0.51[/C][C]0.511639[/C][C]0.49875[/C][C]0.0128889[/C][C]-0.00163889[/C][/ROW]
[ROW][C]58[/C][C]0.52[/C][C]0.512639[/C][C]0.49625[/C][C]0.0163889[/C][C]0.00736111[/C][/ROW]
[ROW][C]59[/C][C]0.51[/C][C]0.509139[/C][C]0.492917[/C][C]0.0162222[/C][C]0.000861111[/C][/ROW]
[ROW][C]60[/C][C]0.52[/C][C]0.508139[/C][C]0.49[/C][C]0.0181389[/C][C]0.0118611[/C][/ROW]
[ROW][C]61[/C][C]0.48[/C][C]0.490556[/C][C]0.48875[/C][C]0.00180556[/C][C]-0.0105556[/C][/ROW]
[ROW][C]62[/C][C]0.49[/C][C]0.488306[/C][C]0.489167[/C][C]-0.000861111[/C][C]0.00169444[/C][/ROW]
[ROW][C]63[/C][C]0.47[/C][C]0.459972[/C][C]0.489583[/C][C]-0.0296111[/C][C]0.0100278[/C][/ROW]
[ROW][C]64[/C][C]0.44[/C][C]0.459639[/C][C]0.49[/C][C]-0.0303611[/C][C]-0.0196389[/C][/ROW]
[ROW][C]65[/C][C]0.44[/C][C]0.465389[/C][C]0.490417[/C][C]-0.0250278[/C][C]-0.0253889[/C][/ROW]
[ROW][C]66[/C][C]0.47[/C][C]0.491139[/C][C]0.490833[/C][C]0.000305556[/C][C]-0.0211389[/C][/ROW]
[ROW][C]67[/C][C]0.51[/C][C]NA[/C][C]NA[/C][C]0.00838889[/C][C]NA[/C][/ROW]
[ROW][C]68[/C][C]0.51[/C][C]NA[/C][C]NA[/C][C]0.0117222[/C][C]NA[/C][/ROW]
[ROW][C]69[/C][C]0.52[/C][C]NA[/C][C]NA[/C][C]0.0128889[/C][C]NA[/C][/ROW]
[ROW][C]70[/C][C]0.52[/C][C]NA[/C][C]NA[/C][C]0.0163889[/C][C]NA[/C][/ROW]
[ROW][C]71[/C][C]0.52[/C][C]NA[/C][C]NA[/C][C]0.0162222[/C][C]NA[/C][/ROW]
[ROW][C]72[/C][C]0.52[/C][C]NA[/C][C]NA[/C][C]0.0181389[/C][C]NA[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=234839&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=234839&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	0.45	NA	NA	0.00180556	NA
2	0.44	NA	NA	-0.000861111	NA
3	0.42	NA	NA	-0.0296111	NA
4	0.43	NA	NA	-0.0303611	NA
5	0.43	NA	NA	-0.0250278	NA
6	0.47	NA	NA	0.000305556	NA
7	0.47	0.467556	0.459167	0.00838889	0.00244444
8	0.47	0.474639	0.462917	0.0117222	-0.00463889
9	0.47	0.479972	0.467083	0.0128889	-0.00997222
10	0.48	0.488472	0.472083	0.0163889	-0.00847222
11	0.48	0.494556	0.478333	0.0162222	-0.0145556
12	0.48	0.501056	0.482917	0.0181389	-0.0210556
13	0.49	0.486806	0.485	0.00180556	0.00319444
14	0.49	0.486222	0.487083	-0.000861111	0.00377778
15	0.47	0.460389	0.49	-0.0296111	0.00961111
16	0.5	0.462556	0.492917	-0.0303611	0.0374444
17	0.51	0.469972	0.495	-0.0250278	0.0400278
18	0.5	0.498222	0.497917	0.000305556	0.00177778
19	0.49	0.508806	0.500417	0.00838889	-0.0188056
20	0.5	0.512556	0.500833	0.0117222	-0.0125556
21	0.51	0.513306	0.500417	0.0128889	-0.00330556
22	0.51	0.514722	0.498333	0.0163889	-0.00472222
23	0.5	0.511222	0.495	0.0162222	-0.0112222
24	0.53	0.511056	0.492917	0.0181389	0.0189444
25	0.5	0.494722	0.492917	0.00180556	0.00527778
26	0.49	0.492472	0.493333	-0.000861111	-0.00247222
27	0.46	0.463722	0.493333	-0.0296111	-0.00372222
28	0.46	0.462556	0.492917	-0.0303611	-0.00255556
29	0.47	0.468306	0.493333	-0.0250278	0.00169444
30	0.49	0.493222	0.492917	0.000305556	-0.00322222
31	0.5	0.499222	0.490833	0.00838889	0.000777778
32	0.5	0.500889	0.489167	0.0117222	-0.000888889
33	0.51	0.499972	0.487083	0.0128889	0.0100278
34	0.5	0.500556	0.484167	0.0163889	-0.000555556
35	0.52	0.497889	0.481667	0.0162222	0.0221111
36	0.5	0.499389	0.48125	0.0181389	0.000611111
37	0.48	0.484306	0.4825	0.00180556	-0.00430556
38	0.47	0.483306	0.484167	-0.000861111	-0.0133056
39	0.43	0.455389	0.485	-0.0296111	-0.0253889
40	0.42	0.455472	0.485833	-0.0303611	-0.0354722
41	0.45	0.461639	0.486667	-0.0250278	-0.0116389
42	0.5	0.487389	0.487083	0.000305556	0.0126111
43	0.52	0.497139	0.48875	0.00838889	0.0228611
44	0.52	0.503389	0.491667	0.0117222	0.0166111
45	0.51	0.508306	0.495417	0.0128889	0.00169444
46	0.52	0.516806	0.500417	0.0163889	0.00319444
47	0.52	0.520389	0.504167	0.0162222	-0.000388889
48	0.51	0.523556	0.505417	0.0181389	-0.0135556
49	0.51	0.506806	0.505	0.00180556	0.00319444
50	0.51	0.502889	0.50375	-0.000861111	0.00711111
51	0.48	0.473722	0.503333	-0.0296111	0.00627778
52	0.49	0.472972	0.503333	-0.0303611	0.0170278
53	0.47	0.477889	0.502917	-0.0250278	-0.00788889
54	0.51	0.503222	0.502917	0.000305556	0.00677778
55	0.5	0.510472	0.502083	0.00838889	-0.0104722
56	0.51	0.511722	0.5	0.0117222	-0.00172222
57	0.51	0.511639	0.49875	0.0128889	-0.00163889
58	0.52	0.512639	0.49625	0.0163889	0.00736111
59	0.51	0.509139	0.492917	0.0162222	0.000861111
60	0.52	0.508139	0.49	0.0181389	0.0118611
61	0.48	0.490556	0.48875	0.00180556	-0.0105556
62	0.49	0.488306	0.489167	-0.000861111	0.00169444
63	0.47	0.459972	0.489583	-0.0296111	0.0100278
64	0.44	0.459639	0.49	-0.0303611	-0.0196389
65	0.44	0.465389	0.490417	-0.0250278	-0.0253889
66	0.47	0.491139	0.490833	0.000305556	-0.0211389
67	0.51	NA	NA	0.00838889	NA
68	0.51	NA	NA	0.0117222	NA
69	0.52	NA	NA	0.0128889	NA
70	0.52	NA	NA	0.0163889	NA
71	0.52	NA	NA	0.0162222	NA
72	0.52	NA	NA	0.0181389	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