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, 27 Nov 2016 18:37: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/2016/Nov/27/t1480271837zgkfrcikxcf5fek.htm/, Retrieved Tue, 30 Apr 2024 00:07:51 +0200

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=, Retrieved Tue, 30 Apr 2024 00:07:51 +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	2 seconds
R Server	'Gwilym Jenkins' @ jenkins.wessa.net

\begin{tabular}{lllllllll}
\hline
Summary of computational transaction \tabularnewline
Raw Input & view raw input (R code)  \tabularnewline
Raw Output & view raw output of R engine  \tabularnewline
Computing time & 2 seconds \tabularnewline
R Server & 'Gwilym Jenkins' @ jenkins.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=&T=0

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

Classical Decomposition by Moving Averages
t	Observations	Fit	Trend	Seasonal	Random
1	102.59	NA	NA	-0.311951	NA
2	102.91	NA	NA	0.0233819	NA
3	101.94	NA	NA	0.299965	NA
4	101.8	NA	NA	0.260215	NA
5	102.25	NA	NA	0.275549	NA
6	102.6	NA	NA	0.0697986	NA
7	102.49	101.891	101.741	0.150549	0.598618
8	102.13	101.385	101.486	-0.101035	0.745201
9	100.76	101.067	101.238	-0.171451	-0.306882
10	100.86	100.899	101.03	-0.130285	-0.0392986
11	101.12	100.609	100.802	-0.192701	0.510618
12	100.74	100.376	100.548	-0.172035	0.364118
13	99.99	99.9718	100.284	-0.311951	0.0182014
14	99.39	100.058	100.035	0.0233819	-0.667965
15	99.52	100.157	99.8567	0.299965	-0.636632
16	99.21	99.9894	99.7292	0.260215	-0.779382
17	99.38	99.8276	99.5521	0.275549	-0.447632
18	99.37	99.4269	99.3571	0.0697986	-0.0568819
19	99.38	99.3855	99.235	0.150549	-0.00554861
20	99.26	99.1315	99.2325	-0.101035	0.128535
21	99.36	99.1127	99.2842	-0.171451	0.247285
22	99.2	99.2089	99.3392	-0.130285	-0.00888194
23	98.53	99.2056	99.3983	-0.192701	-0.675632
24	98.65	99.278	99.45	-0.172035	-0.627965
25	99.15	99.156	99.4679	-0.311951	-0.00596528
26	100.17	99.4592	99.4358	0.0233819	0.710785
27	99.98	99.6841	99.3842	0.299965	0.295868
28	100.07	99.5827	99.3225	0.260215	0.487285
29	99.94	99.578	99.3025	0.275549	0.361951
30	100.05	99.3935	99.3237	0.0697986	0.656451
31	99.13	99.5039	99.3533	0.150549	-0.373882
32	98.74	99.2685	99.3696	-0.101035	-0.528549
33	98.64	99.1981	99.3696	-0.171451	-0.558132
34	98.44	99.263	99.3933	-0.130285	-0.823049
35	98.81	99.2223	99.415	-0.192701	-0.412299
36	98.88	99.238	99.41	-0.172035	-0.357965
37	99.63	99.1218	99.4337	-0.311951	0.508201
38	100.08	99.5238	99.5004	0.0233819	0.556201
39	100.07	99.8983	99.5983	0.299965	0.171701
40	100.55	99.9952	99.735	0.260215	0.554785
41	99.98	100.139	99.8637	0.275549	-0.159299
42	99.89	100.028	99.9583	0.0697986	-0.138132
43	99.86	100.081	99.9308	0.150549	-0.221382
44	99.61	99.6569	99.7579	-0.101035	-0.0468819
45	100.12	99.4073	99.5788	-0.171451	0.712701
46	100.24	99.2664	99.3967	-0.130285	0.973618
47	100.1	99.0135	99.2063	-0.192701	1.08645
48	99.86	98.8659	99.0379	-0.172035	0.994118
49	97.99	98.5351	98.8471	-0.311951	-0.545132
50	97.57	98.6438	98.6204	0.0233819	-1.0738
51	98.28	98.6604	98.3604	0.299965	-0.380382
52	97.97	98.3369	98.0767	0.260215	-0.366882
53	97.99	98.046	97.7704	0.275549	-0.0559653
54	97.84	97.5302	97.4604	0.0697986	0.309785
55	97.33	97.3985	97.2479	0.150549	-0.0684653
56	96.7	97.069	97.17	-0.101035	-0.368965
57	96.79	96.9556	97.1271	-0.171451	-0.165632
58	96.76	96.933	97.0633	-0.130285	-0.173049
59	96.23	96.8098	97.0025	-0.192701	-0.579799
60	96.29	96.733	96.905	-0.172035	-0.442965
61	96.46	96.506	96.8179	-0.311951	-0.0459653
62	97.23	96.8259	96.8025	0.0233819	0.404118
63	97.59	97.1112	96.8112	0.299965	0.478785
64	97.13	97.0965	96.8362	0.260215	0.0335347
65	97.37	97.1397	96.8642	0.275549	0.230285
66	96.12	96.9619	96.8921	0.0697986	-0.841882
67	96.96	NA	NA	0.150549	NA
68	96.7	NA	NA	-0.101035	NA
69	97	NA	NA	-0.171451	NA
70	97.15	NA	NA	-0.130285	NA
71	96.51	NA	NA	-0.192701	NA
72	96.68	NA	NA	-0.172035	NA

\begin{tabular}{lllllllll}
\hline
Classical Decomposition by Moving Averages \tabularnewline
t & Observations & Fit & Trend & Seasonal & Random \tabularnewline
1 & 102.59 & NA & NA & -0.311951 & NA \tabularnewline
2 & 102.91 & NA & NA & 0.0233819 & NA \tabularnewline
3 & 101.94 & NA & NA & 0.299965 & NA \tabularnewline
4 & 101.8 & NA & NA & 0.260215 & NA \tabularnewline
5 & 102.25 & NA & NA & 0.275549 & NA \tabularnewline
6 & 102.6 & NA & NA & 0.0697986 & NA \tabularnewline
7 & 102.49 & 101.891 & 101.741 & 0.150549 & 0.598618 \tabularnewline
8 & 102.13 & 101.385 & 101.486 & -0.101035 & 0.745201 \tabularnewline
9 & 100.76 & 101.067 & 101.238 & -0.171451 & -0.306882 \tabularnewline
10 & 100.86 & 100.899 & 101.03 & -0.130285 & -0.0392986 \tabularnewline
11 & 101.12 & 100.609 & 100.802 & -0.192701 & 0.510618 \tabularnewline
12 & 100.74 & 100.376 & 100.548 & -0.172035 & 0.364118 \tabularnewline
13 & 99.99 & 99.9718 & 100.284 & -0.311951 & 0.0182014 \tabularnewline
14 & 99.39 & 100.058 & 100.035 & 0.0233819 & -0.667965 \tabularnewline
15 & 99.52 & 100.157 & 99.8567 & 0.299965 & -0.636632 \tabularnewline
16 & 99.21 & 99.9894 & 99.7292 & 0.260215 & -0.779382 \tabularnewline
17 & 99.38 & 99.8276 & 99.5521 & 0.275549 & -0.447632 \tabularnewline
18 & 99.37 & 99.4269 & 99.3571 & 0.0697986 & -0.0568819 \tabularnewline
19 & 99.38 & 99.3855 & 99.235 & 0.150549 & -0.00554861 \tabularnewline
20 & 99.26 & 99.1315 & 99.2325 & -0.101035 & 0.128535 \tabularnewline
21 & 99.36 & 99.1127 & 99.2842 & -0.171451 & 0.247285 \tabularnewline
22 & 99.2 & 99.2089 & 99.3392 & -0.130285 & -0.00888194 \tabularnewline
23 & 98.53 & 99.2056 & 99.3983 & -0.192701 & -0.675632 \tabularnewline
24 & 98.65 & 99.278 & 99.45 & -0.172035 & -0.627965 \tabularnewline
25 & 99.15 & 99.156 & 99.4679 & -0.311951 & -0.00596528 \tabularnewline
26 & 100.17 & 99.4592 & 99.4358 & 0.0233819 & 0.710785 \tabularnewline
27 & 99.98 & 99.6841 & 99.3842 & 0.299965 & 0.295868 \tabularnewline
28 & 100.07 & 99.5827 & 99.3225 & 0.260215 & 0.487285 \tabularnewline
29 & 99.94 & 99.578 & 99.3025 & 0.275549 & 0.361951 \tabularnewline
30 & 100.05 & 99.3935 & 99.3237 & 0.0697986 & 0.656451 \tabularnewline
31 & 99.13 & 99.5039 & 99.3533 & 0.150549 & -0.373882 \tabularnewline
32 & 98.74 & 99.2685 & 99.3696 & -0.101035 & -0.528549 \tabularnewline
33 & 98.64 & 99.1981 & 99.3696 & -0.171451 & -0.558132 \tabularnewline
34 & 98.44 & 99.263 & 99.3933 & -0.130285 & -0.823049 \tabularnewline
35 & 98.81 & 99.2223 & 99.415 & -0.192701 & -0.412299 \tabularnewline
36 & 98.88 & 99.238 & 99.41 & -0.172035 & -0.357965 \tabularnewline
37 & 99.63 & 99.1218 & 99.4337 & -0.311951 & 0.508201 \tabularnewline
38 & 100.08 & 99.5238 & 99.5004 & 0.0233819 & 0.556201 \tabularnewline
39 & 100.07 & 99.8983 & 99.5983 & 0.299965 & 0.171701 \tabularnewline
40 & 100.55 & 99.9952 & 99.735 & 0.260215 & 0.554785 \tabularnewline
41 & 99.98 & 100.139 & 99.8637 & 0.275549 & -0.159299 \tabularnewline
42 & 99.89 & 100.028 & 99.9583 & 0.0697986 & -0.138132 \tabularnewline
43 & 99.86 & 100.081 & 99.9308 & 0.150549 & -0.221382 \tabularnewline
44 & 99.61 & 99.6569 & 99.7579 & -0.101035 & -0.0468819 \tabularnewline
45 & 100.12 & 99.4073 & 99.5788 & -0.171451 & 0.712701 \tabularnewline
46 & 100.24 & 99.2664 & 99.3967 & -0.130285 & 0.973618 \tabularnewline
47 & 100.1 & 99.0135 & 99.2063 & -0.192701 & 1.08645 \tabularnewline
48 & 99.86 & 98.8659 & 99.0379 & -0.172035 & 0.994118 \tabularnewline
49 & 97.99 & 98.5351 & 98.8471 & -0.311951 & -0.545132 \tabularnewline
50 & 97.57 & 98.6438 & 98.6204 & 0.0233819 & -1.0738 \tabularnewline
51 & 98.28 & 98.6604 & 98.3604 & 0.299965 & -0.380382 \tabularnewline
52 & 97.97 & 98.3369 & 98.0767 & 0.260215 & -0.366882 \tabularnewline
53 & 97.99 & 98.046 & 97.7704 & 0.275549 & -0.0559653 \tabularnewline
54 & 97.84 & 97.5302 & 97.4604 & 0.0697986 & 0.309785 \tabularnewline
55 & 97.33 & 97.3985 & 97.2479 & 0.150549 & -0.0684653 \tabularnewline
56 & 96.7 & 97.069 & 97.17 & -0.101035 & -0.368965 \tabularnewline
57 & 96.79 & 96.9556 & 97.1271 & -0.171451 & -0.165632 \tabularnewline
58 & 96.76 & 96.933 & 97.0633 & -0.130285 & -0.173049 \tabularnewline
59 & 96.23 & 96.8098 & 97.0025 & -0.192701 & -0.579799 \tabularnewline
60 & 96.29 & 96.733 & 96.905 & -0.172035 & -0.442965 \tabularnewline
61 & 96.46 & 96.506 & 96.8179 & -0.311951 & -0.0459653 \tabularnewline
62 & 97.23 & 96.8259 & 96.8025 & 0.0233819 & 0.404118 \tabularnewline
63 & 97.59 & 97.1112 & 96.8112 & 0.299965 & 0.478785 \tabularnewline
64 & 97.13 & 97.0965 & 96.8362 & 0.260215 & 0.0335347 \tabularnewline
65 & 97.37 & 97.1397 & 96.8642 & 0.275549 & 0.230285 \tabularnewline
66 & 96.12 & 96.9619 & 96.8921 & 0.0697986 & -0.841882 \tabularnewline
67 & 96.96 & NA & NA & 0.150549 & NA \tabularnewline
68 & 96.7 & NA & NA & -0.101035 & NA \tabularnewline
69 & 97 & NA & NA & -0.171451 & NA \tabularnewline
70 & 97.15 & NA & NA & -0.130285 & NA \tabularnewline
71 & 96.51 & NA & NA & -0.192701 & NA \tabularnewline
72 & 96.68 & NA & NA & -0.172035 & 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]102.59[/C][C]NA[/C][C]NA[/C][C]-0.311951[/C][C]NA[/C][/ROW]
[ROW][C]2[/C][C]102.91[/C][C]NA[/C][C]NA[/C][C]0.0233819[/C][C]NA[/C][/ROW]
[ROW][C]3[/C][C]101.94[/C][C]NA[/C][C]NA[/C][C]0.299965[/C][C]NA[/C][/ROW]
[ROW][C]4[/C][C]101.8[/C][C]NA[/C][C]NA[/C][C]0.260215[/C][C]NA[/C][/ROW]
[ROW][C]5[/C][C]102.25[/C][C]NA[/C][C]NA[/C][C]0.275549[/C][C]NA[/C][/ROW]
[ROW][C]6[/C][C]102.6[/C][C]NA[/C][C]NA[/C][C]0.0697986[/C][C]NA[/C][/ROW]
[ROW][C]7[/C][C]102.49[/C][C]101.891[/C][C]101.741[/C][C]0.150549[/C][C]0.598618[/C][/ROW]
[ROW][C]8[/C][C]102.13[/C][C]101.385[/C][C]101.486[/C][C]-0.101035[/C][C]0.745201[/C][/ROW]
[ROW][C]9[/C][C]100.76[/C][C]101.067[/C][C]101.238[/C][C]-0.171451[/C][C]-0.306882[/C][/ROW]
[ROW][C]10[/C][C]100.86[/C][C]100.899[/C][C]101.03[/C][C]-0.130285[/C][C]-0.0392986[/C][/ROW]
[ROW][C]11[/C][C]101.12[/C][C]100.609[/C][C]100.802[/C][C]-0.192701[/C][C]0.510618[/C][/ROW]
[ROW][C]12[/C][C]100.74[/C][C]100.376[/C][C]100.548[/C][C]-0.172035[/C][C]0.364118[/C][/ROW]
[ROW][C]13[/C][C]99.99[/C][C]99.9718[/C][C]100.284[/C][C]-0.311951[/C][C]0.0182014[/C][/ROW]
[ROW][C]14[/C][C]99.39[/C][C]100.058[/C][C]100.035[/C][C]0.0233819[/C][C]-0.667965[/C][/ROW]
[ROW][C]15[/C][C]99.52[/C][C]100.157[/C][C]99.8567[/C][C]0.299965[/C][C]-0.636632[/C][/ROW]
[ROW][C]16[/C][C]99.21[/C][C]99.9894[/C][C]99.7292[/C][C]0.260215[/C][C]-0.779382[/C][/ROW]
[ROW][C]17[/C][C]99.38[/C][C]99.8276[/C][C]99.5521[/C][C]0.275549[/C][C]-0.447632[/C][/ROW]
[ROW][C]18[/C][C]99.37[/C][C]99.4269[/C][C]99.3571[/C][C]0.0697986[/C][C]-0.0568819[/C][/ROW]
[ROW][C]19[/C][C]99.38[/C][C]99.3855[/C][C]99.235[/C][C]0.150549[/C][C]-0.00554861[/C][/ROW]
[ROW][C]20[/C][C]99.26[/C][C]99.1315[/C][C]99.2325[/C][C]-0.101035[/C][C]0.128535[/C][/ROW]
[ROW][C]21[/C][C]99.36[/C][C]99.1127[/C][C]99.2842[/C][C]-0.171451[/C][C]0.247285[/C][/ROW]
[ROW][C]22[/C][C]99.2[/C][C]99.2089[/C][C]99.3392[/C][C]-0.130285[/C][C]-0.00888194[/C][/ROW]
[ROW][C]23[/C][C]98.53[/C][C]99.2056[/C][C]99.3983[/C][C]-0.192701[/C][C]-0.675632[/C][/ROW]
[ROW][C]24[/C][C]98.65[/C][C]99.278[/C][C]99.45[/C][C]-0.172035[/C][C]-0.627965[/C][/ROW]
[ROW][C]25[/C][C]99.15[/C][C]99.156[/C][C]99.4679[/C][C]-0.311951[/C][C]-0.00596528[/C][/ROW]
[ROW][C]26[/C][C]100.17[/C][C]99.4592[/C][C]99.4358[/C][C]0.0233819[/C][C]0.710785[/C][/ROW]
[ROW][C]27[/C][C]99.98[/C][C]99.6841[/C][C]99.3842[/C][C]0.299965[/C][C]0.295868[/C][/ROW]
[ROW][C]28[/C][C]100.07[/C][C]99.5827[/C][C]99.3225[/C][C]0.260215[/C][C]0.487285[/C][/ROW]
[ROW][C]29[/C][C]99.94[/C][C]99.578[/C][C]99.3025[/C][C]0.275549[/C][C]0.361951[/C][/ROW]
[ROW][C]30[/C][C]100.05[/C][C]99.3935[/C][C]99.3237[/C][C]0.0697986[/C][C]0.656451[/C][/ROW]
[ROW][C]31[/C][C]99.13[/C][C]99.5039[/C][C]99.3533[/C][C]0.150549[/C][C]-0.373882[/C][/ROW]
[ROW][C]32[/C][C]98.74[/C][C]99.2685[/C][C]99.3696[/C][C]-0.101035[/C][C]-0.528549[/C][/ROW]
[ROW][C]33[/C][C]98.64[/C][C]99.1981[/C][C]99.3696[/C][C]-0.171451[/C][C]-0.558132[/C][/ROW]
[ROW][C]34[/C][C]98.44[/C][C]99.263[/C][C]99.3933[/C][C]-0.130285[/C][C]-0.823049[/C][/ROW]
[ROW][C]35[/C][C]98.81[/C][C]99.2223[/C][C]99.415[/C][C]-0.192701[/C][C]-0.412299[/C][/ROW]
[ROW][C]36[/C][C]98.88[/C][C]99.238[/C][C]99.41[/C][C]-0.172035[/C][C]-0.357965[/C][/ROW]
[ROW][C]37[/C][C]99.63[/C][C]99.1218[/C][C]99.4337[/C][C]-0.311951[/C][C]0.508201[/C][/ROW]
[ROW][C]38[/C][C]100.08[/C][C]99.5238[/C][C]99.5004[/C][C]0.0233819[/C][C]0.556201[/C][/ROW]
[ROW][C]39[/C][C]100.07[/C][C]99.8983[/C][C]99.5983[/C][C]0.299965[/C][C]0.171701[/C][/ROW]
[ROW][C]40[/C][C]100.55[/C][C]99.9952[/C][C]99.735[/C][C]0.260215[/C][C]0.554785[/C][/ROW]
[ROW][C]41[/C][C]99.98[/C][C]100.139[/C][C]99.8637[/C][C]0.275549[/C][C]-0.159299[/C][/ROW]
[ROW][C]42[/C][C]99.89[/C][C]100.028[/C][C]99.9583[/C][C]0.0697986[/C][C]-0.138132[/C][/ROW]
[ROW][C]43[/C][C]99.86[/C][C]100.081[/C][C]99.9308[/C][C]0.150549[/C][C]-0.221382[/C][/ROW]
[ROW][C]44[/C][C]99.61[/C][C]99.6569[/C][C]99.7579[/C][C]-0.101035[/C][C]-0.0468819[/C][/ROW]
[ROW][C]45[/C][C]100.12[/C][C]99.4073[/C][C]99.5788[/C][C]-0.171451[/C][C]0.712701[/C][/ROW]
[ROW][C]46[/C][C]100.24[/C][C]99.2664[/C][C]99.3967[/C][C]-0.130285[/C][C]0.973618[/C][/ROW]
[ROW][C]47[/C][C]100.1[/C][C]99.0135[/C][C]99.2063[/C][C]-0.192701[/C][C]1.08645[/C][/ROW]
[ROW][C]48[/C][C]99.86[/C][C]98.8659[/C][C]99.0379[/C][C]-0.172035[/C][C]0.994118[/C][/ROW]
[ROW][C]49[/C][C]97.99[/C][C]98.5351[/C][C]98.8471[/C][C]-0.311951[/C][C]-0.545132[/C][/ROW]
[ROW][C]50[/C][C]97.57[/C][C]98.6438[/C][C]98.6204[/C][C]0.0233819[/C][C]-1.0738[/C][/ROW]
[ROW][C]51[/C][C]98.28[/C][C]98.6604[/C][C]98.3604[/C][C]0.299965[/C][C]-0.380382[/C][/ROW]
[ROW][C]52[/C][C]97.97[/C][C]98.3369[/C][C]98.0767[/C][C]0.260215[/C][C]-0.366882[/C][/ROW]
[ROW][C]53[/C][C]97.99[/C][C]98.046[/C][C]97.7704[/C][C]0.275549[/C][C]-0.0559653[/C][/ROW]
[ROW][C]54[/C][C]97.84[/C][C]97.5302[/C][C]97.4604[/C][C]0.0697986[/C][C]0.309785[/C][/ROW]
[ROW][C]55[/C][C]97.33[/C][C]97.3985[/C][C]97.2479[/C][C]0.150549[/C][C]-0.0684653[/C][/ROW]
[ROW][C]56[/C][C]96.7[/C][C]97.069[/C][C]97.17[/C][C]-0.101035[/C][C]-0.368965[/C][/ROW]
[ROW][C]57[/C][C]96.79[/C][C]96.9556[/C][C]97.1271[/C][C]-0.171451[/C][C]-0.165632[/C][/ROW]
[ROW][C]58[/C][C]96.76[/C][C]96.933[/C][C]97.0633[/C][C]-0.130285[/C][C]-0.173049[/C][/ROW]
[ROW][C]59[/C][C]96.23[/C][C]96.8098[/C][C]97.0025[/C][C]-0.192701[/C][C]-0.579799[/C][/ROW]
[ROW][C]60[/C][C]96.29[/C][C]96.733[/C][C]96.905[/C][C]-0.172035[/C][C]-0.442965[/C][/ROW]
[ROW][C]61[/C][C]96.46[/C][C]96.506[/C][C]96.8179[/C][C]-0.311951[/C][C]-0.0459653[/C][/ROW]
[ROW][C]62[/C][C]97.23[/C][C]96.8259[/C][C]96.8025[/C][C]0.0233819[/C][C]0.404118[/C][/ROW]
[ROW][C]63[/C][C]97.59[/C][C]97.1112[/C][C]96.8112[/C][C]0.299965[/C][C]0.478785[/C][/ROW]
[ROW][C]64[/C][C]97.13[/C][C]97.0965[/C][C]96.8362[/C][C]0.260215[/C][C]0.0335347[/C][/ROW]
[ROW][C]65[/C][C]97.37[/C][C]97.1397[/C][C]96.8642[/C][C]0.275549[/C][C]0.230285[/C][/ROW]
[ROW][C]66[/C][C]96.12[/C][C]96.9619[/C][C]96.8921[/C][C]0.0697986[/C][C]-0.841882[/C][/ROW]
[ROW][C]67[/C][C]96.96[/C][C]NA[/C][C]NA[/C][C]0.150549[/C][C]NA[/C][/ROW]
[ROW][C]68[/C][C]96.7[/C][C]NA[/C][C]NA[/C][C]-0.101035[/C][C]NA[/C][/ROW]
[ROW][C]69[/C][C]97[/C][C]NA[/C][C]NA[/C][C]-0.171451[/C][C]NA[/C][/ROW]
[ROW][C]70[/C][C]97.15[/C][C]NA[/C][C]NA[/C][C]-0.130285[/C][C]NA[/C][/ROW]
[ROW][C]71[/C][C]96.51[/C][C]NA[/C][C]NA[/C][C]-0.192701[/C][C]NA[/C][/ROW]
[ROW][C]72[/C][C]96.68[/C][C]NA[/C][C]NA[/C][C]-0.172035[/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	102.59	NA	NA	-0.311951	NA
2	102.91	NA	NA	0.0233819	NA
3	101.94	NA	NA	0.299965	NA
4	101.8	NA	NA	0.260215	NA
5	102.25	NA	NA	0.275549	NA
6	102.6	NA	NA	0.0697986	NA
7	102.49	101.891	101.741	0.150549	0.598618
8	102.13	101.385	101.486	-0.101035	0.745201
9	100.76	101.067	101.238	-0.171451	-0.306882
10	100.86	100.899	101.03	-0.130285	-0.0392986
11	101.12	100.609	100.802	-0.192701	0.510618
12	100.74	100.376	100.548	-0.172035	0.364118
13	99.99	99.9718	100.284	-0.311951	0.0182014
14	99.39	100.058	100.035	0.0233819	-0.667965
15	99.52	100.157	99.8567	0.299965	-0.636632
16	99.21	99.9894	99.7292	0.260215	-0.779382
17	99.38	99.8276	99.5521	0.275549	-0.447632
18	99.37	99.4269	99.3571	0.0697986	-0.0568819
19	99.38	99.3855	99.235	0.150549	-0.00554861
20	99.26	99.1315	99.2325	-0.101035	0.128535
21	99.36	99.1127	99.2842	-0.171451	0.247285
22	99.2	99.2089	99.3392	-0.130285	-0.00888194
23	98.53	99.2056	99.3983	-0.192701	-0.675632
24	98.65	99.278	99.45	-0.172035	-0.627965
25	99.15	99.156	99.4679	-0.311951	-0.00596528
26	100.17	99.4592	99.4358	0.0233819	0.710785
27	99.98	99.6841	99.3842	0.299965	0.295868
28	100.07	99.5827	99.3225	0.260215	0.487285
29	99.94	99.578	99.3025	0.275549	0.361951
30	100.05	99.3935	99.3237	0.0697986	0.656451
31	99.13	99.5039	99.3533	0.150549	-0.373882
32	98.74	99.2685	99.3696	-0.101035	-0.528549
33	98.64	99.1981	99.3696	-0.171451	-0.558132
34	98.44	99.263	99.3933	-0.130285	-0.823049
35	98.81	99.2223	99.415	-0.192701	-0.412299
36	98.88	99.238	99.41	-0.172035	-0.357965
37	99.63	99.1218	99.4337	-0.311951	0.508201
38	100.08	99.5238	99.5004	0.0233819	0.556201
39	100.07	99.8983	99.5983	0.299965	0.171701
40	100.55	99.9952	99.735	0.260215	0.554785
41	99.98	100.139	99.8637	0.275549	-0.159299
42	99.89	100.028	99.9583	0.0697986	-0.138132
43	99.86	100.081	99.9308	0.150549	-0.221382
44	99.61	99.6569	99.7579	-0.101035	-0.0468819
45	100.12	99.4073	99.5788	-0.171451	0.712701
46	100.24	99.2664	99.3967	-0.130285	0.973618
47	100.1	99.0135	99.2063	-0.192701	1.08645
48	99.86	98.8659	99.0379	-0.172035	0.994118
49	97.99	98.5351	98.8471	-0.311951	-0.545132
50	97.57	98.6438	98.6204	0.0233819	-1.0738
51	98.28	98.6604	98.3604	0.299965	-0.380382
52	97.97	98.3369	98.0767	0.260215	-0.366882
53	97.99	98.046	97.7704	0.275549	-0.0559653
54	97.84	97.5302	97.4604	0.0697986	0.309785
55	97.33	97.3985	97.2479	0.150549	-0.0684653
56	96.7	97.069	97.17	-0.101035	-0.368965
57	96.79	96.9556	97.1271	-0.171451	-0.165632
58	96.76	96.933	97.0633	-0.130285	-0.173049
59	96.23	96.8098	97.0025	-0.192701	-0.579799
60	96.29	96.733	96.905	-0.172035	-0.442965
61	96.46	96.506	96.8179	-0.311951	-0.0459653
62	97.23	96.8259	96.8025	0.0233819	0.404118
63	97.59	97.1112	96.8112	0.299965	0.478785
64	97.13	97.0965	96.8362	0.260215	0.0335347
65	97.37	97.1397	96.8642	0.275549	0.230285
66	96.12	96.9619	96.8921	0.0697986	-0.841882
67	96.96	NA	NA	0.150549	NA
68	96.7	NA	NA	-0.101035	NA
69	97	NA	NA	-0.171451	NA
70	97.15	NA	NA	-0.130285	NA
71	96.51	NA	NA	-0.192701	NA
72	96.68	NA	NA	-0.172035	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