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, 07 Jun 2009 09:45:48 -0600

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/Jun/07/t12443896843zgb4a0vcyrijy8.htm/, Retrieved Mon, 13 May 2024 19:38:50 +0000

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

136

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

-     [Standard Deviation-Mean Plot] [Opgave 8 Oefening...] [2009-05-28 19:48:48] [74be16979710d4c4e7c6647856088456]
- RMPD  [Classical Decomposition] [Opgave 9 Oefening...] [2009-05-28 20:20:25] [74be16979710d4c4e7c6647856088456]
-   PD    [Classical Decomposition] [Opgave 9 Oefening...] [2009-06-02 19:29:18] [74be16979710d4c4e7c6647856088456]
-   P         [Classical Decomposition] [Opgave 9 Oefening...] [2009-06-07 15:45:48] [d41d8cd98f00b204e9800998ecf8427e] [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	1 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 & 1 seconds \tabularnewline
R Server & 'Gwilym Jenkins' @ 72.249.127.135 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=42172&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]1 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=42172&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=42172&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	1 seconds
R Server	'Gwilym Jenkins' @ 72.249.127.135

Classical Decomposition by Moving Averages
t	Observations	Fit	Trend	Seasonal	Random
1	3779.7	NA	NA	-0.152083333333394	NA
2	3795.5	NA	NA	0.343055555555465	NA
3	3813.1	3811.11805555556	3810.5	0.618055555555606	1.98194444444425
4	3826.9	3822.55347222222	3823.3625	-0.809027777777677	4.34652777777774
5	3833.3	3834.14791666667	3834.3	-0.152083333333394	-0.847916666666151
6	3844.8	3842.53055555556	3842.1875	0.343055555555465	2.26944444444462
7	3851.3	3848.51805555556	3847.9	0.618055555555606	2.78194444444443
8	3851.8	3851.39097222222	3852.2	-0.809027777777677	0.409027777777737
9	3854.1	3855.03541666667	3855.1875	-0.152083333333394	-0.935416666666242
10	3858.4	3857.38055555556	3857.0375	0.343055555555465	1.01944444444462
11	3861.6	3858.43055555556	3857.8125	0.618055555555606	3.16944444444425
12	3856.3	3857.46597222222	3858.275	-0.809027777777677	-1.16597222222208
13	3855.8	3857.56041666667	3857.7125	-0.152083333333394	-1.76041666666606
14	3860.4	3855.14305555556	3854.8	0.343055555555465	5.2569444444448
15	3855.1	3850.46805555556	3849.85	0.618055555555606	4.63194444444434
16	3839.5	3842.84097222222	3843.65	-0.809027777777677	-3.34097222222226
17	3833	3836.61041666667	3836.7625	-0.152083333333394	-3.61041666666642
18	3833.6	3830.90555555556	3830.5625	0.343055555555465	2.69444444444434
19	3826.8	3825.81805555556	3825.2	0.618055555555606	0.981944444444252
20	3818.2	3818.34097222222	3819.15	-0.809027777777677	-0.140972222221990
21	3811.4	3813.58541666667	3813.7375	-0.152083333333394	-2.18541666666624
22	3806.8	3812.01805555556	3811.675	0.343055555555465	-5.21805555555557
23	3810.3	3818.23055555556	3817.6125	0.618055555555606	-7.93055555555566
24	3818.2	3830.36597222222	3831.175	-0.809027777777677	-12.1659722222221
25	3858.9	3846.39791666667	3846.55	-0.152083333333394	12.5020833333338
26	3867.8	3861.53055555556	3861.1875	0.343055555555465	6.26944444444462
27	3872.3	3870.91805555556	3870.3	0.618055555555606	1.38194444444434
28	3873.3	3873.56597222222	3874.375	-0.809027777777677	-0.265972222221535
29	3876.7	3877.47291666667	3877.625	-0.152083333333394	-0.772916666666333
30	3882.6	3880.48055555556	3880.1375	0.343055555555465	2.11944444444407
31	3883.5	3883.29305555556	3882.675	0.618055555555606	0.206944444444161
32	3882.2	3884.67847222222	3885.4875	-0.809027777777677	-2.47847222222208
33	3888.1	3889.02291666667	3889.175	-0.152083333333394	-0.922916666666879
34	3893.7	3895.83055555556	3895.4875	0.343055555555465	-2.13055555555593
35	3901.9	3905.39305555556	3904.775	0.618055555555606	-3.4930555555552
36	3914.3	3916.06597222222	3916.875	-0.809027777777677	-1.76597222222199
37	3930.3	3932.24791666667	3932.4	-0.152083333333394	-1.94791666666697
38	3948.3	3950.91805555556	3950.575	0.343055555555465	-2.61805555555566
39	3971.5	3968.50555555556	3967.8875	0.618055555555606	2.99444444444407
40	3990.1	3981.12847222222	3981.9375	-0.809027777777677	8.97152777777774
41	3993	3993.53541666667	3993.6875	-0.152083333333394	-0.535416666666606
42	3998	4005.95555555556	4005.6125	0.343055555555465	-7.9555555555553
43	4015.8	4021.08055555556	4020.4625	0.618055555555606	-5.28055555555511
44	4041.2	4037.95347222222	4038.7625	-0.809027777777677	3.24652777777783
45	4060.7	4059.34791666667	4059.5	-0.152083333333394	1.35208333333367
46	4076.7	4081.25555555556	4080.9125	0.343055555555465	-4.55555555555566
47	4103	4101.91805555555	4101.3	0.618055555555606	1.08194444444507
48	4125.3	4119.11597222222	4119.925	-0.809027777777677	6.18402777777828
49	4139.7	4135.39791666667	4135.55	-0.152083333333394	4.30208333333303
50	4146.7	4146.49305555556	4146.15	0.343055555555465	0.206944444444161
51	4158	4151.13055555556	4150.5125	0.618055555555606	6.86944444444453
52	4155.1	4150.52847222222	4151.3375	-0.809027777777677	4.5715277777781
53	4144.8	4149.43541666667	4149.5875	-0.152083333333394	-4.63541666666606
54	4148.2	4146.36805555555	4146.025	0.343055555555465	1.83194444444507
55	4142.5	4145.09305555556	4144.475	0.618055555555606	-2.59305555555602
56	4142.1	4143.50347222222	4144.3125	-0.809027777777677	-1.40347222222226
57	4145.4	4144.04791666667	4144.2	-0.152083333333394	1.35208333333230
58	4146.3	4145.55555555556	4145.2125	0.343055555555465	0.744444444444525
59	4143.5	4148.40555555556	4147.7875	0.618055555555606	-4.90555555555602
60	4149.2	4151.14097222222	4151.95	-0.809027777777677	-1.94097222222263
61	4158.9	4158.72291666667	4158.875	-0.152083333333394	0.17708333333303
62	4166.1	4169.31805555556	4168.975	0.343055555555465	-3.21805555555511
63	4179.1	4181.84305555556	4181.225	0.618055555555606	-2.74305555555566
64	4194.4	4194.54097222222	4195.35	-0.809027777777677	-0.140972222223354
65	4211.7	4209.81041666667	4209.9625	-0.152083333333394	1.88958333333267
66	4226.3	4223.54305555556	4223.2	0.343055555555465	2.75694444444434
67	4235.8	4235.84305555556	4235.225	0.618055555555606	-0.043055555554929
68	4243.6	4246.77847222222	4247.5875	-0.809027777777677	-3.17847222222281
69	4258.7	4261.69791666667	4261.85	-0.152083333333394	-2.99791666666715
70	4278.2	4278.90555555556	4278.5625	0.343055555555465	-0.705555555555293
71	4298	4297.56805555556	4296.95	0.618055555555606	0.431944444444525
72	4315.1	4315.31597222222	4316.125	-0.809027777777677	-0.215972222222263
73	4334.3	4335.19791666667	4335.35	-0.152083333333394	-0.897916666666788
74	4356	4355.24305555555	4354.9	0.343055555555465	0.756944444445253
75	4374	NA	NA	0.618055555555606	NA
76	4395.5	NA	NA	-0.809027777777677	NA

\begin{tabular}{lllllllll}
\hline
Classical Decomposition by Moving Averages \tabularnewline
t & Observations & Fit & Trend & Seasonal & Random \tabularnewline
1 & 3779.7 & NA & NA & -0.152083333333394 & NA \tabularnewline
2 & 3795.5 & NA & NA & 0.343055555555465 & NA \tabularnewline
3 & 3813.1 & 3811.11805555556 & 3810.5 & 0.618055555555606 & 1.98194444444425 \tabularnewline
4 & 3826.9 & 3822.55347222222 & 3823.3625 & -0.809027777777677 & 4.34652777777774 \tabularnewline
5 & 3833.3 & 3834.14791666667 & 3834.3 & -0.152083333333394 & -0.847916666666151 \tabularnewline
6 & 3844.8 & 3842.53055555556 & 3842.1875 & 0.343055555555465 & 2.26944444444462 \tabularnewline
7 & 3851.3 & 3848.51805555556 & 3847.9 & 0.618055555555606 & 2.78194444444443 \tabularnewline
8 & 3851.8 & 3851.39097222222 & 3852.2 & -0.809027777777677 & 0.409027777777737 \tabularnewline
9 & 3854.1 & 3855.03541666667 & 3855.1875 & -0.152083333333394 & -0.935416666666242 \tabularnewline
10 & 3858.4 & 3857.38055555556 & 3857.0375 & 0.343055555555465 & 1.01944444444462 \tabularnewline
11 & 3861.6 & 3858.43055555556 & 3857.8125 & 0.618055555555606 & 3.16944444444425 \tabularnewline
12 & 3856.3 & 3857.46597222222 & 3858.275 & -0.809027777777677 & -1.16597222222208 \tabularnewline
13 & 3855.8 & 3857.56041666667 & 3857.7125 & -0.152083333333394 & -1.76041666666606 \tabularnewline
14 & 3860.4 & 3855.14305555556 & 3854.8 & 0.343055555555465 & 5.2569444444448 \tabularnewline
15 & 3855.1 & 3850.46805555556 & 3849.85 & 0.618055555555606 & 4.63194444444434 \tabularnewline
16 & 3839.5 & 3842.84097222222 & 3843.65 & -0.809027777777677 & -3.34097222222226 \tabularnewline
17 & 3833 & 3836.61041666667 & 3836.7625 & -0.152083333333394 & -3.61041666666642 \tabularnewline
18 & 3833.6 & 3830.90555555556 & 3830.5625 & 0.343055555555465 & 2.69444444444434 \tabularnewline
19 & 3826.8 & 3825.81805555556 & 3825.2 & 0.618055555555606 & 0.981944444444252 \tabularnewline
20 & 3818.2 & 3818.34097222222 & 3819.15 & -0.809027777777677 & -0.140972222221990 \tabularnewline
21 & 3811.4 & 3813.58541666667 & 3813.7375 & -0.152083333333394 & -2.18541666666624 \tabularnewline
22 & 3806.8 & 3812.01805555556 & 3811.675 & 0.343055555555465 & -5.21805555555557 \tabularnewline
23 & 3810.3 & 3818.23055555556 & 3817.6125 & 0.618055555555606 & -7.93055555555566 \tabularnewline
24 & 3818.2 & 3830.36597222222 & 3831.175 & -0.809027777777677 & -12.1659722222221 \tabularnewline
25 & 3858.9 & 3846.39791666667 & 3846.55 & -0.152083333333394 & 12.5020833333338 \tabularnewline
26 & 3867.8 & 3861.53055555556 & 3861.1875 & 0.343055555555465 & 6.26944444444462 \tabularnewline
27 & 3872.3 & 3870.91805555556 & 3870.3 & 0.618055555555606 & 1.38194444444434 \tabularnewline
28 & 3873.3 & 3873.56597222222 & 3874.375 & -0.809027777777677 & -0.265972222221535 \tabularnewline
29 & 3876.7 & 3877.47291666667 & 3877.625 & -0.152083333333394 & -0.772916666666333 \tabularnewline
30 & 3882.6 & 3880.48055555556 & 3880.1375 & 0.343055555555465 & 2.11944444444407 \tabularnewline
31 & 3883.5 & 3883.29305555556 & 3882.675 & 0.618055555555606 & 0.206944444444161 \tabularnewline
32 & 3882.2 & 3884.67847222222 & 3885.4875 & -0.809027777777677 & -2.47847222222208 \tabularnewline
33 & 3888.1 & 3889.02291666667 & 3889.175 & -0.152083333333394 & -0.922916666666879 \tabularnewline
34 & 3893.7 & 3895.83055555556 & 3895.4875 & 0.343055555555465 & -2.13055555555593 \tabularnewline
35 & 3901.9 & 3905.39305555556 & 3904.775 & 0.618055555555606 & -3.4930555555552 \tabularnewline
36 & 3914.3 & 3916.06597222222 & 3916.875 & -0.809027777777677 & -1.76597222222199 \tabularnewline
37 & 3930.3 & 3932.24791666667 & 3932.4 & -0.152083333333394 & -1.94791666666697 \tabularnewline
38 & 3948.3 & 3950.91805555556 & 3950.575 & 0.343055555555465 & -2.61805555555566 \tabularnewline
39 & 3971.5 & 3968.50555555556 & 3967.8875 & 0.618055555555606 & 2.99444444444407 \tabularnewline
40 & 3990.1 & 3981.12847222222 & 3981.9375 & -0.809027777777677 & 8.97152777777774 \tabularnewline
41 & 3993 & 3993.53541666667 & 3993.6875 & -0.152083333333394 & -0.535416666666606 \tabularnewline
42 & 3998 & 4005.95555555556 & 4005.6125 & 0.343055555555465 & -7.9555555555553 \tabularnewline
43 & 4015.8 & 4021.08055555556 & 4020.4625 & 0.618055555555606 & -5.28055555555511 \tabularnewline
44 & 4041.2 & 4037.95347222222 & 4038.7625 & -0.809027777777677 & 3.24652777777783 \tabularnewline
45 & 4060.7 & 4059.34791666667 & 4059.5 & -0.152083333333394 & 1.35208333333367 \tabularnewline
46 & 4076.7 & 4081.25555555556 & 4080.9125 & 0.343055555555465 & -4.55555555555566 \tabularnewline
47 & 4103 & 4101.91805555555 & 4101.3 & 0.618055555555606 & 1.08194444444507 \tabularnewline
48 & 4125.3 & 4119.11597222222 & 4119.925 & -0.809027777777677 & 6.18402777777828 \tabularnewline
49 & 4139.7 & 4135.39791666667 & 4135.55 & -0.152083333333394 & 4.30208333333303 \tabularnewline
50 & 4146.7 & 4146.49305555556 & 4146.15 & 0.343055555555465 & 0.206944444444161 \tabularnewline
51 & 4158 & 4151.13055555556 & 4150.5125 & 0.618055555555606 & 6.86944444444453 \tabularnewline
52 & 4155.1 & 4150.52847222222 & 4151.3375 & -0.809027777777677 & 4.5715277777781 \tabularnewline
53 & 4144.8 & 4149.43541666667 & 4149.5875 & -0.152083333333394 & -4.63541666666606 \tabularnewline
54 & 4148.2 & 4146.36805555555 & 4146.025 & 0.343055555555465 & 1.83194444444507 \tabularnewline
55 & 4142.5 & 4145.09305555556 & 4144.475 & 0.618055555555606 & -2.59305555555602 \tabularnewline
56 & 4142.1 & 4143.50347222222 & 4144.3125 & -0.809027777777677 & -1.40347222222226 \tabularnewline
57 & 4145.4 & 4144.04791666667 & 4144.2 & -0.152083333333394 & 1.35208333333230 \tabularnewline
58 & 4146.3 & 4145.55555555556 & 4145.2125 & 0.343055555555465 & 0.744444444444525 \tabularnewline
59 & 4143.5 & 4148.40555555556 & 4147.7875 & 0.618055555555606 & -4.90555555555602 \tabularnewline
60 & 4149.2 & 4151.14097222222 & 4151.95 & -0.809027777777677 & -1.94097222222263 \tabularnewline
61 & 4158.9 & 4158.72291666667 & 4158.875 & -0.152083333333394 & 0.17708333333303 \tabularnewline
62 & 4166.1 & 4169.31805555556 & 4168.975 & 0.343055555555465 & -3.21805555555511 \tabularnewline
63 & 4179.1 & 4181.84305555556 & 4181.225 & 0.618055555555606 & -2.74305555555566 \tabularnewline
64 & 4194.4 & 4194.54097222222 & 4195.35 & -0.809027777777677 & -0.140972222223354 \tabularnewline
65 & 4211.7 & 4209.81041666667 & 4209.9625 & -0.152083333333394 & 1.88958333333267 \tabularnewline
66 & 4226.3 & 4223.54305555556 & 4223.2 & 0.343055555555465 & 2.75694444444434 \tabularnewline
67 & 4235.8 & 4235.84305555556 & 4235.225 & 0.618055555555606 & -0.043055555554929 \tabularnewline
68 & 4243.6 & 4246.77847222222 & 4247.5875 & -0.809027777777677 & -3.17847222222281 \tabularnewline
69 & 4258.7 & 4261.69791666667 & 4261.85 & -0.152083333333394 & -2.99791666666715 \tabularnewline
70 & 4278.2 & 4278.90555555556 & 4278.5625 & 0.343055555555465 & -0.705555555555293 \tabularnewline
71 & 4298 & 4297.56805555556 & 4296.95 & 0.618055555555606 & 0.431944444444525 \tabularnewline
72 & 4315.1 & 4315.31597222222 & 4316.125 & -0.809027777777677 & -0.215972222222263 \tabularnewline
73 & 4334.3 & 4335.19791666667 & 4335.35 & -0.152083333333394 & -0.897916666666788 \tabularnewline
74 & 4356 & 4355.24305555555 & 4354.9 & 0.343055555555465 & 0.756944444445253 \tabularnewline
75 & 4374 & NA & NA & 0.618055555555606 & NA \tabularnewline
76 & 4395.5 & NA & NA & -0.809027777777677 & NA \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=42172&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]3779.7[/C][C]NA[/C][C]NA[/C][C]-0.152083333333394[/C][C]NA[/C][/ROW]
[ROW][C]2[/C][C]3795.5[/C][C]NA[/C][C]NA[/C][C]0.343055555555465[/C][C]NA[/C][/ROW]
[ROW][C]3[/C][C]3813.1[/C][C]3811.11805555556[/C][C]3810.5[/C][C]0.618055555555606[/C][C]1.98194444444425[/C][/ROW]
[ROW][C]4[/C][C]3826.9[/C][C]3822.55347222222[/C][C]3823.3625[/C][C]-0.809027777777677[/C][C]4.34652777777774[/C][/ROW]
[ROW][C]5[/C][C]3833.3[/C][C]3834.14791666667[/C][C]3834.3[/C][C]-0.152083333333394[/C][C]-0.847916666666151[/C][/ROW]
[ROW][C]6[/C][C]3844.8[/C][C]3842.53055555556[/C][C]3842.1875[/C][C]0.343055555555465[/C][C]2.26944444444462[/C][/ROW]
[ROW][C]7[/C][C]3851.3[/C][C]3848.51805555556[/C][C]3847.9[/C][C]0.618055555555606[/C][C]2.78194444444443[/C][/ROW]
[ROW][C]8[/C][C]3851.8[/C][C]3851.39097222222[/C][C]3852.2[/C][C]-0.809027777777677[/C][C]0.409027777777737[/C][/ROW]
[ROW][C]9[/C][C]3854.1[/C][C]3855.03541666667[/C][C]3855.1875[/C][C]-0.152083333333394[/C][C]-0.935416666666242[/C][/ROW]
[ROW][C]10[/C][C]3858.4[/C][C]3857.38055555556[/C][C]3857.0375[/C][C]0.343055555555465[/C][C]1.01944444444462[/C][/ROW]
[ROW][C]11[/C][C]3861.6[/C][C]3858.43055555556[/C][C]3857.8125[/C][C]0.618055555555606[/C][C]3.16944444444425[/C][/ROW]
[ROW][C]12[/C][C]3856.3[/C][C]3857.46597222222[/C][C]3858.275[/C][C]-0.809027777777677[/C][C]-1.16597222222208[/C][/ROW]
[ROW][C]13[/C][C]3855.8[/C][C]3857.56041666667[/C][C]3857.7125[/C][C]-0.152083333333394[/C][C]-1.76041666666606[/C][/ROW]
[ROW][C]14[/C][C]3860.4[/C][C]3855.14305555556[/C][C]3854.8[/C][C]0.343055555555465[/C][C]5.2569444444448[/C][/ROW]
[ROW][C]15[/C][C]3855.1[/C][C]3850.46805555556[/C][C]3849.85[/C][C]0.618055555555606[/C][C]4.63194444444434[/C][/ROW]
[ROW][C]16[/C][C]3839.5[/C][C]3842.84097222222[/C][C]3843.65[/C][C]-0.809027777777677[/C][C]-3.34097222222226[/C][/ROW]
[ROW][C]17[/C][C]3833[/C][C]3836.61041666667[/C][C]3836.7625[/C][C]-0.152083333333394[/C][C]-3.61041666666642[/C][/ROW]
[ROW][C]18[/C][C]3833.6[/C][C]3830.90555555556[/C][C]3830.5625[/C][C]0.343055555555465[/C][C]2.69444444444434[/C][/ROW]
[ROW][C]19[/C][C]3826.8[/C][C]3825.81805555556[/C][C]3825.2[/C][C]0.618055555555606[/C][C]0.981944444444252[/C][/ROW]
[ROW][C]20[/C][C]3818.2[/C][C]3818.34097222222[/C][C]3819.15[/C][C]-0.809027777777677[/C][C]-0.140972222221990[/C][/ROW]
[ROW][C]21[/C][C]3811.4[/C][C]3813.58541666667[/C][C]3813.7375[/C][C]-0.152083333333394[/C][C]-2.18541666666624[/C][/ROW]
[ROW][C]22[/C][C]3806.8[/C][C]3812.01805555556[/C][C]3811.675[/C][C]0.343055555555465[/C][C]-5.21805555555557[/C][/ROW]
[ROW][C]23[/C][C]3810.3[/C][C]3818.23055555556[/C][C]3817.6125[/C][C]0.618055555555606[/C][C]-7.93055555555566[/C][/ROW]
[ROW][C]24[/C][C]3818.2[/C][C]3830.36597222222[/C][C]3831.175[/C][C]-0.809027777777677[/C][C]-12.1659722222221[/C][/ROW]
[ROW][C]25[/C][C]3858.9[/C][C]3846.39791666667[/C][C]3846.55[/C][C]-0.152083333333394[/C][C]12.5020833333338[/C][/ROW]
[ROW][C]26[/C][C]3867.8[/C][C]3861.53055555556[/C][C]3861.1875[/C][C]0.343055555555465[/C][C]6.26944444444462[/C][/ROW]
[ROW][C]27[/C][C]3872.3[/C][C]3870.91805555556[/C][C]3870.3[/C][C]0.618055555555606[/C][C]1.38194444444434[/C][/ROW]
[ROW][C]28[/C][C]3873.3[/C][C]3873.56597222222[/C][C]3874.375[/C][C]-0.809027777777677[/C][C]-0.265972222221535[/C][/ROW]
[ROW][C]29[/C][C]3876.7[/C][C]3877.47291666667[/C][C]3877.625[/C][C]-0.152083333333394[/C][C]-0.772916666666333[/C][/ROW]
[ROW][C]30[/C][C]3882.6[/C][C]3880.48055555556[/C][C]3880.1375[/C][C]0.343055555555465[/C][C]2.11944444444407[/C][/ROW]
[ROW][C]31[/C][C]3883.5[/C][C]3883.29305555556[/C][C]3882.675[/C][C]0.618055555555606[/C][C]0.206944444444161[/C][/ROW]
[ROW][C]32[/C][C]3882.2[/C][C]3884.67847222222[/C][C]3885.4875[/C][C]-0.809027777777677[/C][C]-2.47847222222208[/C][/ROW]
[ROW][C]33[/C][C]3888.1[/C][C]3889.02291666667[/C][C]3889.175[/C][C]-0.152083333333394[/C][C]-0.922916666666879[/C][/ROW]
[ROW][C]34[/C][C]3893.7[/C][C]3895.83055555556[/C][C]3895.4875[/C][C]0.343055555555465[/C][C]-2.13055555555593[/C][/ROW]
[ROW][C]35[/C][C]3901.9[/C][C]3905.39305555556[/C][C]3904.775[/C][C]0.618055555555606[/C][C]-3.4930555555552[/C][/ROW]
[ROW][C]36[/C][C]3914.3[/C][C]3916.06597222222[/C][C]3916.875[/C][C]-0.809027777777677[/C][C]-1.76597222222199[/C][/ROW]
[ROW][C]37[/C][C]3930.3[/C][C]3932.24791666667[/C][C]3932.4[/C][C]-0.152083333333394[/C][C]-1.94791666666697[/C][/ROW]
[ROW][C]38[/C][C]3948.3[/C][C]3950.91805555556[/C][C]3950.575[/C][C]0.343055555555465[/C][C]-2.61805555555566[/C][/ROW]
[ROW][C]39[/C][C]3971.5[/C][C]3968.50555555556[/C][C]3967.8875[/C][C]0.618055555555606[/C][C]2.99444444444407[/C][/ROW]
[ROW][C]40[/C][C]3990.1[/C][C]3981.12847222222[/C][C]3981.9375[/C][C]-0.809027777777677[/C][C]8.97152777777774[/C][/ROW]
[ROW][C]41[/C][C]3993[/C][C]3993.53541666667[/C][C]3993.6875[/C][C]-0.152083333333394[/C][C]-0.535416666666606[/C][/ROW]
[ROW][C]42[/C][C]3998[/C][C]4005.95555555556[/C][C]4005.6125[/C][C]0.343055555555465[/C][C]-7.9555555555553[/C][/ROW]
[ROW][C]43[/C][C]4015.8[/C][C]4021.08055555556[/C][C]4020.4625[/C][C]0.618055555555606[/C][C]-5.28055555555511[/C][/ROW]
[ROW][C]44[/C][C]4041.2[/C][C]4037.95347222222[/C][C]4038.7625[/C][C]-0.809027777777677[/C][C]3.24652777777783[/C][/ROW]
[ROW][C]45[/C][C]4060.7[/C][C]4059.34791666667[/C][C]4059.5[/C][C]-0.152083333333394[/C][C]1.35208333333367[/C][/ROW]
[ROW][C]46[/C][C]4076.7[/C][C]4081.25555555556[/C][C]4080.9125[/C][C]0.343055555555465[/C][C]-4.55555555555566[/C][/ROW]
[ROW][C]47[/C][C]4103[/C][C]4101.91805555555[/C][C]4101.3[/C][C]0.618055555555606[/C][C]1.08194444444507[/C][/ROW]
[ROW][C]48[/C][C]4125.3[/C][C]4119.11597222222[/C][C]4119.925[/C][C]-0.809027777777677[/C][C]6.18402777777828[/C][/ROW]
[ROW][C]49[/C][C]4139.7[/C][C]4135.39791666667[/C][C]4135.55[/C][C]-0.152083333333394[/C][C]4.30208333333303[/C][/ROW]
[ROW][C]50[/C][C]4146.7[/C][C]4146.49305555556[/C][C]4146.15[/C][C]0.343055555555465[/C][C]0.206944444444161[/C][/ROW]
[ROW][C]51[/C][C]4158[/C][C]4151.13055555556[/C][C]4150.5125[/C][C]0.618055555555606[/C][C]6.86944444444453[/C][/ROW]
[ROW][C]52[/C][C]4155.1[/C][C]4150.52847222222[/C][C]4151.3375[/C][C]-0.809027777777677[/C][C]4.5715277777781[/C][/ROW]
[ROW][C]53[/C][C]4144.8[/C][C]4149.43541666667[/C][C]4149.5875[/C][C]-0.152083333333394[/C][C]-4.63541666666606[/C][/ROW]
[ROW][C]54[/C][C]4148.2[/C][C]4146.36805555555[/C][C]4146.025[/C][C]0.343055555555465[/C][C]1.83194444444507[/C][/ROW]
[ROW][C]55[/C][C]4142.5[/C][C]4145.09305555556[/C][C]4144.475[/C][C]0.618055555555606[/C][C]-2.59305555555602[/C][/ROW]
[ROW][C]56[/C][C]4142.1[/C][C]4143.50347222222[/C][C]4144.3125[/C][C]-0.809027777777677[/C][C]-1.40347222222226[/C][/ROW]
[ROW][C]57[/C][C]4145.4[/C][C]4144.04791666667[/C][C]4144.2[/C][C]-0.152083333333394[/C][C]1.35208333333230[/C][/ROW]
[ROW][C]58[/C][C]4146.3[/C][C]4145.55555555556[/C][C]4145.2125[/C][C]0.343055555555465[/C][C]0.744444444444525[/C][/ROW]
[ROW][C]59[/C][C]4143.5[/C][C]4148.40555555556[/C][C]4147.7875[/C][C]0.618055555555606[/C][C]-4.90555555555602[/C][/ROW]
[ROW][C]60[/C][C]4149.2[/C][C]4151.14097222222[/C][C]4151.95[/C][C]-0.809027777777677[/C][C]-1.94097222222263[/C][/ROW]
[ROW][C]61[/C][C]4158.9[/C][C]4158.72291666667[/C][C]4158.875[/C][C]-0.152083333333394[/C][C]0.17708333333303[/C][/ROW]
[ROW][C]62[/C][C]4166.1[/C][C]4169.31805555556[/C][C]4168.975[/C][C]0.343055555555465[/C][C]-3.21805555555511[/C][/ROW]
[ROW][C]63[/C][C]4179.1[/C][C]4181.84305555556[/C][C]4181.225[/C][C]0.618055555555606[/C][C]-2.74305555555566[/C][/ROW]
[ROW][C]64[/C][C]4194.4[/C][C]4194.54097222222[/C][C]4195.35[/C][C]-0.809027777777677[/C][C]-0.140972222223354[/C][/ROW]
[ROW][C]65[/C][C]4211.7[/C][C]4209.81041666667[/C][C]4209.9625[/C][C]-0.152083333333394[/C][C]1.88958333333267[/C][/ROW]
[ROW][C]66[/C][C]4226.3[/C][C]4223.54305555556[/C][C]4223.2[/C][C]0.343055555555465[/C][C]2.75694444444434[/C][/ROW]
[ROW][C]67[/C][C]4235.8[/C][C]4235.84305555556[/C][C]4235.225[/C][C]0.618055555555606[/C][C]-0.043055555554929[/C][/ROW]
[ROW][C]68[/C][C]4243.6[/C][C]4246.77847222222[/C][C]4247.5875[/C][C]-0.809027777777677[/C][C]-3.17847222222281[/C][/ROW]
[ROW][C]69[/C][C]4258.7[/C][C]4261.69791666667[/C][C]4261.85[/C][C]-0.152083333333394[/C][C]-2.99791666666715[/C][/ROW]
[ROW][C]70[/C][C]4278.2[/C][C]4278.90555555556[/C][C]4278.5625[/C][C]0.343055555555465[/C][C]-0.705555555555293[/C][/ROW]
[ROW][C]71[/C][C]4298[/C][C]4297.56805555556[/C][C]4296.95[/C][C]0.618055555555606[/C][C]0.431944444444525[/C][/ROW]
[ROW][C]72[/C][C]4315.1[/C][C]4315.31597222222[/C][C]4316.125[/C][C]-0.809027777777677[/C][C]-0.215972222222263[/C][/ROW]
[ROW][C]73[/C][C]4334.3[/C][C]4335.19791666667[/C][C]4335.35[/C][C]-0.152083333333394[/C][C]-0.897916666666788[/C][/ROW]
[ROW][C]74[/C][C]4356[/C][C]4355.24305555555[/C][C]4354.9[/C][C]0.343055555555465[/C][C]0.756944444445253[/C][/ROW]
[ROW][C]75[/C][C]4374[/C][C]NA[/C][C]NA[/C][C]0.618055555555606[/C][C]NA[/C][/ROW]
[ROW][C]76[/C][C]4395.5[/C][C]NA[/C][C]NA[/C][C]-0.809027777777677[/C][C]NA[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=42172&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=42172&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	3779.7	NA	NA	-0.152083333333394	NA
2	3795.5	NA	NA	0.343055555555465	NA
3	3813.1	3811.11805555556	3810.5	0.618055555555606	1.98194444444425
4	3826.9	3822.55347222222	3823.3625	-0.809027777777677	4.34652777777774
5	3833.3	3834.14791666667	3834.3	-0.152083333333394	-0.847916666666151
6	3844.8	3842.53055555556	3842.1875	0.343055555555465	2.26944444444462
7	3851.3	3848.51805555556	3847.9	0.618055555555606	2.78194444444443
8	3851.8	3851.39097222222	3852.2	-0.809027777777677	0.409027777777737
9	3854.1	3855.03541666667	3855.1875	-0.152083333333394	-0.935416666666242
10	3858.4	3857.38055555556	3857.0375	0.343055555555465	1.01944444444462
11	3861.6	3858.43055555556	3857.8125	0.618055555555606	3.16944444444425
12	3856.3	3857.46597222222	3858.275	-0.809027777777677	-1.16597222222208
13	3855.8	3857.56041666667	3857.7125	-0.152083333333394	-1.76041666666606
14	3860.4	3855.14305555556	3854.8	0.343055555555465	5.2569444444448
15	3855.1	3850.46805555556	3849.85	0.618055555555606	4.63194444444434
16	3839.5	3842.84097222222	3843.65	-0.809027777777677	-3.34097222222226
17	3833	3836.61041666667	3836.7625	-0.152083333333394	-3.61041666666642
18	3833.6	3830.90555555556	3830.5625	0.343055555555465	2.69444444444434
19	3826.8	3825.81805555556	3825.2	0.618055555555606	0.981944444444252
20	3818.2	3818.34097222222	3819.15	-0.809027777777677	-0.140972222221990
21	3811.4	3813.58541666667	3813.7375	-0.152083333333394	-2.18541666666624
22	3806.8	3812.01805555556	3811.675	0.343055555555465	-5.21805555555557
23	3810.3	3818.23055555556	3817.6125	0.618055555555606	-7.93055555555566
24	3818.2	3830.36597222222	3831.175	-0.809027777777677	-12.1659722222221
25	3858.9	3846.39791666667	3846.55	-0.152083333333394	12.5020833333338
26	3867.8	3861.53055555556	3861.1875	0.343055555555465	6.26944444444462
27	3872.3	3870.91805555556	3870.3	0.618055555555606	1.38194444444434
28	3873.3	3873.56597222222	3874.375	-0.809027777777677	-0.265972222221535
29	3876.7	3877.47291666667	3877.625	-0.152083333333394	-0.772916666666333
30	3882.6	3880.48055555556	3880.1375	0.343055555555465	2.11944444444407
31	3883.5	3883.29305555556	3882.675	0.618055555555606	0.206944444444161
32	3882.2	3884.67847222222	3885.4875	-0.809027777777677	-2.47847222222208
33	3888.1	3889.02291666667	3889.175	-0.152083333333394	-0.922916666666879
34	3893.7	3895.83055555556	3895.4875	0.343055555555465	-2.13055555555593
35	3901.9	3905.39305555556	3904.775	0.618055555555606	-3.4930555555552
36	3914.3	3916.06597222222	3916.875	-0.809027777777677	-1.76597222222199
37	3930.3	3932.24791666667	3932.4	-0.152083333333394	-1.94791666666697
38	3948.3	3950.91805555556	3950.575	0.343055555555465	-2.61805555555566
39	3971.5	3968.50555555556	3967.8875	0.618055555555606	2.99444444444407
40	3990.1	3981.12847222222	3981.9375	-0.809027777777677	8.97152777777774
41	3993	3993.53541666667	3993.6875	-0.152083333333394	-0.535416666666606
42	3998	4005.95555555556	4005.6125	0.343055555555465	-7.9555555555553
43	4015.8	4021.08055555556	4020.4625	0.618055555555606	-5.28055555555511
44	4041.2	4037.95347222222	4038.7625	-0.809027777777677	3.24652777777783
45	4060.7	4059.34791666667	4059.5	-0.152083333333394	1.35208333333367
46	4076.7	4081.25555555556	4080.9125	0.343055555555465	-4.55555555555566
47	4103	4101.91805555555	4101.3	0.618055555555606	1.08194444444507
48	4125.3	4119.11597222222	4119.925	-0.809027777777677	6.18402777777828
49	4139.7	4135.39791666667	4135.55	-0.152083333333394	4.30208333333303
50	4146.7	4146.49305555556	4146.15	0.343055555555465	0.206944444444161
51	4158	4151.13055555556	4150.5125	0.618055555555606	6.86944444444453
52	4155.1	4150.52847222222	4151.3375	-0.809027777777677	4.5715277777781
53	4144.8	4149.43541666667	4149.5875	-0.152083333333394	-4.63541666666606
54	4148.2	4146.36805555555	4146.025	0.343055555555465	1.83194444444507
55	4142.5	4145.09305555556	4144.475	0.618055555555606	-2.59305555555602
56	4142.1	4143.50347222222	4144.3125	-0.809027777777677	-1.40347222222226
57	4145.4	4144.04791666667	4144.2	-0.152083333333394	1.35208333333230
58	4146.3	4145.55555555556	4145.2125	0.343055555555465	0.744444444444525
59	4143.5	4148.40555555556	4147.7875	0.618055555555606	-4.90555555555602
60	4149.2	4151.14097222222	4151.95	-0.809027777777677	-1.94097222222263
61	4158.9	4158.72291666667	4158.875	-0.152083333333394	0.17708333333303
62	4166.1	4169.31805555556	4168.975	0.343055555555465	-3.21805555555511
63	4179.1	4181.84305555556	4181.225	0.618055555555606	-2.74305555555566
64	4194.4	4194.54097222222	4195.35	-0.809027777777677	-0.140972222223354
65	4211.7	4209.81041666667	4209.9625	-0.152083333333394	1.88958333333267
66	4226.3	4223.54305555556	4223.2	0.343055555555465	2.75694444444434
67	4235.8	4235.84305555556	4235.225	0.618055555555606	-0.043055555554929
68	4243.6	4246.77847222222	4247.5875	-0.809027777777677	-3.17847222222281
69	4258.7	4261.69791666667	4261.85	-0.152083333333394	-2.99791666666715
70	4278.2	4278.90555555556	4278.5625	0.343055555555465	-0.705555555555293
71	4298	4297.56805555556	4296.95	0.618055555555606	0.431944444444525
72	4315.1	4315.31597222222	4316.125	-0.809027777777677	-0.215972222222263
73	4334.3	4335.19791666667	4335.35	-0.152083333333394	-0.897916666666788
74	4356	4355.24305555555	4354.9	0.343055555555465	0.756944444445253
75	4374	NA	NA	0.618055555555606	NA
76	4395.5	NA	NA	-0.809027777777677	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 = 4 ;

Parameters (R input):

par1 = additive ; par2 = 4 ;

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