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

Mon, 28 Nov 2011 11:45:55 -0500

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/2011/Nov/28/t1322498989eeltf49myhzeia4.htm/, Retrieved Sat, 30 May 2026 09:57:15 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=147862, Retrieved Sat, 30 May 2026 09:57:15 +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

384

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

-     [Classical Decomposition] [HPC Retail Sales] [2008-03-02 16:19:32] [74be16979710d4c4e7c6647856088456]
- RM D  [Classical Decomposition] [ws8 classical dec...] [2011-11-28 16:44:10] [620e5553455d245695b6e856984b13e0]
-   P       [Classical Decomposition] [ws8 classical dec...] [2011-11-28 16:45:55] [cb05b01fd3da20a46af540a30bcf4c06] [Current]
- R PD        [Classical Decomposition] [ws8 classical dec...] [2011-11-28 20:29:42] [620e5553455d245695b6e856984b13e0] 

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

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

Classical Decomposition by Moving Averages
t	Observations	Fit	Trend	Seasonal	Random
1	20995	NA	NA	0.993720166522388	NA
2	17382	NA	NA	0.80270915994757	NA
3	9367	NA	NA	0.576472709600818	NA
4	31124	NA	NA	1.17849071361973	NA
5	26551	NA	NA	1.14234857394008	NA
6	30651	NA	NA	1.32363030521714	NA
7	25859	28444.5788177263	22852.2916666667	1.24471450096258	0.90910117410088
8	25100	24517.533009076	23111.1666666667	1.06085224353636	1.02375716148555
9	25778	25855.0756181612	23352.9583333333	1.10714348259922	0.997018936656793
10	20418	21576.1174999089	23511.8333333333	0.917670570134565	0.946324101177436
11	18688	19269.8086687645	23678.5833333333	0.8138074984257	0.969807242055933
12	20424	19955.3628867977	23800.5833333333	0.838440075493852	1.02348426915916
13	24776	23876.4870860959	24027.375	0.993720166522388	1.03767358701724
14	19814	19514.4617101954	24310.75	0.80270915994757	1.01534955430762
15	12738	14057.3110433122	24385.0416666667	0.576472709600818	0.906147695014556
16	31566	28778.9887454924	24420.2083333333	1.17849071361973	1.09684187582665
17	30111	27843.4613476438	24373.875	1.14234857394008	1.08143882055627
18	30019	32217.7131416124	24340.4166666667	1.32363030521714	0.931754524849483
19	31934	30184.7415531762	24250.3333333333	1.24471450096258	1.05795174504781
20	25826	25438.70637388	23979.5	1.06085224353636	1.01522458022935
21	26835	26296.3645579338	23751.5416666667	1.10714348259922	1.02048326645607
22	20205	21515.1306432687	23445.375	0.917670570134565	0.939106544831576
23	17789	18668.3710187821	22939.5416666667	0.8138074984257	0.95289513916895
24	20520	18945.0775308308	22595.625	0.838440075493852	1.08313095930097
25	22518	22123.6475223642	22263.4583333333	0.993720166522388	1.01782493041607
26	15572	17501.5347067669	21803.0833333333	0.80270915994757	0.889750542504092
27	11509	12343.4336579727	21412	0.576472709600818	0.932398578783323
28	25447	24975.9010050821	21193.125	1.17849071361973	1.01886214214342
29	24090	24114.9783958751	21110	1.14234857394008	0.998964195801253
30	27786	27870.0287990758	21055.75	1.32363030521714	0.996984976238036
31	26195	26181.5841287679	21034.2083333333	1.24471450096258	1.00051241632921
32	20516	22452.3189039716	21164.4166666667	1.06085224353636	0.91375862278399
33	22759	23717.4583391327	21422.2083333333	1.10714348259922	0.959588488554387
34	19028	19855.1792907165	21636.5	0.917670570134565	0.958339369360252
35	16971	17743.8857005705	21803.5416666667	0.8138074984257	0.956442139359268
36	20036	18587.6575136484	22169.3333333333	0.838440075493852	1.07791958106007
37	22485	22558.23447519	22700.7916666667	0.993720166522388	0.996753536928141
38	18730	18641.5823911824	23223.3333333333	0.80270915994757	1.00474303130293
39	14538	13711.8117326914	23785.7083333333	0.576472709600818	1.06025376393834
40	27561	28480.9288025061	24167.2916666667	1.17849071361973	0.967700182501593
41	25985	27936.5151585627	24455.3333333333	1.14234857394008	0.930144645905682
42	34670	32596.9883753198	24626.9583333333	1.32363030521714	1.06359518863558
43	32066	30721.3690924037	24681.4583333333	1.24471450096258	1.04376858673036
44	27186	26423.0004471745	24907.3333333333	1.06085224353636	1.02887634030628
45	29586	27819.5172041197	25127.2916666667	1.10714348259922	1.06349796737733
46	21359	23110.7685833639	25184.1666666667	0.917670570134565	0.924201197504747
47	21553	20564.1694950106	25269.0833333333	0.8138074984257	1.04808511742861
48	19573	21225.2502511394	25315.1666666667	0.838440075493852	0.922156383006568
49	24256	24947.8002356209	25105.4583333333	0.993720166522388	0.972270090786076
50	22380	20077.5287396836	25012.2083333333	0.80270915994757	1.11467901703288
51	16167	14361.4484370191	24912.625	0.576472709600818	1.12572210741131
52	27297	29004.8661322695	24611.875	1.17849071361973	0.941117944675862
53	28287	27897.151730619	24420.875	1.14234857394008	1.01397448288433
54	33474	32430.1558055998	24500.9166666667	1.32363030521714	1.03218745542444
55	28229	30607.5295786698	24590	1.24471450096258	0.922289397040151
56	28785	NA	NA	1.06085224353636	NA
57	25597	NA	NA	1.10714348259922	NA
58	18130	NA	NA	0.917670570134565	NA
59	20198	NA	NA	0.8138074984257	NA
60	22849	NA	NA	0.838440075493852	NA
61	23118	NA	NA	NA	NA

\begin{tabular}{lllllllll}
\hline
Classical Decomposition by Moving Averages \tabularnewline
t & Observations & Fit & Trend & Seasonal & Random \tabularnewline
1 & 20995 & NA & NA & 0.993720166522388 & NA \tabularnewline
2 & 17382 & NA & NA & 0.80270915994757 & NA \tabularnewline
3 & 9367 & NA & NA & 0.576472709600818 & NA \tabularnewline
4 & 31124 & NA & NA & 1.17849071361973 & NA \tabularnewline
5 & 26551 & NA & NA & 1.14234857394008 & NA \tabularnewline
6 & 30651 & NA & NA & 1.32363030521714 & NA \tabularnewline
7 & 25859 & 28444.5788177263 & 22852.2916666667 & 1.24471450096258 & 0.90910117410088 \tabularnewline
8 & 25100 & 24517.533009076 & 23111.1666666667 & 1.06085224353636 & 1.02375716148555 \tabularnewline
9 & 25778 & 25855.0756181612 & 23352.9583333333 & 1.10714348259922 & 0.997018936656793 \tabularnewline
10 & 20418 & 21576.1174999089 & 23511.8333333333 & 0.917670570134565 & 0.946324101177436 \tabularnewline
11 & 18688 & 19269.8086687645 & 23678.5833333333 & 0.8138074984257 & 0.969807242055933 \tabularnewline
12 & 20424 & 19955.3628867977 & 23800.5833333333 & 0.838440075493852 & 1.02348426915916 \tabularnewline
13 & 24776 & 23876.4870860959 & 24027.375 & 0.993720166522388 & 1.03767358701724 \tabularnewline
14 & 19814 & 19514.4617101954 & 24310.75 & 0.80270915994757 & 1.01534955430762 \tabularnewline
15 & 12738 & 14057.3110433122 & 24385.0416666667 & 0.576472709600818 & 0.906147695014556 \tabularnewline
16 & 31566 & 28778.9887454924 & 24420.2083333333 & 1.17849071361973 & 1.09684187582665 \tabularnewline
17 & 30111 & 27843.4613476438 & 24373.875 & 1.14234857394008 & 1.08143882055627 \tabularnewline
18 & 30019 & 32217.7131416124 & 24340.4166666667 & 1.32363030521714 & 0.931754524849483 \tabularnewline
19 & 31934 & 30184.7415531762 & 24250.3333333333 & 1.24471450096258 & 1.05795174504781 \tabularnewline
20 & 25826 & 25438.70637388 & 23979.5 & 1.06085224353636 & 1.01522458022935 \tabularnewline
21 & 26835 & 26296.3645579338 & 23751.5416666667 & 1.10714348259922 & 1.02048326645607 \tabularnewline
22 & 20205 & 21515.1306432687 & 23445.375 & 0.917670570134565 & 0.939106544831576 \tabularnewline
23 & 17789 & 18668.3710187821 & 22939.5416666667 & 0.8138074984257 & 0.95289513916895 \tabularnewline
24 & 20520 & 18945.0775308308 & 22595.625 & 0.838440075493852 & 1.08313095930097 \tabularnewline
25 & 22518 & 22123.6475223642 & 22263.4583333333 & 0.993720166522388 & 1.01782493041607 \tabularnewline
26 & 15572 & 17501.5347067669 & 21803.0833333333 & 0.80270915994757 & 0.889750542504092 \tabularnewline
27 & 11509 & 12343.4336579727 & 21412 & 0.576472709600818 & 0.932398578783323 \tabularnewline
28 & 25447 & 24975.9010050821 & 21193.125 & 1.17849071361973 & 1.01886214214342 \tabularnewline
29 & 24090 & 24114.9783958751 & 21110 & 1.14234857394008 & 0.998964195801253 \tabularnewline
30 & 27786 & 27870.0287990758 & 21055.75 & 1.32363030521714 & 0.996984976238036 \tabularnewline
31 & 26195 & 26181.5841287679 & 21034.2083333333 & 1.24471450096258 & 1.00051241632921 \tabularnewline
32 & 20516 & 22452.3189039716 & 21164.4166666667 & 1.06085224353636 & 0.91375862278399 \tabularnewline
33 & 22759 & 23717.4583391327 & 21422.2083333333 & 1.10714348259922 & 0.959588488554387 \tabularnewline
34 & 19028 & 19855.1792907165 & 21636.5 & 0.917670570134565 & 0.958339369360252 \tabularnewline
35 & 16971 & 17743.8857005705 & 21803.5416666667 & 0.8138074984257 & 0.956442139359268 \tabularnewline
36 & 20036 & 18587.6575136484 & 22169.3333333333 & 0.838440075493852 & 1.07791958106007 \tabularnewline
37 & 22485 & 22558.23447519 & 22700.7916666667 & 0.993720166522388 & 0.996753536928141 \tabularnewline
38 & 18730 & 18641.5823911824 & 23223.3333333333 & 0.80270915994757 & 1.00474303130293 \tabularnewline
39 & 14538 & 13711.8117326914 & 23785.7083333333 & 0.576472709600818 & 1.06025376393834 \tabularnewline
40 & 27561 & 28480.9288025061 & 24167.2916666667 & 1.17849071361973 & 0.967700182501593 \tabularnewline
41 & 25985 & 27936.5151585627 & 24455.3333333333 & 1.14234857394008 & 0.930144645905682 \tabularnewline
42 & 34670 & 32596.9883753198 & 24626.9583333333 & 1.32363030521714 & 1.06359518863558 \tabularnewline
43 & 32066 & 30721.3690924037 & 24681.4583333333 & 1.24471450096258 & 1.04376858673036 \tabularnewline
44 & 27186 & 26423.0004471745 & 24907.3333333333 & 1.06085224353636 & 1.02887634030628 \tabularnewline
45 & 29586 & 27819.5172041197 & 25127.2916666667 & 1.10714348259922 & 1.06349796737733 \tabularnewline
46 & 21359 & 23110.7685833639 & 25184.1666666667 & 0.917670570134565 & 0.924201197504747 \tabularnewline
47 & 21553 & 20564.1694950106 & 25269.0833333333 & 0.8138074984257 & 1.04808511742861 \tabularnewline
48 & 19573 & 21225.2502511394 & 25315.1666666667 & 0.838440075493852 & 0.922156383006568 \tabularnewline
49 & 24256 & 24947.8002356209 & 25105.4583333333 & 0.993720166522388 & 0.972270090786076 \tabularnewline
50 & 22380 & 20077.5287396836 & 25012.2083333333 & 0.80270915994757 & 1.11467901703288 \tabularnewline
51 & 16167 & 14361.4484370191 & 24912.625 & 0.576472709600818 & 1.12572210741131 \tabularnewline
52 & 27297 & 29004.8661322695 & 24611.875 & 1.17849071361973 & 0.941117944675862 \tabularnewline
53 & 28287 & 27897.151730619 & 24420.875 & 1.14234857394008 & 1.01397448288433 \tabularnewline
54 & 33474 & 32430.1558055998 & 24500.9166666667 & 1.32363030521714 & 1.03218745542444 \tabularnewline
55 & 28229 & 30607.5295786698 & 24590 & 1.24471450096258 & 0.922289397040151 \tabularnewline
56 & 28785 & NA & NA & 1.06085224353636 & NA \tabularnewline
57 & 25597 & NA & NA & 1.10714348259922 & NA \tabularnewline
58 & 18130 & NA & NA & 0.917670570134565 & NA \tabularnewline
59 & 20198 & NA & NA & 0.8138074984257 & NA \tabularnewline
60 & 22849 & NA & NA & 0.838440075493852 & NA \tabularnewline
61 & 23118 & NA & NA & NA & NA \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=147862&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]20995[/C][C]NA[/C][C]NA[/C][C]0.993720166522388[/C][C]NA[/C][/ROW]
[ROW][C]2[/C][C]17382[/C][C]NA[/C][C]NA[/C][C]0.80270915994757[/C][C]NA[/C][/ROW]
[ROW][C]3[/C][C]9367[/C][C]NA[/C][C]NA[/C][C]0.576472709600818[/C][C]NA[/C][/ROW]
[ROW][C]4[/C][C]31124[/C][C]NA[/C][C]NA[/C][C]1.17849071361973[/C][C]NA[/C][/ROW]
[ROW][C]5[/C][C]26551[/C][C]NA[/C][C]NA[/C][C]1.14234857394008[/C][C]NA[/C][/ROW]
[ROW][C]6[/C][C]30651[/C][C]NA[/C][C]NA[/C][C]1.32363030521714[/C][C]NA[/C][/ROW]
[ROW][C]7[/C][C]25859[/C][C]28444.5788177263[/C][C]22852.2916666667[/C][C]1.24471450096258[/C][C]0.90910117410088[/C][/ROW]
[ROW][C]8[/C][C]25100[/C][C]24517.533009076[/C][C]23111.1666666667[/C][C]1.06085224353636[/C][C]1.02375716148555[/C][/ROW]
[ROW][C]9[/C][C]25778[/C][C]25855.0756181612[/C][C]23352.9583333333[/C][C]1.10714348259922[/C][C]0.997018936656793[/C][/ROW]
[ROW][C]10[/C][C]20418[/C][C]21576.1174999089[/C][C]23511.8333333333[/C][C]0.917670570134565[/C][C]0.946324101177436[/C][/ROW]
[ROW][C]11[/C][C]18688[/C][C]19269.8086687645[/C][C]23678.5833333333[/C][C]0.8138074984257[/C][C]0.969807242055933[/C][/ROW]
[ROW][C]12[/C][C]20424[/C][C]19955.3628867977[/C][C]23800.5833333333[/C][C]0.838440075493852[/C][C]1.02348426915916[/C][/ROW]
[ROW][C]13[/C][C]24776[/C][C]23876.4870860959[/C][C]24027.375[/C][C]0.993720166522388[/C][C]1.03767358701724[/C][/ROW]
[ROW][C]14[/C][C]19814[/C][C]19514.4617101954[/C][C]24310.75[/C][C]0.80270915994757[/C][C]1.01534955430762[/C][/ROW]
[ROW][C]15[/C][C]12738[/C][C]14057.3110433122[/C][C]24385.0416666667[/C][C]0.576472709600818[/C][C]0.906147695014556[/C][/ROW]
[ROW][C]16[/C][C]31566[/C][C]28778.9887454924[/C][C]24420.2083333333[/C][C]1.17849071361973[/C][C]1.09684187582665[/C][/ROW]
[ROW][C]17[/C][C]30111[/C][C]27843.4613476438[/C][C]24373.875[/C][C]1.14234857394008[/C][C]1.08143882055627[/C][/ROW]
[ROW][C]18[/C][C]30019[/C][C]32217.7131416124[/C][C]24340.4166666667[/C][C]1.32363030521714[/C][C]0.931754524849483[/C][/ROW]
[ROW][C]19[/C][C]31934[/C][C]30184.7415531762[/C][C]24250.3333333333[/C][C]1.24471450096258[/C][C]1.05795174504781[/C][/ROW]
[ROW][C]20[/C][C]25826[/C][C]25438.70637388[/C][C]23979.5[/C][C]1.06085224353636[/C][C]1.01522458022935[/C][/ROW]
[ROW][C]21[/C][C]26835[/C][C]26296.3645579338[/C][C]23751.5416666667[/C][C]1.10714348259922[/C][C]1.02048326645607[/C][/ROW]
[ROW][C]22[/C][C]20205[/C][C]21515.1306432687[/C][C]23445.375[/C][C]0.917670570134565[/C][C]0.939106544831576[/C][/ROW]
[ROW][C]23[/C][C]17789[/C][C]18668.3710187821[/C][C]22939.5416666667[/C][C]0.8138074984257[/C][C]0.95289513916895[/C][/ROW]
[ROW][C]24[/C][C]20520[/C][C]18945.0775308308[/C][C]22595.625[/C][C]0.838440075493852[/C][C]1.08313095930097[/C][/ROW]
[ROW][C]25[/C][C]22518[/C][C]22123.6475223642[/C][C]22263.4583333333[/C][C]0.993720166522388[/C][C]1.01782493041607[/C][/ROW]
[ROW][C]26[/C][C]15572[/C][C]17501.5347067669[/C][C]21803.0833333333[/C][C]0.80270915994757[/C][C]0.889750542504092[/C][/ROW]
[ROW][C]27[/C][C]11509[/C][C]12343.4336579727[/C][C]21412[/C][C]0.576472709600818[/C][C]0.932398578783323[/C][/ROW]
[ROW][C]28[/C][C]25447[/C][C]24975.9010050821[/C][C]21193.125[/C][C]1.17849071361973[/C][C]1.01886214214342[/C][/ROW]
[ROW][C]29[/C][C]24090[/C][C]24114.9783958751[/C][C]21110[/C][C]1.14234857394008[/C][C]0.998964195801253[/C][/ROW]
[ROW][C]30[/C][C]27786[/C][C]27870.0287990758[/C][C]21055.75[/C][C]1.32363030521714[/C][C]0.996984976238036[/C][/ROW]
[ROW][C]31[/C][C]26195[/C][C]26181.5841287679[/C][C]21034.2083333333[/C][C]1.24471450096258[/C][C]1.00051241632921[/C][/ROW]
[ROW][C]32[/C][C]20516[/C][C]22452.3189039716[/C][C]21164.4166666667[/C][C]1.06085224353636[/C][C]0.91375862278399[/C][/ROW]
[ROW][C]33[/C][C]22759[/C][C]23717.4583391327[/C][C]21422.2083333333[/C][C]1.10714348259922[/C][C]0.959588488554387[/C][/ROW]
[ROW][C]34[/C][C]19028[/C][C]19855.1792907165[/C][C]21636.5[/C][C]0.917670570134565[/C][C]0.958339369360252[/C][/ROW]
[ROW][C]35[/C][C]16971[/C][C]17743.8857005705[/C][C]21803.5416666667[/C][C]0.8138074984257[/C][C]0.956442139359268[/C][/ROW]
[ROW][C]36[/C][C]20036[/C][C]18587.6575136484[/C][C]22169.3333333333[/C][C]0.838440075493852[/C][C]1.07791958106007[/C][/ROW]
[ROW][C]37[/C][C]22485[/C][C]22558.23447519[/C][C]22700.7916666667[/C][C]0.993720166522388[/C][C]0.996753536928141[/C][/ROW]
[ROW][C]38[/C][C]18730[/C][C]18641.5823911824[/C][C]23223.3333333333[/C][C]0.80270915994757[/C][C]1.00474303130293[/C][/ROW]
[ROW][C]39[/C][C]14538[/C][C]13711.8117326914[/C][C]23785.7083333333[/C][C]0.576472709600818[/C][C]1.06025376393834[/C][/ROW]
[ROW][C]40[/C][C]27561[/C][C]28480.9288025061[/C][C]24167.2916666667[/C][C]1.17849071361973[/C][C]0.967700182501593[/C][/ROW]
[ROW][C]41[/C][C]25985[/C][C]27936.5151585627[/C][C]24455.3333333333[/C][C]1.14234857394008[/C][C]0.930144645905682[/C][/ROW]
[ROW][C]42[/C][C]34670[/C][C]32596.9883753198[/C][C]24626.9583333333[/C][C]1.32363030521714[/C][C]1.06359518863558[/C][/ROW]
[ROW][C]43[/C][C]32066[/C][C]30721.3690924037[/C][C]24681.4583333333[/C][C]1.24471450096258[/C][C]1.04376858673036[/C][/ROW]
[ROW][C]44[/C][C]27186[/C][C]26423.0004471745[/C][C]24907.3333333333[/C][C]1.06085224353636[/C][C]1.02887634030628[/C][/ROW]
[ROW][C]45[/C][C]29586[/C][C]27819.5172041197[/C][C]25127.2916666667[/C][C]1.10714348259922[/C][C]1.06349796737733[/C][/ROW]
[ROW][C]46[/C][C]21359[/C][C]23110.7685833639[/C][C]25184.1666666667[/C][C]0.917670570134565[/C][C]0.924201197504747[/C][/ROW]
[ROW][C]47[/C][C]21553[/C][C]20564.1694950106[/C][C]25269.0833333333[/C][C]0.8138074984257[/C][C]1.04808511742861[/C][/ROW]
[ROW][C]48[/C][C]19573[/C][C]21225.2502511394[/C][C]25315.1666666667[/C][C]0.838440075493852[/C][C]0.922156383006568[/C][/ROW]
[ROW][C]49[/C][C]24256[/C][C]24947.8002356209[/C][C]25105.4583333333[/C][C]0.993720166522388[/C][C]0.972270090786076[/C][/ROW]
[ROW][C]50[/C][C]22380[/C][C]20077.5287396836[/C][C]25012.2083333333[/C][C]0.80270915994757[/C][C]1.11467901703288[/C][/ROW]
[ROW][C]51[/C][C]16167[/C][C]14361.4484370191[/C][C]24912.625[/C][C]0.576472709600818[/C][C]1.12572210741131[/C][/ROW]
[ROW][C]52[/C][C]27297[/C][C]29004.8661322695[/C][C]24611.875[/C][C]1.17849071361973[/C][C]0.941117944675862[/C][/ROW]
[ROW][C]53[/C][C]28287[/C][C]27897.151730619[/C][C]24420.875[/C][C]1.14234857394008[/C][C]1.01397448288433[/C][/ROW]
[ROW][C]54[/C][C]33474[/C][C]32430.1558055998[/C][C]24500.9166666667[/C][C]1.32363030521714[/C][C]1.03218745542444[/C][/ROW]
[ROW][C]55[/C][C]28229[/C][C]30607.5295786698[/C][C]24590[/C][C]1.24471450096258[/C][C]0.922289397040151[/C][/ROW]
[ROW][C]56[/C][C]28785[/C][C]NA[/C][C]NA[/C][C]1.06085224353636[/C][C]NA[/C][/ROW]
[ROW][C]57[/C][C]25597[/C][C]NA[/C][C]NA[/C][C]1.10714348259922[/C][C]NA[/C][/ROW]
[ROW][C]58[/C][C]18130[/C][C]NA[/C][C]NA[/C][C]0.917670570134565[/C][C]NA[/C][/ROW]
[ROW][C]59[/C][C]20198[/C][C]NA[/C][C]NA[/C][C]0.8138074984257[/C][C]NA[/C][/ROW]
[ROW][C]60[/C][C]22849[/C][C]NA[/C][C]NA[/C][C]0.838440075493852[/C][C]NA[/C][/ROW]
[ROW][C]61[/C][C]23118[/C][C]NA[/C][C]NA[/C][C]NA[/C][C]NA[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=147862&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=147862&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	20995	NA	NA	0.993720166522388	NA
2	17382	NA	NA	0.80270915994757	NA
3	9367	NA	NA	0.576472709600818	NA
4	31124	NA	NA	1.17849071361973	NA
5	26551	NA	NA	1.14234857394008	NA
6	30651	NA	NA	1.32363030521714	NA
7	25859	28444.5788177263	22852.2916666667	1.24471450096258	0.90910117410088
8	25100	24517.533009076	23111.1666666667	1.06085224353636	1.02375716148555
9	25778	25855.0756181612	23352.9583333333	1.10714348259922	0.997018936656793
10	20418	21576.1174999089	23511.8333333333	0.917670570134565	0.946324101177436
11	18688	19269.8086687645	23678.5833333333	0.8138074984257	0.969807242055933
12	20424	19955.3628867977	23800.5833333333	0.838440075493852	1.02348426915916
13	24776	23876.4870860959	24027.375	0.993720166522388	1.03767358701724
14	19814	19514.4617101954	24310.75	0.80270915994757	1.01534955430762
15	12738	14057.3110433122	24385.0416666667	0.576472709600818	0.906147695014556
16	31566	28778.9887454924	24420.2083333333	1.17849071361973	1.09684187582665
17	30111	27843.4613476438	24373.875	1.14234857394008	1.08143882055627
18	30019	32217.7131416124	24340.4166666667	1.32363030521714	0.931754524849483
19	31934	30184.7415531762	24250.3333333333	1.24471450096258	1.05795174504781
20	25826	25438.70637388	23979.5	1.06085224353636	1.01522458022935
21	26835	26296.3645579338	23751.5416666667	1.10714348259922	1.02048326645607
22	20205	21515.1306432687	23445.375	0.917670570134565	0.939106544831576
23	17789	18668.3710187821	22939.5416666667	0.8138074984257	0.95289513916895
24	20520	18945.0775308308	22595.625	0.838440075493852	1.08313095930097
25	22518	22123.6475223642	22263.4583333333	0.993720166522388	1.01782493041607
26	15572	17501.5347067669	21803.0833333333	0.80270915994757	0.889750542504092
27	11509	12343.4336579727	21412	0.576472709600818	0.932398578783323
28	25447	24975.9010050821	21193.125	1.17849071361973	1.01886214214342
29	24090	24114.9783958751	21110	1.14234857394008	0.998964195801253
30	27786	27870.0287990758	21055.75	1.32363030521714	0.996984976238036
31	26195	26181.5841287679	21034.2083333333	1.24471450096258	1.00051241632921
32	20516	22452.3189039716	21164.4166666667	1.06085224353636	0.91375862278399
33	22759	23717.4583391327	21422.2083333333	1.10714348259922	0.959588488554387
34	19028	19855.1792907165	21636.5	0.917670570134565	0.958339369360252
35	16971	17743.8857005705	21803.5416666667	0.8138074984257	0.956442139359268
36	20036	18587.6575136484	22169.3333333333	0.838440075493852	1.07791958106007
37	22485	22558.23447519	22700.7916666667	0.993720166522388	0.996753536928141
38	18730	18641.5823911824	23223.3333333333	0.80270915994757	1.00474303130293
39	14538	13711.8117326914	23785.7083333333	0.576472709600818	1.06025376393834
40	27561	28480.9288025061	24167.2916666667	1.17849071361973	0.967700182501593
41	25985	27936.5151585627	24455.3333333333	1.14234857394008	0.930144645905682
42	34670	32596.9883753198	24626.9583333333	1.32363030521714	1.06359518863558
43	32066	30721.3690924037	24681.4583333333	1.24471450096258	1.04376858673036
44	27186	26423.0004471745	24907.3333333333	1.06085224353636	1.02887634030628
45	29586	27819.5172041197	25127.2916666667	1.10714348259922	1.06349796737733
46	21359	23110.7685833639	25184.1666666667	0.917670570134565	0.924201197504747
47	21553	20564.1694950106	25269.0833333333	0.8138074984257	1.04808511742861
48	19573	21225.2502511394	25315.1666666667	0.838440075493852	0.922156383006568
49	24256	24947.8002356209	25105.4583333333	0.993720166522388	0.972270090786076
50	22380	20077.5287396836	25012.2083333333	0.80270915994757	1.11467901703288
51	16167	14361.4484370191	24912.625	0.576472709600818	1.12572210741131
52	27297	29004.8661322695	24611.875	1.17849071361973	0.941117944675862
53	28287	27897.151730619	24420.875	1.14234857394008	1.01397448288433
54	33474	32430.1558055998	24500.9166666667	1.32363030521714	1.03218745542444
55	28229	30607.5295786698	24590	1.24471450096258	0.922289397040151
56	28785	NA	NA	1.06085224353636	NA
57	25597	NA	NA	1.10714348259922	NA
58	18130	NA	NA	0.917670570134565	NA
59	20198	NA	NA	0.8138074984257	NA
60	22849	NA	NA	0.838440075493852	NA
61	23118	NA	NA	NA	NA

Figure 1

PNG link

Postscript link

PDF link

Figure 2

PNG link

Postscript link

PDF link

Figure 3

PNG link

Postscript link

PDF link

Figure 4

PNG link

Postscript link

PDF link

Parameters (Session):

par1 = multiplicative ; par2 = 12 ;

Parameters (R input):

par1 = multiplicative ; par2 = 12 ;

R code (references can be found in the software module):

par2 <- as.numeric(par2)
x <- ts(x,freq=par2)
m <- decompose(x,type=par1)
m$figure
bitmap(file='test1.png')
plot(m)
dev.off()
mylagmax <- length(x)/2
bitmap(file='test2.png')
op <- par(mfrow = c(2,2))
acf(as.numeric(x),lag.max = mylagmax,main='Observed')
acf(as.numeric(m$trend),na.action=na.pass,lag.max = mylagmax,main='Trend')
acf(as.numeric(m$seasonal),na.action=na.pass,lag.max = mylagmax,main='Seasonal')
acf(as.numeric(m$random),na.action=na.pass,lag.max = mylagmax,main='Random')
par(op)
dev.off()
bitmap(file='test3.png')
op <- par(mfrow = c(2,2))
spectrum(as.numeric(x),main='Observed')
spectrum(as.numeric(m$trend[!is.na(m$trend)]),main='Trend')
spectrum(as.numeric(m$seasonal[!is.na(m$seasonal)]),main='Seasonal')
spectrum(as.numeric(m$random[!is.na(m$random)]),main='Random')
par(op)
dev.off()
bitmap(file='test4.png')
op <- par(mfrow = c(2,2))
cpgram(as.numeric(x),main='Observed')
cpgram(as.numeric(m$trend[!is.na(m$trend)]),main='Trend')
cpgram(as.numeric(m$seasonal[!is.na(m$seasonal)]),main='Seasonal')
cpgram(as.numeric(m$random[!is.na(m$random)]),main='Random')
par(op)
dev.off()
load(file='createtable')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Classical Decomposition by Moving Averages',6,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'t',header=TRUE)
a<-table.element(a,'Observations',header=TRUE)
a<-table.element(a,'Fit',header=TRUE)
a<-table.element(a,'Trend',header=TRUE)
a<-table.element(a,'Seasonal',header=TRUE)
a<-table.element(a,'Random',header=TRUE)
a<-table.row.end(a)
for (i in 1:length(m$trend)) {
a<-table.row.start(a)
a<-table.element(a,i,header=TRUE)
a<-table.element(a,x[i])
if (par1 == 'additive') a<-table.element(a,m$trend[i]+m$seasonal[i]) else a<-table.element(a,m$trend[i]*m$seasonal[i])
a<-table.element(a,m$trend[i])
a<-table.element(a,m$seasonal[i])
a<-table.element(a,m$random[i])
a<-table.row.end(a)
}
a<-table.end(a)
table.save(a,file='mytable.tab')

Free Statistics

Description of Statistical Computation

Tree of Dependent Computations

Dataset

Tables (Output of Computation)

Figures (Output of Computation)

Input Parameters & R Code