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 11:20:50 -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/t1259951016z7lre3s8q5gdeb5.htm/, Retrieved Sun, 28 Apr 2024 09:40:09 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=64005, Retrieved Sun, 28 Apr 2024 09:40:09 +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

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]
-   PD      [Classical Decomposition] [] [2009-12-04 18:20:50] [6e025b5370bdd3143fbe248190b38274] [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=64005&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=64005&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=64005&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	15836.8	NA	NA	0.874306407658064	NA
2	17570.4	NA	NA	0.982807508770537	NA
3	18252.1	NA	NA	1.07878228647538	NA
4	16196.7	NA	NA	1.01144689767567	NA
5	16643	NA	NA	0.995955611692164	NA
6	17729	NA	NA	1.08948076259833	NA
7	16446.1	17253.8559575333	17934.2041666667	0.96206420966268	0.953184032628912
8	15993.8	17419.2652303363	18236.6958333333	0.955176605977991	0.918167315814572
9	16373.5	17011.1665521075	18672.9333333333	0.911006655914131	0.962514825179435
10	17842.2	19367.0382253535	19122.6833333333	1.01277827424953	0.921266318183989
11	22321.5	20944.1482969791	19600.0208333333	1.06857785892553	1.0657630801449
12	22786.7	21167.9911384219	20014.8	1.05761692040000	1.07646964943405
13	18274.1	17803.7418134033	20363.275	0.874306407658064	1.02641906356127
14	22392.9	20407.5597512725	20764.5541666667	0.982807508770537	1.09728454910459
15	23899.3	22688.8546557002	21031.9125	1.07878228647538	1.05334977735404
16	21343.5	21454.9759536172	21212.1625	1.01144689767567	0.994804191164875
17	22952.3	21236.7822571873	21323.0208333333	0.995955611692164	1.08078049311035
18	21374.4	23088.7257317983	21192.4125	1.08948076259833	0.925750526394911
19	21164.1	20247.6875371791	21046.0875	0.96206420966268	1.04526010494473
20	20906.5	19971.735915661	20908.9458333333	0.955176605977991	1.04680434831937
21	17877.4	18827.7403950277	20666.9625	0.911006655914131	0.949524458321152
22	20664.3	20737.9770964724	20476.325	1.01277827424953	0.996447238024727
23	22160	21618.8305474737	20231.4041666667	1.06857785892553	1.02503231853073
24	19813.6	21203.9941810872	20048.8416666667	1.05761692040000	0.934427722946306
25	17735.4	17433.6114816079	19939.9333333333	0.874306407658064	1.01731072868696
26	19640.2	19409.8790888693	19749.4208333333	0.982807508770537	1.01186616928813
27	20844.4	21192.2195353371	19644.575	1.07878228647538	0.983587394668257
28	19823.1	19817.3085666939	19593.0291666667	1.01144689767567	1.00029224116315
29	18594.6	19392.156269512	19470.9041666667	0.995955611692164	0.958872223468728
30	21350.6	21096.1970625981	19363.5333333333	1.08948076259833	1.01205918472638
31	18574.1	18552.0373418460	19283.575	0.96206420966268	1.00118923101261
32	18924.2	18274.5383231341	19132.1041666667	0.955176605977991	1.03555010065800
33	17343.4	17311.2597362878	19002.3416666667	0.911006655914131	1.00185661033350
34	19961.2	19184.7043767128	18942.65	1.01277827424953	1.04047472444922
35	19932.1	20161.1879425211	18867.3083333333	1.06857785892553	0.988637180349975
36	19464.6	19879.3466152348	18796.3583333333	1.05761692040000	0.979136808504712
37	16165.4	16393.6859397359	18750.5041666667	0.874306407658064	0.986074764358968
38	17574.9	18336.7761402304	18657.5458333333	0.982807508770537	0.958450922102991
39	19795.4	20095.4350694562	18627.8875	1.07878228647538	0.985069491234244
40	19439.5	18833.7776033941	18620.6291666667	1.01144689767567	1.03216149247174
41	17170	18418.4727151863	18493.2666666667	0.995955611692164	0.932216273602484
42	21072.4	20036.926693646	18391.2625	1.08948076259833	1.05167824997246
43	17751.8	17642.0127887244	18337.6666666667	0.96206420966268	1.00622305473817
44	17515.5	17422.5566097244	18240.1416666667	0.955176605977991	1.00533465853247
45	18040.3	16521.0184001982	18134.9041666667	0.911006655914131	1.09196052949033
46	19090.1	18221.5142587162	17991.6125	1.01277827424953	1.04766814266648
47	17746.5	19155.9188693292	17926.5541666667	1.06857785892553	0.926423844298807
48	19202.1	18903.0119619048	17873.2125	1.05761692040000	1.01582224243935
49	15141.6	15513.1100265462	17743.3333333333	0.874306407658064	0.976051866717215
50	16258.1	17328.0225132284	17631.1458333333	0.982807508770537	0.938254782828705
51	18586.5	18891.6039362735	17511.9708333333	1.07878228647538	0.983849760067873
52	17209.4	17585.7617050762	17386.7375	1.01144689767567	0.978598498524656
53	17838.7	17252.3373381613	17322.3958333333	0.995955611692164	1.03398743314285
54	19123.5	18815.5188897034	17270.1708333333	1.08948076259833	1.01636846223067
55	16583.6	NA	NA	0.96206420966268	NA
56	15991.2	NA	NA	0.955176605977991	NA
57	16704.4	NA	NA	0.911006655914131	NA
58	17420.4	NA	NA	1.01277827424953	NA
59	17872	NA	NA	1.06857785892553	NA
60	17823.2	NA	NA	1.05761692040000	NA

\begin{tabular}{lllllllll}
\hline
Classical Decomposition by Moving Averages \tabularnewline
t & Observations & Fit & Trend & Seasonal & Random \tabularnewline
1 & 15836.8 & NA & NA & 0.874306407658064 & NA \tabularnewline
2 & 17570.4 & NA & NA & 0.982807508770537 & NA \tabularnewline
3 & 18252.1 & NA & NA & 1.07878228647538 & NA \tabularnewline
4 & 16196.7 & NA & NA & 1.01144689767567 & NA \tabularnewline
5 & 16643 & NA & NA & 0.995955611692164 & NA \tabularnewline
6 & 17729 & NA & NA & 1.08948076259833 & NA \tabularnewline
7 & 16446.1 & 17253.8559575333 & 17934.2041666667 & 0.96206420966268 & 0.953184032628912 \tabularnewline
8 & 15993.8 & 17419.2652303363 & 18236.6958333333 & 0.955176605977991 & 0.918167315814572 \tabularnewline
9 & 16373.5 & 17011.1665521075 & 18672.9333333333 & 0.911006655914131 & 0.962514825179435 \tabularnewline
10 & 17842.2 & 19367.0382253535 & 19122.6833333333 & 1.01277827424953 & 0.921266318183989 \tabularnewline
11 & 22321.5 & 20944.1482969791 & 19600.0208333333 & 1.06857785892553 & 1.0657630801449 \tabularnewline
12 & 22786.7 & 21167.9911384219 & 20014.8 & 1.05761692040000 & 1.07646964943405 \tabularnewline
13 & 18274.1 & 17803.7418134033 & 20363.275 & 0.874306407658064 & 1.02641906356127 \tabularnewline
14 & 22392.9 & 20407.5597512725 & 20764.5541666667 & 0.982807508770537 & 1.09728454910459 \tabularnewline
15 & 23899.3 & 22688.8546557002 & 21031.9125 & 1.07878228647538 & 1.05334977735404 \tabularnewline
16 & 21343.5 & 21454.9759536172 & 21212.1625 & 1.01144689767567 & 0.994804191164875 \tabularnewline
17 & 22952.3 & 21236.7822571873 & 21323.0208333333 & 0.995955611692164 & 1.08078049311035 \tabularnewline
18 & 21374.4 & 23088.7257317983 & 21192.4125 & 1.08948076259833 & 0.925750526394911 \tabularnewline
19 & 21164.1 & 20247.6875371791 & 21046.0875 & 0.96206420966268 & 1.04526010494473 \tabularnewline
20 & 20906.5 & 19971.735915661 & 20908.9458333333 & 0.955176605977991 & 1.04680434831937 \tabularnewline
21 & 17877.4 & 18827.7403950277 & 20666.9625 & 0.911006655914131 & 0.949524458321152 \tabularnewline
22 & 20664.3 & 20737.9770964724 & 20476.325 & 1.01277827424953 & 0.996447238024727 \tabularnewline
23 & 22160 & 21618.8305474737 & 20231.4041666667 & 1.06857785892553 & 1.02503231853073 \tabularnewline
24 & 19813.6 & 21203.9941810872 & 20048.8416666667 & 1.05761692040000 & 0.934427722946306 \tabularnewline
25 & 17735.4 & 17433.6114816079 & 19939.9333333333 & 0.874306407658064 & 1.01731072868696 \tabularnewline
26 & 19640.2 & 19409.8790888693 & 19749.4208333333 & 0.982807508770537 & 1.01186616928813 \tabularnewline
27 & 20844.4 & 21192.2195353371 & 19644.575 & 1.07878228647538 & 0.983587394668257 \tabularnewline
28 & 19823.1 & 19817.3085666939 & 19593.0291666667 & 1.01144689767567 & 1.00029224116315 \tabularnewline
29 & 18594.6 & 19392.156269512 & 19470.9041666667 & 0.995955611692164 & 0.958872223468728 \tabularnewline
30 & 21350.6 & 21096.1970625981 & 19363.5333333333 & 1.08948076259833 & 1.01205918472638 \tabularnewline
31 & 18574.1 & 18552.0373418460 & 19283.575 & 0.96206420966268 & 1.00118923101261 \tabularnewline
32 & 18924.2 & 18274.5383231341 & 19132.1041666667 & 0.955176605977991 & 1.03555010065800 \tabularnewline
33 & 17343.4 & 17311.2597362878 & 19002.3416666667 & 0.911006655914131 & 1.00185661033350 \tabularnewline
34 & 19961.2 & 19184.7043767128 & 18942.65 & 1.01277827424953 & 1.04047472444922 \tabularnewline
35 & 19932.1 & 20161.1879425211 & 18867.3083333333 & 1.06857785892553 & 0.988637180349975 \tabularnewline
36 & 19464.6 & 19879.3466152348 & 18796.3583333333 & 1.05761692040000 & 0.979136808504712 \tabularnewline
37 & 16165.4 & 16393.6859397359 & 18750.5041666667 & 0.874306407658064 & 0.986074764358968 \tabularnewline
38 & 17574.9 & 18336.7761402304 & 18657.5458333333 & 0.982807508770537 & 0.958450922102991 \tabularnewline
39 & 19795.4 & 20095.4350694562 & 18627.8875 & 1.07878228647538 & 0.985069491234244 \tabularnewline
40 & 19439.5 & 18833.7776033941 & 18620.6291666667 & 1.01144689767567 & 1.03216149247174 \tabularnewline
41 & 17170 & 18418.4727151863 & 18493.2666666667 & 0.995955611692164 & 0.932216273602484 \tabularnewline
42 & 21072.4 & 20036.926693646 & 18391.2625 & 1.08948076259833 & 1.05167824997246 \tabularnewline
43 & 17751.8 & 17642.0127887244 & 18337.6666666667 & 0.96206420966268 & 1.00622305473817 \tabularnewline
44 & 17515.5 & 17422.5566097244 & 18240.1416666667 & 0.955176605977991 & 1.00533465853247 \tabularnewline
45 & 18040.3 & 16521.0184001982 & 18134.9041666667 & 0.911006655914131 & 1.09196052949033 \tabularnewline
46 & 19090.1 & 18221.5142587162 & 17991.6125 & 1.01277827424953 & 1.04766814266648 \tabularnewline
47 & 17746.5 & 19155.9188693292 & 17926.5541666667 & 1.06857785892553 & 0.926423844298807 \tabularnewline
48 & 19202.1 & 18903.0119619048 & 17873.2125 & 1.05761692040000 & 1.01582224243935 \tabularnewline
49 & 15141.6 & 15513.1100265462 & 17743.3333333333 & 0.874306407658064 & 0.976051866717215 \tabularnewline
50 & 16258.1 & 17328.0225132284 & 17631.1458333333 & 0.982807508770537 & 0.938254782828705 \tabularnewline
51 & 18586.5 & 18891.6039362735 & 17511.9708333333 & 1.07878228647538 & 0.983849760067873 \tabularnewline
52 & 17209.4 & 17585.7617050762 & 17386.7375 & 1.01144689767567 & 0.978598498524656 \tabularnewline
53 & 17838.7 & 17252.3373381613 & 17322.3958333333 & 0.995955611692164 & 1.03398743314285 \tabularnewline
54 & 19123.5 & 18815.5188897034 & 17270.1708333333 & 1.08948076259833 & 1.01636846223067 \tabularnewline
55 & 16583.6 & NA & NA & 0.96206420966268 & NA \tabularnewline
56 & 15991.2 & NA & NA & 0.955176605977991 & NA \tabularnewline
57 & 16704.4 & NA & NA & 0.911006655914131 & NA \tabularnewline
58 & 17420.4 & NA & NA & 1.01277827424953 & NA \tabularnewline
59 & 17872 & NA & NA & 1.06857785892553 & NA \tabularnewline
60 & 17823.2 & NA & NA & 1.05761692040000 & NA \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=64005&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]15836.8[/C][C]NA[/C][C]NA[/C][C]0.874306407658064[/C][C]NA[/C][/ROW]
[ROW][C]2[/C][C]17570.4[/C][C]NA[/C][C]NA[/C][C]0.982807508770537[/C][C]NA[/C][/ROW]
[ROW][C]3[/C][C]18252.1[/C][C]NA[/C][C]NA[/C][C]1.07878228647538[/C][C]NA[/C][/ROW]
[ROW][C]4[/C][C]16196.7[/C][C]NA[/C][C]NA[/C][C]1.01144689767567[/C][C]NA[/C][/ROW]
[ROW][C]5[/C][C]16643[/C][C]NA[/C][C]NA[/C][C]0.995955611692164[/C][C]NA[/C][/ROW]
[ROW][C]6[/C][C]17729[/C][C]NA[/C][C]NA[/C][C]1.08948076259833[/C][C]NA[/C][/ROW]
[ROW][C]7[/C][C]16446.1[/C][C]17253.8559575333[/C][C]17934.2041666667[/C][C]0.96206420966268[/C][C]0.953184032628912[/C][/ROW]
[ROW][C]8[/C][C]15993.8[/C][C]17419.2652303363[/C][C]18236.6958333333[/C][C]0.955176605977991[/C][C]0.918167315814572[/C][/ROW]
[ROW][C]9[/C][C]16373.5[/C][C]17011.1665521075[/C][C]18672.9333333333[/C][C]0.911006655914131[/C][C]0.962514825179435[/C][/ROW]
[ROW][C]10[/C][C]17842.2[/C][C]19367.0382253535[/C][C]19122.6833333333[/C][C]1.01277827424953[/C][C]0.921266318183989[/C][/ROW]
[ROW][C]11[/C][C]22321.5[/C][C]20944.1482969791[/C][C]19600.0208333333[/C][C]1.06857785892553[/C][C]1.0657630801449[/C][/ROW]
[ROW][C]12[/C][C]22786.7[/C][C]21167.9911384219[/C][C]20014.8[/C][C]1.05761692040000[/C][C]1.07646964943405[/C][/ROW]
[ROW][C]13[/C][C]18274.1[/C][C]17803.7418134033[/C][C]20363.275[/C][C]0.874306407658064[/C][C]1.02641906356127[/C][/ROW]
[ROW][C]14[/C][C]22392.9[/C][C]20407.5597512725[/C][C]20764.5541666667[/C][C]0.982807508770537[/C][C]1.09728454910459[/C][/ROW]
[ROW][C]15[/C][C]23899.3[/C][C]22688.8546557002[/C][C]21031.9125[/C][C]1.07878228647538[/C][C]1.05334977735404[/C][/ROW]
[ROW][C]16[/C][C]21343.5[/C][C]21454.9759536172[/C][C]21212.1625[/C][C]1.01144689767567[/C][C]0.994804191164875[/C][/ROW]
[ROW][C]17[/C][C]22952.3[/C][C]21236.7822571873[/C][C]21323.0208333333[/C][C]0.995955611692164[/C][C]1.08078049311035[/C][/ROW]
[ROW][C]18[/C][C]21374.4[/C][C]23088.7257317983[/C][C]21192.4125[/C][C]1.08948076259833[/C][C]0.925750526394911[/C][/ROW]
[ROW][C]19[/C][C]21164.1[/C][C]20247.6875371791[/C][C]21046.0875[/C][C]0.96206420966268[/C][C]1.04526010494473[/C][/ROW]
[ROW][C]20[/C][C]20906.5[/C][C]19971.735915661[/C][C]20908.9458333333[/C][C]0.955176605977991[/C][C]1.04680434831937[/C][/ROW]
[ROW][C]21[/C][C]17877.4[/C][C]18827.7403950277[/C][C]20666.9625[/C][C]0.911006655914131[/C][C]0.949524458321152[/C][/ROW]
[ROW][C]22[/C][C]20664.3[/C][C]20737.9770964724[/C][C]20476.325[/C][C]1.01277827424953[/C][C]0.996447238024727[/C][/ROW]
[ROW][C]23[/C][C]22160[/C][C]21618.8305474737[/C][C]20231.4041666667[/C][C]1.06857785892553[/C][C]1.02503231853073[/C][/ROW]
[ROW][C]24[/C][C]19813.6[/C][C]21203.9941810872[/C][C]20048.8416666667[/C][C]1.05761692040000[/C][C]0.934427722946306[/C][/ROW]
[ROW][C]25[/C][C]17735.4[/C][C]17433.6114816079[/C][C]19939.9333333333[/C][C]0.874306407658064[/C][C]1.01731072868696[/C][/ROW]
[ROW][C]26[/C][C]19640.2[/C][C]19409.8790888693[/C][C]19749.4208333333[/C][C]0.982807508770537[/C][C]1.01186616928813[/C][/ROW]
[ROW][C]27[/C][C]20844.4[/C][C]21192.2195353371[/C][C]19644.575[/C][C]1.07878228647538[/C][C]0.983587394668257[/C][/ROW]
[ROW][C]28[/C][C]19823.1[/C][C]19817.3085666939[/C][C]19593.0291666667[/C][C]1.01144689767567[/C][C]1.00029224116315[/C][/ROW]
[ROW][C]29[/C][C]18594.6[/C][C]19392.156269512[/C][C]19470.9041666667[/C][C]0.995955611692164[/C][C]0.958872223468728[/C][/ROW]
[ROW][C]30[/C][C]21350.6[/C][C]21096.1970625981[/C][C]19363.5333333333[/C][C]1.08948076259833[/C][C]1.01205918472638[/C][/ROW]
[ROW][C]31[/C][C]18574.1[/C][C]18552.0373418460[/C][C]19283.575[/C][C]0.96206420966268[/C][C]1.00118923101261[/C][/ROW]
[ROW][C]32[/C][C]18924.2[/C][C]18274.5383231341[/C][C]19132.1041666667[/C][C]0.955176605977991[/C][C]1.03555010065800[/C][/ROW]
[ROW][C]33[/C][C]17343.4[/C][C]17311.2597362878[/C][C]19002.3416666667[/C][C]0.911006655914131[/C][C]1.00185661033350[/C][/ROW]
[ROW][C]34[/C][C]19961.2[/C][C]19184.7043767128[/C][C]18942.65[/C][C]1.01277827424953[/C][C]1.04047472444922[/C][/ROW]
[ROW][C]35[/C][C]19932.1[/C][C]20161.1879425211[/C][C]18867.3083333333[/C][C]1.06857785892553[/C][C]0.988637180349975[/C][/ROW]
[ROW][C]36[/C][C]19464.6[/C][C]19879.3466152348[/C][C]18796.3583333333[/C][C]1.05761692040000[/C][C]0.979136808504712[/C][/ROW]
[ROW][C]37[/C][C]16165.4[/C][C]16393.6859397359[/C][C]18750.5041666667[/C][C]0.874306407658064[/C][C]0.986074764358968[/C][/ROW]
[ROW][C]38[/C][C]17574.9[/C][C]18336.7761402304[/C][C]18657.5458333333[/C][C]0.982807508770537[/C][C]0.958450922102991[/C][/ROW]
[ROW][C]39[/C][C]19795.4[/C][C]20095.4350694562[/C][C]18627.8875[/C][C]1.07878228647538[/C][C]0.985069491234244[/C][/ROW]
[ROW][C]40[/C][C]19439.5[/C][C]18833.7776033941[/C][C]18620.6291666667[/C][C]1.01144689767567[/C][C]1.03216149247174[/C][/ROW]
[ROW][C]41[/C][C]17170[/C][C]18418.4727151863[/C][C]18493.2666666667[/C][C]0.995955611692164[/C][C]0.932216273602484[/C][/ROW]
[ROW][C]42[/C][C]21072.4[/C][C]20036.926693646[/C][C]18391.2625[/C][C]1.08948076259833[/C][C]1.05167824997246[/C][/ROW]
[ROW][C]43[/C][C]17751.8[/C][C]17642.0127887244[/C][C]18337.6666666667[/C][C]0.96206420966268[/C][C]1.00622305473817[/C][/ROW]
[ROW][C]44[/C][C]17515.5[/C][C]17422.5566097244[/C][C]18240.1416666667[/C][C]0.955176605977991[/C][C]1.00533465853247[/C][/ROW]
[ROW][C]45[/C][C]18040.3[/C][C]16521.0184001982[/C][C]18134.9041666667[/C][C]0.911006655914131[/C][C]1.09196052949033[/C][/ROW]
[ROW][C]46[/C][C]19090.1[/C][C]18221.5142587162[/C][C]17991.6125[/C][C]1.01277827424953[/C][C]1.04766814266648[/C][/ROW]
[ROW][C]47[/C][C]17746.5[/C][C]19155.9188693292[/C][C]17926.5541666667[/C][C]1.06857785892553[/C][C]0.926423844298807[/C][/ROW]
[ROW][C]48[/C][C]19202.1[/C][C]18903.0119619048[/C][C]17873.2125[/C][C]1.05761692040000[/C][C]1.01582224243935[/C][/ROW]
[ROW][C]49[/C][C]15141.6[/C][C]15513.1100265462[/C][C]17743.3333333333[/C][C]0.874306407658064[/C][C]0.976051866717215[/C][/ROW]
[ROW][C]50[/C][C]16258.1[/C][C]17328.0225132284[/C][C]17631.1458333333[/C][C]0.982807508770537[/C][C]0.938254782828705[/C][/ROW]
[ROW][C]51[/C][C]18586.5[/C][C]18891.6039362735[/C][C]17511.9708333333[/C][C]1.07878228647538[/C][C]0.983849760067873[/C][/ROW]
[ROW][C]52[/C][C]17209.4[/C][C]17585.7617050762[/C][C]17386.7375[/C][C]1.01144689767567[/C][C]0.978598498524656[/C][/ROW]
[ROW][C]53[/C][C]17838.7[/C][C]17252.3373381613[/C][C]17322.3958333333[/C][C]0.995955611692164[/C][C]1.03398743314285[/C][/ROW]
[ROW][C]54[/C][C]19123.5[/C][C]18815.5188897034[/C][C]17270.1708333333[/C][C]1.08948076259833[/C][C]1.01636846223067[/C][/ROW]
[ROW][C]55[/C][C]16583.6[/C][C]NA[/C][C]NA[/C][C]0.96206420966268[/C][C]NA[/C][/ROW]
[ROW][C]56[/C][C]15991.2[/C][C]NA[/C][C]NA[/C][C]0.955176605977991[/C][C]NA[/C][/ROW]
[ROW][C]57[/C][C]16704.4[/C][C]NA[/C][C]NA[/C][C]0.911006655914131[/C][C]NA[/C][/ROW]
[ROW][C]58[/C][C]17420.4[/C][C]NA[/C][C]NA[/C][C]1.01277827424953[/C][C]NA[/C][/ROW]
[ROW][C]59[/C][C]17872[/C][C]NA[/C][C]NA[/C][C]1.06857785892553[/C][C]NA[/C][/ROW]
[ROW][C]60[/C][C]17823.2[/C][C]NA[/C][C]NA[/C][C]1.05761692040000[/C][C]NA[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=64005&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=64005&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	15836.8	NA	NA	0.874306407658064	NA
2	17570.4	NA	NA	0.982807508770537	NA
3	18252.1	NA	NA	1.07878228647538	NA
4	16196.7	NA	NA	1.01144689767567	NA
5	16643	NA	NA	0.995955611692164	NA
6	17729	NA	NA	1.08948076259833	NA
7	16446.1	17253.8559575333	17934.2041666667	0.96206420966268	0.953184032628912
8	15993.8	17419.2652303363	18236.6958333333	0.955176605977991	0.918167315814572
9	16373.5	17011.1665521075	18672.9333333333	0.911006655914131	0.962514825179435
10	17842.2	19367.0382253535	19122.6833333333	1.01277827424953	0.921266318183989
11	22321.5	20944.1482969791	19600.0208333333	1.06857785892553	1.0657630801449
12	22786.7	21167.9911384219	20014.8	1.05761692040000	1.07646964943405
13	18274.1	17803.7418134033	20363.275	0.874306407658064	1.02641906356127
14	22392.9	20407.5597512725	20764.5541666667	0.982807508770537	1.09728454910459
15	23899.3	22688.8546557002	21031.9125	1.07878228647538	1.05334977735404
16	21343.5	21454.9759536172	21212.1625	1.01144689767567	0.994804191164875
17	22952.3	21236.7822571873	21323.0208333333	0.995955611692164	1.08078049311035
18	21374.4	23088.7257317983	21192.4125	1.08948076259833	0.925750526394911
19	21164.1	20247.6875371791	21046.0875	0.96206420966268	1.04526010494473
20	20906.5	19971.735915661	20908.9458333333	0.955176605977991	1.04680434831937
21	17877.4	18827.7403950277	20666.9625	0.911006655914131	0.949524458321152
22	20664.3	20737.9770964724	20476.325	1.01277827424953	0.996447238024727
23	22160	21618.8305474737	20231.4041666667	1.06857785892553	1.02503231853073
24	19813.6	21203.9941810872	20048.8416666667	1.05761692040000	0.934427722946306
25	17735.4	17433.6114816079	19939.9333333333	0.874306407658064	1.01731072868696
26	19640.2	19409.8790888693	19749.4208333333	0.982807508770537	1.01186616928813
27	20844.4	21192.2195353371	19644.575	1.07878228647538	0.983587394668257
28	19823.1	19817.3085666939	19593.0291666667	1.01144689767567	1.00029224116315
29	18594.6	19392.156269512	19470.9041666667	0.995955611692164	0.958872223468728
30	21350.6	21096.1970625981	19363.5333333333	1.08948076259833	1.01205918472638
31	18574.1	18552.0373418460	19283.575	0.96206420966268	1.00118923101261
32	18924.2	18274.5383231341	19132.1041666667	0.955176605977991	1.03555010065800
33	17343.4	17311.2597362878	19002.3416666667	0.911006655914131	1.00185661033350
34	19961.2	19184.7043767128	18942.65	1.01277827424953	1.04047472444922
35	19932.1	20161.1879425211	18867.3083333333	1.06857785892553	0.988637180349975
36	19464.6	19879.3466152348	18796.3583333333	1.05761692040000	0.979136808504712
37	16165.4	16393.6859397359	18750.5041666667	0.874306407658064	0.986074764358968
38	17574.9	18336.7761402304	18657.5458333333	0.982807508770537	0.958450922102991
39	19795.4	20095.4350694562	18627.8875	1.07878228647538	0.985069491234244
40	19439.5	18833.7776033941	18620.6291666667	1.01144689767567	1.03216149247174
41	17170	18418.4727151863	18493.2666666667	0.995955611692164	0.932216273602484
42	21072.4	20036.926693646	18391.2625	1.08948076259833	1.05167824997246
43	17751.8	17642.0127887244	18337.6666666667	0.96206420966268	1.00622305473817
44	17515.5	17422.5566097244	18240.1416666667	0.955176605977991	1.00533465853247
45	18040.3	16521.0184001982	18134.9041666667	0.911006655914131	1.09196052949033
46	19090.1	18221.5142587162	17991.6125	1.01277827424953	1.04766814266648
47	17746.5	19155.9188693292	17926.5541666667	1.06857785892553	0.926423844298807
48	19202.1	18903.0119619048	17873.2125	1.05761692040000	1.01582224243935
49	15141.6	15513.1100265462	17743.3333333333	0.874306407658064	0.976051866717215
50	16258.1	17328.0225132284	17631.1458333333	0.982807508770537	0.938254782828705
51	18586.5	18891.6039362735	17511.9708333333	1.07878228647538	0.983849760067873
52	17209.4	17585.7617050762	17386.7375	1.01144689767567	0.978598498524656
53	17838.7	17252.3373381613	17322.3958333333	0.995955611692164	1.03398743314285
54	19123.5	18815.5188897034	17270.1708333333	1.08948076259833	1.01636846223067
55	16583.6	NA	NA	0.96206420966268	NA
56	15991.2	NA	NA	0.955176605977991	NA
57	16704.4	NA	NA	0.911006655914131	NA
58	17420.4	NA	NA	1.01277827424953	NA
59	17872	NA	NA	1.06857785892553	NA
60	17823.2	NA	NA	1.05761692040000	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):

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