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

Sun, 29 Nov 2015 11:43:49 +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/2015/Nov/29/t1448797458joso11kv9ejoaas.htm/, Retrieved Wed, 15 May 2024 04:40:01 +0000

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

113

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

-       [Classical Decomposition] [] [2015-11-29 11:43:49] [e897088c3d9e15a1e92009c0481cb133] [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	'Gertrude Mary Cox' @ cox.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 & 'Gertrude Mary Cox' @ cox.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=284411&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]'Gertrude Mary Cox' @ cox.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=284411&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=284411&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	'Gertrude Mary Cox' @ cox.wessa.net

Classical Decomposition by Moving Averages
t	Observations	Fit	Trend	Seasonal	Random
1	97.41	NA	NA	-0.0332192	NA
2	97.32	NA	NA	-0.387386	NA
3	97.33	NA	NA	-0.335005	NA
4	97.38	NA	NA	-0.301612	NA
5	97.47	NA	NA	-0.216136	NA
6	97.5	NA	NA	-0.216672	NA
7	97.5	97.3788	97.6175	-0.238695	0.121195
8	97.58	97.6282	97.6692	-0.0409573	-0.0482093
9	97.7	97.8502	97.7279	0.122257	-0.150174
10	97.9	98.2561	97.7946	0.461483	-0.356066
11	97.98	98.4559	97.8646	0.591364	-0.475947
12	98.03	98.5337	97.9392	0.594578	-0.503745
13	98.03	97.983	98.0162	-0.0332192	0.0469692
14	97.94	97.7039	98.0912	-0.387386	0.236136
15	98.12	97.8371	98.1721	-0.335005	0.282922
16	98.19	97.9709	98.2725	-0.301612	0.219112
17	98.34	98.1739	98.39	-0.216136	0.166136
18	98.42	98.2979	98.5146	-0.216672	0.122088
19	98.43	98.4021	98.6408	-0.238695	0.0278621
20	98.45	98.7174	98.7583	-0.0409573	-0.267376
21	98.77	98.9893	98.8671	0.122257	-0.21934
22	99.24	99.4365	98.975	0.461483	-0.196483
23	99.46	99.6709	99.0796	0.591364	-0.210947
24	99.54	99.7754	99.1808	0.594578	-0.235412
25	99.55	99.248	99.2812	-0.0332192	0.301969
26	99.24	98.9984	99.3858	-0.387386	0.241553
27	99.43	99.15	99.485	-0.335005	0.280005
28	99.47	99.2717	99.5733	-0.301612	0.198279
29	99.57	99.4447	99.6608	-0.216136	0.125303
30	99.62	99.5312	99.7479	-0.216672	0.088755
31	99.64	99.5946	99.8333	-0.238695	0.0453621
32	99.75	99.8778	99.9188	-0.0409573	-0.127793
33	99.85	100.119	99.9967	0.122257	-0.268924
34	100.28	100.523	100.061	0.461483	-0.242733
35	100.52	100.707	100.115	0.591364	-0.186781
36	100.57	100.758	100.163	0.594578	-0.187912
37	100.57	100.176	100.209	-0.0332192	0.394053
38	100.27	99.8793	100.267	-0.387386	0.390719
39	100.27	100.002	100.337	-0.335005	0.268338
40	100.18	100.103	100.404	-0.301612	0.0774454
41	100.16	100.247	100.463	-0.216136	-0.0867808
42	100.18	100.297	100.514	-0.216672	-0.117078
43	100.18	100.324	100.563	-0.238695	-0.144221
44	100.59	100.569	100.61	-0.0409573	0.0209573
45	100.69	100.783	100.66	0.122257	-0.0926736
46	101.06	101.189	100.728	0.461483	-0.1294
47	101.15	101.406	100.815	0.591364	-0.255947
48	101.16	101.505	100.91	0.594578	-0.344578
49	101.16	100.974	101.007	-0.0332192	0.186136
50	100.81	100.715	101.102	-0.387386	0.0953026
51	100.94	100.87	101.205	-0.335005	0.070005
52	101.13	101.019	101.321	-0.301612	0.110779
53	101.29	101.227	101.443	-0.216136	0.0632192
54	101.34	101.354	101.571	-0.216672	-0.0141617
55	101.35	101.463	101.701	-0.238695	-0.112555
56	101.7	101.783	101.824	-0.0409573	-0.0827927
57	102.05	102.056	101.934	0.122257	-0.00642361
58	102.48	102.501	102.039	0.461483	-0.0206498
59	102.66	102.734	102.142	0.591364	-0.0738641
60	102.72	102.842	102.247	0.594578	-0.121662
61	102.73	102.32	102.353	-0.0332192	0.410303
62	102.18	102.073	102.46	-0.387386	0.107386
63	102.22	102.226	102.561	-0.335005	-0.00582837
64	102.37	102.349	102.651	-0.301612	0.0207788
65	102.53	102.521	102.737	-0.216136	0.00905258
66	102.61	102.605	102.822	-0.216672	0.00458829
67	102.62	102.494	102.732	-0.238695	0.126195
68	103	102.431	102.472	-0.0409573	0.568874
69	103.17	102.337	102.215	0.122257	0.832743
70	103.52	102.423	101.961	0.461483	1.09727
71	103.69	102.305	101.714	0.591364	1.38489
72	103.73	102.063	101.468	0.594578	1.66709
73	99.57	101.194	101.227	-0.0332192	-1.62428
74	99.09	100.604	100.991	-0.387386	-1.51386
75	99.14	100.424	100.759	-0.335005	-1.28416
76	99.36	100.235	100.536	-0.301612	-0.874638
77	99.6	100.104	100.32	-0.216136	-0.503864
78	99.65	99.89	100.107	-0.216672	-0.239995
79	99.8	99.8296	100.068	-0.238695	-0.0296379
80	100.15	100.179	100.22	-0.0409573	-0.0294593
81	100.45	100.511	100.389	0.122257	-0.0610069
82	100.89	101.008	100.546	0.461483	-0.117733
83	101.13	101.277	100.686	0.591364	-0.147197
84	101.17	101.41	100.815	0.594578	-0.239578
85	101.21	100.891	100.924	-0.0332192	0.319053
86	101.1	100.623	101.01	-0.387386	0.476969
87	101.17	100.747	101.082	-0.335005	0.422922
88	101.11	100.828	101.129	-0.301612	0.282445
89	101.2	100.939	101.155	-0.216136	0.261136
90	101.15	100.96	101.177	-0.216672	0.190005
91	100.92	NA	NA	-0.238695	NA
92	101.1	NA	NA	-0.0409573	NA
93	101.22	NA	NA	0.122257	NA
94	101.25	NA	NA	0.461483	NA
95	101.39	NA	NA	0.591364	NA
96	101.43	NA	NA	0.594578	NA

\begin{tabular}{lllllllll}
\hline
Classical Decomposition by Moving Averages \tabularnewline
t & Observations & Fit & Trend & Seasonal & Random \tabularnewline
1 & 97.41 & NA & NA & -0.0332192 & NA \tabularnewline
2 & 97.32 & NA & NA & -0.387386 & NA \tabularnewline
3 & 97.33 & NA & NA & -0.335005 & NA \tabularnewline
4 & 97.38 & NA & NA & -0.301612 & NA \tabularnewline
5 & 97.47 & NA & NA & -0.216136 & NA \tabularnewline
6 & 97.5 & NA & NA & -0.216672 & NA \tabularnewline
7 & 97.5 & 97.3788 & 97.6175 & -0.238695 & 0.121195 \tabularnewline
8 & 97.58 & 97.6282 & 97.6692 & -0.0409573 & -0.0482093 \tabularnewline
9 & 97.7 & 97.8502 & 97.7279 & 0.122257 & -0.150174 \tabularnewline
10 & 97.9 & 98.2561 & 97.7946 & 0.461483 & -0.356066 \tabularnewline
11 & 97.98 & 98.4559 & 97.8646 & 0.591364 & -0.475947 \tabularnewline
12 & 98.03 & 98.5337 & 97.9392 & 0.594578 & -0.503745 \tabularnewline
13 & 98.03 & 97.983 & 98.0162 & -0.0332192 & 0.0469692 \tabularnewline
14 & 97.94 & 97.7039 & 98.0912 & -0.387386 & 0.236136 \tabularnewline
15 & 98.12 & 97.8371 & 98.1721 & -0.335005 & 0.282922 \tabularnewline
16 & 98.19 & 97.9709 & 98.2725 & -0.301612 & 0.219112 \tabularnewline
17 & 98.34 & 98.1739 & 98.39 & -0.216136 & 0.166136 \tabularnewline
18 & 98.42 & 98.2979 & 98.5146 & -0.216672 & 0.122088 \tabularnewline
19 & 98.43 & 98.4021 & 98.6408 & -0.238695 & 0.0278621 \tabularnewline
20 & 98.45 & 98.7174 & 98.7583 & -0.0409573 & -0.267376 \tabularnewline
21 & 98.77 & 98.9893 & 98.8671 & 0.122257 & -0.21934 \tabularnewline
22 & 99.24 & 99.4365 & 98.975 & 0.461483 & -0.196483 \tabularnewline
23 & 99.46 & 99.6709 & 99.0796 & 0.591364 & -0.210947 \tabularnewline
24 & 99.54 & 99.7754 & 99.1808 & 0.594578 & -0.235412 \tabularnewline
25 & 99.55 & 99.248 & 99.2812 & -0.0332192 & 0.301969 \tabularnewline
26 & 99.24 & 98.9984 & 99.3858 & -0.387386 & 0.241553 \tabularnewline
27 & 99.43 & 99.15 & 99.485 & -0.335005 & 0.280005 \tabularnewline
28 & 99.47 & 99.2717 & 99.5733 & -0.301612 & 0.198279 \tabularnewline
29 & 99.57 & 99.4447 & 99.6608 & -0.216136 & 0.125303 \tabularnewline
30 & 99.62 & 99.5312 & 99.7479 & -0.216672 & 0.088755 \tabularnewline
31 & 99.64 & 99.5946 & 99.8333 & -0.238695 & 0.0453621 \tabularnewline
32 & 99.75 & 99.8778 & 99.9188 & -0.0409573 & -0.127793 \tabularnewline
33 & 99.85 & 100.119 & 99.9967 & 0.122257 & -0.268924 \tabularnewline
34 & 100.28 & 100.523 & 100.061 & 0.461483 & -0.242733 \tabularnewline
35 & 100.52 & 100.707 & 100.115 & 0.591364 & -0.186781 \tabularnewline
36 & 100.57 & 100.758 & 100.163 & 0.594578 & -0.187912 \tabularnewline
37 & 100.57 & 100.176 & 100.209 & -0.0332192 & 0.394053 \tabularnewline
38 & 100.27 & 99.8793 & 100.267 & -0.387386 & 0.390719 \tabularnewline
39 & 100.27 & 100.002 & 100.337 & -0.335005 & 0.268338 \tabularnewline
40 & 100.18 & 100.103 & 100.404 & -0.301612 & 0.0774454 \tabularnewline
41 & 100.16 & 100.247 & 100.463 & -0.216136 & -0.0867808 \tabularnewline
42 & 100.18 & 100.297 & 100.514 & -0.216672 & -0.117078 \tabularnewline
43 & 100.18 & 100.324 & 100.563 & -0.238695 & -0.144221 \tabularnewline
44 & 100.59 & 100.569 & 100.61 & -0.0409573 & 0.0209573 \tabularnewline
45 & 100.69 & 100.783 & 100.66 & 0.122257 & -0.0926736 \tabularnewline
46 & 101.06 & 101.189 & 100.728 & 0.461483 & -0.1294 \tabularnewline
47 & 101.15 & 101.406 & 100.815 & 0.591364 & -0.255947 \tabularnewline
48 & 101.16 & 101.505 & 100.91 & 0.594578 & -0.344578 \tabularnewline
49 & 101.16 & 100.974 & 101.007 & -0.0332192 & 0.186136 \tabularnewline
50 & 100.81 & 100.715 & 101.102 & -0.387386 & 0.0953026 \tabularnewline
51 & 100.94 & 100.87 & 101.205 & -0.335005 & 0.070005 \tabularnewline
52 & 101.13 & 101.019 & 101.321 & -0.301612 & 0.110779 \tabularnewline
53 & 101.29 & 101.227 & 101.443 & -0.216136 & 0.0632192 \tabularnewline
54 & 101.34 & 101.354 & 101.571 & -0.216672 & -0.0141617 \tabularnewline
55 & 101.35 & 101.463 & 101.701 & -0.238695 & -0.112555 \tabularnewline
56 & 101.7 & 101.783 & 101.824 & -0.0409573 & -0.0827927 \tabularnewline
57 & 102.05 & 102.056 & 101.934 & 0.122257 & -0.00642361 \tabularnewline
58 & 102.48 & 102.501 & 102.039 & 0.461483 & -0.0206498 \tabularnewline
59 & 102.66 & 102.734 & 102.142 & 0.591364 & -0.0738641 \tabularnewline
60 & 102.72 & 102.842 & 102.247 & 0.594578 & -0.121662 \tabularnewline
61 & 102.73 & 102.32 & 102.353 & -0.0332192 & 0.410303 \tabularnewline
62 & 102.18 & 102.073 & 102.46 & -0.387386 & 0.107386 \tabularnewline
63 & 102.22 & 102.226 & 102.561 & -0.335005 & -0.00582837 \tabularnewline
64 & 102.37 & 102.349 & 102.651 & -0.301612 & 0.0207788 \tabularnewline
65 & 102.53 & 102.521 & 102.737 & -0.216136 & 0.00905258 \tabularnewline
66 & 102.61 & 102.605 & 102.822 & -0.216672 & 0.00458829 \tabularnewline
67 & 102.62 & 102.494 & 102.732 & -0.238695 & 0.126195 \tabularnewline
68 & 103 & 102.431 & 102.472 & -0.0409573 & 0.568874 \tabularnewline
69 & 103.17 & 102.337 & 102.215 & 0.122257 & 0.832743 \tabularnewline
70 & 103.52 & 102.423 & 101.961 & 0.461483 & 1.09727 \tabularnewline
71 & 103.69 & 102.305 & 101.714 & 0.591364 & 1.38489 \tabularnewline
72 & 103.73 & 102.063 & 101.468 & 0.594578 & 1.66709 \tabularnewline
73 & 99.57 & 101.194 & 101.227 & -0.0332192 & -1.62428 \tabularnewline
74 & 99.09 & 100.604 & 100.991 & -0.387386 & -1.51386 \tabularnewline
75 & 99.14 & 100.424 & 100.759 & -0.335005 & -1.28416 \tabularnewline
76 & 99.36 & 100.235 & 100.536 & -0.301612 & -0.874638 \tabularnewline
77 & 99.6 & 100.104 & 100.32 & -0.216136 & -0.503864 \tabularnewline
78 & 99.65 & 99.89 & 100.107 & -0.216672 & -0.239995 \tabularnewline
79 & 99.8 & 99.8296 & 100.068 & -0.238695 & -0.0296379 \tabularnewline
80 & 100.15 & 100.179 & 100.22 & -0.0409573 & -0.0294593 \tabularnewline
81 & 100.45 & 100.511 & 100.389 & 0.122257 & -0.0610069 \tabularnewline
82 & 100.89 & 101.008 & 100.546 & 0.461483 & -0.117733 \tabularnewline
83 & 101.13 & 101.277 & 100.686 & 0.591364 & -0.147197 \tabularnewline
84 & 101.17 & 101.41 & 100.815 & 0.594578 & -0.239578 \tabularnewline
85 & 101.21 & 100.891 & 100.924 & -0.0332192 & 0.319053 \tabularnewline
86 & 101.1 & 100.623 & 101.01 & -0.387386 & 0.476969 \tabularnewline
87 & 101.17 & 100.747 & 101.082 & -0.335005 & 0.422922 \tabularnewline
88 & 101.11 & 100.828 & 101.129 & -0.301612 & 0.282445 \tabularnewline
89 & 101.2 & 100.939 & 101.155 & -0.216136 & 0.261136 \tabularnewline
90 & 101.15 & 100.96 & 101.177 & -0.216672 & 0.190005 \tabularnewline
91 & 100.92 & NA & NA & -0.238695 & NA \tabularnewline
92 & 101.1 & NA & NA & -0.0409573 & NA \tabularnewline
93 & 101.22 & NA & NA & 0.122257 & NA \tabularnewline
94 & 101.25 & NA & NA & 0.461483 & NA \tabularnewline
95 & 101.39 & NA & NA & 0.591364 & NA \tabularnewline
96 & 101.43 & NA & NA & 0.594578 & NA \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=284411&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]97.41[/C][C]NA[/C][C]NA[/C][C]-0.0332192[/C][C]NA[/C][/ROW]
[ROW][C]2[/C][C]97.32[/C][C]NA[/C][C]NA[/C][C]-0.387386[/C][C]NA[/C][/ROW]
[ROW][C]3[/C][C]97.33[/C][C]NA[/C][C]NA[/C][C]-0.335005[/C][C]NA[/C][/ROW]
[ROW][C]4[/C][C]97.38[/C][C]NA[/C][C]NA[/C][C]-0.301612[/C][C]NA[/C][/ROW]
[ROW][C]5[/C][C]97.47[/C][C]NA[/C][C]NA[/C][C]-0.216136[/C][C]NA[/C][/ROW]
[ROW][C]6[/C][C]97.5[/C][C]NA[/C][C]NA[/C][C]-0.216672[/C][C]NA[/C][/ROW]
[ROW][C]7[/C][C]97.5[/C][C]97.3788[/C][C]97.6175[/C][C]-0.238695[/C][C]0.121195[/C][/ROW]
[ROW][C]8[/C][C]97.58[/C][C]97.6282[/C][C]97.6692[/C][C]-0.0409573[/C][C]-0.0482093[/C][/ROW]
[ROW][C]9[/C][C]97.7[/C][C]97.8502[/C][C]97.7279[/C][C]0.122257[/C][C]-0.150174[/C][/ROW]
[ROW][C]10[/C][C]97.9[/C][C]98.2561[/C][C]97.7946[/C][C]0.461483[/C][C]-0.356066[/C][/ROW]
[ROW][C]11[/C][C]97.98[/C][C]98.4559[/C][C]97.8646[/C][C]0.591364[/C][C]-0.475947[/C][/ROW]
[ROW][C]12[/C][C]98.03[/C][C]98.5337[/C][C]97.9392[/C][C]0.594578[/C][C]-0.503745[/C][/ROW]
[ROW][C]13[/C][C]98.03[/C][C]97.983[/C][C]98.0162[/C][C]-0.0332192[/C][C]0.0469692[/C][/ROW]
[ROW][C]14[/C][C]97.94[/C][C]97.7039[/C][C]98.0912[/C][C]-0.387386[/C][C]0.236136[/C][/ROW]
[ROW][C]15[/C][C]98.12[/C][C]97.8371[/C][C]98.1721[/C][C]-0.335005[/C][C]0.282922[/C][/ROW]
[ROW][C]16[/C][C]98.19[/C][C]97.9709[/C][C]98.2725[/C][C]-0.301612[/C][C]0.219112[/C][/ROW]
[ROW][C]17[/C][C]98.34[/C][C]98.1739[/C][C]98.39[/C][C]-0.216136[/C][C]0.166136[/C][/ROW]
[ROW][C]18[/C][C]98.42[/C][C]98.2979[/C][C]98.5146[/C][C]-0.216672[/C][C]0.122088[/C][/ROW]
[ROW][C]19[/C][C]98.43[/C][C]98.4021[/C][C]98.6408[/C][C]-0.238695[/C][C]0.0278621[/C][/ROW]
[ROW][C]20[/C][C]98.45[/C][C]98.7174[/C][C]98.7583[/C][C]-0.0409573[/C][C]-0.267376[/C][/ROW]
[ROW][C]21[/C][C]98.77[/C][C]98.9893[/C][C]98.8671[/C][C]0.122257[/C][C]-0.21934[/C][/ROW]
[ROW][C]22[/C][C]99.24[/C][C]99.4365[/C][C]98.975[/C][C]0.461483[/C][C]-0.196483[/C][/ROW]
[ROW][C]23[/C][C]99.46[/C][C]99.6709[/C][C]99.0796[/C][C]0.591364[/C][C]-0.210947[/C][/ROW]
[ROW][C]24[/C][C]99.54[/C][C]99.7754[/C][C]99.1808[/C][C]0.594578[/C][C]-0.235412[/C][/ROW]
[ROW][C]25[/C][C]99.55[/C][C]99.248[/C][C]99.2812[/C][C]-0.0332192[/C][C]0.301969[/C][/ROW]
[ROW][C]26[/C][C]99.24[/C][C]98.9984[/C][C]99.3858[/C][C]-0.387386[/C][C]0.241553[/C][/ROW]
[ROW][C]27[/C][C]99.43[/C][C]99.15[/C][C]99.485[/C][C]-0.335005[/C][C]0.280005[/C][/ROW]
[ROW][C]28[/C][C]99.47[/C][C]99.2717[/C][C]99.5733[/C][C]-0.301612[/C][C]0.198279[/C][/ROW]
[ROW][C]29[/C][C]99.57[/C][C]99.4447[/C][C]99.6608[/C][C]-0.216136[/C][C]0.125303[/C][/ROW]
[ROW][C]30[/C][C]99.62[/C][C]99.5312[/C][C]99.7479[/C][C]-0.216672[/C][C]0.088755[/C][/ROW]
[ROW][C]31[/C][C]99.64[/C][C]99.5946[/C][C]99.8333[/C][C]-0.238695[/C][C]0.0453621[/C][/ROW]
[ROW][C]32[/C][C]99.75[/C][C]99.8778[/C][C]99.9188[/C][C]-0.0409573[/C][C]-0.127793[/C][/ROW]
[ROW][C]33[/C][C]99.85[/C][C]100.119[/C][C]99.9967[/C][C]0.122257[/C][C]-0.268924[/C][/ROW]
[ROW][C]34[/C][C]100.28[/C][C]100.523[/C][C]100.061[/C][C]0.461483[/C][C]-0.242733[/C][/ROW]
[ROW][C]35[/C][C]100.52[/C][C]100.707[/C][C]100.115[/C][C]0.591364[/C][C]-0.186781[/C][/ROW]
[ROW][C]36[/C][C]100.57[/C][C]100.758[/C][C]100.163[/C][C]0.594578[/C][C]-0.187912[/C][/ROW]
[ROW][C]37[/C][C]100.57[/C][C]100.176[/C][C]100.209[/C][C]-0.0332192[/C][C]0.394053[/C][/ROW]
[ROW][C]38[/C][C]100.27[/C][C]99.8793[/C][C]100.267[/C][C]-0.387386[/C][C]0.390719[/C][/ROW]
[ROW][C]39[/C][C]100.27[/C][C]100.002[/C][C]100.337[/C][C]-0.335005[/C][C]0.268338[/C][/ROW]
[ROW][C]40[/C][C]100.18[/C][C]100.103[/C][C]100.404[/C][C]-0.301612[/C][C]0.0774454[/C][/ROW]
[ROW][C]41[/C][C]100.16[/C][C]100.247[/C][C]100.463[/C][C]-0.216136[/C][C]-0.0867808[/C][/ROW]
[ROW][C]42[/C][C]100.18[/C][C]100.297[/C][C]100.514[/C][C]-0.216672[/C][C]-0.117078[/C][/ROW]
[ROW][C]43[/C][C]100.18[/C][C]100.324[/C][C]100.563[/C][C]-0.238695[/C][C]-0.144221[/C][/ROW]
[ROW][C]44[/C][C]100.59[/C][C]100.569[/C][C]100.61[/C][C]-0.0409573[/C][C]0.0209573[/C][/ROW]
[ROW][C]45[/C][C]100.69[/C][C]100.783[/C][C]100.66[/C][C]0.122257[/C][C]-0.0926736[/C][/ROW]
[ROW][C]46[/C][C]101.06[/C][C]101.189[/C][C]100.728[/C][C]0.461483[/C][C]-0.1294[/C][/ROW]
[ROW][C]47[/C][C]101.15[/C][C]101.406[/C][C]100.815[/C][C]0.591364[/C][C]-0.255947[/C][/ROW]
[ROW][C]48[/C][C]101.16[/C][C]101.505[/C][C]100.91[/C][C]0.594578[/C][C]-0.344578[/C][/ROW]
[ROW][C]49[/C][C]101.16[/C][C]100.974[/C][C]101.007[/C][C]-0.0332192[/C][C]0.186136[/C][/ROW]
[ROW][C]50[/C][C]100.81[/C][C]100.715[/C][C]101.102[/C][C]-0.387386[/C][C]0.0953026[/C][/ROW]
[ROW][C]51[/C][C]100.94[/C][C]100.87[/C][C]101.205[/C][C]-0.335005[/C][C]0.070005[/C][/ROW]
[ROW][C]52[/C][C]101.13[/C][C]101.019[/C][C]101.321[/C][C]-0.301612[/C][C]0.110779[/C][/ROW]
[ROW][C]53[/C][C]101.29[/C][C]101.227[/C][C]101.443[/C][C]-0.216136[/C][C]0.0632192[/C][/ROW]
[ROW][C]54[/C][C]101.34[/C][C]101.354[/C][C]101.571[/C][C]-0.216672[/C][C]-0.0141617[/C][/ROW]
[ROW][C]55[/C][C]101.35[/C][C]101.463[/C][C]101.701[/C][C]-0.238695[/C][C]-0.112555[/C][/ROW]
[ROW][C]56[/C][C]101.7[/C][C]101.783[/C][C]101.824[/C][C]-0.0409573[/C][C]-0.0827927[/C][/ROW]
[ROW][C]57[/C][C]102.05[/C][C]102.056[/C][C]101.934[/C][C]0.122257[/C][C]-0.00642361[/C][/ROW]
[ROW][C]58[/C][C]102.48[/C][C]102.501[/C][C]102.039[/C][C]0.461483[/C][C]-0.0206498[/C][/ROW]
[ROW][C]59[/C][C]102.66[/C][C]102.734[/C][C]102.142[/C][C]0.591364[/C][C]-0.0738641[/C][/ROW]
[ROW][C]60[/C][C]102.72[/C][C]102.842[/C][C]102.247[/C][C]0.594578[/C][C]-0.121662[/C][/ROW]
[ROW][C]61[/C][C]102.73[/C][C]102.32[/C][C]102.353[/C][C]-0.0332192[/C][C]0.410303[/C][/ROW]
[ROW][C]62[/C][C]102.18[/C][C]102.073[/C][C]102.46[/C][C]-0.387386[/C][C]0.107386[/C][/ROW]
[ROW][C]63[/C][C]102.22[/C][C]102.226[/C][C]102.561[/C][C]-0.335005[/C][C]-0.00582837[/C][/ROW]
[ROW][C]64[/C][C]102.37[/C][C]102.349[/C][C]102.651[/C][C]-0.301612[/C][C]0.0207788[/C][/ROW]
[ROW][C]65[/C][C]102.53[/C][C]102.521[/C][C]102.737[/C][C]-0.216136[/C][C]0.00905258[/C][/ROW]
[ROW][C]66[/C][C]102.61[/C][C]102.605[/C][C]102.822[/C][C]-0.216672[/C][C]0.00458829[/C][/ROW]
[ROW][C]67[/C][C]102.62[/C][C]102.494[/C][C]102.732[/C][C]-0.238695[/C][C]0.126195[/C][/ROW]
[ROW][C]68[/C][C]103[/C][C]102.431[/C][C]102.472[/C][C]-0.0409573[/C][C]0.568874[/C][/ROW]
[ROW][C]69[/C][C]103.17[/C][C]102.337[/C][C]102.215[/C][C]0.122257[/C][C]0.832743[/C][/ROW]
[ROW][C]70[/C][C]103.52[/C][C]102.423[/C][C]101.961[/C][C]0.461483[/C][C]1.09727[/C][/ROW]
[ROW][C]71[/C][C]103.69[/C][C]102.305[/C][C]101.714[/C][C]0.591364[/C][C]1.38489[/C][/ROW]
[ROW][C]72[/C][C]103.73[/C][C]102.063[/C][C]101.468[/C][C]0.594578[/C][C]1.66709[/C][/ROW]
[ROW][C]73[/C][C]99.57[/C][C]101.194[/C][C]101.227[/C][C]-0.0332192[/C][C]-1.62428[/C][/ROW]
[ROW][C]74[/C][C]99.09[/C][C]100.604[/C][C]100.991[/C][C]-0.387386[/C][C]-1.51386[/C][/ROW]
[ROW][C]75[/C][C]99.14[/C][C]100.424[/C][C]100.759[/C][C]-0.335005[/C][C]-1.28416[/C][/ROW]
[ROW][C]76[/C][C]99.36[/C][C]100.235[/C][C]100.536[/C][C]-0.301612[/C][C]-0.874638[/C][/ROW]
[ROW][C]77[/C][C]99.6[/C][C]100.104[/C][C]100.32[/C][C]-0.216136[/C][C]-0.503864[/C][/ROW]
[ROW][C]78[/C][C]99.65[/C][C]99.89[/C][C]100.107[/C][C]-0.216672[/C][C]-0.239995[/C][/ROW]
[ROW][C]79[/C][C]99.8[/C][C]99.8296[/C][C]100.068[/C][C]-0.238695[/C][C]-0.0296379[/C][/ROW]
[ROW][C]80[/C][C]100.15[/C][C]100.179[/C][C]100.22[/C][C]-0.0409573[/C][C]-0.0294593[/C][/ROW]
[ROW][C]81[/C][C]100.45[/C][C]100.511[/C][C]100.389[/C][C]0.122257[/C][C]-0.0610069[/C][/ROW]
[ROW][C]82[/C][C]100.89[/C][C]101.008[/C][C]100.546[/C][C]0.461483[/C][C]-0.117733[/C][/ROW]
[ROW][C]83[/C][C]101.13[/C][C]101.277[/C][C]100.686[/C][C]0.591364[/C][C]-0.147197[/C][/ROW]
[ROW][C]84[/C][C]101.17[/C][C]101.41[/C][C]100.815[/C][C]0.594578[/C][C]-0.239578[/C][/ROW]
[ROW][C]85[/C][C]101.21[/C][C]100.891[/C][C]100.924[/C][C]-0.0332192[/C][C]0.319053[/C][/ROW]
[ROW][C]86[/C][C]101.1[/C][C]100.623[/C][C]101.01[/C][C]-0.387386[/C][C]0.476969[/C][/ROW]
[ROW][C]87[/C][C]101.17[/C][C]100.747[/C][C]101.082[/C][C]-0.335005[/C][C]0.422922[/C][/ROW]
[ROW][C]88[/C][C]101.11[/C][C]100.828[/C][C]101.129[/C][C]-0.301612[/C][C]0.282445[/C][/ROW]
[ROW][C]89[/C][C]101.2[/C][C]100.939[/C][C]101.155[/C][C]-0.216136[/C][C]0.261136[/C][/ROW]
[ROW][C]90[/C][C]101.15[/C][C]100.96[/C][C]101.177[/C][C]-0.216672[/C][C]0.190005[/C][/ROW]
[ROW][C]91[/C][C]100.92[/C][C]NA[/C][C]NA[/C][C]-0.238695[/C][C]NA[/C][/ROW]
[ROW][C]92[/C][C]101.1[/C][C]NA[/C][C]NA[/C][C]-0.0409573[/C][C]NA[/C][/ROW]
[ROW][C]93[/C][C]101.22[/C][C]NA[/C][C]NA[/C][C]0.122257[/C][C]NA[/C][/ROW]
[ROW][C]94[/C][C]101.25[/C][C]NA[/C][C]NA[/C][C]0.461483[/C][C]NA[/C][/ROW]
[ROW][C]95[/C][C]101.39[/C][C]NA[/C][C]NA[/C][C]0.591364[/C][C]NA[/C][/ROW]
[ROW][C]96[/C][C]101.43[/C][C]NA[/C][C]NA[/C][C]0.594578[/C][C]NA[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=284411&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=284411&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	97.41	NA	NA	-0.0332192	NA
2	97.32	NA	NA	-0.387386	NA
3	97.33	NA	NA	-0.335005	NA
4	97.38	NA	NA	-0.301612	NA
5	97.47	NA	NA	-0.216136	NA
6	97.5	NA	NA	-0.216672	NA
7	97.5	97.3788	97.6175	-0.238695	0.121195
8	97.58	97.6282	97.6692	-0.0409573	-0.0482093
9	97.7	97.8502	97.7279	0.122257	-0.150174
10	97.9	98.2561	97.7946	0.461483	-0.356066
11	97.98	98.4559	97.8646	0.591364	-0.475947
12	98.03	98.5337	97.9392	0.594578	-0.503745
13	98.03	97.983	98.0162	-0.0332192	0.0469692
14	97.94	97.7039	98.0912	-0.387386	0.236136
15	98.12	97.8371	98.1721	-0.335005	0.282922
16	98.19	97.9709	98.2725	-0.301612	0.219112
17	98.34	98.1739	98.39	-0.216136	0.166136
18	98.42	98.2979	98.5146	-0.216672	0.122088
19	98.43	98.4021	98.6408	-0.238695	0.0278621
20	98.45	98.7174	98.7583	-0.0409573	-0.267376
21	98.77	98.9893	98.8671	0.122257	-0.21934
22	99.24	99.4365	98.975	0.461483	-0.196483
23	99.46	99.6709	99.0796	0.591364	-0.210947
24	99.54	99.7754	99.1808	0.594578	-0.235412
25	99.55	99.248	99.2812	-0.0332192	0.301969
26	99.24	98.9984	99.3858	-0.387386	0.241553
27	99.43	99.15	99.485	-0.335005	0.280005
28	99.47	99.2717	99.5733	-0.301612	0.198279
29	99.57	99.4447	99.6608	-0.216136	0.125303
30	99.62	99.5312	99.7479	-0.216672	0.088755
31	99.64	99.5946	99.8333	-0.238695	0.0453621
32	99.75	99.8778	99.9188	-0.0409573	-0.127793
33	99.85	100.119	99.9967	0.122257	-0.268924
34	100.28	100.523	100.061	0.461483	-0.242733
35	100.52	100.707	100.115	0.591364	-0.186781
36	100.57	100.758	100.163	0.594578	-0.187912
37	100.57	100.176	100.209	-0.0332192	0.394053
38	100.27	99.8793	100.267	-0.387386	0.390719
39	100.27	100.002	100.337	-0.335005	0.268338
40	100.18	100.103	100.404	-0.301612	0.0774454
41	100.16	100.247	100.463	-0.216136	-0.0867808
42	100.18	100.297	100.514	-0.216672	-0.117078
43	100.18	100.324	100.563	-0.238695	-0.144221
44	100.59	100.569	100.61	-0.0409573	0.0209573
45	100.69	100.783	100.66	0.122257	-0.0926736
46	101.06	101.189	100.728	0.461483	-0.1294
47	101.15	101.406	100.815	0.591364	-0.255947
48	101.16	101.505	100.91	0.594578	-0.344578
49	101.16	100.974	101.007	-0.0332192	0.186136
50	100.81	100.715	101.102	-0.387386	0.0953026
51	100.94	100.87	101.205	-0.335005	0.070005
52	101.13	101.019	101.321	-0.301612	0.110779
53	101.29	101.227	101.443	-0.216136	0.0632192
54	101.34	101.354	101.571	-0.216672	-0.0141617
55	101.35	101.463	101.701	-0.238695	-0.112555
56	101.7	101.783	101.824	-0.0409573	-0.0827927
57	102.05	102.056	101.934	0.122257	-0.00642361
58	102.48	102.501	102.039	0.461483	-0.0206498
59	102.66	102.734	102.142	0.591364	-0.0738641
60	102.72	102.842	102.247	0.594578	-0.121662
61	102.73	102.32	102.353	-0.0332192	0.410303
62	102.18	102.073	102.46	-0.387386	0.107386
63	102.22	102.226	102.561	-0.335005	-0.00582837
64	102.37	102.349	102.651	-0.301612	0.0207788
65	102.53	102.521	102.737	-0.216136	0.00905258
66	102.61	102.605	102.822	-0.216672	0.00458829
67	102.62	102.494	102.732	-0.238695	0.126195
68	103	102.431	102.472	-0.0409573	0.568874
69	103.17	102.337	102.215	0.122257	0.832743
70	103.52	102.423	101.961	0.461483	1.09727
71	103.69	102.305	101.714	0.591364	1.38489
72	103.73	102.063	101.468	0.594578	1.66709
73	99.57	101.194	101.227	-0.0332192	-1.62428
74	99.09	100.604	100.991	-0.387386	-1.51386
75	99.14	100.424	100.759	-0.335005	-1.28416
76	99.36	100.235	100.536	-0.301612	-0.874638
77	99.6	100.104	100.32	-0.216136	-0.503864
78	99.65	99.89	100.107	-0.216672	-0.239995
79	99.8	99.8296	100.068	-0.238695	-0.0296379
80	100.15	100.179	100.22	-0.0409573	-0.0294593
81	100.45	100.511	100.389	0.122257	-0.0610069
82	100.89	101.008	100.546	0.461483	-0.117733
83	101.13	101.277	100.686	0.591364	-0.147197
84	101.17	101.41	100.815	0.594578	-0.239578
85	101.21	100.891	100.924	-0.0332192	0.319053
86	101.1	100.623	101.01	-0.387386	0.476969
87	101.17	100.747	101.082	-0.335005	0.422922
88	101.11	100.828	101.129	-0.301612	0.282445
89	101.2	100.939	101.155	-0.216136	0.261136
90	101.15	100.96	101.177	-0.216672	0.190005
91	100.92	NA	NA	-0.238695	NA
92	101.1	NA	NA	-0.0409573	NA
93	101.22	NA	NA	0.122257	NA
94	101.25	NA	NA	0.461483	NA
95	101.39	NA	NA	0.591364	NA
96	101.43	NA	NA	0.594578	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