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

Fri, 28 Nov 2014 10:05:38 +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/2014/Nov/28/t14171691913w5o9xu7uxtpnxx.htm/, Retrieved Wed, 13 May 2026 10:14:38 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=260812, Retrieved Wed, 13 May 2026 10:14:38 +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

326

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

-       [Classical Decomposition] [] [2014-11-28 10:05:38] [86aa9cab8dcce5e94006dddc76eef874] [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	'George Udny Yule' @ yule.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 & 'George Udny Yule' @ yule.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=260812&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]'George Udny Yule' @ yule.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=260812&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=260812&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	'George Udny Yule' @ yule.wessa.net

Classical Decomposition by Moving Averages
t	Observations	Fit	Trend	Seasonal	Random
1	18293.9	NA	NA	-1040.09	NA
2	18613.4	NA	NA	-377.677	NA
3	18728.5	NA	NA	1822.29	NA
4	20091.8	NA	NA	97.2088	NA
5	18947.2	NA	NA	267.02	NA
6	20124.9	NA	NA	848.833	NA
7	19819.2	18288.3	18119.8	168.469	1530.9
8	15908.6	15720.6	17728.2	-2007.62	188.018
9	19927.4	18255.9	17376.7	879.245	1671.46
10	19551.9	17917.2	16969.6	947.647	1634.65
11	15588.6	16370.9	16492.6	-121.668	-782.336
12	14206.2	14581.2	16064.8	-1483.66	-374.97
13	13566.7	14611.5	15651.6	-1040.09	-1044.77
14	13941.5	14919	15296.7	-377.677	-977.477
15	14964.1	16816.1	14993.8	1822.29	-1851.99
16	14086	14779.3	14682.1	97.2088	-693.305
17	13505.1	14811.3	14544.2	267.02	-1306.16
18	15300.4	15469.5	14620.7	848.833	-169.1
19	14725.2	14901.1	14732.6	168.469	-175.856
20	12484.9	12828.8	14836.4	-2007.62	-343.857
21	16082.6	15912.8	15033.5	879.245	169.813
22	15915.8	16238.8	15291.2	947.647	-323.001
23	15916.1	15408.8	15530.4	-121.668	507.326
24	15713	14335.8	15819.5	-1483.66	1377.17
25	14746	15042.9	16083	-1040.09	-296.937
26	15253.2	15938	16315.7	-377.677	-684.79
27	18384.3	18398.7	16576.4	1822.29	-14.3613
28	16848.5	16913.9	16816.6	97.2088	-65.3588
29	16485.5	17302.3	17035.3	267.02	-816.841
30	19257.1	18047.3	17198.5	848.833	1209.76
31	17093.4	17575.1	17406.6	168.469	-481.698
32	15700.1	15720.7	17728.3	-2007.62	-20.6238
33	19124.3	18940.9	18061.6	879.245	183.417
34	18640.8	19278.2	18330.6	947.647	-637.397
35	18439.2	18515.4	18637.1	-121.668	-76.2447
36	17106.3	17396.6	18880.3	-1483.66	-290.32
37	18347.7	17974.2	19014.3	-1040.09	373.53
38	19372.7	18803.2	19180.9	-377.677	569.519
39	22263.8	21110.2	19287.9	1822.29	1153.61
40	19422.9	19456.8	19359.6	97.2088	-33.9005
41	21268.6	19721.4	19454.4	267.02	1547.16
42	20310	20398.8	19550	848.833	-88.8455
43	19256	19790.9	19622.4	168.469	-534.915
44	17535.9	17700	19707.6	-2007.62	-164.107
45	19857.4	20652.9	19773.7	879.245	-795.55
46	19628.4	20754.9	19807.3	947.647	-1126.52
47	19727.5	19664.5	19786.2	-121.668	63.0095
48	18112.2	18264.9	19748.5	-1483.66	-152.678
49	19080.2	18729.1	19769.2	-1040.09	351.134
50	20684.6	19428.8	19806.4	-377.677	1255.83
51	22537.7	21627.3	19805	1822.29	910.401
52	19954.6	19936.9	19839.7	97.2088	17.6828
53	20230.2	20170.7	19903.7	267.02	59.4545
54	20445.5	20739.7	19890.9	848.833	-294.245
55	19615.3	20052.6	19884.2	168.469	-437.335
56	18071.6	17829.9	19837.6	-2007.62	241.664
57	19287.2	20615.2	19736	879.245	-1328.05
58	21031.4	20678	19730.4	947.647	353.357
59	19860.9	19671.6	19793.2	-121.668	189.339
60	17671.3	18329.4	19813.1	-1483.66	-658.111
61	19359.2	18841.1	19881.2	-1040.09	518.138
62	19287	19549	19926.7	-377.677	-261.99
63	21498	21794.6	19972.3	1822.29	-296.57
64	20859.7	20183.7	20086.5	97.2088	675.975
65	20833.1	20415.6	20148.6	267.02	417.48
66	20318.8	21075.3	20226.4	848.833	-756.479
67	21375.9	NA	NA	168.469	NA
68	17403.4	NA	NA	-2007.62	NA
69	21050.1	NA	NA	879.245	NA
70	22010.2	NA	NA	947.647	NA
71	20372.1	NA	NA	-121.668	NA
72	19028.4	NA	NA	-1483.66	NA

\begin{tabular}{lllllllll}
\hline
Classical Decomposition by Moving Averages \tabularnewline
t & Observations & Fit & Trend & Seasonal & Random \tabularnewline
1 & 18293.9 & NA & NA & -1040.09 & NA \tabularnewline
2 & 18613.4 & NA & NA & -377.677 & NA \tabularnewline
3 & 18728.5 & NA & NA & 1822.29 & NA \tabularnewline
4 & 20091.8 & NA & NA & 97.2088 & NA \tabularnewline
5 & 18947.2 & NA & NA & 267.02 & NA \tabularnewline
6 & 20124.9 & NA & NA & 848.833 & NA \tabularnewline
7 & 19819.2 & 18288.3 & 18119.8 & 168.469 & 1530.9 \tabularnewline
8 & 15908.6 & 15720.6 & 17728.2 & -2007.62 & 188.018 \tabularnewline
9 & 19927.4 & 18255.9 & 17376.7 & 879.245 & 1671.46 \tabularnewline
10 & 19551.9 & 17917.2 & 16969.6 & 947.647 & 1634.65 \tabularnewline
11 & 15588.6 & 16370.9 & 16492.6 & -121.668 & -782.336 \tabularnewline
12 & 14206.2 & 14581.2 & 16064.8 & -1483.66 & -374.97 \tabularnewline
13 & 13566.7 & 14611.5 & 15651.6 & -1040.09 & -1044.77 \tabularnewline
14 & 13941.5 & 14919 & 15296.7 & -377.677 & -977.477 \tabularnewline
15 & 14964.1 & 16816.1 & 14993.8 & 1822.29 & -1851.99 \tabularnewline
16 & 14086 & 14779.3 & 14682.1 & 97.2088 & -693.305 \tabularnewline
17 & 13505.1 & 14811.3 & 14544.2 & 267.02 & -1306.16 \tabularnewline
18 & 15300.4 & 15469.5 & 14620.7 & 848.833 & -169.1 \tabularnewline
19 & 14725.2 & 14901.1 & 14732.6 & 168.469 & -175.856 \tabularnewline
20 & 12484.9 & 12828.8 & 14836.4 & -2007.62 & -343.857 \tabularnewline
21 & 16082.6 & 15912.8 & 15033.5 & 879.245 & 169.813 \tabularnewline
22 & 15915.8 & 16238.8 & 15291.2 & 947.647 & -323.001 \tabularnewline
23 & 15916.1 & 15408.8 & 15530.4 & -121.668 & 507.326 \tabularnewline
24 & 15713 & 14335.8 & 15819.5 & -1483.66 & 1377.17 \tabularnewline
25 & 14746 & 15042.9 & 16083 & -1040.09 & -296.937 \tabularnewline
26 & 15253.2 & 15938 & 16315.7 & -377.677 & -684.79 \tabularnewline
27 & 18384.3 & 18398.7 & 16576.4 & 1822.29 & -14.3613 \tabularnewline
28 & 16848.5 & 16913.9 & 16816.6 & 97.2088 & -65.3588 \tabularnewline
29 & 16485.5 & 17302.3 & 17035.3 & 267.02 & -816.841 \tabularnewline
30 & 19257.1 & 18047.3 & 17198.5 & 848.833 & 1209.76 \tabularnewline
31 & 17093.4 & 17575.1 & 17406.6 & 168.469 & -481.698 \tabularnewline
32 & 15700.1 & 15720.7 & 17728.3 & -2007.62 & -20.6238 \tabularnewline
33 & 19124.3 & 18940.9 & 18061.6 & 879.245 & 183.417 \tabularnewline
34 & 18640.8 & 19278.2 & 18330.6 & 947.647 & -637.397 \tabularnewline
35 & 18439.2 & 18515.4 & 18637.1 & -121.668 & -76.2447 \tabularnewline
36 & 17106.3 & 17396.6 & 18880.3 & -1483.66 & -290.32 \tabularnewline
37 & 18347.7 & 17974.2 & 19014.3 & -1040.09 & 373.53 \tabularnewline
38 & 19372.7 & 18803.2 & 19180.9 & -377.677 & 569.519 \tabularnewline
39 & 22263.8 & 21110.2 & 19287.9 & 1822.29 & 1153.61 \tabularnewline
40 & 19422.9 & 19456.8 & 19359.6 & 97.2088 & -33.9005 \tabularnewline
41 & 21268.6 & 19721.4 & 19454.4 & 267.02 & 1547.16 \tabularnewline
42 & 20310 & 20398.8 & 19550 & 848.833 & -88.8455 \tabularnewline
43 & 19256 & 19790.9 & 19622.4 & 168.469 & -534.915 \tabularnewline
44 & 17535.9 & 17700 & 19707.6 & -2007.62 & -164.107 \tabularnewline
45 & 19857.4 & 20652.9 & 19773.7 & 879.245 & -795.55 \tabularnewline
46 & 19628.4 & 20754.9 & 19807.3 & 947.647 & -1126.52 \tabularnewline
47 & 19727.5 & 19664.5 & 19786.2 & -121.668 & 63.0095 \tabularnewline
48 & 18112.2 & 18264.9 & 19748.5 & -1483.66 & -152.678 \tabularnewline
49 & 19080.2 & 18729.1 & 19769.2 & -1040.09 & 351.134 \tabularnewline
50 & 20684.6 & 19428.8 & 19806.4 & -377.677 & 1255.83 \tabularnewline
51 & 22537.7 & 21627.3 & 19805 & 1822.29 & 910.401 \tabularnewline
52 & 19954.6 & 19936.9 & 19839.7 & 97.2088 & 17.6828 \tabularnewline
53 & 20230.2 & 20170.7 & 19903.7 & 267.02 & 59.4545 \tabularnewline
54 & 20445.5 & 20739.7 & 19890.9 & 848.833 & -294.245 \tabularnewline
55 & 19615.3 & 20052.6 & 19884.2 & 168.469 & -437.335 \tabularnewline
56 & 18071.6 & 17829.9 & 19837.6 & -2007.62 & 241.664 \tabularnewline
57 & 19287.2 & 20615.2 & 19736 & 879.245 & -1328.05 \tabularnewline
58 & 21031.4 & 20678 & 19730.4 & 947.647 & 353.357 \tabularnewline
59 & 19860.9 & 19671.6 & 19793.2 & -121.668 & 189.339 \tabularnewline
60 & 17671.3 & 18329.4 & 19813.1 & -1483.66 & -658.111 \tabularnewline
61 & 19359.2 & 18841.1 & 19881.2 & -1040.09 & 518.138 \tabularnewline
62 & 19287 & 19549 & 19926.7 & -377.677 & -261.99 \tabularnewline
63 & 21498 & 21794.6 & 19972.3 & 1822.29 & -296.57 \tabularnewline
64 & 20859.7 & 20183.7 & 20086.5 & 97.2088 & 675.975 \tabularnewline
65 & 20833.1 & 20415.6 & 20148.6 & 267.02 & 417.48 \tabularnewline
66 & 20318.8 & 21075.3 & 20226.4 & 848.833 & -756.479 \tabularnewline
67 & 21375.9 & NA & NA & 168.469 & NA \tabularnewline
68 & 17403.4 & NA & NA & -2007.62 & NA \tabularnewline
69 & 21050.1 & NA & NA & 879.245 & NA \tabularnewline
70 & 22010.2 & NA & NA & 947.647 & NA \tabularnewline
71 & 20372.1 & NA & NA & -121.668 & NA \tabularnewline
72 & 19028.4 & NA & NA & -1483.66 & NA \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=260812&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]18293.9[/C][C]NA[/C][C]NA[/C][C]-1040.09[/C][C]NA[/C][/ROW]
[ROW][C]2[/C][C]18613.4[/C][C]NA[/C][C]NA[/C][C]-377.677[/C][C]NA[/C][/ROW]
[ROW][C]3[/C][C]18728.5[/C][C]NA[/C][C]NA[/C][C]1822.29[/C][C]NA[/C][/ROW]
[ROW][C]4[/C][C]20091.8[/C][C]NA[/C][C]NA[/C][C]97.2088[/C][C]NA[/C][/ROW]
[ROW][C]5[/C][C]18947.2[/C][C]NA[/C][C]NA[/C][C]267.02[/C][C]NA[/C][/ROW]
[ROW][C]6[/C][C]20124.9[/C][C]NA[/C][C]NA[/C][C]848.833[/C][C]NA[/C][/ROW]
[ROW][C]7[/C][C]19819.2[/C][C]18288.3[/C][C]18119.8[/C][C]168.469[/C][C]1530.9[/C][/ROW]
[ROW][C]8[/C][C]15908.6[/C][C]15720.6[/C][C]17728.2[/C][C]-2007.62[/C][C]188.018[/C][/ROW]
[ROW][C]9[/C][C]19927.4[/C][C]18255.9[/C][C]17376.7[/C][C]879.245[/C][C]1671.46[/C][/ROW]
[ROW][C]10[/C][C]19551.9[/C][C]17917.2[/C][C]16969.6[/C][C]947.647[/C][C]1634.65[/C][/ROW]
[ROW][C]11[/C][C]15588.6[/C][C]16370.9[/C][C]16492.6[/C][C]-121.668[/C][C]-782.336[/C][/ROW]
[ROW][C]12[/C][C]14206.2[/C][C]14581.2[/C][C]16064.8[/C][C]-1483.66[/C][C]-374.97[/C][/ROW]
[ROW][C]13[/C][C]13566.7[/C][C]14611.5[/C][C]15651.6[/C][C]-1040.09[/C][C]-1044.77[/C][/ROW]
[ROW][C]14[/C][C]13941.5[/C][C]14919[/C][C]15296.7[/C][C]-377.677[/C][C]-977.477[/C][/ROW]
[ROW][C]15[/C][C]14964.1[/C][C]16816.1[/C][C]14993.8[/C][C]1822.29[/C][C]-1851.99[/C][/ROW]
[ROW][C]16[/C][C]14086[/C][C]14779.3[/C][C]14682.1[/C][C]97.2088[/C][C]-693.305[/C][/ROW]
[ROW][C]17[/C][C]13505.1[/C][C]14811.3[/C][C]14544.2[/C][C]267.02[/C][C]-1306.16[/C][/ROW]
[ROW][C]18[/C][C]15300.4[/C][C]15469.5[/C][C]14620.7[/C][C]848.833[/C][C]-169.1[/C][/ROW]
[ROW][C]19[/C][C]14725.2[/C][C]14901.1[/C][C]14732.6[/C][C]168.469[/C][C]-175.856[/C][/ROW]
[ROW][C]20[/C][C]12484.9[/C][C]12828.8[/C][C]14836.4[/C][C]-2007.62[/C][C]-343.857[/C][/ROW]
[ROW][C]21[/C][C]16082.6[/C][C]15912.8[/C][C]15033.5[/C][C]879.245[/C][C]169.813[/C][/ROW]
[ROW][C]22[/C][C]15915.8[/C][C]16238.8[/C][C]15291.2[/C][C]947.647[/C][C]-323.001[/C][/ROW]
[ROW][C]23[/C][C]15916.1[/C][C]15408.8[/C][C]15530.4[/C][C]-121.668[/C][C]507.326[/C][/ROW]
[ROW][C]24[/C][C]15713[/C][C]14335.8[/C][C]15819.5[/C][C]-1483.66[/C][C]1377.17[/C][/ROW]
[ROW][C]25[/C][C]14746[/C][C]15042.9[/C][C]16083[/C][C]-1040.09[/C][C]-296.937[/C][/ROW]
[ROW][C]26[/C][C]15253.2[/C][C]15938[/C][C]16315.7[/C][C]-377.677[/C][C]-684.79[/C][/ROW]
[ROW][C]27[/C][C]18384.3[/C][C]18398.7[/C][C]16576.4[/C][C]1822.29[/C][C]-14.3613[/C][/ROW]
[ROW][C]28[/C][C]16848.5[/C][C]16913.9[/C][C]16816.6[/C][C]97.2088[/C][C]-65.3588[/C][/ROW]
[ROW][C]29[/C][C]16485.5[/C][C]17302.3[/C][C]17035.3[/C][C]267.02[/C][C]-816.841[/C][/ROW]
[ROW][C]30[/C][C]19257.1[/C][C]18047.3[/C][C]17198.5[/C][C]848.833[/C][C]1209.76[/C][/ROW]
[ROW][C]31[/C][C]17093.4[/C][C]17575.1[/C][C]17406.6[/C][C]168.469[/C][C]-481.698[/C][/ROW]
[ROW][C]32[/C][C]15700.1[/C][C]15720.7[/C][C]17728.3[/C][C]-2007.62[/C][C]-20.6238[/C][/ROW]
[ROW][C]33[/C][C]19124.3[/C][C]18940.9[/C][C]18061.6[/C][C]879.245[/C][C]183.417[/C][/ROW]
[ROW][C]34[/C][C]18640.8[/C][C]19278.2[/C][C]18330.6[/C][C]947.647[/C][C]-637.397[/C][/ROW]
[ROW][C]35[/C][C]18439.2[/C][C]18515.4[/C][C]18637.1[/C][C]-121.668[/C][C]-76.2447[/C][/ROW]
[ROW][C]36[/C][C]17106.3[/C][C]17396.6[/C][C]18880.3[/C][C]-1483.66[/C][C]-290.32[/C][/ROW]
[ROW][C]37[/C][C]18347.7[/C][C]17974.2[/C][C]19014.3[/C][C]-1040.09[/C][C]373.53[/C][/ROW]
[ROW][C]38[/C][C]19372.7[/C][C]18803.2[/C][C]19180.9[/C][C]-377.677[/C][C]569.519[/C][/ROW]
[ROW][C]39[/C][C]22263.8[/C][C]21110.2[/C][C]19287.9[/C][C]1822.29[/C][C]1153.61[/C][/ROW]
[ROW][C]40[/C][C]19422.9[/C][C]19456.8[/C][C]19359.6[/C][C]97.2088[/C][C]-33.9005[/C][/ROW]
[ROW][C]41[/C][C]21268.6[/C][C]19721.4[/C][C]19454.4[/C][C]267.02[/C][C]1547.16[/C][/ROW]
[ROW][C]42[/C][C]20310[/C][C]20398.8[/C][C]19550[/C][C]848.833[/C][C]-88.8455[/C][/ROW]
[ROW][C]43[/C][C]19256[/C][C]19790.9[/C][C]19622.4[/C][C]168.469[/C][C]-534.915[/C][/ROW]
[ROW][C]44[/C][C]17535.9[/C][C]17700[/C][C]19707.6[/C][C]-2007.62[/C][C]-164.107[/C][/ROW]
[ROW][C]45[/C][C]19857.4[/C][C]20652.9[/C][C]19773.7[/C][C]879.245[/C][C]-795.55[/C][/ROW]
[ROW][C]46[/C][C]19628.4[/C][C]20754.9[/C][C]19807.3[/C][C]947.647[/C][C]-1126.52[/C][/ROW]
[ROW][C]47[/C][C]19727.5[/C][C]19664.5[/C][C]19786.2[/C][C]-121.668[/C][C]63.0095[/C][/ROW]
[ROW][C]48[/C][C]18112.2[/C][C]18264.9[/C][C]19748.5[/C][C]-1483.66[/C][C]-152.678[/C][/ROW]
[ROW][C]49[/C][C]19080.2[/C][C]18729.1[/C][C]19769.2[/C][C]-1040.09[/C][C]351.134[/C][/ROW]
[ROW][C]50[/C][C]20684.6[/C][C]19428.8[/C][C]19806.4[/C][C]-377.677[/C][C]1255.83[/C][/ROW]
[ROW][C]51[/C][C]22537.7[/C][C]21627.3[/C][C]19805[/C][C]1822.29[/C][C]910.401[/C][/ROW]
[ROW][C]52[/C][C]19954.6[/C][C]19936.9[/C][C]19839.7[/C][C]97.2088[/C][C]17.6828[/C][/ROW]
[ROW][C]53[/C][C]20230.2[/C][C]20170.7[/C][C]19903.7[/C][C]267.02[/C][C]59.4545[/C][/ROW]
[ROW][C]54[/C][C]20445.5[/C][C]20739.7[/C][C]19890.9[/C][C]848.833[/C][C]-294.245[/C][/ROW]
[ROW][C]55[/C][C]19615.3[/C][C]20052.6[/C][C]19884.2[/C][C]168.469[/C][C]-437.335[/C][/ROW]
[ROW][C]56[/C][C]18071.6[/C][C]17829.9[/C][C]19837.6[/C][C]-2007.62[/C][C]241.664[/C][/ROW]
[ROW][C]57[/C][C]19287.2[/C][C]20615.2[/C][C]19736[/C][C]879.245[/C][C]-1328.05[/C][/ROW]
[ROW][C]58[/C][C]21031.4[/C][C]20678[/C][C]19730.4[/C][C]947.647[/C][C]353.357[/C][/ROW]
[ROW][C]59[/C][C]19860.9[/C][C]19671.6[/C][C]19793.2[/C][C]-121.668[/C][C]189.339[/C][/ROW]
[ROW][C]60[/C][C]17671.3[/C][C]18329.4[/C][C]19813.1[/C][C]-1483.66[/C][C]-658.111[/C][/ROW]
[ROW][C]61[/C][C]19359.2[/C][C]18841.1[/C][C]19881.2[/C][C]-1040.09[/C][C]518.138[/C][/ROW]
[ROW][C]62[/C][C]19287[/C][C]19549[/C][C]19926.7[/C][C]-377.677[/C][C]-261.99[/C][/ROW]
[ROW][C]63[/C][C]21498[/C][C]21794.6[/C][C]19972.3[/C][C]1822.29[/C][C]-296.57[/C][/ROW]
[ROW][C]64[/C][C]20859.7[/C][C]20183.7[/C][C]20086.5[/C][C]97.2088[/C][C]675.975[/C][/ROW]
[ROW][C]65[/C][C]20833.1[/C][C]20415.6[/C][C]20148.6[/C][C]267.02[/C][C]417.48[/C][/ROW]
[ROW][C]66[/C][C]20318.8[/C][C]21075.3[/C][C]20226.4[/C][C]848.833[/C][C]-756.479[/C][/ROW]
[ROW][C]67[/C][C]21375.9[/C][C]NA[/C][C]NA[/C][C]168.469[/C][C]NA[/C][/ROW]
[ROW][C]68[/C][C]17403.4[/C][C]NA[/C][C]NA[/C][C]-2007.62[/C][C]NA[/C][/ROW]
[ROW][C]69[/C][C]21050.1[/C][C]NA[/C][C]NA[/C][C]879.245[/C][C]NA[/C][/ROW]
[ROW][C]70[/C][C]22010.2[/C][C]NA[/C][C]NA[/C][C]947.647[/C][C]NA[/C][/ROW]
[ROW][C]71[/C][C]20372.1[/C][C]NA[/C][C]NA[/C][C]-121.668[/C][C]NA[/C][/ROW]
[ROW][C]72[/C][C]19028.4[/C][C]NA[/C][C]NA[/C][C]-1483.66[/C][C]NA[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=260812&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=260812&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	18293.9	NA	NA	-1040.09	NA
2	18613.4	NA	NA	-377.677	NA
3	18728.5	NA	NA	1822.29	NA
4	20091.8	NA	NA	97.2088	NA
5	18947.2	NA	NA	267.02	NA
6	20124.9	NA	NA	848.833	NA
7	19819.2	18288.3	18119.8	168.469	1530.9
8	15908.6	15720.6	17728.2	-2007.62	188.018
9	19927.4	18255.9	17376.7	879.245	1671.46
10	19551.9	17917.2	16969.6	947.647	1634.65
11	15588.6	16370.9	16492.6	-121.668	-782.336
12	14206.2	14581.2	16064.8	-1483.66	-374.97
13	13566.7	14611.5	15651.6	-1040.09	-1044.77
14	13941.5	14919	15296.7	-377.677	-977.477
15	14964.1	16816.1	14993.8	1822.29	-1851.99
16	14086	14779.3	14682.1	97.2088	-693.305
17	13505.1	14811.3	14544.2	267.02	-1306.16
18	15300.4	15469.5	14620.7	848.833	-169.1
19	14725.2	14901.1	14732.6	168.469	-175.856
20	12484.9	12828.8	14836.4	-2007.62	-343.857
21	16082.6	15912.8	15033.5	879.245	169.813
22	15915.8	16238.8	15291.2	947.647	-323.001
23	15916.1	15408.8	15530.4	-121.668	507.326
24	15713	14335.8	15819.5	-1483.66	1377.17
25	14746	15042.9	16083	-1040.09	-296.937
26	15253.2	15938	16315.7	-377.677	-684.79
27	18384.3	18398.7	16576.4	1822.29	-14.3613
28	16848.5	16913.9	16816.6	97.2088	-65.3588
29	16485.5	17302.3	17035.3	267.02	-816.841
30	19257.1	18047.3	17198.5	848.833	1209.76
31	17093.4	17575.1	17406.6	168.469	-481.698
32	15700.1	15720.7	17728.3	-2007.62	-20.6238
33	19124.3	18940.9	18061.6	879.245	183.417
34	18640.8	19278.2	18330.6	947.647	-637.397
35	18439.2	18515.4	18637.1	-121.668	-76.2447
36	17106.3	17396.6	18880.3	-1483.66	-290.32
37	18347.7	17974.2	19014.3	-1040.09	373.53
38	19372.7	18803.2	19180.9	-377.677	569.519
39	22263.8	21110.2	19287.9	1822.29	1153.61
40	19422.9	19456.8	19359.6	97.2088	-33.9005
41	21268.6	19721.4	19454.4	267.02	1547.16
42	20310	20398.8	19550	848.833	-88.8455
43	19256	19790.9	19622.4	168.469	-534.915
44	17535.9	17700	19707.6	-2007.62	-164.107
45	19857.4	20652.9	19773.7	879.245	-795.55
46	19628.4	20754.9	19807.3	947.647	-1126.52
47	19727.5	19664.5	19786.2	-121.668	63.0095
48	18112.2	18264.9	19748.5	-1483.66	-152.678
49	19080.2	18729.1	19769.2	-1040.09	351.134
50	20684.6	19428.8	19806.4	-377.677	1255.83
51	22537.7	21627.3	19805	1822.29	910.401
52	19954.6	19936.9	19839.7	97.2088	17.6828
53	20230.2	20170.7	19903.7	267.02	59.4545
54	20445.5	20739.7	19890.9	848.833	-294.245
55	19615.3	20052.6	19884.2	168.469	-437.335
56	18071.6	17829.9	19837.6	-2007.62	241.664
57	19287.2	20615.2	19736	879.245	-1328.05
58	21031.4	20678	19730.4	947.647	353.357
59	19860.9	19671.6	19793.2	-121.668	189.339
60	17671.3	18329.4	19813.1	-1483.66	-658.111
61	19359.2	18841.1	19881.2	-1040.09	518.138
62	19287	19549	19926.7	-377.677	-261.99
63	21498	21794.6	19972.3	1822.29	-296.57
64	20859.7	20183.7	20086.5	97.2088	675.975
65	20833.1	20415.6	20148.6	267.02	417.48
66	20318.8	21075.3	20226.4	848.833	-756.479
67	21375.9	NA	NA	168.469	NA
68	17403.4	NA	NA	-2007.62	NA
69	21050.1	NA	NA	879.245	NA
70	22010.2	NA	NA	947.647	NA
71	20372.1	NA	NA	-121.668	NA
72	19028.4	NA	NA	-1483.66	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 <- '12'
par1 <- 'multiplicative'
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