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

Sat, 11 Dec 2010 15:26:34 +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/2010/Dec/11/t1292081290jq19xc0966yahw0.htm/, Retrieved Mon, 06 May 2024 16:44:36 +0000

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

KDGP2W92

Estimated Impact

125

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

-       [Classical Decomposition] [Klassieke Decompo...] [2010-12-11 15:26:34] [e2eb61add35e149c3ec50f04fb8f2afe] [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	4 seconds
R Server	'Sir Ronald Aylmer Fisher' @ 193.190.124.24

\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 & 4 seconds \tabularnewline
R Server & 'Sir Ronald Aylmer Fisher' @ 193.190.124.24 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=108210&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]4 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'Sir Ronald Aylmer Fisher' @ 193.190.124.24[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=108210&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=108210&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	4 seconds
R Server	'Sir Ronald Aylmer Fisher' @ 193.190.124.24

Classical Decomposition by Moving Averages
t	Observations	Fit	Trend	Seasonal	Random
1	2981.85	NA	NA	-26.4728819444445	NA
2	3080.58	NA	NA	-8.3631944444443	NA
3	3106.22	NA	NA	-46.7043402777780	NA
4	3119.31	NA	NA	117.485347222222	NA
5	3061.26	NA	NA	170.542222222222	NA
6	3097.31	NA	NA	33.8124305555554	NA
7	3161.69	3194.51524305556	3219.87166666667	-25.3564236111111	-32.8252430555558
8	3257.16	3255.58222222222	3278.94083333333	-23.3586111111112	1.57777777777801
9	3277.01	3382.34951388889	3343.28333333333	39.0661805555555	-105.339513888889
10	3295.32	3366.78263888889	3409.4475	-42.6648611111113	-71.4626388888883
11	3363.99	3357.65378472222	3472.61416666667	-114.960381944444	6.33621527777814
12	3494.17	3450.11409722222	3523.13958333333	-73.025486111111	44.0559027777776
13	3667.03	3538.86378472222	3565.33666666667	-26.4728819444445	128.166215277778
14	3813.06	3604.68305555556	3613.04625	-8.3631944444443	208.376944444444
15	3917.96	3620.43357638889	3667.13791666667	-46.7043402777780	297.526423611112
16	3895.51	3848.63534722222	3731.15	117.485347222222	46.8746527777776
17	3801.06	3971.64888888889	3801.10666666667	170.542222222222	-170.588888888889
18	3570.12	3902.93909722222	3869.12666666667	33.8124305555554	-332.819097222222
19	3701.61	3909.33690972222	3934.69333333333	-25.3564236111111	-207.726909722223
20	3862.27	3972.43722222222	3995.79583333333	-23.3586111111112	-110.167222222223
21	3970.1	4081.88701388889	4042.82083333333	39.0661805555555	-111.787013888889
22	4138.52	4047.43847222222	4090.10333333333	-42.6648611111113	91.0815277777783
23	4199.75	4041.46211805556	4156.4225	-114.960381944444	158.287881944445
24	4290.89	4164.52951388889	4237.555	-73.025486111111	126.360486111112
25	4443.91	4290.77003472222	4317.24291666667	-26.4728819444445	153.139965277778
26	4502.64	4358.94138888889	4367.30458333333	-8.3631944444443	143.698611111112
27	4356.98	4348.37690972222	4395.08125	-46.7043402777780	8.60309027777748
28	4591.27	4538.52909722222	4421.04375	117.485347222222	52.7409027777785
29	4696.96	4600.00847222222	4429.46625	170.542222222222	96.9515277777782
30	4621.4	4452.07951388889	4418.26708333333	33.8124305555554	169.32048611111
31	4562.84	4360.67607638889	4386.0325	-25.3564236111111	202.163923611112
32	4202.52	4305.12888888889	4328.4875	-23.3586111111112	-102.608888888889
33	4296.49	4306.54368055556	4267.4775	39.0661805555555	-10.0536805555557
34	4435.23	4165.80305555556	4208.46791666667	-42.6648611111113	269.426944444444
35	4105.18	4025.60961805556	4140.57	-114.960381944444	79.5703819444443
36	4116.68	3983.67243055556	4056.69791666667	-73.025486111111	133.007569444444
37	3844.49	3919.92211805556	3946.395	-26.4728819444445	-75.4321180555562
38	3720.98	3826.12638888889	3834.48958333333	-8.3631944444443	-105.146388888889
39	3674.4	3684.05024305556	3730.75458333333	-46.7043402777780	-9.65024305555517
40	3857.62	3699.42493055556	3581.93958333333	117.485347222222	158.195069444444
41	3801.06	3572.14263888889	3401.60041666667	170.542222222222	228.917361111111
42	3504.37	3254.38868055555	3220.57625	33.8124305555554	249.981319444445
43	3032.6	3020.51440972222	3045.87083333333	-25.3564236111111	12.085590277778
44	3047.03	2862.13430555556	2885.49291666667	-23.3586111111112	184.895694444445
45	2962.34	2761.46243055556	2722.39625	39.0661805555555	200.877569444445
46	2197.82	2513.16847222222	2555.83333333333	-42.6648611111113	-315.348472222222
47	2014.45	2284.94711805556	2399.9075	-114.960381944444	-270.497118055555
48	1862.83	2192.55659722222	2265.58208333333	-73.025486111111	-329.726597222222
49	1905.41	2137.58670138889	2164.05958333333	-26.4728819444445	-232.176701388889
50	1810.99	2084.22180555556	2092.585	-8.3631944444443	-273.231805555556
51	1670.07	1992.85190972222	2039.55625	-46.7043402777780	-322.781909722222
52	1864.44	2148.55326388889	2031.06791666667	117.485347222222	-284.113263888889
53	2052.02	2233.60263888889	2063.06041666667	170.542222222222	-181.582638888889
54	2029.6	2142.38534722222	2108.57291666667	33.8124305555554	-112.785347222222
55	2070.83	NA	NA	-25.3564236111111	NA
56	2293.41	NA	NA	-23.3586111111112	NA
57	2443.27	NA	NA	39.0661805555555	NA
58	2513.17	NA	NA	-42.6648611111113	NA
59	2466.92	NA	NA	-114.960381944444	NA
60	2502.66	NA	NA	-73.025486111111	NA

\begin{tabular}{lllllllll}
\hline
Classical Decomposition by Moving Averages \tabularnewline
t & Observations & Fit & Trend & Seasonal & Random \tabularnewline
1 & 2981.85 & NA & NA & -26.4728819444445 & NA \tabularnewline
2 & 3080.58 & NA & NA & -8.3631944444443 & NA \tabularnewline
3 & 3106.22 & NA & NA & -46.7043402777780 & NA \tabularnewline
4 & 3119.31 & NA & NA & 117.485347222222 & NA \tabularnewline
5 & 3061.26 & NA & NA & 170.542222222222 & NA \tabularnewline
6 & 3097.31 & NA & NA & 33.8124305555554 & NA \tabularnewline
7 & 3161.69 & 3194.51524305556 & 3219.87166666667 & -25.3564236111111 & -32.8252430555558 \tabularnewline
8 & 3257.16 & 3255.58222222222 & 3278.94083333333 & -23.3586111111112 & 1.57777777777801 \tabularnewline
9 & 3277.01 & 3382.34951388889 & 3343.28333333333 & 39.0661805555555 & -105.339513888889 \tabularnewline
10 & 3295.32 & 3366.78263888889 & 3409.4475 & -42.6648611111113 & -71.4626388888883 \tabularnewline
11 & 3363.99 & 3357.65378472222 & 3472.61416666667 & -114.960381944444 & 6.33621527777814 \tabularnewline
12 & 3494.17 & 3450.11409722222 & 3523.13958333333 & -73.025486111111 & 44.0559027777776 \tabularnewline
13 & 3667.03 & 3538.86378472222 & 3565.33666666667 & -26.4728819444445 & 128.166215277778 \tabularnewline
14 & 3813.06 & 3604.68305555556 & 3613.04625 & -8.3631944444443 & 208.376944444444 \tabularnewline
15 & 3917.96 & 3620.43357638889 & 3667.13791666667 & -46.7043402777780 & 297.526423611112 \tabularnewline
16 & 3895.51 & 3848.63534722222 & 3731.15 & 117.485347222222 & 46.8746527777776 \tabularnewline
17 & 3801.06 & 3971.64888888889 & 3801.10666666667 & 170.542222222222 & -170.588888888889 \tabularnewline
18 & 3570.12 & 3902.93909722222 & 3869.12666666667 & 33.8124305555554 & -332.819097222222 \tabularnewline
19 & 3701.61 & 3909.33690972222 & 3934.69333333333 & -25.3564236111111 & -207.726909722223 \tabularnewline
20 & 3862.27 & 3972.43722222222 & 3995.79583333333 & -23.3586111111112 & -110.167222222223 \tabularnewline
21 & 3970.1 & 4081.88701388889 & 4042.82083333333 & 39.0661805555555 & -111.787013888889 \tabularnewline
22 & 4138.52 & 4047.43847222222 & 4090.10333333333 & -42.6648611111113 & 91.0815277777783 \tabularnewline
23 & 4199.75 & 4041.46211805556 & 4156.4225 & -114.960381944444 & 158.287881944445 \tabularnewline
24 & 4290.89 & 4164.52951388889 & 4237.555 & -73.025486111111 & 126.360486111112 \tabularnewline
25 & 4443.91 & 4290.77003472222 & 4317.24291666667 & -26.4728819444445 & 153.139965277778 \tabularnewline
26 & 4502.64 & 4358.94138888889 & 4367.30458333333 & -8.3631944444443 & 143.698611111112 \tabularnewline
27 & 4356.98 & 4348.37690972222 & 4395.08125 & -46.7043402777780 & 8.60309027777748 \tabularnewline
28 & 4591.27 & 4538.52909722222 & 4421.04375 & 117.485347222222 & 52.7409027777785 \tabularnewline
29 & 4696.96 & 4600.00847222222 & 4429.46625 & 170.542222222222 & 96.9515277777782 \tabularnewline
30 & 4621.4 & 4452.07951388889 & 4418.26708333333 & 33.8124305555554 & 169.32048611111 \tabularnewline
31 & 4562.84 & 4360.67607638889 & 4386.0325 & -25.3564236111111 & 202.163923611112 \tabularnewline
32 & 4202.52 & 4305.12888888889 & 4328.4875 & -23.3586111111112 & -102.608888888889 \tabularnewline
33 & 4296.49 & 4306.54368055556 & 4267.4775 & 39.0661805555555 & -10.0536805555557 \tabularnewline
34 & 4435.23 & 4165.80305555556 & 4208.46791666667 & -42.6648611111113 & 269.426944444444 \tabularnewline
35 & 4105.18 & 4025.60961805556 & 4140.57 & -114.960381944444 & 79.5703819444443 \tabularnewline
36 & 4116.68 & 3983.67243055556 & 4056.69791666667 & -73.025486111111 & 133.007569444444 \tabularnewline
37 & 3844.49 & 3919.92211805556 & 3946.395 & -26.4728819444445 & -75.4321180555562 \tabularnewline
38 & 3720.98 & 3826.12638888889 & 3834.48958333333 & -8.3631944444443 & -105.146388888889 \tabularnewline
39 & 3674.4 & 3684.05024305556 & 3730.75458333333 & -46.7043402777780 & -9.65024305555517 \tabularnewline
40 & 3857.62 & 3699.42493055556 & 3581.93958333333 & 117.485347222222 & 158.195069444444 \tabularnewline
41 & 3801.06 & 3572.14263888889 & 3401.60041666667 & 170.542222222222 & 228.917361111111 \tabularnewline
42 & 3504.37 & 3254.38868055555 & 3220.57625 & 33.8124305555554 & 249.981319444445 \tabularnewline
43 & 3032.6 & 3020.51440972222 & 3045.87083333333 & -25.3564236111111 & 12.085590277778 \tabularnewline
44 & 3047.03 & 2862.13430555556 & 2885.49291666667 & -23.3586111111112 & 184.895694444445 \tabularnewline
45 & 2962.34 & 2761.46243055556 & 2722.39625 & 39.0661805555555 & 200.877569444445 \tabularnewline
46 & 2197.82 & 2513.16847222222 & 2555.83333333333 & -42.6648611111113 & -315.348472222222 \tabularnewline
47 & 2014.45 & 2284.94711805556 & 2399.9075 & -114.960381944444 & -270.497118055555 \tabularnewline
48 & 1862.83 & 2192.55659722222 & 2265.58208333333 & -73.025486111111 & -329.726597222222 \tabularnewline
49 & 1905.41 & 2137.58670138889 & 2164.05958333333 & -26.4728819444445 & -232.176701388889 \tabularnewline
50 & 1810.99 & 2084.22180555556 & 2092.585 & -8.3631944444443 & -273.231805555556 \tabularnewline
51 & 1670.07 & 1992.85190972222 & 2039.55625 & -46.7043402777780 & -322.781909722222 \tabularnewline
52 & 1864.44 & 2148.55326388889 & 2031.06791666667 & 117.485347222222 & -284.113263888889 \tabularnewline
53 & 2052.02 & 2233.60263888889 & 2063.06041666667 & 170.542222222222 & -181.582638888889 \tabularnewline
54 & 2029.6 & 2142.38534722222 & 2108.57291666667 & 33.8124305555554 & -112.785347222222 \tabularnewline
55 & 2070.83 & NA & NA & -25.3564236111111 & NA \tabularnewline
56 & 2293.41 & NA & NA & -23.3586111111112 & NA \tabularnewline
57 & 2443.27 & NA & NA & 39.0661805555555 & NA \tabularnewline
58 & 2513.17 & NA & NA & -42.6648611111113 & NA \tabularnewline
59 & 2466.92 & NA & NA & -114.960381944444 & NA \tabularnewline
60 & 2502.66 & NA & NA & -73.025486111111 & NA \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=108210&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]2981.85[/C][C]NA[/C][C]NA[/C][C]-26.4728819444445[/C][C]NA[/C][/ROW]
[ROW][C]2[/C][C]3080.58[/C][C]NA[/C][C]NA[/C][C]-8.3631944444443[/C][C]NA[/C][/ROW]
[ROW][C]3[/C][C]3106.22[/C][C]NA[/C][C]NA[/C][C]-46.7043402777780[/C][C]NA[/C][/ROW]
[ROW][C]4[/C][C]3119.31[/C][C]NA[/C][C]NA[/C][C]117.485347222222[/C][C]NA[/C][/ROW]
[ROW][C]5[/C][C]3061.26[/C][C]NA[/C][C]NA[/C][C]170.542222222222[/C][C]NA[/C][/ROW]
[ROW][C]6[/C][C]3097.31[/C][C]NA[/C][C]NA[/C][C]33.8124305555554[/C][C]NA[/C][/ROW]
[ROW][C]7[/C][C]3161.69[/C][C]3194.51524305556[/C][C]3219.87166666667[/C][C]-25.3564236111111[/C][C]-32.8252430555558[/C][/ROW]
[ROW][C]8[/C][C]3257.16[/C][C]3255.58222222222[/C][C]3278.94083333333[/C][C]-23.3586111111112[/C][C]1.57777777777801[/C][/ROW]
[ROW][C]9[/C][C]3277.01[/C][C]3382.34951388889[/C][C]3343.28333333333[/C][C]39.0661805555555[/C][C]-105.339513888889[/C][/ROW]
[ROW][C]10[/C][C]3295.32[/C][C]3366.78263888889[/C][C]3409.4475[/C][C]-42.6648611111113[/C][C]-71.4626388888883[/C][/ROW]
[ROW][C]11[/C][C]3363.99[/C][C]3357.65378472222[/C][C]3472.61416666667[/C][C]-114.960381944444[/C][C]6.33621527777814[/C][/ROW]
[ROW][C]12[/C][C]3494.17[/C][C]3450.11409722222[/C][C]3523.13958333333[/C][C]-73.025486111111[/C][C]44.0559027777776[/C][/ROW]
[ROW][C]13[/C][C]3667.03[/C][C]3538.86378472222[/C][C]3565.33666666667[/C][C]-26.4728819444445[/C][C]128.166215277778[/C][/ROW]
[ROW][C]14[/C][C]3813.06[/C][C]3604.68305555556[/C][C]3613.04625[/C][C]-8.3631944444443[/C][C]208.376944444444[/C][/ROW]
[ROW][C]15[/C][C]3917.96[/C][C]3620.43357638889[/C][C]3667.13791666667[/C][C]-46.7043402777780[/C][C]297.526423611112[/C][/ROW]
[ROW][C]16[/C][C]3895.51[/C][C]3848.63534722222[/C][C]3731.15[/C][C]117.485347222222[/C][C]46.8746527777776[/C][/ROW]
[ROW][C]17[/C][C]3801.06[/C][C]3971.64888888889[/C][C]3801.10666666667[/C][C]170.542222222222[/C][C]-170.588888888889[/C][/ROW]
[ROW][C]18[/C][C]3570.12[/C][C]3902.93909722222[/C][C]3869.12666666667[/C][C]33.8124305555554[/C][C]-332.819097222222[/C][/ROW]
[ROW][C]19[/C][C]3701.61[/C][C]3909.33690972222[/C][C]3934.69333333333[/C][C]-25.3564236111111[/C][C]-207.726909722223[/C][/ROW]
[ROW][C]20[/C][C]3862.27[/C][C]3972.43722222222[/C][C]3995.79583333333[/C][C]-23.3586111111112[/C][C]-110.167222222223[/C][/ROW]
[ROW][C]21[/C][C]3970.1[/C][C]4081.88701388889[/C][C]4042.82083333333[/C][C]39.0661805555555[/C][C]-111.787013888889[/C][/ROW]
[ROW][C]22[/C][C]4138.52[/C][C]4047.43847222222[/C][C]4090.10333333333[/C][C]-42.6648611111113[/C][C]91.0815277777783[/C][/ROW]
[ROW][C]23[/C][C]4199.75[/C][C]4041.46211805556[/C][C]4156.4225[/C][C]-114.960381944444[/C][C]158.287881944445[/C][/ROW]
[ROW][C]24[/C][C]4290.89[/C][C]4164.52951388889[/C][C]4237.555[/C][C]-73.025486111111[/C][C]126.360486111112[/C][/ROW]
[ROW][C]25[/C][C]4443.91[/C][C]4290.77003472222[/C][C]4317.24291666667[/C][C]-26.4728819444445[/C][C]153.139965277778[/C][/ROW]
[ROW][C]26[/C][C]4502.64[/C][C]4358.94138888889[/C][C]4367.30458333333[/C][C]-8.3631944444443[/C][C]143.698611111112[/C][/ROW]
[ROW][C]27[/C][C]4356.98[/C][C]4348.37690972222[/C][C]4395.08125[/C][C]-46.7043402777780[/C][C]8.60309027777748[/C][/ROW]
[ROW][C]28[/C][C]4591.27[/C][C]4538.52909722222[/C][C]4421.04375[/C][C]117.485347222222[/C][C]52.7409027777785[/C][/ROW]
[ROW][C]29[/C][C]4696.96[/C][C]4600.00847222222[/C][C]4429.46625[/C][C]170.542222222222[/C][C]96.9515277777782[/C][/ROW]
[ROW][C]30[/C][C]4621.4[/C][C]4452.07951388889[/C][C]4418.26708333333[/C][C]33.8124305555554[/C][C]169.32048611111[/C][/ROW]
[ROW][C]31[/C][C]4562.84[/C][C]4360.67607638889[/C][C]4386.0325[/C][C]-25.3564236111111[/C][C]202.163923611112[/C][/ROW]
[ROW][C]32[/C][C]4202.52[/C][C]4305.12888888889[/C][C]4328.4875[/C][C]-23.3586111111112[/C][C]-102.608888888889[/C][/ROW]
[ROW][C]33[/C][C]4296.49[/C][C]4306.54368055556[/C][C]4267.4775[/C][C]39.0661805555555[/C][C]-10.0536805555557[/C][/ROW]
[ROW][C]34[/C][C]4435.23[/C][C]4165.80305555556[/C][C]4208.46791666667[/C][C]-42.6648611111113[/C][C]269.426944444444[/C][/ROW]
[ROW][C]35[/C][C]4105.18[/C][C]4025.60961805556[/C][C]4140.57[/C][C]-114.960381944444[/C][C]79.5703819444443[/C][/ROW]
[ROW][C]36[/C][C]4116.68[/C][C]3983.67243055556[/C][C]4056.69791666667[/C][C]-73.025486111111[/C][C]133.007569444444[/C][/ROW]
[ROW][C]37[/C][C]3844.49[/C][C]3919.92211805556[/C][C]3946.395[/C][C]-26.4728819444445[/C][C]-75.4321180555562[/C][/ROW]
[ROW][C]38[/C][C]3720.98[/C][C]3826.12638888889[/C][C]3834.48958333333[/C][C]-8.3631944444443[/C][C]-105.146388888889[/C][/ROW]
[ROW][C]39[/C][C]3674.4[/C][C]3684.05024305556[/C][C]3730.75458333333[/C][C]-46.7043402777780[/C][C]-9.65024305555517[/C][/ROW]
[ROW][C]40[/C][C]3857.62[/C][C]3699.42493055556[/C][C]3581.93958333333[/C][C]117.485347222222[/C][C]158.195069444444[/C][/ROW]
[ROW][C]41[/C][C]3801.06[/C][C]3572.14263888889[/C][C]3401.60041666667[/C][C]170.542222222222[/C][C]228.917361111111[/C][/ROW]
[ROW][C]42[/C][C]3504.37[/C][C]3254.38868055555[/C][C]3220.57625[/C][C]33.8124305555554[/C][C]249.981319444445[/C][/ROW]
[ROW][C]43[/C][C]3032.6[/C][C]3020.51440972222[/C][C]3045.87083333333[/C][C]-25.3564236111111[/C][C]12.085590277778[/C][/ROW]
[ROW][C]44[/C][C]3047.03[/C][C]2862.13430555556[/C][C]2885.49291666667[/C][C]-23.3586111111112[/C][C]184.895694444445[/C][/ROW]
[ROW][C]45[/C][C]2962.34[/C][C]2761.46243055556[/C][C]2722.39625[/C][C]39.0661805555555[/C][C]200.877569444445[/C][/ROW]
[ROW][C]46[/C][C]2197.82[/C][C]2513.16847222222[/C][C]2555.83333333333[/C][C]-42.6648611111113[/C][C]-315.348472222222[/C][/ROW]
[ROW][C]47[/C][C]2014.45[/C][C]2284.94711805556[/C][C]2399.9075[/C][C]-114.960381944444[/C][C]-270.497118055555[/C][/ROW]
[ROW][C]48[/C][C]1862.83[/C][C]2192.55659722222[/C][C]2265.58208333333[/C][C]-73.025486111111[/C][C]-329.726597222222[/C][/ROW]
[ROW][C]49[/C][C]1905.41[/C][C]2137.58670138889[/C][C]2164.05958333333[/C][C]-26.4728819444445[/C][C]-232.176701388889[/C][/ROW]
[ROW][C]50[/C][C]1810.99[/C][C]2084.22180555556[/C][C]2092.585[/C][C]-8.3631944444443[/C][C]-273.231805555556[/C][/ROW]
[ROW][C]51[/C][C]1670.07[/C][C]1992.85190972222[/C][C]2039.55625[/C][C]-46.7043402777780[/C][C]-322.781909722222[/C][/ROW]
[ROW][C]52[/C][C]1864.44[/C][C]2148.55326388889[/C][C]2031.06791666667[/C][C]117.485347222222[/C][C]-284.113263888889[/C][/ROW]
[ROW][C]53[/C][C]2052.02[/C][C]2233.60263888889[/C][C]2063.06041666667[/C][C]170.542222222222[/C][C]-181.582638888889[/C][/ROW]
[ROW][C]54[/C][C]2029.6[/C][C]2142.38534722222[/C][C]2108.57291666667[/C][C]33.8124305555554[/C][C]-112.785347222222[/C][/ROW]
[ROW][C]55[/C][C]2070.83[/C][C]NA[/C][C]NA[/C][C]-25.3564236111111[/C][C]NA[/C][/ROW]
[ROW][C]56[/C][C]2293.41[/C][C]NA[/C][C]NA[/C][C]-23.3586111111112[/C][C]NA[/C][/ROW]
[ROW][C]57[/C][C]2443.27[/C][C]NA[/C][C]NA[/C][C]39.0661805555555[/C][C]NA[/C][/ROW]
[ROW][C]58[/C][C]2513.17[/C][C]NA[/C][C]NA[/C][C]-42.6648611111113[/C][C]NA[/C][/ROW]
[ROW][C]59[/C][C]2466.92[/C][C]NA[/C][C]NA[/C][C]-114.960381944444[/C][C]NA[/C][/ROW]
[ROW][C]60[/C][C]2502.66[/C][C]NA[/C][C]NA[/C][C]-73.025486111111[/C][C]NA[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=108210&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=108210&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	2981.85	NA	NA	-26.4728819444445	NA
2	3080.58	NA	NA	-8.3631944444443	NA
3	3106.22	NA	NA	-46.7043402777780	NA
4	3119.31	NA	NA	117.485347222222	NA
5	3061.26	NA	NA	170.542222222222	NA
6	3097.31	NA	NA	33.8124305555554	NA
7	3161.69	3194.51524305556	3219.87166666667	-25.3564236111111	-32.8252430555558
8	3257.16	3255.58222222222	3278.94083333333	-23.3586111111112	1.57777777777801
9	3277.01	3382.34951388889	3343.28333333333	39.0661805555555	-105.339513888889
10	3295.32	3366.78263888889	3409.4475	-42.6648611111113	-71.4626388888883
11	3363.99	3357.65378472222	3472.61416666667	-114.960381944444	6.33621527777814
12	3494.17	3450.11409722222	3523.13958333333	-73.025486111111	44.0559027777776
13	3667.03	3538.86378472222	3565.33666666667	-26.4728819444445	128.166215277778
14	3813.06	3604.68305555556	3613.04625	-8.3631944444443	208.376944444444
15	3917.96	3620.43357638889	3667.13791666667	-46.7043402777780	297.526423611112
16	3895.51	3848.63534722222	3731.15	117.485347222222	46.8746527777776
17	3801.06	3971.64888888889	3801.10666666667	170.542222222222	-170.588888888889
18	3570.12	3902.93909722222	3869.12666666667	33.8124305555554	-332.819097222222
19	3701.61	3909.33690972222	3934.69333333333	-25.3564236111111	-207.726909722223
20	3862.27	3972.43722222222	3995.79583333333	-23.3586111111112	-110.167222222223
21	3970.1	4081.88701388889	4042.82083333333	39.0661805555555	-111.787013888889
22	4138.52	4047.43847222222	4090.10333333333	-42.6648611111113	91.0815277777783
23	4199.75	4041.46211805556	4156.4225	-114.960381944444	158.287881944445
24	4290.89	4164.52951388889	4237.555	-73.025486111111	126.360486111112
25	4443.91	4290.77003472222	4317.24291666667	-26.4728819444445	153.139965277778
26	4502.64	4358.94138888889	4367.30458333333	-8.3631944444443	143.698611111112
27	4356.98	4348.37690972222	4395.08125	-46.7043402777780	8.60309027777748
28	4591.27	4538.52909722222	4421.04375	117.485347222222	52.7409027777785
29	4696.96	4600.00847222222	4429.46625	170.542222222222	96.9515277777782
30	4621.4	4452.07951388889	4418.26708333333	33.8124305555554	169.32048611111
31	4562.84	4360.67607638889	4386.0325	-25.3564236111111	202.163923611112
32	4202.52	4305.12888888889	4328.4875	-23.3586111111112	-102.608888888889
33	4296.49	4306.54368055556	4267.4775	39.0661805555555	-10.0536805555557
34	4435.23	4165.80305555556	4208.46791666667	-42.6648611111113	269.426944444444
35	4105.18	4025.60961805556	4140.57	-114.960381944444	79.5703819444443
36	4116.68	3983.67243055556	4056.69791666667	-73.025486111111	133.007569444444
37	3844.49	3919.92211805556	3946.395	-26.4728819444445	-75.4321180555562
38	3720.98	3826.12638888889	3834.48958333333	-8.3631944444443	-105.146388888889
39	3674.4	3684.05024305556	3730.75458333333	-46.7043402777780	-9.65024305555517
40	3857.62	3699.42493055556	3581.93958333333	117.485347222222	158.195069444444
41	3801.06	3572.14263888889	3401.60041666667	170.542222222222	228.917361111111
42	3504.37	3254.38868055555	3220.57625	33.8124305555554	249.981319444445
43	3032.6	3020.51440972222	3045.87083333333	-25.3564236111111	12.085590277778
44	3047.03	2862.13430555556	2885.49291666667	-23.3586111111112	184.895694444445
45	2962.34	2761.46243055556	2722.39625	39.0661805555555	200.877569444445
46	2197.82	2513.16847222222	2555.83333333333	-42.6648611111113	-315.348472222222
47	2014.45	2284.94711805556	2399.9075	-114.960381944444	-270.497118055555
48	1862.83	2192.55659722222	2265.58208333333	-73.025486111111	-329.726597222222
49	1905.41	2137.58670138889	2164.05958333333	-26.4728819444445	-232.176701388889
50	1810.99	2084.22180555556	2092.585	-8.3631944444443	-273.231805555556
51	1670.07	1992.85190972222	2039.55625	-46.7043402777780	-322.781909722222
52	1864.44	2148.55326388889	2031.06791666667	117.485347222222	-284.113263888889
53	2052.02	2233.60263888889	2063.06041666667	170.542222222222	-181.582638888889
54	2029.6	2142.38534722222	2108.57291666667	33.8124305555554	-112.785347222222
55	2070.83	NA	NA	-25.3564236111111	NA
56	2293.41	NA	NA	-23.3586111111112	NA
57	2443.27	NA	NA	39.0661805555555	NA
58	2513.17	NA	NA	-42.6648611111113	NA
59	2466.92	NA	NA	-114.960381944444	NA
60	2502.66	NA	NA	-73.025486111111	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,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