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

Fri, 28 Nov 2014 14:03:06 +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/28/t1417183422b0aee7ntwux4jwr.htm/, Retrieved Sun, 19 May 2024 15:54:06 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=260892, Retrieved Sun, 19 May 2024 15:54:06 +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] [] [2014-11-28 14:03:06] [702db51622d5a06f9c7dbf229ec3eabf] [Current]

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

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

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
R Framework error message	Warning: there are blank lines in the 'Data' field. Please, use NA for missing data - blank lines are simply deleted and are NOT treated as missing values.

\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
R Framework error message & Warning: there are blank lines in the 'Data' field.
Please, use NA for missing data - blank lines are simply
 deleted and are NOT treated as missing values. \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=260892&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]
[ROW][C]R Framework error message[/C][C]Warning: there are blank lines in the 'Data' field.
Please, use NA for missing data - blank lines are simply
 deleted and are NOT treated as missing values.[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=260892&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=260892&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
R Framework error message	Warning: there are blank lines in the 'Data' field. Please, use NA for missing data - blank lines are simply deleted and are NOT treated as missing values.

Classical Decomposition by Moving Averages
t	Observations	Fit	Trend	Seasonal	Random
1	0.52	NA	NA	0.0214306	NA
2	0.53	NA	NA	0.0192639	NA
3	0.53	NA	NA	0.0190139	NA
4	0.53	NA	NA	0.0171806	NA
5	0.53	NA	NA	0.0135139	NA
6	0.51	NA	NA	0.00976389	NA
7	0.5	0.509181	0.511667	-0.00248611	-0.00918056
8	0.49	0.478931	0.51125	-0.0323194	0.0110694
9	0.49	0.474514	0.510417	-0.0359028	0.0154861
10	0.5	0.482014	0.509583	-0.0275694	0.0179861
11	0.5	0.505181	0.508333	-0.00315278	-0.00518056
12	0.51	0.508764	0.5075	0.00126389	0.00123611
13	0.52	0.527681	0.50625	0.0214306	-0.00768056
14	0.52	0.522181	0.502917	0.0192639	-0.00218056
15	0.52	0.517764	0.49875	0.0190139	0.00223611
16	0.52	0.512597	0.495417	0.0171806	0.00740278
17	0.51	0.507264	0.49375	0.0135139	0.00273611
18	0.51	0.501847	0.492083	0.00976389	0.00815278
19	0.47	0.488347	0.490833	-0.00248611	-0.0183472
20	0.44	0.458097	0.490417	-0.0323194	-0.0180972
21	0.44	0.454097	0.49	-0.0359028	-0.0140972
22	0.47	0.462014	0.489583	-0.0275694	0.00798611
23	0.49	0.486014	0.489167	-0.00315278	0.00398611
24	0.48	0.490014	0.48875	0.00126389	-0.0100139
25	0.52	0.511431	0.49	0.0214306	0.00856944
26	0.51	0.512181	0.492917	0.0192639	-0.00218056
27	0.52	0.515264	0.49625	0.0190139	0.00473611
28	0.51	0.515931	0.49875	0.0171806	-0.00593056
29	0.51	0.513514	0.5	0.0135139	-0.00351389
30	0.5	0.511847	0.502083	0.00976389	-0.0118472
31	0.51	0.500431	0.502917	-0.00248611	0.00956944
32	0.47	0.470597	0.502917	-0.0323194	-0.000597222
33	0.49	0.467431	0.503333	-0.0359028	0.0225694
34	0.48	0.475764	0.503333	-0.0275694	0.00423611
35	0.51	0.500597	0.50375	-0.00315278	0.00940278
36	0.51	0.506264	0.505	0.00126389	0.00373611
37	0.51	0.526847	0.505417	0.0214306	-0.0168472
38	0.52	0.523431	0.504167	0.0192639	-0.00343056
39	0.52	0.519431	0.500417	0.0190139	0.000569444
40	0.51	0.512597	0.495417	0.0171806	-0.00259722
41	0.52	0.505181	0.491667	0.0135139	0.0148194
42	0.52	0.498514	0.48875	0.00976389	0.0214861
43	0.5	0.484597	0.487083	-0.00248611	0.0154028
44	0.45	0.454347	0.486667	-0.0323194	-0.00434722
45	0.42	0.449931	0.485833	-0.0359028	-0.0299306
46	0.43	0.457431	0.485	-0.0275694	-0.0274306
47	0.47	0.481014	0.484167	-0.00315278	-0.0110139
48	0.48	0.483764	0.4825	0.00126389	-0.00376389
49	0.5	0.502681	0.48125	0.0214306	-0.00268056
50	0.52	0.500931	0.481667	0.0192639	0.0190694
51	0.5	0.503181	0.484167	0.0190139	-0.00318056
52	0.51	0.504264	0.487083	0.0171806	0.00573611
53	0.5	0.502681	0.489167	0.0135139	-0.00268056
54	0.5	0.500597	0.490833	0.00976389	-0.000597222
55	0.49	0.490431	0.492917	-0.00248611	-0.000430556
56	0.47	0.461014	0.493333	-0.0323194	0.00898611
57	0.46	0.457014	0.492917	-0.0359028	0.00298611
58	0.46	0.465764	0.493333	-0.0275694	-0.00576389
59	0.49	0.490181	0.493333	-0.00315278	-0.000180556
60	0.5	0.494181	0.492917	0.00126389	0.00581944
61	0.53	0.514347	0.492917	0.0214306	0.0156528
62	0.5	0.514264	0.495	0.0192639	-0.0142639
63	0.51	0.517347	0.498333	0.0190139	-0.00734722
64	0.51	0.517597	0.500417	0.0171806	-0.00759722
65	0.5	0.514347	0.500833	0.0135139	-0.0143472
66	0.49	0.510181	0.500417	0.00976389	-0.0201806
67	0.5	NA	NA	-0.00248611	NA
68	0.51	NA	NA	-0.0323194	NA
69	0.5	NA	NA	-0.0359028	NA
70	0.47	NA	NA	-0.0275694	NA
71	0.49	NA	NA	-0.00315278	NA
72	0.49	NA	NA	0.00126389	NA

\begin{tabular}{lllllllll}
\hline
Classical Decomposition by Moving Averages \tabularnewline
t & Observations & Fit & Trend & Seasonal & Random \tabularnewline
1 & 0.52 & NA & NA & 0.0214306 & NA \tabularnewline
2 & 0.53 & NA & NA & 0.0192639 & NA \tabularnewline
3 & 0.53 & NA & NA & 0.0190139 & NA \tabularnewline
4 & 0.53 & NA & NA & 0.0171806 & NA \tabularnewline
5 & 0.53 & NA & NA & 0.0135139 & NA \tabularnewline
6 & 0.51 & NA & NA & 0.00976389 & NA \tabularnewline
7 & 0.5 & 0.509181 & 0.511667 & -0.00248611 & -0.00918056 \tabularnewline
8 & 0.49 & 0.478931 & 0.51125 & -0.0323194 & 0.0110694 \tabularnewline
9 & 0.49 & 0.474514 & 0.510417 & -0.0359028 & 0.0154861 \tabularnewline
10 & 0.5 & 0.482014 & 0.509583 & -0.0275694 & 0.0179861 \tabularnewline
11 & 0.5 & 0.505181 & 0.508333 & -0.00315278 & -0.00518056 \tabularnewline
12 & 0.51 & 0.508764 & 0.5075 & 0.00126389 & 0.00123611 \tabularnewline
13 & 0.52 & 0.527681 & 0.50625 & 0.0214306 & -0.00768056 \tabularnewline
14 & 0.52 & 0.522181 & 0.502917 & 0.0192639 & -0.00218056 \tabularnewline
15 & 0.52 & 0.517764 & 0.49875 & 0.0190139 & 0.00223611 \tabularnewline
16 & 0.52 & 0.512597 & 0.495417 & 0.0171806 & 0.00740278 \tabularnewline
17 & 0.51 & 0.507264 & 0.49375 & 0.0135139 & 0.00273611 \tabularnewline
18 & 0.51 & 0.501847 & 0.492083 & 0.00976389 & 0.00815278 \tabularnewline
19 & 0.47 & 0.488347 & 0.490833 & -0.00248611 & -0.0183472 \tabularnewline
20 & 0.44 & 0.458097 & 0.490417 & -0.0323194 & -0.0180972 \tabularnewline
21 & 0.44 & 0.454097 & 0.49 & -0.0359028 & -0.0140972 \tabularnewline
22 & 0.47 & 0.462014 & 0.489583 & -0.0275694 & 0.00798611 \tabularnewline
23 & 0.49 & 0.486014 & 0.489167 & -0.00315278 & 0.00398611 \tabularnewline
24 & 0.48 & 0.490014 & 0.48875 & 0.00126389 & -0.0100139 \tabularnewline
25 & 0.52 & 0.511431 & 0.49 & 0.0214306 & 0.00856944 \tabularnewline
26 & 0.51 & 0.512181 & 0.492917 & 0.0192639 & -0.00218056 \tabularnewline
27 & 0.52 & 0.515264 & 0.49625 & 0.0190139 & 0.00473611 \tabularnewline
28 & 0.51 & 0.515931 & 0.49875 & 0.0171806 & -0.00593056 \tabularnewline
29 & 0.51 & 0.513514 & 0.5 & 0.0135139 & -0.00351389 \tabularnewline
30 & 0.5 & 0.511847 & 0.502083 & 0.00976389 & -0.0118472 \tabularnewline
31 & 0.51 & 0.500431 & 0.502917 & -0.00248611 & 0.00956944 \tabularnewline
32 & 0.47 & 0.470597 & 0.502917 & -0.0323194 & -0.000597222 \tabularnewline
33 & 0.49 & 0.467431 & 0.503333 & -0.0359028 & 0.0225694 \tabularnewline
34 & 0.48 & 0.475764 & 0.503333 & -0.0275694 & 0.00423611 \tabularnewline
35 & 0.51 & 0.500597 & 0.50375 & -0.00315278 & 0.00940278 \tabularnewline
36 & 0.51 & 0.506264 & 0.505 & 0.00126389 & 0.00373611 \tabularnewline
37 & 0.51 & 0.526847 & 0.505417 & 0.0214306 & -0.0168472 \tabularnewline
38 & 0.52 & 0.523431 & 0.504167 & 0.0192639 & -0.00343056 \tabularnewline
39 & 0.52 & 0.519431 & 0.500417 & 0.0190139 & 0.000569444 \tabularnewline
40 & 0.51 & 0.512597 & 0.495417 & 0.0171806 & -0.00259722 \tabularnewline
41 & 0.52 & 0.505181 & 0.491667 & 0.0135139 & 0.0148194 \tabularnewline
42 & 0.52 & 0.498514 & 0.48875 & 0.00976389 & 0.0214861 \tabularnewline
43 & 0.5 & 0.484597 & 0.487083 & -0.00248611 & 0.0154028 \tabularnewline
44 & 0.45 & 0.454347 & 0.486667 & -0.0323194 & -0.00434722 \tabularnewline
45 & 0.42 & 0.449931 & 0.485833 & -0.0359028 & -0.0299306 \tabularnewline
46 & 0.43 & 0.457431 & 0.485 & -0.0275694 & -0.0274306 \tabularnewline
47 & 0.47 & 0.481014 & 0.484167 & -0.00315278 & -0.0110139 \tabularnewline
48 & 0.48 & 0.483764 & 0.4825 & 0.00126389 & -0.00376389 \tabularnewline
49 & 0.5 & 0.502681 & 0.48125 & 0.0214306 & -0.00268056 \tabularnewline
50 & 0.52 & 0.500931 & 0.481667 & 0.0192639 & 0.0190694 \tabularnewline
51 & 0.5 & 0.503181 & 0.484167 & 0.0190139 & -0.00318056 \tabularnewline
52 & 0.51 & 0.504264 & 0.487083 & 0.0171806 & 0.00573611 \tabularnewline
53 & 0.5 & 0.502681 & 0.489167 & 0.0135139 & -0.00268056 \tabularnewline
54 & 0.5 & 0.500597 & 0.490833 & 0.00976389 & -0.000597222 \tabularnewline
55 & 0.49 & 0.490431 & 0.492917 & -0.00248611 & -0.000430556 \tabularnewline
56 & 0.47 & 0.461014 & 0.493333 & -0.0323194 & 0.00898611 \tabularnewline
57 & 0.46 & 0.457014 & 0.492917 & -0.0359028 & 0.00298611 \tabularnewline
58 & 0.46 & 0.465764 & 0.493333 & -0.0275694 & -0.00576389 \tabularnewline
59 & 0.49 & 0.490181 & 0.493333 & -0.00315278 & -0.000180556 \tabularnewline
60 & 0.5 & 0.494181 & 0.492917 & 0.00126389 & 0.00581944 \tabularnewline
61 & 0.53 & 0.514347 & 0.492917 & 0.0214306 & 0.0156528 \tabularnewline
62 & 0.5 & 0.514264 & 0.495 & 0.0192639 & -0.0142639 \tabularnewline
63 & 0.51 & 0.517347 & 0.498333 & 0.0190139 & -0.00734722 \tabularnewline
64 & 0.51 & 0.517597 & 0.500417 & 0.0171806 & -0.00759722 \tabularnewline
65 & 0.5 & 0.514347 & 0.500833 & 0.0135139 & -0.0143472 \tabularnewline
66 & 0.49 & 0.510181 & 0.500417 & 0.00976389 & -0.0201806 \tabularnewline
67 & 0.5 & NA & NA & -0.00248611 & NA \tabularnewline
68 & 0.51 & NA & NA & -0.0323194 & NA \tabularnewline
69 & 0.5 & NA & NA & -0.0359028 & NA \tabularnewline
70 & 0.47 & NA & NA & -0.0275694 & NA \tabularnewline
71 & 0.49 & NA & NA & -0.00315278 & NA \tabularnewline
72 & 0.49 & NA & NA & 0.00126389 & NA \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=260892&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.52[/C][C]NA[/C][C]NA[/C][C]0.0214306[/C][C]NA[/C][/ROW]
[ROW][C]2[/C][C]0.53[/C][C]NA[/C][C]NA[/C][C]0.0192639[/C][C]NA[/C][/ROW]
[ROW][C]3[/C][C]0.53[/C][C]NA[/C][C]NA[/C][C]0.0190139[/C][C]NA[/C][/ROW]
[ROW][C]4[/C][C]0.53[/C][C]NA[/C][C]NA[/C][C]0.0171806[/C][C]NA[/C][/ROW]
[ROW][C]5[/C][C]0.53[/C][C]NA[/C][C]NA[/C][C]0.0135139[/C][C]NA[/C][/ROW]
[ROW][C]6[/C][C]0.51[/C][C]NA[/C][C]NA[/C][C]0.00976389[/C][C]NA[/C][/ROW]
[ROW][C]7[/C][C]0.5[/C][C]0.509181[/C][C]0.511667[/C][C]-0.00248611[/C][C]-0.00918056[/C][/ROW]
[ROW][C]8[/C][C]0.49[/C][C]0.478931[/C][C]0.51125[/C][C]-0.0323194[/C][C]0.0110694[/C][/ROW]
[ROW][C]9[/C][C]0.49[/C][C]0.474514[/C][C]0.510417[/C][C]-0.0359028[/C][C]0.0154861[/C][/ROW]
[ROW][C]10[/C][C]0.5[/C][C]0.482014[/C][C]0.509583[/C][C]-0.0275694[/C][C]0.0179861[/C][/ROW]
[ROW][C]11[/C][C]0.5[/C][C]0.505181[/C][C]0.508333[/C][C]-0.00315278[/C][C]-0.00518056[/C][/ROW]
[ROW][C]12[/C][C]0.51[/C][C]0.508764[/C][C]0.5075[/C][C]0.00126389[/C][C]0.00123611[/C][/ROW]
[ROW][C]13[/C][C]0.52[/C][C]0.527681[/C][C]0.50625[/C][C]0.0214306[/C][C]-0.00768056[/C][/ROW]
[ROW][C]14[/C][C]0.52[/C][C]0.522181[/C][C]0.502917[/C][C]0.0192639[/C][C]-0.00218056[/C][/ROW]
[ROW][C]15[/C][C]0.52[/C][C]0.517764[/C][C]0.49875[/C][C]0.0190139[/C][C]0.00223611[/C][/ROW]
[ROW][C]16[/C][C]0.52[/C][C]0.512597[/C][C]0.495417[/C][C]0.0171806[/C][C]0.00740278[/C][/ROW]
[ROW][C]17[/C][C]0.51[/C][C]0.507264[/C][C]0.49375[/C][C]0.0135139[/C][C]0.00273611[/C][/ROW]
[ROW][C]18[/C][C]0.51[/C][C]0.501847[/C][C]0.492083[/C][C]0.00976389[/C][C]0.00815278[/C][/ROW]
[ROW][C]19[/C][C]0.47[/C][C]0.488347[/C][C]0.490833[/C][C]-0.00248611[/C][C]-0.0183472[/C][/ROW]
[ROW][C]20[/C][C]0.44[/C][C]0.458097[/C][C]0.490417[/C][C]-0.0323194[/C][C]-0.0180972[/C][/ROW]
[ROW][C]21[/C][C]0.44[/C][C]0.454097[/C][C]0.49[/C][C]-0.0359028[/C][C]-0.0140972[/C][/ROW]
[ROW][C]22[/C][C]0.47[/C][C]0.462014[/C][C]0.489583[/C][C]-0.0275694[/C][C]0.00798611[/C][/ROW]
[ROW][C]23[/C][C]0.49[/C][C]0.486014[/C][C]0.489167[/C][C]-0.00315278[/C][C]0.00398611[/C][/ROW]
[ROW][C]24[/C][C]0.48[/C][C]0.490014[/C][C]0.48875[/C][C]0.00126389[/C][C]-0.0100139[/C][/ROW]
[ROW][C]25[/C][C]0.52[/C][C]0.511431[/C][C]0.49[/C][C]0.0214306[/C][C]0.00856944[/C][/ROW]
[ROW][C]26[/C][C]0.51[/C][C]0.512181[/C][C]0.492917[/C][C]0.0192639[/C][C]-0.00218056[/C][/ROW]
[ROW][C]27[/C][C]0.52[/C][C]0.515264[/C][C]0.49625[/C][C]0.0190139[/C][C]0.00473611[/C][/ROW]
[ROW][C]28[/C][C]0.51[/C][C]0.515931[/C][C]0.49875[/C][C]0.0171806[/C][C]-0.00593056[/C][/ROW]
[ROW][C]29[/C][C]0.51[/C][C]0.513514[/C][C]0.5[/C][C]0.0135139[/C][C]-0.00351389[/C][/ROW]
[ROW][C]30[/C][C]0.5[/C][C]0.511847[/C][C]0.502083[/C][C]0.00976389[/C][C]-0.0118472[/C][/ROW]
[ROW][C]31[/C][C]0.51[/C][C]0.500431[/C][C]0.502917[/C][C]-0.00248611[/C][C]0.00956944[/C][/ROW]
[ROW][C]32[/C][C]0.47[/C][C]0.470597[/C][C]0.502917[/C][C]-0.0323194[/C][C]-0.000597222[/C][/ROW]
[ROW][C]33[/C][C]0.49[/C][C]0.467431[/C][C]0.503333[/C][C]-0.0359028[/C][C]0.0225694[/C][/ROW]
[ROW][C]34[/C][C]0.48[/C][C]0.475764[/C][C]0.503333[/C][C]-0.0275694[/C][C]0.00423611[/C][/ROW]
[ROW][C]35[/C][C]0.51[/C][C]0.500597[/C][C]0.50375[/C][C]-0.00315278[/C][C]0.00940278[/C][/ROW]
[ROW][C]36[/C][C]0.51[/C][C]0.506264[/C][C]0.505[/C][C]0.00126389[/C][C]0.00373611[/C][/ROW]
[ROW][C]37[/C][C]0.51[/C][C]0.526847[/C][C]0.505417[/C][C]0.0214306[/C][C]-0.0168472[/C][/ROW]
[ROW][C]38[/C][C]0.52[/C][C]0.523431[/C][C]0.504167[/C][C]0.0192639[/C][C]-0.00343056[/C][/ROW]
[ROW][C]39[/C][C]0.52[/C][C]0.519431[/C][C]0.500417[/C][C]0.0190139[/C][C]0.000569444[/C][/ROW]
[ROW][C]40[/C][C]0.51[/C][C]0.512597[/C][C]0.495417[/C][C]0.0171806[/C][C]-0.00259722[/C][/ROW]
[ROW][C]41[/C][C]0.52[/C][C]0.505181[/C][C]0.491667[/C][C]0.0135139[/C][C]0.0148194[/C][/ROW]
[ROW][C]42[/C][C]0.52[/C][C]0.498514[/C][C]0.48875[/C][C]0.00976389[/C][C]0.0214861[/C][/ROW]
[ROW][C]43[/C][C]0.5[/C][C]0.484597[/C][C]0.487083[/C][C]-0.00248611[/C][C]0.0154028[/C][/ROW]
[ROW][C]44[/C][C]0.45[/C][C]0.454347[/C][C]0.486667[/C][C]-0.0323194[/C][C]-0.00434722[/C][/ROW]
[ROW][C]45[/C][C]0.42[/C][C]0.449931[/C][C]0.485833[/C][C]-0.0359028[/C][C]-0.0299306[/C][/ROW]
[ROW][C]46[/C][C]0.43[/C][C]0.457431[/C][C]0.485[/C][C]-0.0275694[/C][C]-0.0274306[/C][/ROW]
[ROW][C]47[/C][C]0.47[/C][C]0.481014[/C][C]0.484167[/C][C]-0.00315278[/C][C]-0.0110139[/C][/ROW]
[ROW][C]48[/C][C]0.48[/C][C]0.483764[/C][C]0.4825[/C][C]0.00126389[/C][C]-0.00376389[/C][/ROW]
[ROW][C]49[/C][C]0.5[/C][C]0.502681[/C][C]0.48125[/C][C]0.0214306[/C][C]-0.00268056[/C][/ROW]
[ROW][C]50[/C][C]0.52[/C][C]0.500931[/C][C]0.481667[/C][C]0.0192639[/C][C]0.0190694[/C][/ROW]
[ROW][C]51[/C][C]0.5[/C][C]0.503181[/C][C]0.484167[/C][C]0.0190139[/C][C]-0.00318056[/C][/ROW]
[ROW][C]52[/C][C]0.51[/C][C]0.504264[/C][C]0.487083[/C][C]0.0171806[/C][C]0.00573611[/C][/ROW]
[ROW][C]53[/C][C]0.5[/C][C]0.502681[/C][C]0.489167[/C][C]0.0135139[/C][C]-0.00268056[/C][/ROW]
[ROW][C]54[/C][C]0.5[/C][C]0.500597[/C][C]0.490833[/C][C]0.00976389[/C][C]-0.000597222[/C][/ROW]
[ROW][C]55[/C][C]0.49[/C][C]0.490431[/C][C]0.492917[/C][C]-0.00248611[/C][C]-0.000430556[/C][/ROW]
[ROW][C]56[/C][C]0.47[/C][C]0.461014[/C][C]0.493333[/C][C]-0.0323194[/C][C]0.00898611[/C][/ROW]
[ROW][C]57[/C][C]0.46[/C][C]0.457014[/C][C]0.492917[/C][C]-0.0359028[/C][C]0.00298611[/C][/ROW]
[ROW][C]58[/C][C]0.46[/C][C]0.465764[/C][C]0.493333[/C][C]-0.0275694[/C][C]-0.00576389[/C][/ROW]
[ROW][C]59[/C][C]0.49[/C][C]0.490181[/C][C]0.493333[/C][C]-0.00315278[/C][C]-0.000180556[/C][/ROW]
[ROW][C]60[/C][C]0.5[/C][C]0.494181[/C][C]0.492917[/C][C]0.00126389[/C][C]0.00581944[/C][/ROW]
[ROW][C]61[/C][C]0.53[/C][C]0.514347[/C][C]0.492917[/C][C]0.0214306[/C][C]0.0156528[/C][/ROW]
[ROW][C]62[/C][C]0.5[/C][C]0.514264[/C][C]0.495[/C][C]0.0192639[/C][C]-0.0142639[/C][/ROW]
[ROW][C]63[/C][C]0.51[/C][C]0.517347[/C][C]0.498333[/C][C]0.0190139[/C][C]-0.00734722[/C][/ROW]
[ROW][C]64[/C][C]0.51[/C][C]0.517597[/C][C]0.500417[/C][C]0.0171806[/C][C]-0.00759722[/C][/ROW]
[ROW][C]65[/C][C]0.5[/C][C]0.514347[/C][C]0.500833[/C][C]0.0135139[/C][C]-0.0143472[/C][/ROW]
[ROW][C]66[/C][C]0.49[/C][C]0.510181[/C][C]0.500417[/C][C]0.00976389[/C][C]-0.0201806[/C][/ROW]
[ROW][C]67[/C][C]0.5[/C][C]NA[/C][C]NA[/C][C]-0.00248611[/C][C]NA[/C][/ROW]
[ROW][C]68[/C][C]0.51[/C][C]NA[/C][C]NA[/C][C]-0.0323194[/C][C]NA[/C][/ROW]
[ROW][C]69[/C][C]0.5[/C][C]NA[/C][C]NA[/C][C]-0.0359028[/C][C]NA[/C][/ROW]
[ROW][C]70[/C][C]0.47[/C][C]NA[/C][C]NA[/C][C]-0.0275694[/C][C]NA[/C][/ROW]
[ROW][C]71[/C][C]0.49[/C][C]NA[/C][C]NA[/C][C]-0.00315278[/C][C]NA[/C][/ROW]
[ROW][C]72[/C][C]0.49[/C][C]NA[/C][C]NA[/C][C]0.00126389[/C][C]NA[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=260892&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=260892&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.52	NA	NA	0.0214306	NA
2	0.53	NA	NA	0.0192639	NA
3	0.53	NA	NA	0.0190139	NA
4	0.53	NA	NA	0.0171806	NA
5	0.53	NA	NA	0.0135139	NA
6	0.51	NA	NA	0.00976389	NA
7	0.5	0.509181	0.511667	-0.00248611	-0.00918056
8	0.49	0.478931	0.51125	-0.0323194	0.0110694
9	0.49	0.474514	0.510417	-0.0359028	0.0154861
10	0.5	0.482014	0.509583	-0.0275694	0.0179861
11	0.5	0.505181	0.508333	-0.00315278	-0.00518056
12	0.51	0.508764	0.5075	0.00126389	0.00123611
13	0.52	0.527681	0.50625	0.0214306	-0.00768056
14	0.52	0.522181	0.502917	0.0192639	-0.00218056
15	0.52	0.517764	0.49875	0.0190139	0.00223611
16	0.52	0.512597	0.495417	0.0171806	0.00740278
17	0.51	0.507264	0.49375	0.0135139	0.00273611
18	0.51	0.501847	0.492083	0.00976389	0.00815278
19	0.47	0.488347	0.490833	-0.00248611	-0.0183472
20	0.44	0.458097	0.490417	-0.0323194	-0.0180972
21	0.44	0.454097	0.49	-0.0359028	-0.0140972
22	0.47	0.462014	0.489583	-0.0275694	0.00798611
23	0.49	0.486014	0.489167	-0.00315278	0.00398611
24	0.48	0.490014	0.48875	0.00126389	-0.0100139
25	0.52	0.511431	0.49	0.0214306	0.00856944
26	0.51	0.512181	0.492917	0.0192639	-0.00218056
27	0.52	0.515264	0.49625	0.0190139	0.00473611
28	0.51	0.515931	0.49875	0.0171806	-0.00593056
29	0.51	0.513514	0.5	0.0135139	-0.00351389
30	0.5	0.511847	0.502083	0.00976389	-0.0118472
31	0.51	0.500431	0.502917	-0.00248611	0.00956944
32	0.47	0.470597	0.502917	-0.0323194	-0.000597222
33	0.49	0.467431	0.503333	-0.0359028	0.0225694
34	0.48	0.475764	0.503333	-0.0275694	0.00423611
35	0.51	0.500597	0.50375	-0.00315278	0.00940278
36	0.51	0.506264	0.505	0.00126389	0.00373611
37	0.51	0.526847	0.505417	0.0214306	-0.0168472
38	0.52	0.523431	0.504167	0.0192639	-0.00343056
39	0.52	0.519431	0.500417	0.0190139	0.000569444
40	0.51	0.512597	0.495417	0.0171806	-0.00259722
41	0.52	0.505181	0.491667	0.0135139	0.0148194
42	0.52	0.498514	0.48875	0.00976389	0.0214861
43	0.5	0.484597	0.487083	-0.00248611	0.0154028
44	0.45	0.454347	0.486667	-0.0323194	-0.00434722
45	0.42	0.449931	0.485833	-0.0359028	-0.0299306
46	0.43	0.457431	0.485	-0.0275694	-0.0274306
47	0.47	0.481014	0.484167	-0.00315278	-0.0110139
48	0.48	0.483764	0.4825	0.00126389	-0.00376389
49	0.5	0.502681	0.48125	0.0214306	-0.00268056
50	0.52	0.500931	0.481667	0.0192639	0.0190694
51	0.5	0.503181	0.484167	0.0190139	-0.00318056
52	0.51	0.504264	0.487083	0.0171806	0.00573611
53	0.5	0.502681	0.489167	0.0135139	-0.00268056
54	0.5	0.500597	0.490833	0.00976389	-0.000597222
55	0.49	0.490431	0.492917	-0.00248611	-0.000430556
56	0.47	0.461014	0.493333	-0.0323194	0.00898611
57	0.46	0.457014	0.492917	-0.0359028	0.00298611
58	0.46	0.465764	0.493333	-0.0275694	-0.00576389
59	0.49	0.490181	0.493333	-0.00315278	-0.000180556
60	0.5	0.494181	0.492917	0.00126389	0.00581944
61	0.53	0.514347	0.492917	0.0214306	0.0156528
62	0.5	0.514264	0.495	0.0192639	-0.0142639
63	0.51	0.517347	0.498333	0.0190139	-0.00734722
64	0.51	0.517597	0.500417	0.0171806	-0.00759722
65	0.5	0.514347	0.500833	0.0135139	-0.0143472
66	0.49	0.510181	0.500417	0.00976389	-0.0201806
67	0.5	NA	NA	-0.00248611	NA
68	0.51	NA	NA	-0.0323194	NA
69	0.5	NA	NA	-0.0359028	NA
70	0.47	NA	NA	-0.0275694	NA
71	0.49	NA	NA	-0.00315278	NA
72	0.49	NA	NA	0.00126389	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