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

Sat, 26 Nov 2016 18:02:09 +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/2016/Nov/26/t1480183655dhbcu2a46d3akz8.htm/, Retrieved Sat, 04 May 2024 01:09:16 +0200

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=, Retrieved Sat, 04 May 2024 01:09:16 +0200

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

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	1 seconds
R Server	'Herman Ole Andreas Wold' @ wold.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 & 1 seconds \tabularnewline
R Server & 'Herman Ole Andreas Wold' @ wold.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=&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]1 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'Herman Ole Andreas Wold' @ wold.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=&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	1 seconds
R Server	'Herman Ole Andreas Wold' @ wold.wessa.net

Classical Decomposition by Moving Averages
t	Observations	Fit	Trend	Seasonal	Random
1	95.83	NA	NA	0.0371944	NA
2	95.87	NA	NA	0.122278	NA
3	96.06	NA	NA	0.105861	NA
4	96.06	NA	NA	0.109278	NA
5	96.15	NA	NA	0.103528	NA
6	96.26	NA	NA	0.0648611	NA
7	96.28	96.2742	96.2617	0.0125278	0.00580556
8	96.36	96.2881	96.34	-0.0518889	0.0718889
9	96.38	96.3489	96.4204	-0.0715556	0.0311389
10	96.43	96.4222	96.5025	-0.0803056	0.00780556
11	96.47	96.4438	96.5921	-0.148306	0.0262222
12	96.55	96.4786	96.6821	-0.203472	0.0713889
13	96.71	96.8068	96.7696	0.0371944	-0.0967778
14	96.87	96.976	96.8537	0.122278	-0.106028
15	96.99	97.0446	96.9387	0.105861	-0.0546111
16	97.1	97.1418	97.0325	0.109278	-0.0417778
17	97.26	97.2319	97.1283	0.103528	0.0281389
18	97.31	97.2836	97.2188	0.0648611	0.0263889
19	97.33	97.3271	97.3146	0.0125278	0.00288889
20	97.33	97.3769	97.4287	-0.0518889	-0.0468611
21	97.45	97.4764	97.5479	-0.0715556	-0.0263611
22	97.61	97.5834	97.6637	-0.0803056	0.0265556
23	97.59	97.6371	97.7854	-0.148306	-0.0471111
24	97.6	97.7061	97.9096	-0.203472	-0.106111
25	97.96	98.073	98.0358	0.0371944	-0.113028
26	98.36	98.2869	98.1646	0.122278	0.0731389
27	98.36	98.4004	98.2946	0.105861	-0.0404444
28	98.51	98.5318	98.4225	0.109278	-0.0217778
29	98.77	98.6506	98.5471	0.103528	0.119389
30	98.78	98.7382	98.6733	0.0648611	0.0418056
31	98.89	98.8079	98.7954	0.0125278	0.0820556
32	98.86	98.8481	98.9	-0.0518889	0.0118889
33	99.04	98.9259	98.9975	-0.0715556	0.114056
34	99.09	99.0259	99.1062	-0.0803056	0.0640556
35	99.1	99.0613	99.2096	-0.148306	0.0387222
36	99.12	99.1036	99.3071	-0.203472	0.0163889
37	99.37	99.4426	99.4054	0.0371944	-0.0726111
38	99.46	99.6302	99.5079	0.122278	-0.170194
39	99.6	99.7175	99.6117	0.105861	-0.117528
40	99.88	99.8218	99.7125	0.109278	0.0582222
41	99.88	99.9256	99.8221	0.103528	-0.0456111
42	100.01	100.005	99.94	0.0648611	0.00513889
43	100.02	100.098	100.085	0.0125278	-0.0779444
44	100.19	100.21	100.262	-0.0518889	-0.0201944
45	100.2	100.375	100.447	-0.0715556	-0.175111
46	100.35	100.541	100.621	-0.0803056	-0.190944
47	100.47	100.643	100.791	-0.148306	-0.172528
48	100.58	100.76	100.964	-0.203472	-0.180278
49	101.4	101.176	101.138	0.0371944	0.224472
50	101.67	101.434	101.311	0.122278	0.236472
51	101.82	101.59	101.485	0.105861	0.229556
52	101.85	101.772	101.662	0.109278	0.0782222
53	101.98	101.941	101.837	0.103528	0.0389722
54	102.06	102.074	102.009	0.0648611	-0.0140278
55	102.16	102.165	102.152	0.0125278	-0.00502778
56	102.2	102.209	102.261	-0.0518889	-0.00894444
57	102.35	102.286	102.357	-0.0715556	0.0640556
58	102.47	102.37	102.45	-0.0803056	0.100306
59	102.55	102.388	102.536	-0.148306	0.162472
60	102.62	102.414	102.617	-0.203472	0.206389
61	102.8	102.734	102.697	0.0371944	0.0657222
62	102.87	102.896	102.773	0.122278	-0.0256111
63	102.94	102.949	102.843	0.105861	-0.00919444
64	102.95	103.015	102.906	0.109278	-0.0651111
65	102.94	103.073	102.97	0.103528	-0.133111
66	103.05	103.102	103.037	0.0648611	-0.0515278
67	103.09	NA	NA	0.0125278	NA
68	103.1	NA	NA	-0.0518889	NA
69	103.13	NA	NA	-0.0715556	NA
70	103.19	NA	NA	-0.0803056	NA
71	103.36	NA	NA	-0.148306	NA
72	103.42	NA	NA	-0.203472	NA

\begin{tabular}{lllllllll}
\hline
Classical Decomposition by Moving Averages \tabularnewline
t & Observations & Fit & Trend & Seasonal & Random \tabularnewline
1 & 95.83 & NA & NA & 0.0371944 & NA \tabularnewline
2 & 95.87 & NA & NA & 0.122278 & NA \tabularnewline
3 & 96.06 & NA & NA & 0.105861 & NA \tabularnewline
4 & 96.06 & NA & NA & 0.109278 & NA \tabularnewline
5 & 96.15 & NA & NA & 0.103528 & NA \tabularnewline
6 & 96.26 & NA & NA & 0.0648611 & NA \tabularnewline
7 & 96.28 & 96.2742 & 96.2617 & 0.0125278 & 0.00580556 \tabularnewline
8 & 96.36 & 96.2881 & 96.34 & -0.0518889 & 0.0718889 \tabularnewline
9 & 96.38 & 96.3489 & 96.4204 & -0.0715556 & 0.0311389 \tabularnewline
10 & 96.43 & 96.4222 & 96.5025 & -0.0803056 & 0.00780556 \tabularnewline
11 & 96.47 & 96.4438 & 96.5921 & -0.148306 & 0.0262222 \tabularnewline
12 & 96.55 & 96.4786 & 96.6821 & -0.203472 & 0.0713889 \tabularnewline
13 & 96.71 & 96.8068 & 96.7696 & 0.0371944 & -0.0967778 \tabularnewline
14 & 96.87 & 96.976 & 96.8537 & 0.122278 & -0.106028 \tabularnewline
15 & 96.99 & 97.0446 & 96.9387 & 0.105861 & -0.0546111 \tabularnewline
16 & 97.1 & 97.1418 & 97.0325 & 0.109278 & -0.0417778 \tabularnewline
17 & 97.26 & 97.2319 & 97.1283 & 0.103528 & 0.0281389 \tabularnewline
18 & 97.31 & 97.2836 & 97.2188 & 0.0648611 & 0.0263889 \tabularnewline
19 & 97.33 & 97.3271 & 97.3146 & 0.0125278 & 0.00288889 \tabularnewline
20 & 97.33 & 97.3769 & 97.4287 & -0.0518889 & -0.0468611 \tabularnewline
21 & 97.45 & 97.4764 & 97.5479 & -0.0715556 & -0.0263611 \tabularnewline
22 & 97.61 & 97.5834 & 97.6637 & -0.0803056 & 0.0265556 \tabularnewline
23 & 97.59 & 97.6371 & 97.7854 & -0.148306 & -0.0471111 \tabularnewline
24 & 97.6 & 97.7061 & 97.9096 & -0.203472 & -0.106111 \tabularnewline
25 & 97.96 & 98.073 & 98.0358 & 0.0371944 & -0.113028 \tabularnewline
26 & 98.36 & 98.2869 & 98.1646 & 0.122278 & 0.0731389 \tabularnewline
27 & 98.36 & 98.4004 & 98.2946 & 0.105861 & -0.0404444 \tabularnewline
28 & 98.51 & 98.5318 & 98.4225 & 0.109278 & -0.0217778 \tabularnewline
29 & 98.77 & 98.6506 & 98.5471 & 0.103528 & 0.119389 \tabularnewline
30 & 98.78 & 98.7382 & 98.6733 & 0.0648611 & 0.0418056 \tabularnewline
31 & 98.89 & 98.8079 & 98.7954 & 0.0125278 & 0.0820556 \tabularnewline
32 & 98.86 & 98.8481 & 98.9 & -0.0518889 & 0.0118889 \tabularnewline
33 & 99.04 & 98.9259 & 98.9975 & -0.0715556 & 0.114056 \tabularnewline
34 & 99.09 & 99.0259 & 99.1062 & -0.0803056 & 0.0640556 \tabularnewline
35 & 99.1 & 99.0613 & 99.2096 & -0.148306 & 0.0387222 \tabularnewline
36 & 99.12 & 99.1036 & 99.3071 & -0.203472 & 0.0163889 \tabularnewline
37 & 99.37 & 99.4426 & 99.4054 & 0.0371944 & -0.0726111 \tabularnewline
38 & 99.46 & 99.6302 & 99.5079 & 0.122278 & -0.170194 \tabularnewline
39 & 99.6 & 99.7175 & 99.6117 & 0.105861 & -0.117528 \tabularnewline
40 & 99.88 & 99.8218 & 99.7125 & 0.109278 & 0.0582222 \tabularnewline
41 & 99.88 & 99.9256 & 99.8221 & 0.103528 & -0.0456111 \tabularnewline
42 & 100.01 & 100.005 & 99.94 & 0.0648611 & 0.00513889 \tabularnewline
43 & 100.02 & 100.098 & 100.085 & 0.0125278 & -0.0779444 \tabularnewline
44 & 100.19 & 100.21 & 100.262 & -0.0518889 & -0.0201944 \tabularnewline
45 & 100.2 & 100.375 & 100.447 & -0.0715556 & -0.175111 \tabularnewline
46 & 100.35 & 100.541 & 100.621 & -0.0803056 & -0.190944 \tabularnewline
47 & 100.47 & 100.643 & 100.791 & -0.148306 & -0.172528 \tabularnewline
48 & 100.58 & 100.76 & 100.964 & -0.203472 & -0.180278 \tabularnewline
49 & 101.4 & 101.176 & 101.138 & 0.0371944 & 0.224472 \tabularnewline
50 & 101.67 & 101.434 & 101.311 & 0.122278 & 0.236472 \tabularnewline
51 & 101.82 & 101.59 & 101.485 & 0.105861 & 0.229556 \tabularnewline
52 & 101.85 & 101.772 & 101.662 & 0.109278 & 0.0782222 \tabularnewline
53 & 101.98 & 101.941 & 101.837 & 0.103528 & 0.0389722 \tabularnewline
54 & 102.06 & 102.074 & 102.009 & 0.0648611 & -0.0140278 \tabularnewline
55 & 102.16 & 102.165 & 102.152 & 0.0125278 & -0.00502778 \tabularnewline
56 & 102.2 & 102.209 & 102.261 & -0.0518889 & -0.00894444 \tabularnewline
57 & 102.35 & 102.286 & 102.357 & -0.0715556 & 0.0640556 \tabularnewline
58 & 102.47 & 102.37 & 102.45 & -0.0803056 & 0.100306 \tabularnewline
59 & 102.55 & 102.388 & 102.536 & -0.148306 & 0.162472 \tabularnewline
60 & 102.62 & 102.414 & 102.617 & -0.203472 & 0.206389 \tabularnewline
61 & 102.8 & 102.734 & 102.697 & 0.0371944 & 0.0657222 \tabularnewline
62 & 102.87 & 102.896 & 102.773 & 0.122278 & -0.0256111 \tabularnewline
63 & 102.94 & 102.949 & 102.843 & 0.105861 & -0.00919444 \tabularnewline
64 & 102.95 & 103.015 & 102.906 & 0.109278 & -0.0651111 \tabularnewline
65 & 102.94 & 103.073 & 102.97 & 0.103528 & -0.133111 \tabularnewline
66 & 103.05 & 103.102 & 103.037 & 0.0648611 & -0.0515278 \tabularnewline
67 & 103.09 & NA & NA & 0.0125278 & NA \tabularnewline
68 & 103.1 & NA & NA & -0.0518889 & NA \tabularnewline
69 & 103.13 & NA & NA & -0.0715556 & NA \tabularnewline
70 & 103.19 & NA & NA & -0.0803056 & NA \tabularnewline
71 & 103.36 & NA & NA & -0.148306 & NA \tabularnewline
72 & 103.42 & NA & NA & -0.203472 & NA \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=&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]95.83[/C][C]NA[/C][C]NA[/C][C]0.0371944[/C][C]NA[/C][/ROW]
[ROW][C]2[/C][C]95.87[/C][C]NA[/C][C]NA[/C][C]0.122278[/C][C]NA[/C][/ROW]
[ROW][C]3[/C][C]96.06[/C][C]NA[/C][C]NA[/C][C]0.105861[/C][C]NA[/C][/ROW]
[ROW][C]4[/C][C]96.06[/C][C]NA[/C][C]NA[/C][C]0.109278[/C][C]NA[/C][/ROW]
[ROW][C]5[/C][C]96.15[/C][C]NA[/C][C]NA[/C][C]0.103528[/C][C]NA[/C][/ROW]
[ROW][C]6[/C][C]96.26[/C][C]NA[/C][C]NA[/C][C]0.0648611[/C][C]NA[/C][/ROW]
[ROW][C]7[/C][C]96.28[/C][C]96.2742[/C][C]96.2617[/C][C]0.0125278[/C][C]0.00580556[/C][/ROW]
[ROW][C]8[/C][C]96.36[/C][C]96.2881[/C][C]96.34[/C][C]-0.0518889[/C][C]0.0718889[/C][/ROW]
[ROW][C]9[/C][C]96.38[/C][C]96.3489[/C][C]96.4204[/C][C]-0.0715556[/C][C]0.0311389[/C][/ROW]
[ROW][C]10[/C][C]96.43[/C][C]96.4222[/C][C]96.5025[/C][C]-0.0803056[/C][C]0.00780556[/C][/ROW]
[ROW][C]11[/C][C]96.47[/C][C]96.4438[/C][C]96.5921[/C][C]-0.148306[/C][C]0.0262222[/C][/ROW]
[ROW][C]12[/C][C]96.55[/C][C]96.4786[/C][C]96.6821[/C][C]-0.203472[/C][C]0.0713889[/C][/ROW]
[ROW][C]13[/C][C]96.71[/C][C]96.8068[/C][C]96.7696[/C][C]0.0371944[/C][C]-0.0967778[/C][/ROW]
[ROW][C]14[/C][C]96.87[/C][C]96.976[/C][C]96.8537[/C][C]0.122278[/C][C]-0.106028[/C][/ROW]
[ROW][C]15[/C][C]96.99[/C][C]97.0446[/C][C]96.9387[/C][C]0.105861[/C][C]-0.0546111[/C][/ROW]
[ROW][C]16[/C][C]97.1[/C][C]97.1418[/C][C]97.0325[/C][C]0.109278[/C][C]-0.0417778[/C][/ROW]
[ROW][C]17[/C][C]97.26[/C][C]97.2319[/C][C]97.1283[/C][C]0.103528[/C][C]0.0281389[/C][/ROW]
[ROW][C]18[/C][C]97.31[/C][C]97.2836[/C][C]97.2188[/C][C]0.0648611[/C][C]0.0263889[/C][/ROW]
[ROW][C]19[/C][C]97.33[/C][C]97.3271[/C][C]97.3146[/C][C]0.0125278[/C][C]0.00288889[/C][/ROW]
[ROW][C]20[/C][C]97.33[/C][C]97.3769[/C][C]97.4287[/C][C]-0.0518889[/C][C]-0.0468611[/C][/ROW]
[ROW][C]21[/C][C]97.45[/C][C]97.4764[/C][C]97.5479[/C][C]-0.0715556[/C][C]-0.0263611[/C][/ROW]
[ROW][C]22[/C][C]97.61[/C][C]97.5834[/C][C]97.6637[/C][C]-0.0803056[/C][C]0.0265556[/C][/ROW]
[ROW][C]23[/C][C]97.59[/C][C]97.6371[/C][C]97.7854[/C][C]-0.148306[/C][C]-0.0471111[/C][/ROW]
[ROW][C]24[/C][C]97.6[/C][C]97.7061[/C][C]97.9096[/C][C]-0.203472[/C][C]-0.106111[/C][/ROW]
[ROW][C]25[/C][C]97.96[/C][C]98.073[/C][C]98.0358[/C][C]0.0371944[/C][C]-0.113028[/C][/ROW]
[ROW][C]26[/C][C]98.36[/C][C]98.2869[/C][C]98.1646[/C][C]0.122278[/C][C]0.0731389[/C][/ROW]
[ROW][C]27[/C][C]98.36[/C][C]98.4004[/C][C]98.2946[/C][C]0.105861[/C][C]-0.0404444[/C][/ROW]
[ROW][C]28[/C][C]98.51[/C][C]98.5318[/C][C]98.4225[/C][C]0.109278[/C][C]-0.0217778[/C][/ROW]
[ROW][C]29[/C][C]98.77[/C][C]98.6506[/C][C]98.5471[/C][C]0.103528[/C][C]0.119389[/C][/ROW]
[ROW][C]30[/C][C]98.78[/C][C]98.7382[/C][C]98.6733[/C][C]0.0648611[/C][C]0.0418056[/C][/ROW]
[ROW][C]31[/C][C]98.89[/C][C]98.8079[/C][C]98.7954[/C][C]0.0125278[/C][C]0.0820556[/C][/ROW]
[ROW][C]32[/C][C]98.86[/C][C]98.8481[/C][C]98.9[/C][C]-0.0518889[/C][C]0.0118889[/C][/ROW]
[ROW][C]33[/C][C]99.04[/C][C]98.9259[/C][C]98.9975[/C][C]-0.0715556[/C][C]0.114056[/C][/ROW]
[ROW][C]34[/C][C]99.09[/C][C]99.0259[/C][C]99.1062[/C][C]-0.0803056[/C][C]0.0640556[/C][/ROW]
[ROW][C]35[/C][C]99.1[/C][C]99.0613[/C][C]99.2096[/C][C]-0.148306[/C][C]0.0387222[/C][/ROW]
[ROW][C]36[/C][C]99.12[/C][C]99.1036[/C][C]99.3071[/C][C]-0.203472[/C][C]0.0163889[/C][/ROW]
[ROW][C]37[/C][C]99.37[/C][C]99.4426[/C][C]99.4054[/C][C]0.0371944[/C][C]-0.0726111[/C][/ROW]
[ROW][C]38[/C][C]99.46[/C][C]99.6302[/C][C]99.5079[/C][C]0.122278[/C][C]-0.170194[/C][/ROW]
[ROW][C]39[/C][C]99.6[/C][C]99.7175[/C][C]99.6117[/C][C]0.105861[/C][C]-0.117528[/C][/ROW]
[ROW][C]40[/C][C]99.88[/C][C]99.8218[/C][C]99.7125[/C][C]0.109278[/C][C]0.0582222[/C][/ROW]
[ROW][C]41[/C][C]99.88[/C][C]99.9256[/C][C]99.8221[/C][C]0.103528[/C][C]-0.0456111[/C][/ROW]
[ROW][C]42[/C][C]100.01[/C][C]100.005[/C][C]99.94[/C][C]0.0648611[/C][C]0.00513889[/C][/ROW]
[ROW][C]43[/C][C]100.02[/C][C]100.098[/C][C]100.085[/C][C]0.0125278[/C][C]-0.0779444[/C][/ROW]
[ROW][C]44[/C][C]100.19[/C][C]100.21[/C][C]100.262[/C][C]-0.0518889[/C][C]-0.0201944[/C][/ROW]
[ROW][C]45[/C][C]100.2[/C][C]100.375[/C][C]100.447[/C][C]-0.0715556[/C][C]-0.175111[/C][/ROW]
[ROW][C]46[/C][C]100.35[/C][C]100.541[/C][C]100.621[/C][C]-0.0803056[/C][C]-0.190944[/C][/ROW]
[ROW][C]47[/C][C]100.47[/C][C]100.643[/C][C]100.791[/C][C]-0.148306[/C][C]-0.172528[/C][/ROW]
[ROW][C]48[/C][C]100.58[/C][C]100.76[/C][C]100.964[/C][C]-0.203472[/C][C]-0.180278[/C][/ROW]
[ROW][C]49[/C][C]101.4[/C][C]101.176[/C][C]101.138[/C][C]0.0371944[/C][C]0.224472[/C][/ROW]
[ROW][C]50[/C][C]101.67[/C][C]101.434[/C][C]101.311[/C][C]0.122278[/C][C]0.236472[/C][/ROW]
[ROW][C]51[/C][C]101.82[/C][C]101.59[/C][C]101.485[/C][C]0.105861[/C][C]0.229556[/C][/ROW]
[ROW][C]52[/C][C]101.85[/C][C]101.772[/C][C]101.662[/C][C]0.109278[/C][C]0.0782222[/C][/ROW]
[ROW][C]53[/C][C]101.98[/C][C]101.941[/C][C]101.837[/C][C]0.103528[/C][C]0.0389722[/C][/ROW]
[ROW][C]54[/C][C]102.06[/C][C]102.074[/C][C]102.009[/C][C]0.0648611[/C][C]-0.0140278[/C][/ROW]
[ROW][C]55[/C][C]102.16[/C][C]102.165[/C][C]102.152[/C][C]0.0125278[/C][C]-0.00502778[/C][/ROW]
[ROW][C]56[/C][C]102.2[/C][C]102.209[/C][C]102.261[/C][C]-0.0518889[/C][C]-0.00894444[/C][/ROW]
[ROW][C]57[/C][C]102.35[/C][C]102.286[/C][C]102.357[/C][C]-0.0715556[/C][C]0.0640556[/C][/ROW]
[ROW][C]58[/C][C]102.47[/C][C]102.37[/C][C]102.45[/C][C]-0.0803056[/C][C]0.100306[/C][/ROW]
[ROW][C]59[/C][C]102.55[/C][C]102.388[/C][C]102.536[/C][C]-0.148306[/C][C]0.162472[/C][/ROW]
[ROW][C]60[/C][C]102.62[/C][C]102.414[/C][C]102.617[/C][C]-0.203472[/C][C]0.206389[/C][/ROW]
[ROW][C]61[/C][C]102.8[/C][C]102.734[/C][C]102.697[/C][C]0.0371944[/C][C]0.0657222[/C][/ROW]
[ROW][C]62[/C][C]102.87[/C][C]102.896[/C][C]102.773[/C][C]0.122278[/C][C]-0.0256111[/C][/ROW]
[ROW][C]63[/C][C]102.94[/C][C]102.949[/C][C]102.843[/C][C]0.105861[/C][C]-0.00919444[/C][/ROW]
[ROW][C]64[/C][C]102.95[/C][C]103.015[/C][C]102.906[/C][C]0.109278[/C][C]-0.0651111[/C][/ROW]
[ROW][C]65[/C][C]102.94[/C][C]103.073[/C][C]102.97[/C][C]0.103528[/C][C]-0.133111[/C][/ROW]
[ROW][C]66[/C][C]103.05[/C][C]103.102[/C][C]103.037[/C][C]0.0648611[/C][C]-0.0515278[/C][/ROW]
[ROW][C]67[/C][C]103.09[/C][C]NA[/C][C]NA[/C][C]0.0125278[/C][C]NA[/C][/ROW]
[ROW][C]68[/C][C]103.1[/C][C]NA[/C][C]NA[/C][C]-0.0518889[/C][C]NA[/C][/ROW]
[ROW][C]69[/C][C]103.13[/C][C]NA[/C][C]NA[/C][C]-0.0715556[/C][C]NA[/C][/ROW]
[ROW][C]70[/C][C]103.19[/C][C]NA[/C][C]NA[/C][C]-0.0803056[/C][C]NA[/C][/ROW]
[ROW][C]71[/C][C]103.36[/C][C]NA[/C][C]NA[/C][C]-0.148306[/C][C]NA[/C][/ROW]
[ROW][C]72[/C][C]103.42[/C][C]NA[/C][C]NA[/C][C]-0.203472[/C][C]NA[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=&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	95.83	NA	NA	0.0371944	NA
2	95.87	NA	NA	0.122278	NA
3	96.06	NA	NA	0.105861	NA
4	96.06	NA	NA	0.109278	NA
5	96.15	NA	NA	0.103528	NA
6	96.26	NA	NA	0.0648611	NA
7	96.28	96.2742	96.2617	0.0125278	0.00580556
8	96.36	96.2881	96.34	-0.0518889	0.0718889
9	96.38	96.3489	96.4204	-0.0715556	0.0311389
10	96.43	96.4222	96.5025	-0.0803056	0.00780556
11	96.47	96.4438	96.5921	-0.148306	0.0262222
12	96.55	96.4786	96.6821	-0.203472	0.0713889
13	96.71	96.8068	96.7696	0.0371944	-0.0967778
14	96.87	96.976	96.8537	0.122278	-0.106028
15	96.99	97.0446	96.9387	0.105861	-0.0546111
16	97.1	97.1418	97.0325	0.109278	-0.0417778
17	97.26	97.2319	97.1283	0.103528	0.0281389
18	97.31	97.2836	97.2188	0.0648611	0.0263889
19	97.33	97.3271	97.3146	0.0125278	0.00288889
20	97.33	97.3769	97.4287	-0.0518889	-0.0468611
21	97.45	97.4764	97.5479	-0.0715556	-0.0263611
22	97.61	97.5834	97.6637	-0.0803056	0.0265556
23	97.59	97.6371	97.7854	-0.148306	-0.0471111
24	97.6	97.7061	97.9096	-0.203472	-0.106111
25	97.96	98.073	98.0358	0.0371944	-0.113028
26	98.36	98.2869	98.1646	0.122278	0.0731389
27	98.36	98.4004	98.2946	0.105861	-0.0404444
28	98.51	98.5318	98.4225	0.109278	-0.0217778
29	98.77	98.6506	98.5471	0.103528	0.119389
30	98.78	98.7382	98.6733	0.0648611	0.0418056
31	98.89	98.8079	98.7954	0.0125278	0.0820556
32	98.86	98.8481	98.9	-0.0518889	0.0118889
33	99.04	98.9259	98.9975	-0.0715556	0.114056
34	99.09	99.0259	99.1062	-0.0803056	0.0640556
35	99.1	99.0613	99.2096	-0.148306	0.0387222
36	99.12	99.1036	99.3071	-0.203472	0.0163889
37	99.37	99.4426	99.4054	0.0371944	-0.0726111
38	99.46	99.6302	99.5079	0.122278	-0.170194
39	99.6	99.7175	99.6117	0.105861	-0.117528
40	99.88	99.8218	99.7125	0.109278	0.0582222
41	99.88	99.9256	99.8221	0.103528	-0.0456111
42	100.01	100.005	99.94	0.0648611	0.00513889
43	100.02	100.098	100.085	0.0125278	-0.0779444
44	100.19	100.21	100.262	-0.0518889	-0.0201944
45	100.2	100.375	100.447	-0.0715556	-0.175111
46	100.35	100.541	100.621	-0.0803056	-0.190944
47	100.47	100.643	100.791	-0.148306	-0.172528
48	100.58	100.76	100.964	-0.203472	-0.180278
49	101.4	101.176	101.138	0.0371944	0.224472
50	101.67	101.434	101.311	0.122278	0.236472
51	101.82	101.59	101.485	0.105861	0.229556
52	101.85	101.772	101.662	0.109278	0.0782222
53	101.98	101.941	101.837	0.103528	0.0389722
54	102.06	102.074	102.009	0.0648611	-0.0140278
55	102.16	102.165	102.152	0.0125278	-0.00502778
56	102.2	102.209	102.261	-0.0518889	-0.00894444
57	102.35	102.286	102.357	-0.0715556	0.0640556
58	102.47	102.37	102.45	-0.0803056	0.100306
59	102.55	102.388	102.536	-0.148306	0.162472
60	102.62	102.414	102.617	-0.203472	0.206389
61	102.8	102.734	102.697	0.0371944	0.0657222
62	102.87	102.896	102.773	0.122278	-0.0256111
63	102.94	102.949	102.843	0.105861	-0.00919444
64	102.95	103.015	102.906	0.109278	-0.0651111
65	102.94	103.073	102.97	0.103528	-0.133111
66	103.05	103.102	103.037	0.0648611	-0.0515278
67	103.09	NA	NA	0.0125278	NA
68	103.1	NA	NA	-0.0518889	NA
69	103.13	NA	NA	-0.0715556	NA
70	103.19	NA	NA	-0.0803056	NA
71	103.36	NA	NA	-0.148306	NA
72	103.42	NA	NA	-0.203472	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