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

Tue, 26 Apr 2016 21:47:59 +0100

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/Apr/26/t14617037126ig9rawg057c725.htm/, Retrieved Fri, 03 May 2024 18:41:41 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=294980, Retrieved Fri, 03 May 2024 18:41:41 +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] [] [2016-04-26 20:47:59] [0b2c3ebb4286059f748822350b46c363] [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	'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 & 2 seconds \tabularnewline
R Server & 'Herman Ole Andreas Wold' @ wold.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=294980&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]'Herman Ole Andreas Wold' @ wold.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=294980&T=0

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

Classical Decomposition by Moving Averages
t	Observations	Fit	Trend	Seasonal	Random
1	105.95	NA	NA	0.0636875	NA
2	108.55	NA	NA	-0.332396	NA
3	110.81	NA	NA	-1.03306	NA
4	111.54	NA	NA	0.618521	NA
5	110.38	NA	NA	1.00185	NA
6	106.67	NA	NA	1.07844	NA
7	106.45	106.945	107.683	-0.737563	-0.495354
8	105.44	107.115	107.787	-0.672563	-1.67452
9	105.37	106.938	107.401	-0.462646	-1.56819
10	103.72	106.551	106.67	-0.118896	-2.8311
11	106.57	106.029	105.892	0.136188	0.541313
12	108.54	105.756	105.297	0.458437	2.78448
13	110.36	104.865	104.802	0.0636875	5.49465
14	106.64	103.996	104.328	-0.332396	2.64406
15	103.45	102.831	103.864	-1.03306	0.619313
16	101.36	104.063	103.444	0.618521	-2.70269
17	101.9	103.964	102.962	1.00185	-2.06394
18	100.86	103.351	102.272	1.07844	-2.49052
19	100.37	100.694	101.431	-0.737563	-0.323687
20	100.16	100.018	100.69	-0.672563	0.142146
21	99.5	99.7911	100.254	-0.462646	-0.291104
22	99.52	99.9274	100.046	-0.118896	-0.407354
23	99.2	100.04	99.9038	0.136188	-0.839938
24	99.35	100.235	99.7762	0.458437	-0.884687
25	99.37	99.7508	99.6871	0.0636875	-0.380771
26	99.85	99.2726	99.605	-0.332396	0.577396
27	99.76	98.5532	99.5862	-1.03306	1.20681
28	100.07	100.224	99.6054	0.618521	-0.153937
29	99.77	100.621	99.6187	1.00185	-0.850604
30	99.93	100.71	99.6317	1.07844	-0.780104
31	99.16	98.8962	99.6338	-0.737563	0.263813
32	99.4	98.9358	99.6083	-0.672563	0.464229
33	99.81	99.1003	99.5629	-0.462646	0.709729
34	99.67	99.3386	99.4575	-0.118896	0.331396
35	99.37	99.4849	99.3488	0.136188	-0.114937
36	99.49	99.7439	99.2854	0.458437	-0.253854
37	99.28	99.2399	99.1762	0.0636875	0.0400625
38	99.33	98.7314	99.0637	-0.332396	0.598646
39	99.19	98.0128	99.0458	-1.03306	1.17723
40	98.11	99.8323	99.2138	0.618521	-1.72227
41	99.12	100.516	99.5138	1.00185	-1.3956
42	99.06	100.912	99.8338	1.07844	-1.85219
43	97.41	99.4091	100.147	-0.737563	-1.9991
44	98.45	99.812	100.485	-0.672563	-1.36202
45	100.33	100.409	100.872	-0.462646	-0.0794375
46	103.18	101.193	101.312	-0.118896	1.98681
47	103.06	101.88	101.743	0.136188	1.18048
48	103.48	102.588	102.13	0.458437	0.891979
49	102.8	102.67	102.607	0.0636875	0.129646
50	103.92	102.787	103.119	-0.332396	1.13323
51	103.9	102.441	103.474	-1.03306	1.45931
52	103.96	104.247	103.629	0.618521	-0.287271
53	103.62	104.705	103.703	1.00185	-1.08477
54	103.83	104.853	103.774	1.07844	-1.0226
55	104.09	103.074	103.811	-0.737563	1.01631
56	104.07	103.178	103.85	-0.672563	0.892146
57	103.22	103.529	103.992	-0.462646	-0.309021
58	104.01	104.628	104.747	-0.118896	-0.617771
59	104.01	106.315	106.179	0.136188	-2.30494
60	104.24	108.316	107.858	0.458437	-4.07594
61	102.93	109.752	109.688	0.0636875	-6.8216
62	104.73	111.221	111.554	-0.332396	-6.49135
63	106.48	112.481	113.514	-1.03306	-6.00069
64	119.5	116.172	115.553	0.618521	3.32815
65	122.45	118.593	117.591	1.00185	3.8569
66	125.29	120.683	119.604	1.07844	4.6074
67	126.56	NA	NA	-0.737563	NA
68	126.38	NA	NA	-0.672563	NA
69	127.95	NA	NA	-0.462646	NA
70	128.23	NA	NA	-0.118896	NA
71	128.7	NA	NA	0.136188	NA
72	127.86	NA	NA	0.458437	NA

\begin{tabular}{lllllllll}
\hline
Classical Decomposition by Moving Averages \tabularnewline
t & Observations & Fit & Trend & Seasonal & Random \tabularnewline
1 & 105.95 & NA & NA & 0.0636875 & NA \tabularnewline
2 & 108.55 & NA & NA & -0.332396 & NA \tabularnewline
3 & 110.81 & NA & NA & -1.03306 & NA \tabularnewline
4 & 111.54 & NA & NA & 0.618521 & NA \tabularnewline
5 & 110.38 & NA & NA & 1.00185 & NA \tabularnewline
6 & 106.67 & NA & NA & 1.07844 & NA \tabularnewline
7 & 106.45 & 106.945 & 107.683 & -0.737563 & -0.495354 \tabularnewline
8 & 105.44 & 107.115 & 107.787 & -0.672563 & -1.67452 \tabularnewline
9 & 105.37 & 106.938 & 107.401 & -0.462646 & -1.56819 \tabularnewline
10 & 103.72 & 106.551 & 106.67 & -0.118896 & -2.8311 \tabularnewline
11 & 106.57 & 106.029 & 105.892 & 0.136188 & 0.541313 \tabularnewline
12 & 108.54 & 105.756 & 105.297 & 0.458437 & 2.78448 \tabularnewline
13 & 110.36 & 104.865 & 104.802 & 0.0636875 & 5.49465 \tabularnewline
14 & 106.64 & 103.996 & 104.328 & -0.332396 & 2.64406 \tabularnewline
15 & 103.45 & 102.831 & 103.864 & -1.03306 & 0.619313 \tabularnewline
16 & 101.36 & 104.063 & 103.444 & 0.618521 & -2.70269 \tabularnewline
17 & 101.9 & 103.964 & 102.962 & 1.00185 & -2.06394 \tabularnewline
18 & 100.86 & 103.351 & 102.272 & 1.07844 & -2.49052 \tabularnewline
19 & 100.37 & 100.694 & 101.431 & -0.737563 & -0.323687 \tabularnewline
20 & 100.16 & 100.018 & 100.69 & -0.672563 & 0.142146 \tabularnewline
21 & 99.5 & 99.7911 & 100.254 & -0.462646 & -0.291104 \tabularnewline
22 & 99.52 & 99.9274 & 100.046 & -0.118896 & -0.407354 \tabularnewline
23 & 99.2 & 100.04 & 99.9038 & 0.136188 & -0.839938 \tabularnewline
24 & 99.35 & 100.235 & 99.7762 & 0.458437 & -0.884687 \tabularnewline
25 & 99.37 & 99.7508 & 99.6871 & 0.0636875 & -0.380771 \tabularnewline
26 & 99.85 & 99.2726 & 99.605 & -0.332396 & 0.577396 \tabularnewline
27 & 99.76 & 98.5532 & 99.5862 & -1.03306 & 1.20681 \tabularnewline
28 & 100.07 & 100.224 & 99.6054 & 0.618521 & -0.153937 \tabularnewline
29 & 99.77 & 100.621 & 99.6187 & 1.00185 & -0.850604 \tabularnewline
30 & 99.93 & 100.71 & 99.6317 & 1.07844 & -0.780104 \tabularnewline
31 & 99.16 & 98.8962 & 99.6338 & -0.737563 & 0.263813 \tabularnewline
32 & 99.4 & 98.9358 & 99.6083 & -0.672563 & 0.464229 \tabularnewline
33 & 99.81 & 99.1003 & 99.5629 & -0.462646 & 0.709729 \tabularnewline
34 & 99.67 & 99.3386 & 99.4575 & -0.118896 & 0.331396 \tabularnewline
35 & 99.37 & 99.4849 & 99.3488 & 0.136188 & -0.114937 \tabularnewline
36 & 99.49 & 99.7439 & 99.2854 & 0.458437 & -0.253854 \tabularnewline
37 & 99.28 & 99.2399 & 99.1762 & 0.0636875 & 0.0400625 \tabularnewline
38 & 99.33 & 98.7314 & 99.0637 & -0.332396 & 0.598646 \tabularnewline
39 & 99.19 & 98.0128 & 99.0458 & -1.03306 & 1.17723 \tabularnewline
40 & 98.11 & 99.8323 & 99.2138 & 0.618521 & -1.72227 \tabularnewline
41 & 99.12 & 100.516 & 99.5138 & 1.00185 & -1.3956 \tabularnewline
42 & 99.06 & 100.912 & 99.8338 & 1.07844 & -1.85219 \tabularnewline
43 & 97.41 & 99.4091 & 100.147 & -0.737563 & -1.9991 \tabularnewline
44 & 98.45 & 99.812 & 100.485 & -0.672563 & -1.36202 \tabularnewline
45 & 100.33 & 100.409 & 100.872 & -0.462646 & -0.0794375 \tabularnewline
46 & 103.18 & 101.193 & 101.312 & -0.118896 & 1.98681 \tabularnewline
47 & 103.06 & 101.88 & 101.743 & 0.136188 & 1.18048 \tabularnewline
48 & 103.48 & 102.588 & 102.13 & 0.458437 & 0.891979 \tabularnewline
49 & 102.8 & 102.67 & 102.607 & 0.0636875 & 0.129646 \tabularnewline
50 & 103.92 & 102.787 & 103.119 & -0.332396 & 1.13323 \tabularnewline
51 & 103.9 & 102.441 & 103.474 & -1.03306 & 1.45931 \tabularnewline
52 & 103.96 & 104.247 & 103.629 & 0.618521 & -0.287271 \tabularnewline
53 & 103.62 & 104.705 & 103.703 & 1.00185 & -1.08477 \tabularnewline
54 & 103.83 & 104.853 & 103.774 & 1.07844 & -1.0226 \tabularnewline
55 & 104.09 & 103.074 & 103.811 & -0.737563 & 1.01631 \tabularnewline
56 & 104.07 & 103.178 & 103.85 & -0.672563 & 0.892146 \tabularnewline
57 & 103.22 & 103.529 & 103.992 & -0.462646 & -0.309021 \tabularnewline
58 & 104.01 & 104.628 & 104.747 & -0.118896 & -0.617771 \tabularnewline
59 & 104.01 & 106.315 & 106.179 & 0.136188 & -2.30494 \tabularnewline
60 & 104.24 & 108.316 & 107.858 & 0.458437 & -4.07594 \tabularnewline
61 & 102.93 & 109.752 & 109.688 & 0.0636875 & -6.8216 \tabularnewline
62 & 104.73 & 111.221 & 111.554 & -0.332396 & -6.49135 \tabularnewline
63 & 106.48 & 112.481 & 113.514 & -1.03306 & -6.00069 \tabularnewline
64 & 119.5 & 116.172 & 115.553 & 0.618521 & 3.32815 \tabularnewline
65 & 122.45 & 118.593 & 117.591 & 1.00185 & 3.8569 \tabularnewline
66 & 125.29 & 120.683 & 119.604 & 1.07844 & 4.6074 \tabularnewline
67 & 126.56 & NA & NA & -0.737563 & NA \tabularnewline
68 & 126.38 & NA & NA & -0.672563 & NA \tabularnewline
69 & 127.95 & NA & NA & -0.462646 & NA \tabularnewline
70 & 128.23 & NA & NA & -0.118896 & NA \tabularnewline
71 & 128.7 & NA & NA & 0.136188 & NA \tabularnewline
72 & 127.86 & NA & NA & 0.458437 & NA \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=294980&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]105.95[/C][C]NA[/C][C]NA[/C][C]0.0636875[/C][C]NA[/C][/ROW]
[ROW][C]2[/C][C]108.55[/C][C]NA[/C][C]NA[/C][C]-0.332396[/C][C]NA[/C][/ROW]
[ROW][C]3[/C][C]110.81[/C][C]NA[/C][C]NA[/C][C]-1.03306[/C][C]NA[/C][/ROW]
[ROW][C]4[/C][C]111.54[/C][C]NA[/C][C]NA[/C][C]0.618521[/C][C]NA[/C][/ROW]
[ROW][C]5[/C][C]110.38[/C][C]NA[/C][C]NA[/C][C]1.00185[/C][C]NA[/C][/ROW]
[ROW][C]6[/C][C]106.67[/C][C]NA[/C][C]NA[/C][C]1.07844[/C][C]NA[/C][/ROW]
[ROW][C]7[/C][C]106.45[/C][C]106.945[/C][C]107.683[/C][C]-0.737563[/C][C]-0.495354[/C][/ROW]
[ROW][C]8[/C][C]105.44[/C][C]107.115[/C][C]107.787[/C][C]-0.672563[/C][C]-1.67452[/C][/ROW]
[ROW][C]9[/C][C]105.37[/C][C]106.938[/C][C]107.401[/C][C]-0.462646[/C][C]-1.56819[/C][/ROW]
[ROW][C]10[/C][C]103.72[/C][C]106.551[/C][C]106.67[/C][C]-0.118896[/C][C]-2.8311[/C][/ROW]
[ROW][C]11[/C][C]106.57[/C][C]106.029[/C][C]105.892[/C][C]0.136188[/C][C]0.541313[/C][/ROW]
[ROW][C]12[/C][C]108.54[/C][C]105.756[/C][C]105.297[/C][C]0.458437[/C][C]2.78448[/C][/ROW]
[ROW][C]13[/C][C]110.36[/C][C]104.865[/C][C]104.802[/C][C]0.0636875[/C][C]5.49465[/C][/ROW]
[ROW][C]14[/C][C]106.64[/C][C]103.996[/C][C]104.328[/C][C]-0.332396[/C][C]2.64406[/C][/ROW]
[ROW][C]15[/C][C]103.45[/C][C]102.831[/C][C]103.864[/C][C]-1.03306[/C][C]0.619313[/C][/ROW]
[ROW][C]16[/C][C]101.36[/C][C]104.063[/C][C]103.444[/C][C]0.618521[/C][C]-2.70269[/C][/ROW]
[ROW][C]17[/C][C]101.9[/C][C]103.964[/C][C]102.962[/C][C]1.00185[/C][C]-2.06394[/C][/ROW]
[ROW][C]18[/C][C]100.86[/C][C]103.351[/C][C]102.272[/C][C]1.07844[/C][C]-2.49052[/C][/ROW]
[ROW][C]19[/C][C]100.37[/C][C]100.694[/C][C]101.431[/C][C]-0.737563[/C][C]-0.323687[/C][/ROW]
[ROW][C]20[/C][C]100.16[/C][C]100.018[/C][C]100.69[/C][C]-0.672563[/C][C]0.142146[/C][/ROW]
[ROW][C]21[/C][C]99.5[/C][C]99.7911[/C][C]100.254[/C][C]-0.462646[/C][C]-0.291104[/C][/ROW]
[ROW][C]22[/C][C]99.52[/C][C]99.9274[/C][C]100.046[/C][C]-0.118896[/C][C]-0.407354[/C][/ROW]
[ROW][C]23[/C][C]99.2[/C][C]100.04[/C][C]99.9038[/C][C]0.136188[/C][C]-0.839938[/C][/ROW]
[ROW][C]24[/C][C]99.35[/C][C]100.235[/C][C]99.7762[/C][C]0.458437[/C][C]-0.884687[/C][/ROW]
[ROW][C]25[/C][C]99.37[/C][C]99.7508[/C][C]99.6871[/C][C]0.0636875[/C][C]-0.380771[/C][/ROW]
[ROW][C]26[/C][C]99.85[/C][C]99.2726[/C][C]99.605[/C][C]-0.332396[/C][C]0.577396[/C][/ROW]
[ROW][C]27[/C][C]99.76[/C][C]98.5532[/C][C]99.5862[/C][C]-1.03306[/C][C]1.20681[/C][/ROW]
[ROW][C]28[/C][C]100.07[/C][C]100.224[/C][C]99.6054[/C][C]0.618521[/C][C]-0.153937[/C][/ROW]
[ROW][C]29[/C][C]99.77[/C][C]100.621[/C][C]99.6187[/C][C]1.00185[/C][C]-0.850604[/C][/ROW]
[ROW][C]30[/C][C]99.93[/C][C]100.71[/C][C]99.6317[/C][C]1.07844[/C][C]-0.780104[/C][/ROW]
[ROW][C]31[/C][C]99.16[/C][C]98.8962[/C][C]99.6338[/C][C]-0.737563[/C][C]0.263813[/C][/ROW]
[ROW][C]32[/C][C]99.4[/C][C]98.9358[/C][C]99.6083[/C][C]-0.672563[/C][C]0.464229[/C][/ROW]
[ROW][C]33[/C][C]99.81[/C][C]99.1003[/C][C]99.5629[/C][C]-0.462646[/C][C]0.709729[/C][/ROW]
[ROW][C]34[/C][C]99.67[/C][C]99.3386[/C][C]99.4575[/C][C]-0.118896[/C][C]0.331396[/C][/ROW]
[ROW][C]35[/C][C]99.37[/C][C]99.4849[/C][C]99.3488[/C][C]0.136188[/C][C]-0.114937[/C][/ROW]
[ROW][C]36[/C][C]99.49[/C][C]99.7439[/C][C]99.2854[/C][C]0.458437[/C][C]-0.253854[/C][/ROW]
[ROW][C]37[/C][C]99.28[/C][C]99.2399[/C][C]99.1762[/C][C]0.0636875[/C][C]0.0400625[/C][/ROW]
[ROW][C]38[/C][C]99.33[/C][C]98.7314[/C][C]99.0637[/C][C]-0.332396[/C][C]0.598646[/C][/ROW]
[ROW][C]39[/C][C]99.19[/C][C]98.0128[/C][C]99.0458[/C][C]-1.03306[/C][C]1.17723[/C][/ROW]
[ROW][C]40[/C][C]98.11[/C][C]99.8323[/C][C]99.2138[/C][C]0.618521[/C][C]-1.72227[/C][/ROW]
[ROW][C]41[/C][C]99.12[/C][C]100.516[/C][C]99.5138[/C][C]1.00185[/C][C]-1.3956[/C][/ROW]
[ROW][C]42[/C][C]99.06[/C][C]100.912[/C][C]99.8338[/C][C]1.07844[/C][C]-1.85219[/C][/ROW]
[ROW][C]43[/C][C]97.41[/C][C]99.4091[/C][C]100.147[/C][C]-0.737563[/C][C]-1.9991[/C][/ROW]
[ROW][C]44[/C][C]98.45[/C][C]99.812[/C][C]100.485[/C][C]-0.672563[/C][C]-1.36202[/C][/ROW]
[ROW][C]45[/C][C]100.33[/C][C]100.409[/C][C]100.872[/C][C]-0.462646[/C][C]-0.0794375[/C][/ROW]
[ROW][C]46[/C][C]103.18[/C][C]101.193[/C][C]101.312[/C][C]-0.118896[/C][C]1.98681[/C][/ROW]
[ROW][C]47[/C][C]103.06[/C][C]101.88[/C][C]101.743[/C][C]0.136188[/C][C]1.18048[/C][/ROW]
[ROW][C]48[/C][C]103.48[/C][C]102.588[/C][C]102.13[/C][C]0.458437[/C][C]0.891979[/C][/ROW]
[ROW][C]49[/C][C]102.8[/C][C]102.67[/C][C]102.607[/C][C]0.0636875[/C][C]0.129646[/C][/ROW]
[ROW][C]50[/C][C]103.92[/C][C]102.787[/C][C]103.119[/C][C]-0.332396[/C][C]1.13323[/C][/ROW]
[ROW][C]51[/C][C]103.9[/C][C]102.441[/C][C]103.474[/C][C]-1.03306[/C][C]1.45931[/C][/ROW]
[ROW][C]52[/C][C]103.96[/C][C]104.247[/C][C]103.629[/C][C]0.618521[/C][C]-0.287271[/C][/ROW]
[ROW][C]53[/C][C]103.62[/C][C]104.705[/C][C]103.703[/C][C]1.00185[/C][C]-1.08477[/C][/ROW]
[ROW][C]54[/C][C]103.83[/C][C]104.853[/C][C]103.774[/C][C]1.07844[/C][C]-1.0226[/C][/ROW]
[ROW][C]55[/C][C]104.09[/C][C]103.074[/C][C]103.811[/C][C]-0.737563[/C][C]1.01631[/C][/ROW]
[ROW][C]56[/C][C]104.07[/C][C]103.178[/C][C]103.85[/C][C]-0.672563[/C][C]0.892146[/C][/ROW]
[ROW][C]57[/C][C]103.22[/C][C]103.529[/C][C]103.992[/C][C]-0.462646[/C][C]-0.309021[/C][/ROW]
[ROW][C]58[/C][C]104.01[/C][C]104.628[/C][C]104.747[/C][C]-0.118896[/C][C]-0.617771[/C][/ROW]
[ROW][C]59[/C][C]104.01[/C][C]106.315[/C][C]106.179[/C][C]0.136188[/C][C]-2.30494[/C][/ROW]
[ROW][C]60[/C][C]104.24[/C][C]108.316[/C][C]107.858[/C][C]0.458437[/C][C]-4.07594[/C][/ROW]
[ROW][C]61[/C][C]102.93[/C][C]109.752[/C][C]109.688[/C][C]0.0636875[/C][C]-6.8216[/C][/ROW]
[ROW][C]62[/C][C]104.73[/C][C]111.221[/C][C]111.554[/C][C]-0.332396[/C][C]-6.49135[/C][/ROW]
[ROW][C]63[/C][C]106.48[/C][C]112.481[/C][C]113.514[/C][C]-1.03306[/C][C]-6.00069[/C][/ROW]
[ROW][C]64[/C][C]119.5[/C][C]116.172[/C][C]115.553[/C][C]0.618521[/C][C]3.32815[/C][/ROW]
[ROW][C]65[/C][C]122.45[/C][C]118.593[/C][C]117.591[/C][C]1.00185[/C][C]3.8569[/C][/ROW]
[ROW][C]66[/C][C]125.29[/C][C]120.683[/C][C]119.604[/C][C]1.07844[/C][C]4.6074[/C][/ROW]
[ROW][C]67[/C][C]126.56[/C][C]NA[/C][C]NA[/C][C]-0.737563[/C][C]NA[/C][/ROW]
[ROW][C]68[/C][C]126.38[/C][C]NA[/C][C]NA[/C][C]-0.672563[/C][C]NA[/C][/ROW]
[ROW][C]69[/C][C]127.95[/C][C]NA[/C][C]NA[/C][C]-0.462646[/C][C]NA[/C][/ROW]
[ROW][C]70[/C][C]128.23[/C][C]NA[/C][C]NA[/C][C]-0.118896[/C][C]NA[/C][/ROW]
[ROW][C]71[/C][C]128.7[/C][C]NA[/C][C]NA[/C][C]0.136188[/C][C]NA[/C][/ROW]
[ROW][C]72[/C][C]127.86[/C][C]NA[/C][C]NA[/C][C]0.458437[/C][C]NA[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=294980&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=294980&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	105.95	NA	NA	0.0636875	NA
2	108.55	NA	NA	-0.332396	NA
3	110.81	NA	NA	-1.03306	NA
4	111.54	NA	NA	0.618521	NA
5	110.38	NA	NA	1.00185	NA
6	106.67	NA	NA	1.07844	NA
7	106.45	106.945	107.683	-0.737563	-0.495354
8	105.44	107.115	107.787	-0.672563	-1.67452
9	105.37	106.938	107.401	-0.462646	-1.56819
10	103.72	106.551	106.67	-0.118896	-2.8311
11	106.57	106.029	105.892	0.136188	0.541313
12	108.54	105.756	105.297	0.458437	2.78448
13	110.36	104.865	104.802	0.0636875	5.49465
14	106.64	103.996	104.328	-0.332396	2.64406
15	103.45	102.831	103.864	-1.03306	0.619313
16	101.36	104.063	103.444	0.618521	-2.70269
17	101.9	103.964	102.962	1.00185	-2.06394
18	100.86	103.351	102.272	1.07844	-2.49052
19	100.37	100.694	101.431	-0.737563	-0.323687
20	100.16	100.018	100.69	-0.672563	0.142146
21	99.5	99.7911	100.254	-0.462646	-0.291104
22	99.52	99.9274	100.046	-0.118896	-0.407354
23	99.2	100.04	99.9038	0.136188	-0.839938
24	99.35	100.235	99.7762	0.458437	-0.884687
25	99.37	99.7508	99.6871	0.0636875	-0.380771
26	99.85	99.2726	99.605	-0.332396	0.577396
27	99.76	98.5532	99.5862	-1.03306	1.20681
28	100.07	100.224	99.6054	0.618521	-0.153937
29	99.77	100.621	99.6187	1.00185	-0.850604
30	99.93	100.71	99.6317	1.07844	-0.780104
31	99.16	98.8962	99.6338	-0.737563	0.263813
32	99.4	98.9358	99.6083	-0.672563	0.464229
33	99.81	99.1003	99.5629	-0.462646	0.709729
34	99.67	99.3386	99.4575	-0.118896	0.331396
35	99.37	99.4849	99.3488	0.136188	-0.114937
36	99.49	99.7439	99.2854	0.458437	-0.253854
37	99.28	99.2399	99.1762	0.0636875	0.0400625
38	99.33	98.7314	99.0637	-0.332396	0.598646
39	99.19	98.0128	99.0458	-1.03306	1.17723
40	98.11	99.8323	99.2138	0.618521	-1.72227
41	99.12	100.516	99.5138	1.00185	-1.3956
42	99.06	100.912	99.8338	1.07844	-1.85219
43	97.41	99.4091	100.147	-0.737563	-1.9991
44	98.45	99.812	100.485	-0.672563	-1.36202
45	100.33	100.409	100.872	-0.462646	-0.0794375
46	103.18	101.193	101.312	-0.118896	1.98681
47	103.06	101.88	101.743	0.136188	1.18048
48	103.48	102.588	102.13	0.458437	0.891979
49	102.8	102.67	102.607	0.0636875	0.129646
50	103.92	102.787	103.119	-0.332396	1.13323
51	103.9	102.441	103.474	-1.03306	1.45931
52	103.96	104.247	103.629	0.618521	-0.287271
53	103.62	104.705	103.703	1.00185	-1.08477
54	103.83	104.853	103.774	1.07844	-1.0226
55	104.09	103.074	103.811	-0.737563	1.01631
56	104.07	103.178	103.85	-0.672563	0.892146
57	103.22	103.529	103.992	-0.462646	-0.309021
58	104.01	104.628	104.747	-0.118896	-0.617771
59	104.01	106.315	106.179	0.136188	-2.30494
60	104.24	108.316	107.858	0.458437	-4.07594
61	102.93	109.752	109.688	0.0636875	-6.8216
62	104.73	111.221	111.554	-0.332396	-6.49135
63	106.48	112.481	113.514	-1.03306	-6.00069
64	119.5	116.172	115.553	0.618521	3.32815
65	122.45	118.593	117.591	1.00185	3.8569
66	125.29	120.683	119.604	1.07844	4.6074
67	126.56	NA	NA	-0.737563	NA
68	126.38	NA	NA	-0.672563	NA
69	127.95	NA	NA	-0.462646	NA
70	128.23	NA	NA	-0.118896	NA
71	128.7	NA	NA	0.136188	NA
72	127.86	NA	NA	0.458437	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