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

Mon, 28 Nov 2016 20:45:19 +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/28/t1480365944y7wl6bkh3yjnc9q.htm/, Retrieved Sat, 04 May 2024 09:41:28 +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 09:41:28 +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	'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=&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=&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	'Herman Ole Andreas Wold' @ wold.wessa.net

Classical Decomposition by Moving Averages
t	Observations	Fit	Trend	Seasonal	Random
1	89.8	NA	NA	1.14156	NA
2	101.7	NA	NA	4.9499	NA
3	92.7	NA	NA	-15.2593	NA
4	116.2	NA	NA	-10.3551	NA
5	134.2	NA	NA	1.73823	NA
6	153.3	NA	NA	10.4257	NA
7	129.7	136.324	144.167	-7.8426	-6.62406
8	137.6	148.141	154.35	-6.20927	-10.5407
9	158.8	173.63	163.063	10.5671	-14.8296
10	197.1	188.15	170.588	17.5623	8.95024
11	171.1	178.032	177.742	0.290729	-6.9324
12	184.4	176.928	183.937	-7.00927	7.47177
13	216.6	189.6	188.458	1.14156	27.0001
14	219.3	196.329	191.379	4.9499	22.9709
15	184.2	178.112	193.371	-15.2593	6.08844
16	205.3	182.432	192.788	-10.3551	22.8676
17	216.8	190.817	189.079	1.73823	25.9826
18	219.4	194.609	184.183	10.4257	24.7909
19	172.1	169.878	177.721	-7.8426	2.22177
20	165.3	163.757	169.967	-6.20927	1.5426
21	178.9	172.367	161.8	10.5671	6.53288
22	163	170.491	152.929	17.5623	-7.49142
23	116.2	144.645	144.354	0.290729	-28.4449
24	121.8	129.912	136.921	-7.00927	-8.11156
25	124.1	131.996	130.854	1.14156	-7.89573
26	125.7	131.342	126.392	4.9499	-5.64156
27	81.8	108.241	123.5	-15.2593	-26.4407
28	94.8	111.753	122.108	-10.3551	-16.9532
29	121.5	125.034	123.296	1.73823	-3.53406
30	136.3	136.747	126.321	10.4257	-0.446562
31	109.6	122.791	130.633	-7.8426	-13.1907
32	120.7	131.312	137.521	-6.20927	-10.6116
33	154.1	157.925	147.358	10.5671	-3.82545
34	154.4	175.991	158.429	17.5623	-21.5914
35	153.3	168.912	168.621	0.290729	-15.6116
36	157.3	171.303	178.312	-7.00927	-14.0032
37	192.1	189.604	188.463	1.14156	2.49594
38	223	203.771	198.821	4.9499	19.2293
39	220.6	192.566	207.825	-15.2593	28.0343
40	221.7	205.741	216.096	-10.3551	15.9593
41	239.2	225.676	223.938	1.73823	13.5243
42	251.2	239.301	228.875	10.4257	11.8993
43	238.3	220.882	228.725	-7.8426	17.4176
44	240.6	217.482	223.692	-6.20927	23.1176
45	250.3	226.738	216.171	10.5671	23.562
46	256.7	225.475	207.913	17.5623	31.2252
47	239.2	198.807	198.517	0.290729	40.3926
48	189.9	181.112	188.121	-7.00927	8.78844
49	155.9	179.212	178.071	1.14156	-23.3124
50	138.4	173.392	168.442	4.9499	-34.9916
51	124.7	143.557	158.817	-15.2593	-18.8574
52	119.4	138.966	149.321	-10.3551	-19.5657
53	116	141.822	140.083	1.73823	-25.8216
54	124.9	142.93	132.504	10.4257	-18.0299
55	123.4	120.037	127.879	-7.8426	3.36344
56	124.4	119.17	125.379	-6.20927	5.2301
57	135.5	134.238	123.671	10.5671	1.26205
58	143.6	139.433	121.871	17.5623	4.16691
59	130.6	120.353	120.062	0.290729	10.2468
60	116.6	111.095	118.104	-7.00927	5.5051
61	118.2	116.837	115.696	1.14156	1.3626
62	116.1	118.017	113.067	4.9499	-1.91656
63	106	95.1741	110.433	-15.2593	10.8259
64	94.9	97.5574	107.912	-10.3551	-2.6574
65	97.1	107.601	105.862	1.73823	-10.5007
66	96.8	115.363	104.937	10.4257	-18.5632
67	93.7	97.3074	105.15	-7.8426	-3.6074
68	91	100.157	106.367	-6.20927	-9.1574
69	105.7	118.821	108.254	10.5671	-13.1213
70	112.9	128.579	111.017	17.5623	-15.6789
71	112.1	NA	NA	0.290729	NA
72	112.9	NA	NA	-7.00927	NA
73	127	NA	NA	1.14156	NA
74	136.5	NA	NA	4.9499	NA
75	130.9	NA	NA	-15.2593	NA
76	136.3	NA	NA	-10.3551	NA

\begin{tabular}{lllllllll}
\hline
Classical Decomposition by Moving Averages \tabularnewline
t & Observations & Fit & Trend & Seasonal & Random \tabularnewline
1 & 89.8 & NA & NA & 1.14156 & NA \tabularnewline
2 & 101.7 & NA & NA & 4.9499 & NA \tabularnewline
3 & 92.7 & NA & NA & -15.2593 & NA \tabularnewline
4 & 116.2 & NA & NA & -10.3551 & NA \tabularnewline
5 & 134.2 & NA & NA & 1.73823 & NA \tabularnewline
6 & 153.3 & NA & NA & 10.4257 & NA \tabularnewline
7 & 129.7 & 136.324 & 144.167 & -7.8426 & -6.62406 \tabularnewline
8 & 137.6 & 148.141 & 154.35 & -6.20927 & -10.5407 \tabularnewline
9 & 158.8 & 173.63 & 163.063 & 10.5671 & -14.8296 \tabularnewline
10 & 197.1 & 188.15 & 170.588 & 17.5623 & 8.95024 \tabularnewline
11 & 171.1 & 178.032 & 177.742 & 0.290729 & -6.9324 \tabularnewline
12 & 184.4 & 176.928 & 183.937 & -7.00927 & 7.47177 \tabularnewline
13 & 216.6 & 189.6 & 188.458 & 1.14156 & 27.0001 \tabularnewline
14 & 219.3 & 196.329 & 191.379 & 4.9499 & 22.9709 \tabularnewline
15 & 184.2 & 178.112 & 193.371 & -15.2593 & 6.08844 \tabularnewline
16 & 205.3 & 182.432 & 192.788 & -10.3551 & 22.8676 \tabularnewline
17 & 216.8 & 190.817 & 189.079 & 1.73823 & 25.9826 \tabularnewline
18 & 219.4 & 194.609 & 184.183 & 10.4257 & 24.7909 \tabularnewline
19 & 172.1 & 169.878 & 177.721 & -7.8426 & 2.22177 \tabularnewline
20 & 165.3 & 163.757 & 169.967 & -6.20927 & 1.5426 \tabularnewline
21 & 178.9 & 172.367 & 161.8 & 10.5671 & 6.53288 \tabularnewline
22 & 163 & 170.491 & 152.929 & 17.5623 & -7.49142 \tabularnewline
23 & 116.2 & 144.645 & 144.354 & 0.290729 & -28.4449 \tabularnewline
24 & 121.8 & 129.912 & 136.921 & -7.00927 & -8.11156 \tabularnewline
25 & 124.1 & 131.996 & 130.854 & 1.14156 & -7.89573 \tabularnewline
26 & 125.7 & 131.342 & 126.392 & 4.9499 & -5.64156 \tabularnewline
27 & 81.8 & 108.241 & 123.5 & -15.2593 & -26.4407 \tabularnewline
28 & 94.8 & 111.753 & 122.108 & -10.3551 & -16.9532 \tabularnewline
29 & 121.5 & 125.034 & 123.296 & 1.73823 & -3.53406 \tabularnewline
30 & 136.3 & 136.747 & 126.321 & 10.4257 & -0.446562 \tabularnewline
31 & 109.6 & 122.791 & 130.633 & -7.8426 & -13.1907 \tabularnewline
32 & 120.7 & 131.312 & 137.521 & -6.20927 & -10.6116 \tabularnewline
33 & 154.1 & 157.925 & 147.358 & 10.5671 & -3.82545 \tabularnewline
34 & 154.4 & 175.991 & 158.429 & 17.5623 & -21.5914 \tabularnewline
35 & 153.3 & 168.912 & 168.621 & 0.290729 & -15.6116 \tabularnewline
36 & 157.3 & 171.303 & 178.312 & -7.00927 & -14.0032 \tabularnewline
37 & 192.1 & 189.604 & 188.463 & 1.14156 & 2.49594 \tabularnewline
38 & 223 & 203.771 & 198.821 & 4.9499 & 19.2293 \tabularnewline
39 & 220.6 & 192.566 & 207.825 & -15.2593 & 28.0343 \tabularnewline
40 & 221.7 & 205.741 & 216.096 & -10.3551 & 15.9593 \tabularnewline
41 & 239.2 & 225.676 & 223.938 & 1.73823 & 13.5243 \tabularnewline
42 & 251.2 & 239.301 & 228.875 & 10.4257 & 11.8993 \tabularnewline
43 & 238.3 & 220.882 & 228.725 & -7.8426 & 17.4176 \tabularnewline
44 & 240.6 & 217.482 & 223.692 & -6.20927 & 23.1176 \tabularnewline
45 & 250.3 & 226.738 & 216.171 & 10.5671 & 23.562 \tabularnewline
46 & 256.7 & 225.475 & 207.913 & 17.5623 & 31.2252 \tabularnewline
47 & 239.2 & 198.807 & 198.517 & 0.290729 & 40.3926 \tabularnewline
48 & 189.9 & 181.112 & 188.121 & -7.00927 & 8.78844 \tabularnewline
49 & 155.9 & 179.212 & 178.071 & 1.14156 & -23.3124 \tabularnewline
50 & 138.4 & 173.392 & 168.442 & 4.9499 & -34.9916 \tabularnewline
51 & 124.7 & 143.557 & 158.817 & -15.2593 & -18.8574 \tabularnewline
52 & 119.4 & 138.966 & 149.321 & -10.3551 & -19.5657 \tabularnewline
53 & 116 & 141.822 & 140.083 & 1.73823 & -25.8216 \tabularnewline
54 & 124.9 & 142.93 & 132.504 & 10.4257 & -18.0299 \tabularnewline
55 & 123.4 & 120.037 & 127.879 & -7.8426 & 3.36344 \tabularnewline
56 & 124.4 & 119.17 & 125.379 & -6.20927 & 5.2301 \tabularnewline
57 & 135.5 & 134.238 & 123.671 & 10.5671 & 1.26205 \tabularnewline
58 & 143.6 & 139.433 & 121.871 & 17.5623 & 4.16691 \tabularnewline
59 & 130.6 & 120.353 & 120.062 & 0.290729 & 10.2468 \tabularnewline
60 & 116.6 & 111.095 & 118.104 & -7.00927 & 5.5051 \tabularnewline
61 & 118.2 & 116.837 & 115.696 & 1.14156 & 1.3626 \tabularnewline
62 & 116.1 & 118.017 & 113.067 & 4.9499 & -1.91656 \tabularnewline
63 & 106 & 95.1741 & 110.433 & -15.2593 & 10.8259 \tabularnewline
64 & 94.9 & 97.5574 & 107.912 & -10.3551 & -2.6574 \tabularnewline
65 & 97.1 & 107.601 & 105.862 & 1.73823 & -10.5007 \tabularnewline
66 & 96.8 & 115.363 & 104.937 & 10.4257 & -18.5632 \tabularnewline
67 & 93.7 & 97.3074 & 105.15 & -7.8426 & -3.6074 \tabularnewline
68 & 91 & 100.157 & 106.367 & -6.20927 & -9.1574 \tabularnewline
69 & 105.7 & 118.821 & 108.254 & 10.5671 & -13.1213 \tabularnewline
70 & 112.9 & 128.579 & 111.017 & 17.5623 & -15.6789 \tabularnewline
71 & 112.1 & NA & NA & 0.290729 & NA \tabularnewline
72 & 112.9 & NA & NA & -7.00927 & NA \tabularnewline
73 & 127 & NA & NA & 1.14156 & NA \tabularnewline
74 & 136.5 & NA & NA & 4.9499 & NA \tabularnewline
75 & 130.9 & NA & NA & -15.2593 & NA \tabularnewline
76 & 136.3 & NA & NA & -10.3551 & 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]89.8[/C][C]NA[/C][C]NA[/C][C]1.14156[/C][C]NA[/C][/ROW]
[ROW][C]2[/C][C]101.7[/C][C]NA[/C][C]NA[/C][C]4.9499[/C][C]NA[/C][/ROW]
[ROW][C]3[/C][C]92.7[/C][C]NA[/C][C]NA[/C][C]-15.2593[/C][C]NA[/C][/ROW]
[ROW][C]4[/C][C]116.2[/C][C]NA[/C][C]NA[/C][C]-10.3551[/C][C]NA[/C][/ROW]
[ROW][C]5[/C][C]134.2[/C][C]NA[/C][C]NA[/C][C]1.73823[/C][C]NA[/C][/ROW]
[ROW][C]6[/C][C]153.3[/C][C]NA[/C][C]NA[/C][C]10.4257[/C][C]NA[/C][/ROW]
[ROW][C]7[/C][C]129.7[/C][C]136.324[/C][C]144.167[/C][C]-7.8426[/C][C]-6.62406[/C][/ROW]
[ROW][C]8[/C][C]137.6[/C][C]148.141[/C][C]154.35[/C][C]-6.20927[/C][C]-10.5407[/C][/ROW]
[ROW][C]9[/C][C]158.8[/C][C]173.63[/C][C]163.063[/C][C]10.5671[/C][C]-14.8296[/C][/ROW]
[ROW][C]10[/C][C]197.1[/C][C]188.15[/C][C]170.588[/C][C]17.5623[/C][C]8.95024[/C][/ROW]
[ROW][C]11[/C][C]171.1[/C][C]178.032[/C][C]177.742[/C][C]0.290729[/C][C]-6.9324[/C][/ROW]
[ROW][C]12[/C][C]184.4[/C][C]176.928[/C][C]183.937[/C][C]-7.00927[/C][C]7.47177[/C][/ROW]
[ROW][C]13[/C][C]216.6[/C][C]189.6[/C][C]188.458[/C][C]1.14156[/C][C]27.0001[/C][/ROW]
[ROW][C]14[/C][C]219.3[/C][C]196.329[/C][C]191.379[/C][C]4.9499[/C][C]22.9709[/C][/ROW]
[ROW][C]15[/C][C]184.2[/C][C]178.112[/C][C]193.371[/C][C]-15.2593[/C][C]6.08844[/C][/ROW]
[ROW][C]16[/C][C]205.3[/C][C]182.432[/C][C]192.788[/C][C]-10.3551[/C][C]22.8676[/C][/ROW]
[ROW][C]17[/C][C]216.8[/C][C]190.817[/C][C]189.079[/C][C]1.73823[/C][C]25.9826[/C][/ROW]
[ROW][C]18[/C][C]219.4[/C][C]194.609[/C][C]184.183[/C][C]10.4257[/C][C]24.7909[/C][/ROW]
[ROW][C]19[/C][C]172.1[/C][C]169.878[/C][C]177.721[/C][C]-7.8426[/C][C]2.22177[/C][/ROW]
[ROW][C]20[/C][C]165.3[/C][C]163.757[/C][C]169.967[/C][C]-6.20927[/C][C]1.5426[/C][/ROW]
[ROW][C]21[/C][C]178.9[/C][C]172.367[/C][C]161.8[/C][C]10.5671[/C][C]6.53288[/C][/ROW]
[ROW][C]22[/C][C]163[/C][C]170.491[/C][C]152.929[/C][C]17.5623[/C][C]-7.49142[/C][/ROW]
[ROW][C]23[/C][C]116.2[/C][C]144.645[/C][C]144.354[/C][C]0.290729[/C][C]-28.4449[/C][/ROW]
[ROW][C]24[/C][C]121.8[/C][C]129.912[/C][C]136.921[/C][C]-7.00927[/C][C]-8.11156[/C][/ROW]
[ROW][C]25[/C][C]124.1[/C][C]131.996[/C][C]130.854[/C][C]1.14156[/C][C]-7.89573[/C][/ROW]
[ROW][C]26[/C][C]125.7[/C][C]131.342[/C][C]126.392[/C][C]4.9499[/C][C]-5.64156[/C][/ROW]
[ROW][C]27[/C][C]81.8[/C][C]108.241[/C][C]123.5[/C][C]-15.2593[/C][C]-26.4407[/C][/ROW]
[ROW][C]28[/C][C]94.8[/C][C]111.753[/C][C]122.108[/C][C]-10.3551[/C][C]-16.9532[/C][/ROW]
[ROW][C]29[/C][C]121.5[/C][C]125.034[/C][C]123.296[/C][C]1.73823[/C][C]-3.53406[/C][/ROW]
[ROW][C]30[/C][C]136.3[/C][C]136.747[/C][C]126.321[/C][C]10.4257[/C][C]-0.446562[/C][/ROW]
[ROW][C]31[/C][C]109.6[/C][C]122.791[/C][C]130.633[/C][C]-7.8426[/C][C]-13.1907[/C][/ROW]
[ROW][C]32[/C][C]120.7[/C][C]131.312[/C][C]137.521[/C][C]-6.20927[/C][C]-10.6116[/C][/ROW]
[ROW][C]33[/C][C]154.1[/C][C]157.925[/C][C]147.358[/C][C]10.5671[/C][C]-3.82545[/C][/ROW]
[ROW][C]34[/C][C]154.4[/C][C]175.991[/C][C]158.429[/C][C]17.5623[/C][C]-21.5914[/C][/ROW]
[ROW][C]35[/C][C]153.3[/C][C]168.912[/C][C]168.621[/C][C]0.290729[/C][C]-15.6116[/C][/ROW]
[ROW][C]36[/C][C]157.3[/C][C]171.303[/C][C]178.312[/C][C]-7.00927[/C][C]-14.0032[/C][/ROW]
[ROW][C]37[/C][C]192.1[/C][C]189.604[/C][C]188.463[/C][C]1.14156[/C][C]2.49594[/C][/ROW]
[ROW][C]38[/C][C]223[/C][C]203.771[/C][C]198.821[/C][C]4.9499[/C][C]19.2293[/C][/ROW]
[ROW][C]39[/C][C]220.6[/C][C]192.566[/C][C]207.825[/C][C]-15.2593[/C][C]28.0343[/C][/ROW]
[ROW][C]40[/C][C]221.7[/C][C]205.741[/C][C]216.096[/C][C]-10.3551[/C][C]15.9593[/C][/ROW]
[ROW][C]41[/C][C]239.2[/C][C]225.676[/C][C]223.938[/C][C]1.73823[/C][C]13.5243[/C][/ROW]
[ROW][C]42[/C][C]251.2[/C][C]239.301[/C][C]228.875[/C][C]10.4257[/C][C]11.8993[/C][/ROW]
[ROW][C]43[/C][C]238.3[/C][C]220.882[/C][C]228.725[/C][C]-7.8426[/C][C]17.4176[/C][/ROW]
[ROW][C]44[/C][C]240.6[/C][C]217.482[/C][C]223.692[/C][C]-6.20927[/C][C]23.1176[/C][/ROW]
[ROW][C]45[/C][C]250.3[/C][C]226.738[/C][C]216.171[/C][C]10.5671[/C][C]23.562[/C][/ROW]
[ROW][C]46[/C][C]256.7[/C][C]225.475[/C][C]207.913[/C][C]17.5623[/C][C]31.2252[/C][/ROW]
[ROW][C]47[/C][C]239.2[/C][C]198.807[/C][C]198.517[/C][C]0.290729[/C][C]40.3926[/C][/ROW]
[ROW][C]48[/C][C]189.9[/C][C]181.112[/C][C]188.121[/C][C]-7.00927[/C][C]8.78844[/C][/ROW]
[ROW][C]49[/C][C]155.9[/C][C]179.212[/C][C]178.071[/C][C]1.14156[/C][C]-23.3124[/C][/ROW]
[ROW][C]50[/C][C]138.4[/C][C]173.392[/C][C]168.442[/C][C]4.9499[/C][C]-34.9916[/C][/ROW]
[ROW][C]51[/C][C]124.7[/C][C]143.557[/C][C]158.817[/C][C]-15.2593[/C][C]-18.8574[/C][/ROW]
[ROW][C]52[/C][C]119.4[/C][C]138.966[/C][C]149.321[/C][C]-10.3551[/C][C]-19.5657[/C][/ROW]
[ROW][C]53[/C][C]116[/C][C]141.822[/C][C]140.083[/C][C]1.73823[/C][C]-25.8216[/C][/ROW]
[ROW][C]54[/C][C]124.9[/C][C]142.93[/C][C]132.504[/C][C]10.4257[/C][C]-18.0299[/C][/ROW]
[ROW][C]55[/C][C]123.4[/C][C]120.037[/C][C]127.879[/C][C]-7.8426[/C][C]3.36344[/C][/ROW]
[ROW][C]56[/C][C]124.4[/C][C]119.17[/C][C]125.379[/C][C]-6.20927[/C][C]5.2301[/C][/ROW]
[ROW][C]57[/C][C]135.5[/C][C]134.238[/C][C]123.671[/C][C]10.5671[/C][C]1.26205[/C][/ROW]
[ROW][C]58[/C][C]143.6[/C][C]139.433[/C][C]121.871[/C][C]17.5623[/C][C]4.16691[/C][/ROW]
[ROW][C]59[/C][C]130.6[/C][C]120.353[/C][C]120.062[/C][C]0.290729[/C][C]10.2468[/C][/ROW]
[ROW][C]60[/C][C]116.6[/C][C]111.095[/C][C]118.104[/C][C]-7.00927[/C][C]5.5051[/C][/ROW]
[ROW][C]61[/C][C]118.2[/C][C]116.837[/C][C]115.696[/C][C]1.14156[/C][C]1.3626[/C][/ROW]
[ROW][C]62[/C][C]116.1[/C][C]118.017[/C][C]113.067[/C][C]4.9499[/C][C]-1.91656[/C][/ROW]
[ROW][C]63[/C][C]106[/C][C]95.1741[/C][C]110.433[/C][C]-15.2593[/C][C]10.8259[/C][/ROW]
[ROW][C]64[/C][C]94.9[/C][C]97.5574[/C][C]107.912[/C][C]-10.3551[/C][C]-2.6574[/C][/ROW]
[ROW][C]65[/C][C]97.1[/C][C]107.601[/C][C]105.862[/C][C]1.73823[/C][C]-10.5007[/C][/ROW]
[ROW][C]66[/C][C]96.8[/C][C]115.363[/C][C]104.937[/C][C]10.4257[/C][C]-18.5632[/C][/ROW]
[ROW][C]67[/C][C]93.7[/C][C]97.3074[/C][C]105.15[/C][C]-7.8426[/C][C]-3.6074[/C][/ROW]
[ROW][C]68[/C][C]91[/C][C]100.157[/C][C]106.367[/C][C]-6.20927[/C][C]-9.1574[/C][/ROW]
[ROW][C]69[/C][C]105.7[/C][C]118.821[/C][C]108.254[/C][C]10.5671[/C][C]-13.1213[/C][/ROW]
[ROW][C]70[/C][C]112.9[/C][C]128.579[/C][C]111.017[/C][C]17.5623[/C][C]-15.6789[/C][/ROW]
[ROW][C]71[/C][C]112.1[/C][C]NA[/C][C]NA[/C][C]0.290729[/C][C]NA[/C][/ROW]
[ROW][C]72[/C][C]112.9[/C][C]NA[/C][C]NA[/C][C]-7.00927[/C][C]NA[/C][/ROW]
[ROW][C]73[/C][C]127[/C][C]NA[/C][C]NA[/C][C]1.14156[/C][C]NA[/C][/ROW]
[ROW][C]74[/C][C]136.5[/C][C]NA[/C][C]NA[/C][C]4.9499[/C][C]NA[/C][/ROW]
[ROW][C]75[/C][C]130.9[/C][C]NA[/C][C]NA[/C][C]-15.2593[/C][C]NA[/C][/ROW]
[ROW][C]76[/C][C]136.3[/C][C]NA[/C][C]NA[/C][C]-10.3551[/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	89.8	NA	NA	1.14156	NA
2	101.7	NA	NA	4.9499	NA
3	92.7	NA	NA	-15.2593	NA
4	116.2	NA	NA	-10.3551	NA
5	134.2	NA	NA	1.73823	NA
6	153.3	NA	NA	10.4257	NA
7	129.7	136.324	144.167	-7.8426	-6.62406
8	137.6	148.141	154.35	-6.20927	-10.5407
9	158.8	173.63	163.063	10.5671	-14.8296
10	197.1	188.15	170.588	17.5623	8.95024
11	171.1	178.032	177.742	0.290729	-6.9324
12	184.4	176.928	183.937	-7.00927	7.47177
13	216.6	189.6	188.458	1.14156	27.0001
14	219.3	196.329	191.379	4.9499	22.9709
15	184.2	178.112	193.371	-15.2593	6.08844
16	205.3	182.432	192.788	-10.3551	22.8676
17	216.8	190.817	189.079	1.73823	25.9826
18	219.4	194.609	184.183	10.4257	24.7909
19	172.1	169.878	177.721	-7.8426	2.22177
20	165.3	163.757	169.967	-6.20927	1.5426
21	178.9	172.367	161.8	10.5671	6.53288
22	163	170.491	152.929	17.5623	-7.49142
23	116.2	144.645	144.354	0.290729	-28.4449
24	121.8	129.912	136.921	-7.00927	-8.11156
25	124.1	131.996	130.854	1.14156	-7.89573
26	125.7	131.342	126.392	4.9499	-5.64156
27	81.8	108.241	123.5	-15.2593	-26.4407
28	94.8	111.753	122.108	-10.3551	-16.9532
29	121.5	125.034	123.296	1.73823	-3.53406
30	136.3	136.747	126.321	10.4257	-0.446562
31	109.6	122.791	130.633	-7.8426	-13.1907
32	120.7	131.312	137.521	-6.20927	-10.6116
33	154.1	157.925	147.358	10.5671	-3.82545
34	154.4	175.991	158.429	17.5623	-21.5914
35	153.3	168.912	168.621	0.290729	-15.6116
36	157.3	171.303	178.312	-7.00927	-14.0032
37	192.1	189.604	188.463	1.14156	2.49594
38	223	203.771	198.821	4.9499	19.2293
39	220.6	192.566	207.825	-15.2593	28.0343
40	221.7	205.741	216.096	-10.3551	15.9593
41	239.2	225.676	223.938	1.73823	13.5243
42	251.2	239.301	228.875	10.4257	11.8993
43	238.3	220.882	228.725	-7.8426	17.4176
44	240.6	217.482	223.692	-6.20927	23.1176
45	250.3	226.738	216.171	10.5671	23.562
46	256.7	225.475	207.913	17.5623	31.2252
47	239.2	198.807	198.517	0.290729	40.3926
48	189.9	181.112	188.121	-7.00927	8.78844
49	155.9	179.212	178.071	1.14156	-23.3124
50	138.4	173.392	168.442	4.9499	-34.9916
51	124.7	143.557	158.817	-15.2593	-18.8574
52	119.4	138.966	149.321	-10.3551	-19.5657
53	116	141.822	140.083	1.73823	-25.8216
54	124.9	142.93	132.504	10.4257	-18.0299
55	123.4	120.037	127.879	-7.8426	3.36344
56	124.4	119.17	125.379	-6.20927	5.2301
57	135.5	134.238	123.671	10.5671	1.26205
58	143.6	139.433	121.871	17.5623	4.16691
59	130.6	120.353	120.062	0.290729	10.2468
60	116.6	111.095	118.104	-7.00927	5.5051
61	118.2	116.837	115.696	1.14156	1.3626
62	116.1	118.017	113.067	4.9499	-1.91656
63	106	95.1741	110.433	-15.2593	10.8259
64	94.9	97.5574	107.912	-10.3551	-2.6574
65	97.1	107.601	105.862	1.73823	-10.5007
66	96.8	115.363	104.937	10.4257	-18.5632
67	93.7	97.3074	105.15	-7.8426	-3.6074
68	91	100.157	106.367	-6.20927	-9.1574
69	105.7	118.821	108.254	10.5671	-13.1213
70	112.9	128.579	111.017	17.5623	-15.6789
71	112.1	NA	NA	0.290729	NA
72	112.9	NA	NA	-7.00927	NA
73	127	NA	NA	1.14156	NA
74	136.5	NA	NA	4.9499	NA
75	130.9	NA	NA	-15.2593	NA
76	136.3	NA	NA	-10.3551	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