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, 22 May 2016 17:58:23 +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/May/22/t1463936317lbedks6mw8ubzkx.htm/, Retrieved Mon, 06 May 2024 19:27:07 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=295498, Retrieved Mon, 06 May 2024 19:27:07 +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

151

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)

-       [Classical Decomposition] [] [2016-05-22 16:58:23] [3cc5eb308fa11ebf92933824162ee6d9] [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	'Sir Ronald Aylmer Fisher' @ fisher.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 & 'Sir Ronald Aylmer Fisher' @ fisher.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=295498&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]'Sir Ronald Aylmer Fisher' @ fisher.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=295498&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=295498&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	'Sir Ronald Aylmer Fisher' @ fisher.wessa.net

Classical Decomposition by Moving Averages
t	Observations	Fit	Trend	Seasonal	Random
1	7.4361	NA	NA	0.000218333	NA
2	7.4324	NA	NA	0.003085	NA
3	7.4367	NA	NA	0.00226292	NA
4	7.4368	NA	NA	-0.00239542	NA
5	7.4456	NA	NA	-0.00217875	NA
6	7.4564	NA	NA	-0.00598708	NA
7	7.4597	7.44746	7.44698	0.000485	0.01224
8	7.4537	7.44808	7.44687	0.00121167	0.0056175
9	7.4639	7.4515	7.44659	0.00490917	0.0123992
10	7.4593	7.44628	7.44587	0.000414167	0.013015
11	7.4438	7.44265	7.44488	-0.00222917	0.00115
12	7.4415	7.44315	7.44294	0.000204167	-0.00164583
13	7.4317	7.44065	7.44043	0.000218333	-0.00895167
14	7.4343	7.44158	7.4385	0.003085	-0.007285
15	7.4281	7.43943	7.43717	0.00226292	-0.0113296
16	7.4281	7.43334	7.43573	-0.00239542	-0.00523792
17	7.4305	7.43243	7.4346	-0.00217875	-0.00192542
18	7.425	7.42802	7.43401	-0.00598708	-0.00302125
19	7.4309	7.43468	7.43419	0.000485	-0.00377667
20	7.4361	7.43639	7.43517	0.00121167	-0.000286667
21	7.4495	7.44186	7.43695	0.00490917	0.00763667
22	7.4393	7.43992	7.4395	0.000414167	-0.000618333
23	7.4367	7.43986	7.44209	-0.00222917	-0.0031625
24	7.4343	7.44499	7.44479	0.000204167	-0.0106917
25	7.4433	7.44761	7.4474	0.000218333	-0.00431417
26	7.4463	7.45253	7.44944	0.003085	-0.00622667
27	7.4588	7.45264	7.45038	0.00226292	0.00615792
28	7.4586	7.44855	7.45095	-0.00239542	0.0100496
29	7.4621	7.44954	7.45172	-0.00217875	0.0125579
30	7.4581	7.44695	7.45294	-0.00598708	0.0111454
31	7.4604	7.45474	7.45425	0.000485	0.00566083
32	7.4557	7.45645	7.45524	0.00121167	-0.000753333
33	7.4524	7.46073	7.45582	0.00490917	-0.00833417
34	7.45	7.45595	7.45553	0.000414167	-0.0059475
35	7.4446	7.45255	7.45478	-0.00222917	-0.00795
36	7.4557	7.45408	7.45387	0.000204167	0.00162083
37	7.4534	7.45296	7.45274	0.000218333	0.00044
38	7.4599	7.4546	7.45151	0.003085	0.0053025
39	7.4592	7.45281	7.45055	0.00226292	0.00638708
40	7.4512	7.4474	7.44979	-0.00239542	0.00380375
41	7.4514	7.44748	7.44966	-0.00217875	0.00392042
42	7.4471	7.44385	7.44983	-0.00598708	0.00325375
43	7.4442	7.45034	7.44986	0.000485	-0.00614333
44	7.4424	7.45103	7.44982	0.00121167	-0.00862833
45	7.4426	7.45426	7.44935	0.00490917	-0.0116592
46	7.4416	7.44893	7.44852	0.000414167	-0.00733083
47	7.4498	7.44513	7.44736	-0.00222917	0.00467083
48	7.4547	7.44637	7.44617	0.000204167	0.00832917
49	7.455	7.44594	7.44572	0.000218333	0.00906083
50	7.4573	7.44956	7.44648	0.003085	0.00774
51	7.4506	7.45011	7.44785	0.00226292	0.00049125
52	7.4398	7.44671	7.4491	-0.00239542	-0.00690875
53	7.435	7.44785	7.45002	-0.00217875	-0.0128462
54	7.4349	7.44457	7.45056	-0.00598708	-0.00967125
55	7.4457	7.45155	7.45106	0.000485	-0.0058475
56	7.459	7.45282	7.4516	0.00121167	0.00618417
57	7.4589	7.45681	7.4519	0.00490917	0.00209083
58	7.4555	7.45249	7.45207	0.000414167	0.003015
59	7.458	7.45058	7.4528	-0.00222917	0.007425
60	7.4593	7.45478	7.45458	0.000204167	0.00452083
61	7.4625	7.4566	7.45638	0.000218333	0.00589833
62	7.4628	7.4602	7.45711	0.003085	0.0026025
63	7.4522	NA	NA	0.00226292	NA
64	7.4423	NA	NA	-0.00239542	NA
65	7.4501	NA	NA	-0.00217875	NA
66	7.4623	NA	NA	-0.00598708	NA
67	7.4617	NA	NA	0.000485	NA
68	7.4605	NA	NA	0.00121167	NA

\begin{tabular}{lllllllll}
\hline
Classical Decomposition by Moving Averages \tabularnewline
t & Observations & Fit & Trend & Seasonal & Random \tabularnewline
1 & 7.4361 & NA & NA & 0.000218333 & NA \tabularnewline
2 & 7.4324 & NA & NA & 0.003085 & NA \tabularnewline
3 & 7.4367 & NA & NA & 0.00226292 & NA \tabularnewline
4 & 7.4368 & NA & NA & -0.00239542 & NA \tabularnewline
5 & 7.4456 & NA & NA & -0.00217875 & NA \tabularnewline
6 & 7.4564 & NA & NA & -0.00598708 & NA \tabularnewline
7 & 7.4597 & 7.44746 & 7.44698 & 0.000485 & 0.01224 \tabularnewline
8 & 7.4537 & 7.44808 & 7.44687 & 0.00121167 & 0.0056175 \tabularnewline
9 & 7.4639 & 7.4515 & 7.44659 & 0.00490917 & 0.0123992 \tabularnewline
10 & 7.4593 & 7.44628 & 7.44587 & 0.000414167 & 0.013015 \tabularnewline
11 & 7.4438 & 7.44265 & 7.44488 & -0.00222917 & 0.00115 \tabularnewline
12 & 7.4415 & 7.44315 & 7.44294 & 0.000204167 & -0.00164583 \tabularnewline
13 & 7.4317 & 7.44065 & 7.44043 & 0.000218333 & -0.00895167 \tabularnewline
14 & 7.4343 & 7.44158 & 7.4385 & 0.003085 & -0.007285 \tabularnewline
15 & 7.4281 & 7.43943 & 7.43717 & 0.00226292 & -0.0113296 \tabularnewline
16 & 7.4281 & 7.43334 & 7.43573 & -0.00239542 & -0.00523792 \tabularnewline
17 & 7.4305 & 7.43243 & 7.4346 & -0.00217875 & -0.00192542 \tabularnewline
18 & 7.425 & 7.42802 & 7.43401 & -0.00598708 & -0.00302125 \tabularnewline
19 & 7.4309 & 7.43468 & 7.43419 & 0.000485 & -0.00377667 \tabularnewline
20 & 7.4361 & 7.43639 & 7.43517 & 0.00121167 & -0.000286667 \tabularnewline
21 & 7.4495 & 7.44186 & 7.43695 & 0.00490917 & 0.00763667 \tabularnewline
22 & 7.4393 & 7.43992 & 7.4395 & 0.000414167 & -0.000618333 \tabularnewline
23 & 7.4367 & 7.43986 & 7.44209 & -0.00222917 & -0.0031625 \tabularnewline
24 & 7.4343 & 7.44499 & 7.44479 & 0.000204167 & -0.0106917 \tabularnewline
25 & 7.4433 & 7.44761 & 7.4474 & 0.000218333 & -0.00431417 \tabularnewline
26 & 7.4463 & 7.45253 & 7.44944 & 0.003085 & -0.00622667 \tabularnewline
27 & 7.4588 & 7.45264 & 7.45038 & 0.00226292 & 0.00615792 \tabularnewline
28 & 7.4586 & 7.44855 & 7.45095 & -0.00239542 & 0.0100496 \tabularnewline
29 & 7.4621 & 7.44954 & 7.45172 & -0.00217875 & 0.0125579 \tabularnewline
30 & 7.4581 & 7.44695 & 7.45294 & -0.00598708 & 0.0111454 \tabularnewline
31 & 7.4604 & 7.45474 & 7.45425 & 0.000485 & 0.00566083 \tabularnewline
32 & 7.4557 & 7.45645 & 7.45524 & 0.00121167 & -0.000753333 \tabularnewline
33 & 7.4524 & 7.46073 & 7.45582 & 0.00490917 & -0.00833417 \tabularnewline
34 & 7.45 & 7.45595 & 7.45553 & 0.000414167 & -0.0059475 \tabularnewline
35 & 7.4446 & 7.45255 & 7.45478 & -0.00222917 & -0.00795 \tabularnewline
36 & 7.4557 & 7.45408 & 7.45387 & 0.000204167 & 0.00162083 \tabularnewline
37 & 7.4534 & 7.45296 & 7.45274 & 0.000218333 & 0.00044 \tabularnewline
38 & 7.4599 & 7.4546 & 7.45151 & 0.003085 & 0.0053025 \tabularnewline
39 & 7.4592 & 7.45281 & 7.45055 & 0.00226292 & 0.00638708 \tabularnewline
40 & 7.4512 & 7.4474 & 7.44979 & -0.00239542 & 0.00380375 \tabularnewline
41 & 7.4514 & 7.44748 & 7.44966 & -0.00217875 & 0.00392042 \tabularnewline
42 & 7.4471 & 7.44385 & 7.44983 & -0.00598708 & 0.00325375 \tabularnewline
43 & 7.4442 & 7.45034 & 7.44986 & 0.000485 & -0.00614333 \tabularnewline
44 & 7.4424 & 7.45103 & 7.44982 & 0.00121167 & -0.00862833 \tabularnewline
45 & 7.4426 & 7.45426 & 7.44935 & 0.00490917 & -0.0116592 \tabularnewline
46 & 7.4416 & 7.44893 & 7.44852 & 0.000414167 & -0.00733083 \tabularnewline
47 & 7.4498 & 7.44513 & 7.44736 & -0.00222917 & 0.00467083 \tabularnewline
48 & 7.4547 & 7.44637 & 7.44617 & 0.000204167 & 0.00832917 \tabularnewline
49 & 7.455 & 7.44594 & 7.44572 & 0.000218333 & 0.00906083 \tabularnewline
50 & 7.4573 & 7.44956 & 7.44648 & 0.003085 & 0.00774 \tabularnewline
51 & 7.4506 & 7.45011 & 7.44785 & 0.00226292 & 0.00049125 \tabularnewline
52 & 7.4398 & 7.44671 & 7.4491 & -0.00239542 & -0.00690875 \tabularnewline
53 & 7.435 & 7.44785 & 7.45002 & -0.00217875 & -0.0128462 \tabularnewline
54 & 7.4349 & 7.44457 & 7.45056 & -0.00598708 & -0.00967125 \tabularnewline
55 & 7.4457 & 7.45155 & 7.45106 & 0.000485 & -0.0058475 \tabularnewline
56 & 7.459 & 7.45282 & 7.4516 & 0.00121167 & 0.00618417 \tabularnewline
57 & 7.4589 & 7.45681 & 7.4519 & 0.00490917 & 0.00209083 \tabularnewline
58 & 7.4555 & 7.45249 & 7.45207 & 0.000414167 & 0.003015 \tabularnewline
59 & 7.458 & 7.45058 & 7.4528 & -0.00222917 & 0.007425 \tabularnewline
60 & 7.4593 & 7.45478 & 7.45458 & 0.000204167 & 0.00452083 \tabularnewline
61 & 7.4625 & 7.4566 & 7.45638 & 0.000218333 & 0.00589833 \tabularnewline
62 & 7.4628 & 7.4602 & 7.45711 & 0.003085 & 0.0026025 \tabularnewline
63 & 7.4522 & NA & NA & 0.00226292 & NA \tabularnewline
64 & 7.4423 & NA & NA & -0.00239542 & NA \tabularnewline
65 & 7.4501 & NA & NA & -0.00217875 & NA \tabularnewline
66 & 7.4623 & NA & NA & -0.00598708 & NA \tabularnewline
67 & 7.4617 & NA & NA & 0.000485 & NA \tabularnewline
68 & 7.4605 & NA & NA & 0.00121167 & NA \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=295498&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]7.4361[/C][C]NA[/C][C]NA[/C][C]0.000218333[/C][C]NA[/C][/ROW]
[ROW][C]2[/C][C]7.4324[/C][C]NA[/C][C]NA[/C][C]0.003085[/C][C]NA[/C][/ROW]
[ROW][C]3[/C][C]7.4367[/C][C]NA[/C][C]NA[/C][C]0.00226292[/C][C]NA[/C][/ROW]
[ROW][C]4[/C][C]7.4368[/C][C]NA[/C][C]NA[/C][C]-0.00239542[/C][C]NA[/C][/ROW]
[ROW][C]5[/C][C]7.4456[/C][C]NA[/C][C]NA[/C][C]-0.00217875[/C][C]NA[/C][/ROW]
[ROW][C]6[/C][C]7.4564[/C][C]NA[/C][C]NA[/C][C]-0.00598708[/C][C]NA[/C][/ROW]
[ROW][C]7[/C][C]7.4597[/C][C]7.44746[/C][C]7.44698[/C][C]0.000485[/C][C]0.01224[/C][/ROW]
[ROW][C]8[/C][C]7.4537[/C][C]7.44808[/C][C]7.44687[/C][C]0.00121167[/C][C]0.0056175[/C][/ROW]
[ROW][C]9[/C][C]7.4639[/C][C]7.4515[/C][C]7.44659[/C][C]0.00490917[/C][C]0.0123992[/C][/ROW]
[ROW][C]10[/C][C]7.4593[/C][C]7.44628[/C][C]7.44587[/C][C]0.000414167[/C][C]0.013015[/C][/ROW]
[ROW][C]11[/C][C]7.4438[/C][C]7.44265[/C][C]7.44488[/C][C]-0.00222917[/C][C]0.00115[/C][/ROW]
[ROW][C]12[/C][C]7.4415[/C][C]7.44315[/C][C]7.44294[/C][C]0.000204167[/C][C]-0.00164583[/C][/ROW]
[ROW][C]13[/C][C]7.4317[/C][C]7.44065[/C][C]7.44043[/C][C]0.000218333[/C][C]-0.00895167[/C][/ROW]
[ROW][C]14[/C][C]7.4343[/C][C]7.44158[/C][C]7.4385[/C][C]0.003085[/C][C]-0.007285[/C][/ROW]
[ROW][C]15[/C][C]7.4281[/C][C]7.43943[/C][C]7.43717[/C][C]0.00226292[/C][C]-0.0113296[/C][/ROW]
[ROW][C]16[/C][C]7.4281[/C][C]7.43334[/C][C]7.43573[/C][C]-0.00239542[/C][C]-0.00523792[/C][/ROW]
[ROW][C]17[/C][C]7.4305[/C][C]7.43243[/C][C]7.4346[/C][C]-0.00217875[/C][C]-0.00192542[/C][/ROW]
[ROW][C]18[/C][C]7.425[/C][C]7.42802[/C][C]7.43401[/C][C]-0.00598708[/C][C]-0.00302125[/C][/ROW]
[ROW][C]19[/C][C]7.4309[/C][C]7.43468[/C][C]7.43419[/C][C]0.000485[/C][C]-0.00377667[/C][/ROW]
[ROW][C]20[/C][C]7.4361[/C][C]7.43639[/C][C]7.43517[/C][C]0.00121167[/C][C]-0.000286667[/C][/ROW]
[ROW][C]21[/C][C]7.4495[/C][C]7.44186[/C][C]7.43695[/C][C]0.00490917[/C][C]0.00763667[/C][/ROW]
[ROW][C]22[/C][C]7.4393[/C][C]7.43992[/C][C]7.4395[/C][C]0.000414167[/C][C]-0.000618333[/C][/ROW]
[ROW][C]23[/C][C]7.4367[/C][C]7.43986[/C][C]7.44209[/C][C]-0.00222917[/C][C]-0.0031625[/C][/ROW]
[ROW][C]24[/C][C]7.4343[/C][C]7.44499[/C][C]7.44479[/C][C]0.000204167[/C][C]-0.0106917[/C][/ROW]
[ROW][C]25[/C][C]7.4433[/C][C]7.44761[/C][C]7.4474[/C][C]0.000218333[/C][C]-0.00431417[/C][/ROW]
[ROW][C]26[/C][C]7.4463[/C][C]7.45253[/C][C]7.44944[/C][C]0.003085[/C][C]-0.00622667[/C][/ROW]
[ROW][C]27[/C][C]7.4588[/C][C]7.45264[/C][C]7.45038[/C][C]0.00226292[/C][C]0.00615792[/C][/ROW]
[ROW][C]28[/C][C]7.4586[/C][C]7.44855[/C][C]7.45095[/C][C]-0.00239542[/C][C]0.0100496[/C][/ROW]
[ROW][C]29[/C][C]7.4621[/C][C]7.44954[/C][C]7.45172[/C][C]-0.00217875[/C][C]0.0125579[/C][/ROW]
[ROW][C]30[/C][C]7.4581[/C][C]7.44695[/C][C]7.45294[/C][C]-0.00598708[/C][C]0.0111454[/C][/ROW]
[ROW][C]31[/C][C]7.4604[/C][C]7.45474[/C][C]7.45425[/C][C]0.000485[/C][C]0.00566083[/C][/ROW]
[ROW][C]32[/C][C]7.4557[/C][C]7.45645[/C][C]7.45524[/C][C]0.00121167[/C][C]-0.000753333[/C][/ROW]
[ROW][C]33[/C][C]7.4524[/C][C]7.46073[/C][C]7.45582[/C][C]0.00490917[/C][C]-0.00833417[/C][/ROW]
[ROW][C]34[/C][C]7.45[/C][C]7.45595[/C][C]7.45553[/C][C]0.000414167[/C][C]-0.0059475[/C][/ROW]
[ROW][C]35[/C][C]7.4446[/C][C]7.45255[/C][C]7.45478[/C][C]-0.00222917[/C][C]-0.00795[/C][/ROW]
[ROW][C]36[/C][C]7.4557[/C][C]7.45408[/C][C]7.45387[/C][C]0.000204167[/C][C]0.00162083[/C][/ROW]
[ROW][C]37[/C][C]7.4534[/C][C]7.45296[/C][C]7.45274[/C][C]0.000218333[/C][C]0.00044[/C][/ROW]
[ROW][C]38[/C][C]7.4599[/C][C]7.4546[/C][C]7.45151[/C][C]0.003085[/C][C]0.0053025[/C][/ROW]
[ROW][C]39[/C][C]7.4592[/C][C]7.45281[/C][C]7.45055[/C][C]0.00226292[/C][C]0.00638708[/C][/ROW]
[ROW][C]40[/C][C]7.4512[/C][C]7.4474[/C][C]7.44979[/C][C]-0.00239542[/C][C]0.00380375[/C][/ROW]
[ROW][C]41[/C][C]7.4514[/C][C]7.44748[/C][C]7.44966[/C][C]-0.00217875[/C][C]0.00392042[/C][/ROW]
[ROW][C]42[/C][C]7.4471[/C][C]7.44385[/C][C]7.44983[/C][C]-0.00598708[/C][C]0.00325375[/C][/ROW]
[ROW][C]43[/C][C]7.4442[/C][C]7.45034[/C][C]7.44986[/C][C]0.000485[/C][C]-0.00614333[/C][/ROW]
[ROW][C]44[/C][C]7.4424[/C][C]7.45103[/C][C]7.44982[/C][C]0.00121167[/C][C]-0.00862833[/C][/ROW]
[ROW][C]45[/C][C]7.4426[/C][C]7.45426[/C][C]7.44935[/C][C]0.00490917[/C][C]-0.0116592[/C][/ROW]
[ROW][C]46[/C][C]7.4416[/C][C]7.44893[/C][C]7.44852[/C][C]0.000414167[/C][C]-0.00733083[/C][/ROW]
[ROW][C]47[/C][C]7.4498[/C][C]7.44513[/C][C]7.44736[/C][C]-0.00222917[/C][C]0.00467083[/C][/ROW]
[ROW][C]48[/C][C]7.4547[/C][C]7.44637[/C][C]7.44617[/C][C]0.000204167[/C][C]0.00832917[/C][/ROW]
[ROW][C]49[/C][C]7.455[/C][C]7.44594[/C][C]7.44572[/C][C]0.000218333[/C][C]0.00906083[/C][/ROW]
[ROW][C]50[/C][C]7.4573[/C][C]7.44956[/C][C]7.44648[/C][C]0.003085[/C][C]0.00774[/C][/ROW]
[ROW][C]51[/C][C]7.4506[/C][C]7.45011[/C][C]7.44785[/C][C]0.00226292[/C][C]0.00049125[/C][/ROW]
[ROW][C]52[/C][C]7.4398[/C][C]7.44671[/C][C]7.4491[/C][C]-0.00239542[/C][C]-0.00690875[/C][/ROW]
[ROW][C]53[/C][C]7.435[/C][C]7.44785[/C][C]7.45002[/C][C]-0.00217875[/C][C]-0.0128462[/C][/ROW]
[ROW][C]54[/C][C]7.4349[/C][C]7.44457[/C][C]7.45056[/C][C]-0.00598708[/C][C]-0.00967125[/C][/ROW]
[ROW][C]55[/C][C]7.4457[/C][C]7.45155[/C][C]7.45106[/C][C]0.000485[/C][C]-0.0058475[/C][/ROW]
[ROW][C]56[/C][C]7.459[/C][C]7.45282[/C][C]7.4516[/C][C]0.00121167[/C][C]0.00618417[/C][/ROW]
[ROW][C]57[/C][C]7.4589[/C][C]7.45681[/C][C]7.4519[/C][C]0.00490917[/C][C]0.00209083[/C][/ROW]
[ROW][C]58[/C][C]7.4555[/C][C]7.45249[/C][C]7.45207[/C][C]0.000414167[/C][C]0.003015[/C][/ROW]
[ROW][C]59[/C][C]7.458[/C][C]7.45058[/C][C]7.4528[/C][C]-0.00222917[/C][C]0.007425[/C][/ROW]
[ROW][C]60[/C][C]7.4593[/C][C]7.45478[/C][C]7.45458[/C][C]0.000204167[/C][C]0.00452083[/C][/ROW]
[ROW][C]61[/C][C]7.4625[/C][C]7.4566[/C][C]7.45638[/C][C]0.000218333[/C][C]0.00589833[/C][/ROW]
[ROW][C]62[/C][C]7.4628[/C][C]7.4602[/C][C]7.45711[/C][C]0.003085[/C][C]0.0026025[/C][/ROW]
[ROW][C]63[/C][C]7.4522[/C][C]NA[/C][C]NA[/C][C]0.00226292[/C][C]NA[/C][/ROW]
[ROW][C]64[/C][C]7.4423[/C][C]NA[/C][C]NA[/C][C]-0.00239542[/C][C]NA[/C][/ROW]
[ROW][C]65[/C][C]7.4501[/C][C]NA[/C][C]NA[/C][C]-0.00217875[/C][C]NA[/C][/ROW]
[ROW][C]66[/C][C]7.4623[/C][C]NA[/C][C]NA[/C][C]-0.00598708[/C][C]NA[/C][/ROW]
[ROW][C]67[/C][C]7.4617[/C][C]NA[/C][C]NA[/C][C]0.000485[/C][C]NA[/C][/ROW]
[ROW][C]68[/C][C]7.4605[/C][C]NA[/C][C]NA[/C][C]0.00121167[/C][C]NA[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=295498&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=295498&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	7.4361	NA	NA	0.000218333	NA
2	7.4324	NA	NA	0.003085	NA
3	7.4367	NA	NA	0.00226292	NA
4	7.4368	NA	NA	-0.00239542	NA
5	7.4456	NA	NA	-0.00217875	NA
6	7.4564	NA	NA	-0.00598708	NA
7	7.4597	7.44746	7.44698	0.000485	0.01224
8	7.4537	7.44808	7.44687	0.00121167	0.0056175
9	7.4639	7.4515	7.44659	0.00490917	0.0123992
10	7.4593	7.44628	7.44587	0.000414167	0.013015
11	7.4438	7.44265	7.44488	-0.00222917	0.00115
12	7.4415	7.44315	7.44294	0.000204167	-0.00164583
13	7.4317	7.44065	7.44043	0.000218333	-0.00895167
14	7.4343	7.44158	7.4385	0.003085	-0.007285
15	7.4281	7.43943	7.43717	0.00226292	-0.0113296
16	7.4281	7.43334	7.43573	-0.00239542	-0.00523792
17	7.4305	7.43243	7.4346	-0.00217875	-0.00192542
18	7.425	7.42802	7.43401	-0.00598708	-0.00302125
19	7.4309	7.43468	7.43419	0.000485	-0.00377667
20	7.4361	7.43639	7.43517	0.00121167	-0.000286667
21	7.4495	7.44186	7.43695	0.00490917	0.00763667
22	7.4393	7.43992	7.4395	0.000414167	-0.000618333
23	7.4367	7.43986	7.44209	-0.00222917	-0.0031625
24	7.4343	7.44499	7.44479	0.000204167	-0.0106917
25	7.4433	7.44761	7.4474	0.000218333	-0.00431417
26	7.4463	7.45253	7.44944	0.003085	-0.00622667
27	7.4588	7.45264	7.45038	0.00226292	0.00615792
28	7.4586	7.44855	7.45095	-0.00239542	0.0100496
29	7.4621	7.44954	7.45172	-0.00217875	0.0125579
30	7.4581	7.44695	7.45294	-0.00598708	0.0111454
31	7.4604	7.45474	7.45425	0.000485	0.00566083
32	7.4557	7.45645	7.45524	0.00121167	-0.000753333
33	7.4524	7.46073	7.45582	0.00490917	-0.00833417
34	7.45	7.45595	7.45553	0.000414167	-0.0059475
35	7.4446	7.45255	7.45478	-0.00222917	-0.00795
36	7.4557	7.45408	7.45387	0.000204167	0.00162083
37	7.4534	7.45296	7.45274	0.000218333	0.00044
38	7.4599	7.4546	7.45151	0.003085	0.0053025
39	7.4592	7.45281	7.45055	0.00226292	0.00638708
40	7.4512	7.4474	7.44979	-0.00239542	0.00380375
41	7.4514	7.44748	7.44966	-0.00217875	0.00392042
42	7.4471	7.44385	7.44983	-0.00598708	0.00325375
43	7.4442	7.45034	7.44986	0.000485	-0.00614333
44	7.4424	7.45103	7.44982	0.00121167	-0.00862833
45	7.4426	7.45426	7.44935	0.00490917	-0.0116592
46	7.4416	7.44893	7.44852	0.000414167	-0.00733083
47	7.4498	7.44513	7.44736	-0.00222917	0.00467083
48	7.4547	7.44637	7.44617	0.000204167	0.00832917
49	7.455	7.44594	7.44572	0.000218333	0.00906083
50	7.4573	7.44956	7.44648	0.003085	0.00774
51	7.4506	7.45011	7.44785	0.00226292	0.00049125
52	7.4398	7.44671	7.4491	-0.00239542	-0.00690875
53	7.435	7.44785	7.45002	-0.00217875	-0.0128462
54	7.4349	7.44457	7.45056	-0.00598708	-0.00967125
55	7.4457	7.45155	7.45106	0.000485	-0.0058475
56	7.459	7.45282	7.4516	0.00121167	0.00618417
57	7.4589	7.45681	7.4519	0.00490917	0.00209083
58	7.4555	7.45249	7.45207	0.000414167	0.003015
59	7.458	7.45058	7.4528	-0.00222917	0.007425
60	7.4593	7.45478	7.45458	0.000204167	0.00452083
61	7.4625	7.4566	7.45638	0.000218333	0.00589833
62	7.4628	7.4602	7.45711	0.003085	0.0026025
63	7.4522	NA	NA	0.00226292	NA
64	7.4423	NA	NA	-0.00239542	NA
65	7.4501	NA	NA	-0.00217875	NA
66	7.4623	NA	NA	-0.00598708	NA
67	7.4617	NA	NA	0.000485	NA
68	7.4605	NA	NA	0.00121167	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