Repository of Reproducible Computations

Free Statistics

of Irreproducible Research!

Author's title

Author

*The author of this computation has been verified*

R Software Module

rwasp_decompose.wasp

Title produced by software

Classical Decomposition

Date of computation

Fri, 04 Dec 2009 12:49:12 -0700

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/2009/Dec/04/t1259956186egg2wzb4zm0r0zj.htm/, Retrieved Sat, 27 Apr 2024 17:48:18 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=64102, Retrieved Sat, 27 Apr 2024 17:48:18 +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

103

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

-     [Univariate Data Series] [data set] [2008-12-01 19:54:57] [b98453cac15ba1066b407e146608df68]
- RMP   [Classical Decomposition] [] [2009-11-27 14:58:37] [b98453cac15ba1066b407e146608df68]
-    D    [Classical Decomposition] [] [2009-12-04 14:24:08] [4d62210f0915d3a20cbf115865da7cd4]
-             [Classical Decomposition] [] [2009-12-04 19:49:12] [3e9f70e60513fc8919624add68d96eca] [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	'Gwilym Jenkins' @ 72.249.127.135

\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' @ 72.249.127.135 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=64102&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' @ 72.249.127.135[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=64102&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=64102&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' @ 72.249.127.135

Classical Decomposition by Moving Averages
t	Observations	Fit	Trend	Seasonal	Random
1	5560	NA	NA	1.11501954360955	NA
2	3922	NA	NA	0.902031790995203	NA
3	3759	NA	NA	0.959668441272228	NA
4	4138	NA	NA	0.984943407225544	NA
5	4634	NA	NA	1.05574264506044	NA
6	3996	NA	NA	0.922140070528212	NA
7	4308	4721.98821377813	4567.33333333333	1.03386108898952	0.912327563086632
8	4143	4632.07144663663	4578.70833333333	1.01165462165712	0.894416255821843
9	4429	4495.04264165324	4638.875	0.968994129320847	0.985307671824676
10	5219	5026.31980500137	4733.58333333333	1.06184246712351	1.03833424900797
11	4929	4802.9872845854	4783.20833333333	1.00413508044678	1.02623632084537
12	5755	4712.53743068577	4808.875	0.979966713771052	1.22121045925836
13	5592	5451.14471211649	4888.83333333333	1.11501954360955	1.02583957963369
14	4163	4523.08807731362	5014.33333333333	0.902031790995203	0.920388886716643
15	4962	4900.02707495095	5105.95833333333	0.959668441272228	1.01264746584072
16	5208	5090.39272508478	5168.20833333333	0.984943407225544	1.02310377239376
17	4755	5494.04073561763	5203.95833333333	1.05574264506044	0.865483207864394
18	4491	4782.98685581808	5186.83333333333	0.922140070528212	0.93895302984935
19	5732	5345.23414025731	5170.16666666667	1.03386108898952	1.07235714088365
20	5731	5249.05430901976	5188.58333333333	1.01165462165712	1.09181571814795
21	5040	5036.79110945437	5197.95833333333	0.968994129320847	1.00063709025764
22	6102	5500.47671000815	5180.125	1.06184246712351	1.10935839231850
23	4904	5216.06335330419	5194.58333333333	1.00413508044678	0.940172629784776
24	5369	5098.64431591157	5202.875	0.979966713771052	1.05302501357954
25	5578	5733.84862556916	5142.375	1.11501954360955	0.972819543077197
26	4619	4559.58278019096	5054.79166666667	0.902031790995203	1.01303128436820
27	4731	4778.30912764958	4979.125	0.959668441272228	0.990099190658086
28	5011	4829.99831179953	4903.83333333333	0.984943407225544	1.03747448270495
29	5299	5103.06404273025	4833.625	1.05574264506044	1.03839574726656
30	4146	4382.47068518533	4752.5	0.922140070528212	0.946041696072332
31	4625	4839.20221474232	4680.70833333333	1.03386108898952	0.9557360479606
32	4736	4701.79131097916	4647.625	1.01165462165712	1.00727567149587
33	4219	4484.46445574149	4627.95833333333	0.968994129320847	0.940803532202911
34	5116	4854.2128384551	4571.5	1.06184246712351	1.05392988940885
35	4205	4549.61053261932	4530.875	1.00413508044678	0.924254937835102
36	4121	4453.49956267895	4544.54166666667	0.979966713771052	0.925339711388914
37	5103	5035.01012661187	4515.625	1.11501954360955	1.01350342336528
38	4300	4030.50355011432	4468.25	0.902031790995203	1.06686421349959
39	4578	4298.63485175368	4479.29166666667	0.959668441272228	1.06498927168293
40	3809	4407.74486526021	4475.125	0.984943407225544	0.864160725367922
41	5526	4709.49198250709	4460.83333333333	1.05574264506044	1.17337496709321
42	4247	4126.9226181402	4475.375	0.922140070528212	1.02909610694710
43	3830	4612.95894643511	4461.875	1.03386108898952	0.83026969120543
44	4394	4484.5806332542	4432.91666666667	1.01165462165712	0.979801760596627
45	4826	4248.19138720876	4384.125	0.968994129320847	1.13601284879279
46	4409	4646.88809674924	4376.25	1.06184246712351	0.94880700981036
47	4569	4356.356368595	4338.41666666667	1.00413508044678	1.04881226727408
48	4106	4184.09038028473	4269.625	0.979966713771052	0.981336354335774
49	4794	4798.39368762840	4303.41666666667	1.11501954360955	0.999084341987252
50	3914	3871.55803160937	4292.04166666667	0.902031790995203	1.01096250347899
51	3793	4020.09108667442	4189.04166666667	0.959668441272228	0.943510959881689
52	4405	4054.27329999215	4116.25	0.984943407225544	1.08650790759679
53	4022	4306.24228137088	4078.875	1.05574264506044	0.933992965839257
54	4100	3736.93421331264	4052.45833333333	0.922140070528212	1.09715605519464
55	4788	4153.06307201627	4017.04166666667	1.03386108898952	1.15288400801375
56	3163	NA	NA	1.01165462165712	NA
57	3585	NA	NA	0.968994129320847	NA
58	3903	NA	NA	1.06184246712351	NA
59	4178	NA	NA	1.00413508044678	NA
60	3863	NA	NA	0.979966713771052	NA
61	4187	NA	NA	NA	NA

\begin{tabular}{lllllllll}
\hline
Classical Decomposition by Moving Averages \tabularnewline
t & Observations & Fit & Trend & Seasonal & Random \tabularnewline
1 & 5560 & NA & NA & 1.11501954360955 & NA \tabularnewline
2 & 3922 & NA & NA & 0.902031790995203 & NA \tabularnewline
3 & 3759 & NA & NA & 0.959668441272228 & NA \tabularnewline
4 & 4138 & NA & NA & 0.984943407225544 & NA \tabularnewline
5 & 4634 & NA & NA & 1.05574264506044 & NA \tabularnewline
6 & 3996 & NA & NA & 0.922140070528212 & NA \tabularnewline
7 & 4308 & 4721.98821377813 & 4567.33333333333 & 1.03386108898952 & 0.912327563086632 \tabularnewline
8 & 4143 & 4632.07144663663 & 4578.70833333333 & 1.01165462165712 & 0.894416255821843 \tabularnewline
9 & 4429 & 4495.04264165324 & 4638.875 & 0.968994129320847 & 0.985307671824676 \tabularnewline
10 & 5219 & 5026.31980500137 & 4733.58333333333 & 1.06184246712351 & 1.03833424900797 \tabularnewline
11 & 4929 & 4802.9872845854 & 4783.20833333333 & 1.00413508044678 & 1.02623632084537 \tabularnewline
12 & 5755 & 4712.53743068577 & 4808.875 & 0.979966713771052 & 1.22121045925836 \tabularnewline
13 & 5592 & 5451.14471211649 & 4888.83333333333 & 1.11501954360955 & 1.02583957963369 \tabularnewline
14 & 4163 & 4523.08807731362 & 5014.33333333333 & 0.902031790995203 & 0.920388886716643 \tabularnewline
15 & 4962 & 4900.02707495095 & 5105.95833333333 & 0.959668441272228 & 1.01264746584072 \tabularnewline
16 & 5208 & 5090.39272508478 & 5168.20833333333 & 0.984943407225544 & 1.02310377239376 \tabularnewline
17 & 4755 & 5494.04073561763 & 5203.95833333333 & 1.05574264506044 & 0.865483207864394 \tabularnewline
18 & 4491 & 4782.98685581808 & 5186.83333333333 & 0.922140070528212 & 0.93895302984935 \tabularnewline
19 & 5732 & 5345.23414025731 & 5170.16666666667 & 1.03386108898952 & 1.07235714088365 \tabularnewline
20 & 5731 & 5249.05430901976 & 5188.58333333333 & 1.01165462165712 & 1.09181571814795 \tabularnewline
21 & 5040 & 5036.79110945437 & 5197.95833333333 & 0.968994129320847 & 1.00063709025764 \tabularnewline
22 & 6102 & 5500.47671000815 & 5180.125 & 1.06184246712351 & 1.10935839231850 \tabularnewline
23 & 4904 & 5216.06335330419 & 5194.58333333333 & 1.00413508044678 & 0.940172629784776 \tabularnewline
24 & 5369 & 5098.64431591157 & 5202.875 & 0.979966713771052 & 1.05302501357954 \tabularnewline
25 & 5578 & 5733.84862556916 & 5142.375 & 1.11501954360955 & 0.972819543077197 \tabularnewline
26 & 4619 & 4559.58278019096 & 5054.79166666667 & 0.902031790995203 & 1.01303128436820 \tabularnewline
27 & 4731 & 4778.30912764958 & 4979.125 & 0.959668441272228 & 0.990099190658086 \tabularnewline
28 & 5011 & 4829.99831179953 & 4903.83333333333 & 0.984943407225544 & 1.03747448270495 \tabularnewline
29 & 5299 & 5103.06404273025 & 4833.625 & 1.05574264506044 & 1.03839574726656 \tabularnewline
30 & 4146 & 4382.47068518533 & 4752.5 & 0.922140070528212 & 0.946041696072332 \tabularnewline
31 & 4625 & 4839.20221474232 & 4680.70833333333 & 1.03386108898952 & 0.9557360479606 \tabularnewline
32 & 4736 & 4701.79131097916 & 4647.625 & 1.01165462165712 & 1.00727567149587 \tabularnewline
33 & 4219 & 4484.46445574149 & 4627.95833333333 & 0.968994129320847 & 0.940803532202911 \tabularnewline
34 & 5116 & 4854.2128384551 & 4571.5 & 1.06184246712351 & 1.05392988940885 \tabularnewline
35 & 4205 & 4549.61053261932 & 4530.875 & 1.00413508044678 & 0.924254937835102 \tabularnewline
36 & 4121 & 4453.49956267895 & 4544.54166666667 & 0.979966713771052 & 0.925339711388914 \tabularnewline
37 & 5103 & 5035.01012661187 & 4515.625 & 1.11501954360955 & 1.01350342336528 \tabularnewline
38 & 4300 & 4030.50355011432 & 4468.25 & 0.902031790995203 & 1.06686421349959 \tabularnewline
39 & 4578 & 4298.63485175368 & 4479.29166666667 & 0.959668441272228 & 1.06498927168293 \tabularnewline
40 & 3809 & 4407.74486526021 & 4475.125 & 0.984943407225544 & 0.864160725367922 \tabularnewline
41 & 5526 & 4709.49198250709 & 4460.83333333333 & 1.05574264506044 & 1.17337496709321 \tabularnewline
42 & 4247 & 4126.9226181402 & 4475.375 & 0.922140070528212 & 1.02909610694710 \tabularnewline
43 & 3830 & 4612.95894643511 & 4461.875 & 1.03386108898952 & 0.83026969120543 \tabularnewline
44 & 4394 & 4484.5806332542 & 4432.91666666667 & 1.01165462165712 & 0.979801760596627 \tabularnewline
45 & 4826 & 4248.19138720876 & 4384.125 & 0.968994129320847 & 1.13601284879279 \tabularnewline
46 & 4409 & 4646.88809674924 & 4376.25 & 1.06184246712351 & 0.94880700981036 \tabularnewline
47 & 4569 & 4356.356368595 & 4338.41666666667 & 1.00413508044678 & 1.04881226727408 \tabularnewline
48 & 4106 & 4184.09038028473 & 4269.625 & 0.979966713771052 & 0.981336354335774 \tabularnewline
49 & 4794 & 4798.39368762840 & 4303.41666666667 & 1.11501954360955 & 0.999084341987252 \tabularnewline
50 & 3914 & 3871.55803160937 & 4292.04166666667 & 0.902031790995203 & 1.01096250347899 \tabularnewline
51 & 3793 & 4020.09108667442 & 4189.04166666667 & 0.959668441272228 & 0.943510959881689 \tabularnewline
52 & 4405 & 4054.27329999215 & 4116.25 & 0.984943407225544 & 1.08650790759679 \tabularnewline
53 & 4022 & 4306.24228137088 & 4078.875 & 1.05574264506044 & 0.933992965839257 \tabularnewline
54 & 4100 & 3736.93421331264 & 4052.45833333333 & 0.922140070528212 & 1.09715605519464 \tabularnewline
55 & 4788 & 4153.06307201627 & 4017.04166666667 & 1.03386108898952 & 1.15288400801375 \tabularnewline
56 & 3163 & NA & NA & 1.01165462165712 & NA \tabularnewline
57 & 3585 & NA & NA & 0.968994129320847 & NA \tabularnewline
58 & 3903 & NA & NA & 1.06184246712351 & NA \tabularnewline
59 & 4178 & NA & NA & 1.00413508044678 & NA \tabularnewline
60 & 3863 & NA & NA & 0.979966713771052 & NA \tabularnewline
61 & 4187 & NA & NA & NA & NA \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=64102&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]5560[/C][C]NA[/C][C]NA[/C][C]1.11501954360955[/C][C]NA[/C][/ROW]
[ROW][C]2[/C][C]3922[/C][C]NA[/C][C]NA[/C][C]0.902031790995203[/C][C]NA[/C][/ROW]
[ROW][C]3[/C][C]3759[/C][C]NA[/C][C]NA[/C][C]0.959668441272228[/C][C]NA[/C][/ROW]
[ROW][C]4[/C][C]4138[/C][C]NA[/C][C]NA[/C][C]0.984943407225544[/C][C]NA[/C][/ROW]
[ROW][C]5[/C][C]4634[/C][C]NA[/C][C]NA[/C][C]1.05574264506044[/C][C]NA[/C][/ROW]
[ROW][C]6[/C][C]3996[/C][C]NA[/C][C]NA[/C][C]0.922140070528212[/C][C]NA[/C][/ROW]
[ROW][C]7[/C][C]4308[/C][C]4721.98821377813[/C][C]4567.33333333333[/C][C]1.03386108898952[/C][C]0.912327563086632[/C][/ROW]
[ROW][C]8[/C][C]4143[/C][C]4632.07144663663[/C][C]4578.70833333333[/C][C]1.01165462165712[/C][C]0.894416255821843[/C][/ROW]
[ROW][C]9[/C][C]4429[/C][C]4495.04264165324[/C][C]4638.875[/C][C]0.968994129320847[/C][C]0.985307671824676[/C][/ROW]
[ROW][C]10[/C][C]5219[/C][C]5026.31980500137[/C][C]4733.58333333333[/C][C]1.06184246712351[/C][C]1.03833424900797[/C][/ROW]
[ROW][C]11[/C][C]4929[/C][C]4802.9872845854[/C][C]4783.20833333333[/C][C]1.00413508044678[/C][C]1.02623632084537[/C][/ROW]
[ROW][C]12[/C][C]5755[/C][C]4712.53743068577[/C][C]4808.875[/C][C]0.979966713771052[/C][C]1.22121045925836[/C][/ROW]
[ROW][C]13[/C][C]5592[/C][C]5451.14471211649[/C][C]4888.83333333333[/C][C]1.11501954360955[/C][C]1.02583957963369[/C][/ROW]
[ROW][C]14[/C][C]4163[/C][C]4523.08807731362[/C][C]5014.33333333333[/C][C]0.902031790995203[/C][C]0.920388886716643[/C][/ROW]
[ROW][C]15[/C][C]4962[/C][C]4900.02707495095[/C][C]5105.95833333333[/C][C]0.959668441272228[/C][C]1.01264746584072[/C][/ROW]
[ROW][C]16[/C][C]5208[/C][C]5090.39272508478[/C][C]5168.20833333333[/C][C]0.984943407225544[/C][C]1.02310377239376[/C][/ROW]
[ROW][C]17[/C][C]4755[/C][C]5494.04073561763[/C][C]5203.95833333333[/C][C]1.05574264506044[/C][C]0.865483207864394[/C][/ROW]
[ROW][C]18[/C][C]4491[/C][C]4782.98685581808[/C][C]5186.83333333333[/C][C]0.922140070528212[/C][C]0.93895302984935[/C][/ROW]
[ROW][C]19[/C][C]5732[/C][C]5345.23414025731[/C][C]5170.16666666667[/C][C]1.03386108898952[/C][C]1.07235714088365[/C][/ROW]
[ROW][C]20[/C][C]5731[/C][C]5249.05430901976[/C][C]5188.58333333333[/C][C]1.01165462165712[/C][C]1.09181571814795[/C][/ROW]
[ROW][C]21[/C][C]5040[/C][C]5036.79110945437[/C][C]5197.95833333333[/C][C]0.968994129320847[/C][C]1.00063709025764[/C][/ROW]
[ROW][C]22[/C][C]6102[/C][C]5500.47671000815[/C][C]5180.125[/C][C]1.06184246712351[/C][C]1.10935839231850[/C][/ROW]
[ROW][C]23[/C][C]4904[/C][C]5216.06335330419[/C][C]5194.58333333333[/C][C]1.00413508044678[/C][C]0.940172629784776[/C][/ROW]
[ROW][C]24[/C][C]5369[/C][C]5098.64431591157[/C][C]5202.875[/C][C]0.979966713771052[/C][C]1.05302501357954[/C][/ROW]
[ROW][C]25[/C][C]5578[/C][C]5733.84862556916[/C][C]5142.375[/C][C]1.11501954360955[/C][C]0.972819543077197[/C][/ROW]
[ROW][C]26[/C][C]4619[/C][C]4559.58278019096[/C][C]5054.79166666667[/C][C]0.902031790995203[/C][C]1.01303128436820[/C][/ROW]
[ROW][C]27[/C][C]4731[/C][C]4778.30912764958[/C][C]4979.125[/C][C]0.959668441272228[/C][C]0.990099190658086[/C][/ROW]
[ROW][C]28[/C][C]5011[/C][C]4829.99831179953[/C][C]4903.83333333333[/C][C]0.984943407225544[/C][C]1.03747448270495[/C][/ROW]
[ROW][C]29[/C][C]5299[/C][C]5103.06404273025[/C][C]4833.625[/C][C]1.05574264506044[/C][C]1.03839574726656[/C][/ROW]
[ROW][C]30[/C][C]4146[/C][C]4382.47068518533[/C][C]4752.5[/C][C]0.922140070528212[/C][C]0.946041696072332[/C][/ROW]
[ROW][C]31[/C][C]4625[/C][C]4839.20221474232[/C][C]4680.70833333333[/C][C]1.03386108898952[/C][C]0.9557360479606[/C][/ROW]
[ROW][C]32[/C][C]4736[/C][C]4701.79131097916[/C][C]4647.625[/C][C]1.01165462165712[/C][C]1.00727567149587[/C][/ROW]
[ROW][C]33[/C][C]4219[/C][C]4484.46445574149[/C][C]4627.95833333333[/C][C]0.968994129320847[/C][C]0.940803532202911[/C][/ROW]
[ROW][C]34[/C][C]5116[/C][C]4854.2128384551[/C][C]4571.5[/C][C]1.06184246712351[/C][C]1.05392988940885[/C][/ROW]
[ROW][C]35[/C][C]4205[/C][C]4549.61053261932[/C][C]4530.875[/C][C]1.00413508044678[/C][C]0.924254937835102[/C][/ROW]
[ROW][C]36[/C][C]4121[/C][C]4453.49956267895[/C][C]4544.54166666667[/C][C]0.979966713771052[/C][C]0.925339711388914[/C][/ROW]
[ROW][C]37[/C][C]5103[/C][C]5035.01012661187[/C][C]4515.625[/C][C]1.11501954360955[/C][C]1.01350342336528[/C][/ROW]
[ROW][C]38[/C][C]4300[/C][C]4030.50355011432[/C][C]4468.25[/C][C]0.902031790995203[/C][C]1.06686421349959[/C][/ROW]
[ROW][C]39[/C][C]4578[/C][C]4298.63485175368[/C][C]4479.29166666667[/C][C]0.959668441272228[/C][C]1.06498927168293[/C][/ROW]
[ROW][C]40[/C][C]3809[/C][C]4407.74486526021[/C][C]4475.125[/C][C]0.984943407225544[/C][C]0.864160725367922[/C][/ROW]
[ROW][C]41[/C][C]5526[/C][C]4709.49198250709[/C][C]4460.83333333333[/C][C]1.05574264506044[/C][C]1.17337496709321[/C][/ROW]
[ROW][C]42[/C][C]4247[/C][C]4126.9226181402[/C][C]4475.375[/C][C]0.922140070528212[/C][C]1.02909610694710[/C][/ROW]
[ROW][C]43[/C][C]3830[/C][C]4612.95894643511[/C][C]4461.875[/C][C]1.03386108898952[/C][C]0.83026969120543[/C][/ROW]
[ROW][C]44[/C][C]4394[/C][C]4484.5806332542[/C][C]4432.91666666667[/C][C]1.01165462165712[/C][C]0.979801760596627[/C][/ROW]
[ROW][C]45[/C][C]4826[/C][C]4248.19138720876[/C][C]4384.125[/C][C]0.968994129320847[/C][C]1.13601284879279[/C][/ROW]
[ROW][C]46[/C][C]4409[/C][C]4646.88809674924[/C][C]4376.25[/C][C]1.06184246712351[/C][C]0.94880700981036[/C][/ROW]
[ROW][C]47[/C][C]4569[/C][C]4356.356368595[/C][C]4338.41666666667[/C][C]1.00413508044678[/C][C]1.04881226727408[/C][/ROW]
[ROW][C]48[/C][C]4106[/C][C]4184.09038028473[/C][C]4269.625[/C][C]0.979966713771052[/C][C]0.981336354335774[/C][/ROW]
[ROW][C]49[/C][C]4794[/C][C]4798.39368762840[/C][C]4303.41666666667[/C][C]1.11501954360955[/C][C]0.999084341987252[/C][/ROW]
[ROW][C]50[/C][C]3914[/C][C]3871.55803160937[/C][C]4292.04166666667[/C][C]0.902031790995203[/C][C]1.01096250347899[/C][/ROW]
[ROW][C]51[/C][C]3793[/C][C]4020.09108667442[/C][C]4189.04166666667[/C][C]0.959668441272228[/C][C]0.943510959881689[/C][/ROW]
[ROW][C]52[/C][C]4405[/C][C]4054.27329999215[/C][C]4116.25[/C][C]0.984943407225544[/C][C]1.08650790759679[/C][/ROW]
[ROW][C]53[/C][C]4022[/C][C]4306.24228137088[/C][C]4078.875[/C][C]1.05574264506044[/C][C]0.933992965839257[/C][/ROW]
[ROW][C]54[/C][C]4100[/C][C]3736.93421331264[/C][C]4052.45833333333[/C][C]0.922140070528212[/C][C]1.09715605519464[/C][/ROW]
[ROW][C]55[/C][C]4788[/C][C]4153.06307201627[/C][C]4017.04166666667[/C][C]1.03386108898952[/C][C]1.15288400801375[/C][/ROW]
[ROW][C]56[/C][C]3163[/C][C]NA[/C][C]NA[/C][C]1.01165462165712[/C][C]NA[/C][/ROW]
[ROW][C]57[/C][C]3585[/C][C]NA[/C][C]NA[/C][C]0.968994129320847[/C][C]NA[/C][/ROW]
[ROW][C]58[/C][C]3903[/C][C]NA[/C][C]NA[/C][C]1.06184246712351[/C][C]NA[/C][/ROW]
[ROW][C]59[/C][C]4178[/C][C]NA[/C][C]NA[/C][C]1.00413508044678[/C][C]NA[/C][/ROW]
[ROW][C]60[/C][C]3863[/C][C]NA[/C][C]NA[/C][C]0.979966713771052[/C][C]NA[/C][/ROW]
[ROW][C]61[/C][C]4187[/C][C]NA[/C][C]NA[/C][C]NA[/C][C]NA[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=64102&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=64102&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	5560	NA	NA	1.11501954360955	NA
2	3922	NA	NA	0.902031790995203	NA
3	3759	NA	NA	0.959668441272228	NA
4	4138	NA	NA	0.984943407225544	NA
5	4634	NA	NA	1.05574264506044	NA
6	3996	NA	NA	0.922140070528212	NA
7	4308	4721.98821377813	4567.33333333333	1.03386108898952	0.912327563086632
8	4143	4632.07144663663	4578.70833333333	1.01165462165712	0.894416255821843
9	4429	4495.04264165324	4638.875	0.968994129320847	0.985307671824676
10	5219	5026.31980500137	4733.58333333333	1.06184246712351	1.03833424900797
11	4929	4802.9872845854	4783.20833333333	1.00413508044678	1.02623632084537
12	5755	4712.53743068577	4808.875	0.979966713771052	1.22121045925836
13	5592	5451.14471211649	4888.83333333333	1.11501954360955	1.02583957963369
14	4163	4523.08807731362	5014.33333333333	0.902031790995203	0.920388886716643
15	4962	4900.02707495095	5105.95833333333	0.959668441272228	1.01264746584072
16	5208	5090.39272508478	5168.20833333333	0.984943407225544	1.02310377239376
17	4755	5494.04073561763	5203.95833333333	1.05574264506044	0.865483207864394
18	4491	4782.98685581808	5186.83333333333	0.922140070528212	0.93895302984935
19	5732	5345.23414025731	5170.16666666667	1.03386108898952	1.07235714088365
20	5731	5249.05430901976	5188.58333333333	1.01165462165712	1.09181571814795
21	5040	5036.79110945437	5197.95833333333	0.968994129320847	1.00063709025764
22	6102	5500.47671000815	5180.125	1.06184246712351	1.10935839231850
23	4904	5216.06335330419	5194.58333333333	1.00413508044678	0.940172629784776
24	5369	5098.64431591157	5202.875	0.979966713771052	1.05302501357954
25	5578	5733.84862556916	5142.375	1.11501954360955	0.972819543077197
26	4619	4559.58278019096	5054.79166666667	0.902031790995203	1.01303128436820
27	4731	4778.30912764958	4979.125	0.959668441272228	0.990099190658086
28	5011	4829.99831179953	4903.83333333333	0.984943407225544	1.03747448270495
29	5299	5103.06404273025	4833.625	1.05574264506044	1.03839574726656
30	4146	4382.47068518533	4752.5	0.922140070528212	0.946041696072332
31	4625	4839.20221474232	4680.70833333333	1.03386108898952	0.9557360479606
32	4736	4701.79131097916	4647.625	1.01165462165712	1.00727567149587
33	4219	4484.46445574149	4627.95833333333	0.968994129320847	0.940803532202911
34	5116	4854.2128384551	4571.5	1.06184246712351	1.05392988940885
35	4205	4549.61053261932	4530.875	1.00413508044678	0.924254937835102
36	4121	4453.49956267895	4544.54166666667	0.979966713771052	0.925339711388914
37	5103	5035.01012661187	4515.625	1.11501954360955	1.01350342336528
38	4300	4030.50355011432	4468.25	0.902031790995203	1.06686421349959
39	4578	4298.63485175368	4479.29166666667	0.959668441272228	1.06498927168293
40	3809	4407.74486526021	4475.125	0.984943407225544	0.864160725367922
41	5526	4709.49198250709	4460.83333333333	1.05574264506044	1.17337496709321
42	4247	4126.9226181402	4475.375	0.922140070528212	1.02909610694710
43	3830	4612.95894643511	4461.875	1.03386108898952	0.83026969120543
44	4394	4484.5806332542	4432.91666666667	1.01165462165712	0.979801760596627
45	4826	4248.19138720876	4384.125	0.968994129320847	1.13601284879279
46	4409	4646.88809674924	4376.25	1.06184246712351	0.94880700981036
47	4569	4356.356368595	4338.41666666667	1.00413508044678	1.04881226727408
48	4106	4184.09038028473	4269.625	0.979966713771052	0.981336354335774
49	4794	4798.39368762840	4303.41666666667	1.11501954360955	0.999084341987252
50	3914	3871.55803160937	4292.04166666667	0.902031790995203	1.01096250347899
51	3793	4020.09108667442	4189.04166666667	0.959668441272228	0.943510959881689
52	4405	4054.27329999215	4116.25	0.984943407225544	1.08650790759679
53	4022	4306.24228137088	4078.875	1.05574264506044	0.933992965839257
54	4100	3736.93421331264	4052.45833333333	0.922140070528212	1.09715605519464
55	4788	4153.06307201627	4017.04166666667	1.03386108898952	1.15288400801375
56	3163	NA	NA	1.01165462165712	NA
57	3585	NA	NA	0.968994129320847	NA
58	3903	NA	NA	1.06184246712351	NA
59	4178	NA	NA	1.00413508044678	NA
60	3863	NA	NA	0.979966713771052	NA
61	4187	NA	NA	NA	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 = multiplicative ; par2 = 12 ;

Parameters (R input):

par1 = multiplicative ; 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,m$trend[i]+m$seasonal[i]) else a<-table.element(a,m$trend[i]*m$seasonal[i])
a<-table.element(a,m$trend[i])
a<-table.element(a,m$seasonal[i])
a<-table.element(a,m$random[i])
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