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, 22 Nov 2016 14:26:17 +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/22/t14798247928ng4hbtdig3l5o8.htm/, Retrieved Sun, 05 May 2024 19:19:34 +0200

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=, Retrieved Sun, 05 May 2024 19:19:34 +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	95.97	NA	NA	-0.177868	NA
2	96.22	NA	NA	-0.154368	NA
3	95.8	NA	NA	-0.151285	NA
4	96.02	NA	NA	0.235299	NA
5	96.04	NA	NA	0.407049	NA
6	96.15	NA	NA	0.297882	NA
7	96.15	96.3533	96.1404	0.212882	-0.203299
8	95.99	96.1528	96.1854	-0.0326181	-0.162799
9	96.08	96.0931	96.2483	-0.155201	-0.0131319
10	96.29	96.1798	96.3292	-0.149368	0.110201
11	96.3	96.2929	96.4392	-0.146285	0.00711806
12	96.44	96.3805	96.5667	-0.186118	0.0594514
13	96.44	96.5105	96.6883	-0.177868	-0.0704653
14	96.83	96.6623	96.8167	-0.154368	0.167701
15	96.7	96.7941	96.9454	-0.151285	-0.0941319
16	97.06	97.2957	97.0604	0.235299	-0.235715
17	97.64	97.5833	97.1762	0.407049	0.0567014
18	97.61	97.5925	97.2946	0.297882	0.0175347
19	97.61	97.62	97.4071	0.212882	-0.00996528
20	97.61	97.4707	97.5033	-0.0326181	0.139285
21	97.55	97.4423	97.5975	-0.155201	0.107701
22	97.58	97.5569	97.7062	-0.149368	0.0231181
23	97.79	97.6579	97.8042	-0.146285	0.132118
24	97.79	97.7147	97.9008	-0.186118	0.0752847
25	97.79	97.8296	98.0075	-0.177868	-0.0396319
26	97.79	97.9598	98.1142	-0.154368	-0.169799
27	98	98.0716	98.2229	-0.151285	-0.0716319
28	98.37	98.5715	98.3363	0.235299	-0.201549
29	98.68	98.8537	98.4467	0.407049	-0.173715
30	98.89	98.8495	98.5517	0.297882	0.0404514
31	98.89	98.8675	98.6546	0.212882	0.0225347
32	98.89	98.724	98.7567	-0.0326181	0.165951
33	98.88	98.7031	98.8583	-0.155201	0.176868
34	98.97	98.8394	98.9887	-0.149368	0.130618
35	99.05	99.0108	99.1571	-0.146285	0.0392014
36	99.05	99.1364	99.3225	-0.186118	-0.0863819
37	99	99.2996	99.4775	-0.177868	-0.299632
38	99.03	99.454	99.6083	-0.154368	-0.423965
39	99.2	99.5562	99.7075	-0.151285	-0.356215
40	100.3	100.029	99.7933	0.235299	0.271368
41	100.79	100.282	99.8746	0.407049	0.508368
42	100.75	100.255	99.9571	0.297882	0.495035
43	100.75	100.273	100.06	0.212882	0.476701
44	100.17	100.16	100.192	-0.0326181	0.0101181
45	99.98	100.17	100.325	-0.155201	-0.189799
46	99.93	100.279	100.428	-0.149368	-0.348549
47	100.04	100.334	100.48	-0.146285	-0.293715
48	100.04	100.323	100.509	-0.186118	-0.283049
49	100.49	100.347	100.525	-0.177868	0.142868
50	100.71	100.386	100.541	-0.154368	0.323535
51	100.7	100.43	100.581	-0.151285	0.270451
52	101.27	100.869	100.633	0.235299	0.401368
53	101.07	101.095	100.687	0.407049	-0.0245486
54	101.17	101.034	100.736	0.297882	0.136285
55	100.71	100.977	100.764	0.212882	-0.267049
56	100.59	100.724	100.756	-0.0326181	-0.133632
57	100.52	100.583	100.738	-0.155201	-0.0627153
58	100.65	100.546	100.696	-0.149368	0.103535
59	100.62	100.486	100.632	-0.146285	0.134201
60	100.62	100.366	100.552	-0.186118	0.253618
61	100.59	100.304	100.482	-0.177868	0.285785
62	100.42	100.299	100.453	-0.154368	0.121451
63	100.55	100.28	100.431	-0.151285	0.270451
64	100.41	100.627	100.391	0.235299	-0.216549
65	100.4	100.748	100.341	0.407049	-0.347882
66	99.93	100.6	100.302	0.297882	-0.670382
67	100.26	NA	NA	0.212882	NA
68	100.34	NA	NA	-0.0326181	NA
69	100.24	NA	NA	-0.155201	NA
70	99.98	NA	NA	-0.149368	NA
71	100.08	NA	NA	-0.146285	NA
72	100.24	NA	NA	-0.186118	NA

\begin{tabular}{lllllllll}
\hline
Classical Decomposition by Moving Averages \tabularnewline
t & Observations & Fit & Trend & Seasonal & Random \tabularnewline
1 & 95.97 & NA & NA & -0.177868 & NA \tabularnewline
2 & 96.22 & NA & NA & -0.154368 & NA \tabularnewline
3 & 95.8 & NA & NA & -0.151285 & NA \tabularnewline
4 & 96.02 & NA & NA & 0.235299 & NA \tabularnewline
5 & 96.04 & NA & NA & 0.407049 & NA \tabularnewline
6 & 96.15 & NA & NA & 0.297882 & NA \tabularnewline
7 & 96.15 & 96.3533 & 96.1404 & 0.212882 & -0.203299 \tabularnewline
8 & 95.99 & 96.1528 & 96.1854 & -0.0326181 & -0.162799 \tabularnewline
9 & 96.08 & 96.0931 & 96.2483 & -0.155201 & -0.0131319 \tabularnewline
10 & 96.29 & 96.1798 & 96.3292 & -0.149368 & 0.110201 \tabularnewline
11 & 96.3 & 96.2929 & 96.4392 & -0.146285 & 0.00711806 \tabularnewline
12 & 96.44 & 96.3805 & 96.5667 & -0.186118 & 0.0594514 \tabularnewline
13 & 96.44 & 96.5105 & 96.6883 & -0.177868 & -0.0704653 \tabularnewline
14 & 96.83 & 96.6623 & 96.8167 & -0.154368 & 0.167701 \tabularnewline
15 & 96.7 & 96.7941 & 96.9454 & -0.151285 & -0.0941319 \tabularnewline
16 & 97.06 & 97.2957 & 97.0604 & 0.235299 & -0.235715 \tabularnewline
17 & 97.64 & 97.5833 & 97.1762 & 0.407049 & 0.0567014 \tabularnewline
18 & 97.61 & 97.5925 & 97.2946 & 0.297882 & 0.0175347 \tabularnewline
19 & 97.61 & 97.62 & 97.4071 & 0.212882 & -0.00996528 \tabularnewline
20 & 97.61 & 97.4707 & 97.5033 & -0.0326181 & 0.139285 \tabularnewline
21 & 97.55 & 97.4423 & 97.5975 & -0.155201 & 0.107701 \tabularnewline
22 & 97.58 & 97.5569 & 97.7062 & -0.149368 & 0.0231181 \tabularnewline
23 & 97.79 & 97.6579 & 97.8042 & -0.146285 & 0.132118 \tabularnewline
24 & 97.79 & 97.7147 & 97.9008 & -0.186118 & 0.0752847 \tabularnewline
25 & 97.79 & 97.8296 & 98.0075 & -0.177868 & -0.0396319 \tabularnewline
26 & 97.79 & 97.9598 & 98.1142 & -0.154368 & -0.169799 \tabularnewline
27 & 98 & 98.0716 & 98.2229 & -0.151285 & -0.0716319 \tabularnewline
28 & 98.37 & 98.5715 & 98.3363 & 0.235299 & -0.201549 \tabularnewline
29 & 98.68 & 98.8537 & 98.4467 & 0.407049 & -0.173715 \tabularnewline
30 & 98.89 & 98.8495 & 98.5517 & 0.297882 & 0.0404514 \tabularnewline
31 & 98.89 & 98.8675 & 98.6546 & 0.212882 & 0.0225347 \tabularnewline
32 & 98.89 & 98.724 & 98.7567 & -0.0326181 & 0.165951 \tabularnewline
33 & 98.88 & 98.7031 & 98.8583 & -0.155201 & 0.176868 \tabularnewline
34 & 98.97 & 98.8394 & 98.9887 & -0.149368 & 0.130618 \tabularnewline
35 & 99.05 & 99.0108 & 99.1571 & -0.146285 & 0.0392014 \tabularnewline
36 & 99.05 & 99.1364 & 99.3225 & -0.186118 & -0.0863819 \tabularnewline
37 & 99 & 99.2996 & 99.4775 & -0.177868 & -0.299632 \tabularnewline
38 & 99.03 & 99.454 & 99.6083 & -0.154368 & -0.423965 \tabularnewline
39 & 99.2 & 99.5562 & 99.7075 & -0.151285 & -0.356215 \tabularnewline
40 & 100.3 & 100.029 & 99.7933 & 0.235299 & 0.271368 \tabularnewline
41 & 100.79 & 100.282 & 99.8746 & 0.407049 & 0.508368 \tabularnewline
42 & 100.75 & 100.255 & 99.9571 & 0.297882 & 0.495035 \tabularnewline
43 & 100.75 & 100.273 & 100.06 & 0.212882 & 0.476701 \tabularnewline
44 & 100.17 & 100.16 & 100.192 & -0.0326181 & 0.0101181 \tabularnewline
45 & 99.98 & 100.17 & 100.325 & -0.155201 & -0.189799 \tabularnewline
46 & 99.93 & 100.279 & 100.428 & -0.149368 & -0.348549 \tabularnewline
47 & 100.04 & 100.334 & 100.48 & -0.146285 & -0.293715 \tabularnewline
48 & 100.04 & 100.323 & 100.509 & -0.186118 & -0.283049 \tabularnewline
49 & 100.49 & 100.347 & 100.525 & -0.177868 & 0.142868 \tabularnewline
50 & 100.71 & 100.386 & 100.541 & -0.154368 & 0.323535 \tabularnewline
51 & 100.7 & 100.43 & 100.581 & -0.151285 & 0.270451 \tabularnewline
52 & 101.27 & 100.869 & 100.633 & 0.235299 & 0.401368 \tabularnewline
53 & 101.07 & 101.095 & 100.687 & 0.407049 & -0.0245486 \tabularnewline
54 & 101.17 & 101.034 & 100.736 & 0.297882 & 0.136285 \tabularnewline
55 & 100.71 & 100.977 & 100.764 & 0.212882 & -0.267049 \tabularnewline
56 & 100.59 & 100.724 & 100.756 & -0.0326181 & -0.133632 \tabularnewline
57 & 100.52 & 100.583 & 100.738 & -0.155201 & -0.0627153 \tabularnewline
58 & 100.65 & 100.546 & 100.696 & -0.149368 & 0.103535 \tabularnewline
59 & 100.62 & 100.486 & 100.632 & -0.146285 & 0.134201 \tabularnewline
60 & 100.62 & 100.366 & 100.552 & -0.186118 & 0.253618 \tabularnewline
61 & 100.59 & 100.304 & 100.482 & -0.177868 & 0.285785 \tabularnewline
62 & 100.42 & 100.299 & 100.453 & -0.154368 & 0.121451 \tabularnewline
63 & 100.55 & 100.28 & 100.431 & -0.151285 & 0.270451 \tabularnewline
64 & 100.41 & 100.627 & 100.391 & 0.235299 & -0.216549 \tabularnewline
65 & 100.4 & 100.748 & 100.341 & 0.407049 & -0.347882 \tabularnewline
66 & 99.93 & 100.6 & 100.302 & 0.297882 & -0.670382 \tabularnewline
67 & 100.26 & NA & NA & 0.212882 & NA \tabularnewline
68 & 100.34 & NA & NA & -0.0326181 & NA \tabularnewline
69 & 100.24 & NA & NA & -0.155201 & NA \tabularnewline
70 & 99.98 & NA & NA & -0.149368 & NA \tabularnewline
71 & 100.08 & NA & NA & -0.146285 & NA \tabularnewline
72 & 100.24 & NA & NA & -0.186118 & 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.97[/C][C]NA[/C][C]NA[/C][C]-0.177868[/C][C]NA[/C][/ROW]
[ROW][C]2[/C][C]96.22[/C][C]NA[/C][C]NA[/C][C]-0.154368[/C][C]NA[/C][/ROW]
[ROW][C]3[/C][C]95.8[/C][C]NA[/C][C]NA[/C][C]-0.151285[/C][C]NA[/C][/ROW]
[ROW][C]4[/C][C]96.02[/C][C]NA[/C][C]NA[/C][C]0.235299[/C][C]NA[/C][/ROW]
[ROW][C]5[/C][C]96.04[/C][C]NA[/C][C]NA[/C][C]0.407049[/C][C]NA[/C][/ROW]
[ROW][C]6[/C][C]96.15[/C][C]NA[/C][C]NA[/C][C]0.297882[/C][C]NA[/C][/ROW]
[ROW][C]7[/C][C]96.15[/C][C]96.3533[/C][C]96.1404[/C][C]0.212882[/C][C]-0.203299[/C][/ROW]
[ROW][C]8[/C][C]95.99[/C][C]96.1528[/C][C]96.1854[/C][C]-0.0326181[/C][C]-0.162799[/C][/ROW]
[ROW][C]9[/C][C]96.08[/C][C]96.0931[/C][C]96.2483[/C][C]-0.155201[/C][C]-0.0131319[/C][/ROW]
[ROW][C]10[/C][C]96.29[/C][C]96.1798[/C][C]96.3292[/C][C]-0.149368[/C][C]0.110201[/C][/ROW]
[ROW][C]11[/C][C]96.3[/C][C]96.2929[/C][C]96.4392[/C][C]-0.146285[/C][C]0.00711806[/C][/ROW]
[ROW][C]12[/C][C]96.44[/C][C]96.3805[/C][C]96.5667[/C][C]-0.186118[/C][C]0.0594514[/C][/ROW]
[ROW][C]13[/C][C]96.44[/C][C]96.5105[/C][C]96.6883[/C][C]-0.177868[/C][C]-0.0704653[/C][/ROW]
[ROW][C]14[/C][C]96.83[/C][C]96.6623[/C][C]96.8167[/C][C]-0.154368[/C][C]0.167701[/C][/ROW]
[ROW][C]15[/C][C]96.7[/C][C]96.7941[/C][C]96.9454[/C][C]-0.151285[/C][C]-0.0941319[/C][/ROW]
[ROW][C]16[/C][C]97.06[/C][C]97.2957[/C][C]97.0604[/C][C]0.235299[/C][C]-0.235715[/C][/ROW]
[ROW][C]17[/C][C]97.64[/C][C]97.5833[/C][C]97.1762[/C][C]0.407049[/C][C]0.0567014[/C][/ROW]
[ROW][C]18[/C][C]97.61[/C][C]97.5925[/C][C]97.2946[/C][C]0.297882[/C][C]0.0175347[/C][/ROW]
[ROW][C]19[/C][C]97.61[/C][C]97.62[/C][C]97.4071[/C][C]0.212882[/C][C]-0.00996528[/C][/ROW]
[ROW][C]20[/C][C]97.61[/C][C]97.4707[/C][C]97.5033[/C][C]-0.0326181[/C][C]0.139285[/C][/ROW]
[ROW][C]21[/C][C]97.55[/C][C]97.4423[/C][C]97.5975[/C][C]-0.155201[/C][C]0.107701[/C][/ROW]
[ROW][C]22[/C][C]97.58[/C][C]97.5569[/C][C]97.7062[/C][C]-0.149368[/C][C]0.0231181[/C][/ROW]
[ROW][C]23[/C][C]97.79[/C][C]97.6579[/C][C]97.8042[/C][C]-0.146285[/C][C]0.132118[/C][/ROW]
[ROW][C]24[/C][C]97.79[/C][C]97.7147[/C][C]97.9008[/C][C]-0.186118[/C][C]0.0752847[/C][/ROW]
[ROW][C]25[/C][C]97.79[/C][C]97.8296[/C][C]98.0075[/C][C]-0.177868[/C][C]-0.0396319[/C][/ROW]
[ROW][C]26[/C][C]97.79[/C][C]97.9598[/C][C]98.1142[/C][C]-0.154368[/C][C]-0.169799[/C][/ROW]
[ROW][C]27[/C][C]98[/C][C]98.0716[/C][C]98.2229[/C][C]-0.151285[/C][C]-0.0716319[/C][/ROW]
[ROW][C]28[/C][C]98.37[/C][C]98.5715[/C][C]98.3363[/C][C]0.235299[/C][C]-0.201549[/C][/ROW]
[ROW][C]29[/C][C]98.68[/C][C]98.8537[/C][C]98.4467[/C][C]0.407049[/C][C]-0.173715[/C][/ROW]
[ROW][C]30[/C][C]98.89[/C][C]98.8495[/C][C]98.5517[/C][C]0.297882[/C][C]0.0404514[/C][/ROW]
[ROW][C]31[/C][C]98.89[/C][C]98.8675[/C][C]98.6546[/C][C]0.212882[/C][C]0.0225347[/C][/ROW]
[ROW][C]32[/C][C]98.89[/C][C]98.724[/C][C]98.7567[/C][C]-0.0326181[/C][C]0.165951[/C][/ROW]
[ROW][C]33[/C][C]98.88[/C][C]98.7031[/C][C]98.8583[/C][C]-0.155201[/C][C]0.176868[/C][/ROW]
[ROW][C]34[/C][C]98.97[/C][C]98.8394[/C][C]98.9887[/C][C]-0.149368[/C][C]0.130618[/C][/ROW]
[ROW][C]35[/C][C]99.05[/C][C]99.0108[/C][C]99.1571[/C][C]-0.146285[/C][C]0.0392014[/C][/ROW]
[ROW][C]36[/C][C]99.05[/C][C]99.1364[/C][C]99.3225[/C][C]-0.186118[/C][C]-0.0863819[/C][/ROW]
[ROW][C]37[/C][C]99[/C][C]99.2996[/C][C]99.4775[/C][C]-0.177868[/C][C]-0.299632[/C][/ROW]
[ROW][C]38[/C][C]99.03[/C][C]99.454[/C][C]99.6083[/C][C]-0.154368[/C][C]-0.423965[/C][/ROW]
[ROW][C]39[/C][C]99.2[/C][C]99.5562[/C][C]99.7075[/C][C]-0.151285[/C][C]-0.356215[/C][/ROW]
[ROW][C]40[/C][C]100.3[/C][C]100.029[/C][C]99.7933[/C][C]0.235299[/C][C]0.271368[/C][/ROW]
[ROW][C]41[/C][C]100.79[/C][C]100.282[/C][C]99.8746[/C][C]0.407049[/C][C]0.508368[/C][/ROW]
[ROW][C]42[/C][C]100.75[/C][C]100.255[/C][C]99.9571[/C][C]0.297882[/C][C]0.495035[/C][/ROW]
[ROW][C]43[/C][C]100.75[/C][C]100.273[/C][C]100.06[/C][C]0.212882[/C][C]0.476701[/C][/ROW]
[ROW][C]44[/C][C]100.17[/C][C]100.16[/C][C]100.192[/C][C]-0.0326181[/C][C]0.0101181[/C][/ROW]
[ROW][C]45[/C][C]99.98[/C][C]100.17[/C][C]100.325[/C][C]-0.155201[/C][C]-0.189799[/C][/ROW]
[ROW][C]46[/C][C]99.93[/C][C]100.279[/C][C]100.428[/C][C]-0.149368[/C][C]-0.348549[/C][/ROW]
[ROW][C]47[/C][C]100.04[/C][C]100.334[/C][C]100.48[/C][C]-0.146285[/C][C]-0.293715[/C][/ROW]
[ROW][C]48[/C][C]100.04[/C][C]100.323[/C][C]100.509[/C][C]-0.186118[/C][C]-0.283049[/C][/ROW]
[ROW][C]49[/C][C]100.49[/C][C]100.347[/C][C]100.525[/C][C]-0.177868[/C][C]0.142868[/C][/ROW]
[ROW][C]50[/C][C]100.71[/C][C]100.386[/C][C]100.541[/C][C]-0.154368[/C][C]0.323535[/C][/ROW]
[ROW][C]51[/C][C]100.7[/C][C]100.43[/C][C]100.581[/C][C]-0.151285[/C][C]0.270451[/C][/ROW]
[ROW][C]52[/C][C]101.27[/C][C]100.869[/C][C]100.633[/C][C]0.235299[/C][C]0.401368[/C][/ROW]
[ROW][C]53[/C][C]101.07[/C][C]101.095[/C][C]100.687[/C][C]0.407049[/C][C]-0.0245486[/C][/ROW]
[ROW][C]54[/C][C]101.17[/C][C]101.034[/C][C]100.736[/C][C]0.297882[/C][C]0.136285[/C][/ROW]
[ROW][C]55[/C][C]100.71[/C][C]100.977[/C][C]100.764[/C][C]0.212882[/C][C]-0.267049[/C][/ROW]
[ROW][C]56[/C][C]100.59[/C][C]100.724[/C][C]100.756[/C][C]-0.0326181[/C][C]-0.133632[/C][/ROW]
[ROW][C]57[/C][C]100.52[/C][C]100.583[/C][C]100.738[/C][C]-0.155201[/C][C]-0.0627153[/C][/ROW]
[ROW][C]58[/C][C]100.65[/C][C]100.546[/C][C]100.696[/C][C]-0.149368[/C][C]0.103535[/C][/ROW]
[ROW][C]59[/C][C]100.62[/C][C]100.486[/C][C]100.632[/C][C]-0.146285[/C][C]0.134201[/C][/ROW]
[ROW][C]60[/C][C]100.62[/C][C]100.366[/C][C]100.552[/C][C]-0.186118[/C][C]0.253618[/C][/ROW]
[ROW][C]61[/C][C]100.59[/C][C]100.304[/C][C]100.482[/C][C]-0.177868[/C][C]0.285785[/C][/ROW]
[ROW][C]62[/C][C]100.42[/C][C]100.299[/C][C]100.453[/C][C]-0.154368[/C][C]0.121451[/C][/ROW]
[ROW][C]63[/C][C]100.55[/C][C]100.28[/C][C]100.431[/C][C]-0.151285[/C][C]0.270451[/C][/ROW]
[ROW][C]64[/C][C]100.41[/C][C]100.627[/C][C]100.391[/C][C]0.235299[/C][C]-0.216549[/C][/ROW]
[ROW][C]65[/C][C]100.4[/C][C]100.748[/C][C]100.341[/C][C]0.407049[/C][C]-0.347882[/C][/ROW]
[ROW][C]66[/C][C]99.93[/C][C]100.6[/C][C]100.302[/C][C]0.297882[/C][C]-0.670382[/C][/ROW]
[ROW][C]67[/C][C]100.26[/C][C]NA[/C][C]NA[/C][C]0.212882[/C][C]NA[/C][/ROW]
[ROW][C]68[/C][C]100.34[/C][C]NA[/C][C]NA[/C][C]-0.0326181[/C][C]NA[/C][/ROW]
[ROW][C]69[/C][C]100.24[/C][C]NA[/C][C]NA[/C][C]-0.155201[/C][C]NA[/C][/ROW]
[ROW][C]70[/C][C]99.98[/C][C]NA[/C][C]NA[/C][C]-0.149368[/C][C]NA[/C][/ROW]
[ROW][C]71[/C][C]100.08[/C][C]NA[/C][C]NA[/C][C]-0.146285[/C][C]NA[/C][/ROW]
[ROW][C]72[/C][C]100.24[/C][C]NA[/C][C]NA[/C][C]-0.186118[/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.97	NA	NA	-0.177868	NA
2	96.22	NA	NA	-0.154368	NA
3	95.8	NA	NA	-0.151285	NA
4	96.02	NA	NA	0.235299	NA
5	96.04	NA	NA	0.407049	NA
6	96.15	NA	NA	0.297882	NA
7	96.15	96.3533	96.1404	0.212882	-0.203299
8	95.99	96.1528	96.1854	-0.0326181	-0.162799
9	96.08	96.0931	96.2483	-0.155201	-0.0131319
10	96.29	96.1798	96.3292	-0.149368	0.110201
11	96.3	96.2929	96.4392	-0.146285	0.00711806
12	96.44	96.3805	96.5667	-0.186118	0.0594514
13	96.44	96.5105	96.6883	-0.177868	-0.0704653
14	96.83	96.6623	96.8167	-0.154368	0.167701
15	96.7	96.7941	96.9454	-0.151285	-0.0941319
16	97.06	97.2957	97.0604	0.235299	-0.235715
17	97.64	97.5833	97.1762	0.407049	0.0567014
18	97.61	97.5925	97.2946	0.297882	0.0175347
19	97.61	97.62	97.4071	0.212882	-0.00996528
20	97.61	97.4707	97.5033	-0.0326181	0.139285
21	97.55	97.4423	97.5975	-0.155201	0.107701
22	97.58	97.5569	97.7062	-0.149368	0.0231181
23	97.79	97.6579	97.8042	-0.146285	0.132118
24	97.79	97.7147	97.9008	-0.186118	0.0752847
25	97.79	97.8296	98.0075	-0.177868	-0.0396319
26	97.79	97.9598	98.1142	-0.154368	-0.169799
27	98	98.0716	98.2229	-0.151285	-0.0716319
28	98.37	98.5715	98.3363	0.235299	-0.201549
29	98.68	98.8537	98.4467	0.407049	-0.173715
30	98.89	98.8495	98.5517	0.297882	0.0404514
31	98.89	98.8675	98.6546	0.212882	0.0225347
32	98.89	98.724	98.7567	-0.0326181	0.165951
33	98.88	98.7031	98.8583	-0.155201	0.176868
34	98.97	98.8394	98.9887	-0.149368	0.130618
35	99.05	99.0108	99.1571	-0.146285	0.0392014
36	99.05	99.1364	99.3225	-0.186118	-0.0863819
37	99	99.2996	99.4775	-0.177868	-0.299632
38	99.03	99.454	99.6083	-0.154368	-0.423965
39	99.2	99.5562	99.7075	-0.151285	-0.356215
40	100.3	100.029	99.7933	0.235299	0.271368
41	100.79	100.282	99.8746	0.407049	0.508368
42	100.75	100.255	99.9571	0.297882	0.495035
43	100.75	100.273	100.06	0.212882	0.476701
44	100.17	100.16	100.192	-0.0326181	0.0101181
45	99.98	100.17	100.325	-0.155201	-0.189799
46	99.93	100.279	100.428	-0.149368	-0.348549
47	100.04	100.334	100.48	-0.146285	-0.293715
48	100.04	100.323	100.509	-0.186118	-0.283049
49	100.49	100.347	100.525	-0.177868	0.142868
50	100.71	100.386	100.541	-0.154368	0.323535
51	100.7	100.43	100.581	-0.151285	0.270451
52	101.27	100.869	100.633	0.235299	0.401368
53	101.07	101.095	100.687	0.407049	-0.0245486
54	101.17	101.034	100.736	0.297882	0.136285
55	100.71	100.977	100.764	0.212882	-0.267049
56	100.59	100.724	100.756	-0.0326181	-0.133632
57	100.52	100.583	100.738	-0.155201	-0.0627153
58	100.65	100.546	100.696	-0.149368	0.103535
59	100.62	100.486	100.632	-0.146285	0.134201
60	100.62	100.366	100.552	-0.186118	0.253618
61	100.59	100.304	100.482	-0.177868	0.285785
62	100.42	100.299	100.453	-0.154368	0.121451
63	100.55	100.28	100.431	-0.151285	0.270451
64	100.41	100.627	100.391	0.235299	-0.216549
65	100.4	100.748	100.341	0.407049	-0.347882
66	99.93	100.6	100.302	0.297882	-0.670382
67	100.26	NA	NA	0.212882	NA
68	100.34	NA	NA	-0.0326181	NA
69	100.24	NA	NA	-0.155201	NA
70	99.98	NA	NA	-0.149368	NA
71	100.08	NA	NA	-0.146285	NA
72	100.24	NA	NA	-0.186118	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