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 09:43:30 -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/t1322491418i37ns175c8nc4pt.htm/, Retrieved Wed, 11 Feb 2026 19:13:46 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=147772, Retrieved Wed, 11 Feb 2026 19:13:46 +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

406

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

-       [Classical Decomposition] [] [2011-11-28 14:43:30] [c092f3a3bdd85c7279ddab6c8c6c9261] [Current]
- RMP     [Decomposition by Loess] [] [2011-11-28 15:06:47] [b4c8fd31b0af00c33711722ddf8d2c4c] 
- R         [Decomposition by Loess] [] [2011-12-09 20:59:29] [b4c8fd31b0af00c33711722ddf8d2c4c] 
- RMP     [Structural Time Series Models] [] [2011-11-28 15:23:01] [b4c8fd31b0af00c33711722ddf8d2c4c] 
- RM        [Structural Time Series Models] [] [2011-12-09 21:13:09] [b4c8fd31b0af00c33711722ddf8d2c4c] 
- R         [Structural Time Series Models] [] [2011-12-09 21:23:01] [b4c8fd31b0af00c33711722ddf8d2c4c] 
- RMP     [Exponential Smoothing] [] [2011-11-28 16:10:21] [b4c8fd31b0af00c33711722ddf8d2c4c] 
- R       [Classical Decomposition] [] [2011-12-05 17:23:08] [b4c8fd31b0af00c33711722ddf8d2c4c] 

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

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

Classical Decomposition by Moving Averages
t	Observations	Fit	Trend	Seasonal	Random
1	579	NA	NA	3.86631944444445	NA
2	572	NA	NA	-3.28993055555558	NA
3	560	NA	NA	-15.8836805555556	NA
4	551	NA	NA	-23.7065972222222	NA
5	537	NA	NA	-33.4670138888889	NA
6	541	NA	NA	-36.2690972222222	NA
7	588	586.137152777778	569.333333333333	16.8038194444445	1.86284722222229
8	607	614.470486111111	567.833333333333	46.6371527777778	-7.4704861111112
9	599	599.470486111111	566.25	33.2204861111111	-0.470486111111086
10	578	578.137152777778	564.375	13.7621527777778	-0.137152777777715
11	563	559.980902777778	562.291666666667	-2.31076388888888	3.01909722222229
12	566	560.387152777778	559.75	0.637152777777733	5.61284722222229
13	561	560.699652777778	556.833333333333	3.86631944444445	0.300347222222172
14	554	551.168402777778	554.458333333333	-3.28993055555558	2.83159722222217
15	540	536.366319444444	552.25	-15.8836805555556	3.63368055555554
16	526	525.710069444445	549.416666666667	-23.7065972222222	0.289930555555429
17	512	512.657986111111	546.125	-33.4670138888889	-0.657986111111086
18	505	506.480902777778	542.75	-36.2690972222222	-1.48090277777783
19	554	556.470486111111	539.666666666667	16.8038194444445	-2.47048611111109
20	584	583.303819444444	536.666666666667	46.6371527777778	0.696180555555543
21	569	566.762152777778	533.541666666667	33.2204861111111	2.23784722222229
22	540	544.220486111111	530.458333333333	13.7621527777778	-4.22048611111109
23	522	525.230902777778	527.541666666667	-2.31076388888888	-3.23090277777783
24	526	525.553819444444	524.916666666667	0.637152777777733	0.446180555555543
25	527	526.282986111111	522.416666666667	3.86631944444445	0.717013888888914
26	516	516.543402777778	519.833333333333	-3.28993055555558	-0.543402777777828
27	503	501.074652777778	516.958333333333	-15.8836805555556	1.92534722222229
28	489	490.501736111111	514.208333333333	-23.7065972222222	-1.50173611111109
29	479	478.282986111111	511.75	-33.4670138888889	0.717013888888914
30	475	472.814236111111	509.083333333333	-36.2690972222222	2.18576388888886
31	524	523.053819444444	506.25	16.8038194444445	0.946180555555486
32	552	550.012152777778	503.375	46.6371527777778	1.98784722222223
33	532	533.428819444444	500.208333333333	33.2204861111111	-1.42881944444446
34	511	510.928819444444	497.166666666667	13.7621527777778	0.0711805555555429
35	492	491.980902777778	494.291666666667	-2.31076388888888	0.0190972222222854
36	492	491.887152777778	491.25	0.637152777777733	0.112847222222285
37	493	492.116319444444	488.25	3.86631944444445	0.8836805555556
38	481	482.168402777778	485.458333333333	-3.28993055555558	-1.16840277777771
39	462	466.991319444444	482.875	-15.8836805555556	-4.9913194444444
40	457	456.793402777778	480.5	-23.7065972222222	0.206597222222229
41	442	444.782986111111	478.25	-33.4670138888889	-2.78298611111109
42	439	439.480902777778	475.75	-36.2690972222222	-0.480902777777658
43	488	490.137152777778	473.333333333333	16.8038194444445	-2.13715277777777
44	521	518.012152777778	471.375	46.6371527777778	2.98784722222229
45	501	503.137152777778	469.916666666667	33.2204861111111	-2.13715277777777
46	485	482.512152777778	468.75	13.7621527777778	2.48784722222223
47	464	465.605902777778	467.916666666667	-2.31076388888888	-1.60590277777783
48	460	467.970486111111	467.333333333333	0.637152777777733	-7.97048611111114
49	467	470.699652777778	466.833333333333	3.86631944444445	-3.69965277777783
50	460	462.918402777778	466.208333333333	-3.28993055555558	-2.91840277777777
51	448	450.366319444444	466.25	-15.8836805555556	-2.36631944444446
52	443	443.793402777778	467.5	-23.7065972222222	-0.793402777777715
53	436	435.074652777778	468.541666666667	-33.4670138888889	0.925347222222229
54	431	433.022569444444	469.291666666667	-36.2690972222222	-2.02256944444446
55	484	NA	NA	16.8038194444445	NA
56	510	NA	NA	46.6371527777778	NA
57	513	NA	NA	33.2204861111111	NA
58	503	NA	NA	13.7621527777778	NA
59	471	NA	NA	-2.31076388888888	NA
60	471	NA	NA	0.637152777777733	NA

\begin{tabular}{lllllllll}
\hline
Classical Decomposition by Moving Averages \tabularnewline
t & Observations & Fit & Trend & Seasonal & Random \tabularnewline
1 & 579 & NA & NA & 3.86631944444445 & NA \tabularnewline
2 & 572 & NA & NA & -3.28993055555558 & NA \tabularnewline
3 & 560 & NA & NA & -15.8836805555556 & NA \tabularnewline
4 & 551 & NA & NA & -23.7065972222222 & NA \tabularnewline
5 & 537 & NA & NA & -33.4670138888889 & NA \tabularnewline
6 & 541 & NA & NA & -36.2690972222222 & NA \tabularnewline
7 & 588 & 586.137152777778 & 569.333333333333 & 16.8038194444445 & 1.86284722222229 \tabularnewline
8 & 607 & 614.470486111111 & 567.833333333333 & 46.6371527777778 & -7.4704861111112 \tabularnewline
9 & 599 & 599.470486111111 & 566.25 & 33.2204861111111 & -0.470486111111086 \tabularnewline
10 & 578 & 578.137152777778 & 564.375 & 13.7621527777778 & -0.137152777777715 \tabularnewline
11 & 563 & 559.980902777778 & 562.291666666667 & -2.31076388888888 & 3.01909722222229 \tabularnewline
12 & 566 & 560.387152777778 & 559.75 & 0.637152777777733 & 5.61284722222229 \tabularnewline
13 & 561 & 560.699652777778 & 556.833333333333 & 3.86631944444445 & 0.300347222222172 \tabularnewline
14 & 554 & 551.168402777778 & 554.458333333333 & -3.28993055555558 & 2.83159722222217 \tabularnewline
15 & 540 & 536.366319444444 & 552.25 & -15.8836805555556 & 3.63368055555554 \tabularnewline
16 & 526 & 525.710069444445 & 549.416666666667 & -23.7065972222222 & 0.289930555555429 \tabularnewline
17 & 512 & 512.657986111111 & 546.125 & -33.4670138888889 & -0.657986111111086 \tabularnewline
18 & 505 & 506.480902777778 & 542.75 & -36.2690972222222 & -1.48090277777783 \tabularnewline
19 & 554 & 556.470486111111 & 539.666666666667 & 16.8038194444445 & -2.47048611111109 \tabularnewline
20 & 584 & 583.303819444444 & 536.666666666667 & 46.6371527777778 & 0.696180555555543 \tabularnewline
21 & 569 & 566.762152777778 & 533.541666666667 & 33.2204861111111 & 2.23784722222229 \tabularnewline
22 & 540 & 544.220486111111 & 530.458333333333 & 13.7621527777778 & -4.22048611111109 \tabularnewline
23 & 522 & 525.230902777778 & 527.541666666667 & -2.31076388888888 & -3.23090277777783 \tabularnewline
24 & 526 & 525.553819444444 & 524.916666666667 & 0.637152777777733 & 0.446180555555543 \tabularnewline
25 & 527 & 526.282986111111 & 522.416666666667 & 3.86631944444445 & 0.717013888888914 \tabularnewline
26 & 516 & 516.543402777778 & 519.833333333333 & -3.28993055555558 & -0.543402777777828 \tabularnewline
27 & 503 & 501.074652777778 & 516.958333333333 & -15.8836805555556 & 1.92534722222229 \tabularnewline
28 & 489 & 490.501736111111 & 514.208333333333 & -23.7065972222222 & -1.50173611111109 \tabularnewline
29 & 479 & 478.282986111111 & 511.75 & -33.4670138888889 & 0.717013888888914 \tabularnewline
30 & 475 & 472.814236111111 & 509.083333333333 & -36.2690972222222 & 2.18576388888886 \tabularnewline
31 & 524 & 523.053819444444 & 506.25 & 16.8038194444445 & 0.946180555555486 \tabularnewline
32 & 552 & 550.012152777778 & 503.375 & 46.6371527777778 & 1.98784722222223 \tabularnewline
33 & 532 & 533.428819444444 & 500.208333333333 & 33.2204861111111 & -1.42881944444446 \tabularnewline
34 & 511 & 510.928819444444 & 497.166666666667 & 13.7621527777778 & 0.0711805555555429 \tabularnewline
35 & 492 & 491.980902777778 & 494.291666666667 & -2.31076388888888 & 0.0190972222222854 \tabularnewline
36 & 492 & 491.887152777778 & 491.25 & 0.637152777777733 & 0.112847222222285 \tabularnewline
37 & 493 & 492.116319444444 & 488.25 & 3.86631944444445 & 0.8836805555556 \tabularnewline
38 & 481 & 482.168402777778 & 485.458333333333 & -3.28993055555558 & -1.16840277777771 \tabularnewline
39 & 462 & 466.991319444444 & 482.875 & -15.8836805555556 & -4.9913194444444 \tabularnewline
40 & 457 & 456.793402777778 & 480.5 & -23.7065972222222 & 0.206597222222229 \tabularnewline
41 & 442 & 444.782986111111 & 478.25 & -33.4670138888889 & -2.78298611111109 \tabularnewline
42 & 439 & 439.480902777778 & 475.75 & -36.2690972222222 & -0.480902777777658 \tabularnewline
43 & 488 & 490.137152777778 & 473.333333333333 & 16.8038194444445 & -2.13715277777777 \tabularnewline
44 & 521 & 518.012152777778 & 471.375 & 46.6371527777778 & 2.98784722222229 \tabularnewline
45 & 501 & 503.137152777778 & 469.916666666667 & 33.2204861111111 & -2.13715277777777 \tabularnewline
46 & 485 & 482.512152777778 & 468.75 & 13.7621527777778 & 2.48784722222223 \tabularnewline
47 & 464 & 465.605902777778 & 467.916666666667 & -2.31076388888888 & -1.60590277777783 \tabularnewline
48 & 460 & 467.970486111111 & 467.333333333333 & 0.637152777777733 & -7.97048611111114 \tabularnewline
49 & 467 & 470.699652777778 & 466.833333333333 & 3.86631944444445 & -3.69965277777783 \tabularnewline
50 & 460 & 462.918402777778 & 466.208333333333 & -3.28993055555558 & -2.91840277777777 \tabularnewline
51 & 448 & 450.366319444444 & 466.25 & -15.8836805555556 & -2.36631944444446 \tabularnewline
52 & 443 & 443.793402777778 & 467.5 & -23.7065972222222 & -0.793402777777715 \tabularnewline
53 & 436 & 435.074652777778 & 468.541666666667 & -33.4670138888889 & 0.925347222222229 \tabularnewline
54 & 431 & 433.022569444444 & 469.291666666667 & -36.2690972222222 & -2.02256944444446 \tabularnewline
55 & 484 & NA & NA & 16.8038194444445 & NA \tabularnewline
56 & 510 & NA & NA & 46.6371527777778 & NA \tabularnewline
57 & 513 & NA & NA & 33.2204861111111 & NA \tabularnewline
58 & 503 & NA & NA & 13.7621527777778 & NA \tabularnewline
59 & 471 & NA & NA & -2.31076388888888 & NA \tabularnewline
60 & 471 & NA & NA & 0.637152777777733 & NA \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=147772&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]579[/C][C]NA[/C][C]NA[/C][C]3.86631944444445[/C][C]NA[/C][/ROW]
[ROW][C]2[/C][C]572[/C][C]NA[/C][C]NA[/C][C]-3.28993055555558[/C][C]NA[/C][/ROW]
[ROW][C]3[/C][C]560[/C][C]NA[/C][C]NA[/C][C]-15.8836805555556[/C][C]NA[/C][/ROW]
[ROW][C]4[/C][C]551[/C][C]NA[/C][C]NA[/C][C]-23.7065972222222[/C][C]NA[/C][/ROW]
[ROW][C]5[/C][C]537[/C][C]NA[/C][C]NA[/C][C]-33.4670138888889[/C][C]NA[/C][/ROW]
[ROW][C]6[/C][C]541[/C][C]NA[/C][C]NA[/C][C]-36.2690972222222[/C][C]NA[/C][/ROW]
[ROW][C]7[/C][C]588[/C][C]586.137152777778[/C][C]569.333333333333[/C][C]16.8038194444445[/C][C]1.86284722222229[/C][/ROW]
[ROW][C]8[/C][C]607[/C][C]614.470486111111[/C][C]567.833333333333[/C][C]46.6371527777778[/C][C]-7.4704861111112[/C][/ROW]
[ROW][C]9[/C][C]599[/C][C]599.470486111111[/C][C]566.25[/C][C]33.2204861111111[/C][C]-0.470486111111086[/C][/ROW]
[ROW][C]10[/C][C]578[/C][C]578.137152777778[/C][C]564.375[/C][C]13.7621527777778[/C][C]-0.137152777777715[/C][/ROW]
[ROW][C]11[/C][C]563[/C][C]559.980902777778[/C][C]562.291666666667[/C][C]-2.31076388888888[/C][C]3.01909722222229[/C][/ROW]
[ROW][C]12[/C][C]566[/C][C]560.387152777778[/C][C]559.75[/C][C]0.637152777777733[/C][C]5.61284722222229[/C][/ROW]
[ROW][C]13[/C][C]561[/C][C]560.699652777778[/C][C]556.833333333333[/C][C]3.86631944444445[/C][C]0.300347222222172[/C][/ROW]
[ROW][C]14[/C][C]554[/C][C]551.168402777778[/C][C]554.458333333333[/C][C]-3.28993055555558[/C][C]2.83159722222217[/C][/ROW]
[ROW][C]15[/C][C]540[/C][C]536.366319444444[/C][C]552.25[/C][C]-15.8836805555556[/C][C]3.63368055555554[/C][/ROW]
[ROW][C]16[/C][C]526[/C][C]525.710069444445[/C][C]549.416666666667[/C][C]-23.7065972222222[/C][C]0.289930555555429[/C][/ROW]
[ROW][C]17[/C][C]512[/C][C]512.657986111111[/C][C]546.125[/C][C]-33.4670138888889[/C][C]-0.657986111111086[/C][/ROW]
[ROW][C]18[/C][C]505[/C][C]506.480902777778[/C][C]542.75[/C][C]-36.2690972222222[/C][C]-1.48090277777783[/C][/ROW]
[ROW][C]19[/C][C]554[/C][C]556.470486111111[/C][C]539.666666666667[/C][C]16.8038194444445[/C][C]-2.47048611111109[/C][/ROW]
[ROW][C]20[/C][C]584[/C][C]583.303819444444[/C][C]536.666666666667[/C][C]46.6371527777778[/C][C]0.696180555555543[/C][/ROW]
[ROW][C]21[/C][C]569[/C][C]566.762152777778[/C][C]533.541666666667[/C][C]33.2204861111111[/C][C]2.23784722222229[/C][/ROW]
[ROW][C]22[/C][C]540[/C][C]544.220486111111[/C][C]530.458333333333[/C][C]13.7621527777778[/C][C]-4.22048611111109[/C][/ROW]
[ROW][C]23[/C][C]522[/C][C]525.230902777778[/C][C]527.541666666667[/C][C]-2.31076388888888[/C][C]-3.23090277777783[/C][/ROW]
[ROW][C]24[/C][C]526[/C][C]525.553819444444[/C][C]524.916666666667[/C][C]0.637152777777733[/C][C]0.446180555555543[/C][/ROW]
[ROW][C]25[/C][C]527[/C][C]526.282986111111[/C][C]522.416666666667[/C][C]3.86631944444445[/C][C]0.717013888888914[/C][/ROW]
[ROW][C]26[/C][C]516[/C][C]516.543402777778[/C][C]519.833333333333[/C][C]-3.28993055555558[/C][C]-0.543402777777828[/C][/ROW]
[ROW][C]27[/C][C]503[/C][C]501.074652777778[/C][C]516.958333333333[/C][C]-15.8836805555556[/C][C]1.92534722222229[/C][/ROW]
[ROW][C]28[/C][C]489[/C][C]490.501736111111[/C][C]514.208333333333[/C][C]-23.7065972222222[/C][C]-1.50173611111109[/C][/ROW]
[ROW][C]29[/C][C]479[/C][C]478.282986111111[/C][C]511.75[/C][C]-33.4670138888889[/C][C]0.717013888888914[/C][/ROW]
[ROW][C]30[/C][C]475[/C][C]472.814236111111[/C][C]509.083333333333[/C][C]-36.2690972222222[/C][C]2.18576388888886[/C][/ROW]
[ROW][C]31[/C][C]524[/C][C]523.053819444444[/C][C]506.25[/C][C]16.8038194444445[/C][C]0.946180555555486[/C][/ROW]
[ROW][C]32[/C][C]552[/C][C]550.012152777778[/C][C]503.375[/C][C]46.6371527777778[/C][C]1.98784722222223[/C][/ROW]
[ROW][C]33[/C][C]532[/C][C]533.428819444444[/C][C]500.208333333333[/C][C]33.2204861111111[/C][C]-1.42881944444446[/C][/ROW]
[ROW][C]34[/C][C]511[/C][C]510.928819444444[/C][C]497.166666666667[/C][C]13.7621527777778[/C][C]0.0711805555555429[/C][/ROW]
[ROW][C]35[/C][C]492[/C][C]491.980902777778[/C][C]494.291666666667[/C][C]-2.31076388888888[/C][C]0.0190972222222854[/C][/ROW]
[ROW][C]36[/C][C]492[/C][C]491.887152777778[/C][C]491.25[/C][C]0.637152777777733[/C][C]0.112847222222285[/C][/ROW]
[ROW][C]37[/C][C]493[/C][C]492.116319444444[/C][C]488.25[/C][C]3.86631944444445[/C][C]0.8836805555556[/C][/ROW]
[ROW][C]38[/C][C]481[/C][C]482.168402777778[/C][C]485.458333333333[/C][C]-3.28993055555558[/C][C]-1.16840277777771[/C][/ROW]
[ROW][C]39[/C][C]462[/C][C]466.991319444444[/C][C]482.875[/C][C]-15.8836805555556[/C][C]-4.9913194444444[/C][/ROW]
[ROW][C]40[/C][C]457[/C][C]456.793402777778[/C][C]480.5[/C][C]-23.7065972222222[/C][C]0.206597222222229[/C][/ROW]
[ROW][C]41[/C][C]442[/C][C]444.782986111111[/C][C]478.25[/C][C]-33.4670138888889[/C][C]-2.78298611111109[/C][/ROW]
[ROW][C]42[/C][C]439[/C][C]439.480902777778[/C][C]475.75[/C][C]-36.2690972222222[/C][C]-0.480902777777658[/C][/ROW]
[ROW][C]43[/C][C]488[/C][C]490.137152777778[/C][C]473.333333333333[/C][C]16.8038194444445[/C][C]-2.13715277777777[/C][/ROW]
[ROW][C]44[/C][C]521[/C][C]518.012152777778[/C][C]471.375[/C][C]46.6371527777778[/C][C]2.98784722222229[/C][/ROW]
[ROW][C]45[/C][C]501[/C][C]503.137152777778[/C][C]469.916666666667[/C][C]33.2204861111111[/C][C]-2.13715277777777[/C][/ROW]
[ROW][C]46[/C][C]485[/C][C]482.512152777778[/C][C]468.75[/C][C]13.7621527777778[/C][C]2.48784722222223[/C][/ROW]
[ROW][C]47[/C][C]464[/C][C]465.605902777778[/C][C]467.916666666667[/C][C]-2.31076388888888[/C][C]-1.60590277777783[/C][/ROW]
[ROW][C]48[/C][C]460[/C][C]467.970486111111[/C][C]467.333333333333[/C][C]0.637152777777733[/C][C]-7.97048611111114[/C][/ROW]
[ROW][C]49[/C][C]467[/C][C]470.699652777778[/C][C]466.833333333333[/C][C]3.86631944444445[/C][C]-3.69965277777783[/C][/ROW]
[ROW][C]50[/C][C]460[/C][C]462.918402777778[/C][C]466.208333333333[/C][C]-3.28993055555558[/C][C]-2.91840277777777[/C][/ROW]
[ROW][C]51[/C][C]448[/C][C]450.366319444444[/C][C]466.25[/C][C]-15.8836805555556[/C][C]-2.36631944444446[/C][/ROW]
[ROW][C]52[/C][C]443[/C][C]443.793402777778[/C][C]467.5[/C][C]-23.7065972222222[/C][C]-0.793402777777715[/C][/ROW]
[ROW][C]53[/C][C]436[/C][C]435.074652777778[/C][C]468.541666666667[/C][C]-33.4670138888889[/C][C]0.925347222222229[/C][/ROW]
[ROW][C]54[/C][C]431[/C][C]433.022569444444[/C][C]469.291666666667[/C][C]-36.2690972222222[/C][C]-2.02256944444446[/C][/ROW]
[ROW][C]55[/C][C]484[/C][C]NA[/C][C]NA[/C][C]16.8038194444445[/C][C]NA[/C][/ROW]
[ROW][C]56[/C][C]510[/C][C]NA[/C][C]NA[/C][C]46.6371527777778[/C][C]NA[/C][/ROW]
[ROW][C]57[/C][C]513[/C][C]NA[/C][C]NA[/C][C]33.2204861111111[/C][C]NA[/C][/ROW]
[ROW][C]58[/C][C]503[/C][C]NA[/C][C]NA[/C][C]13.7621527777778[/C][C]NA[/C][/ROW]
[ROW][C]59[/C][C]471[/C][C]NA[/C][C]NA[/C][C]-2.31076388888888[/C][C]NA[/C][/ROW]
[ROW][C]60[/C][C]471[/C][C]NA[/C][C]NA[/C][C]0.637152777777733[/C][C]NA[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=147772&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=147772&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	579	NA	NA	3.86631944444445	NA
2	572	NA	NA	-3.28993055555558	NA
3	560	NA	NA	-15.8836805555556	NA
4	551	NA	NA	-23.7065972222222	NA
5	537	NA	NA	-33.4670138888889	NA
6	541	NA	NA	-36.2690972222222	NA
7	588	586.137152777778	569.333333333333	16.8038194444445	1.86284722222229
8	607	614.470486111111	567.833333333333	46.6371527777778	-7.4704861111112
9	599	599.470486111111	566.25	33.2204861111111	-0.470486111111086
10	578	578.137152777778	564.375	13.7621527777778	-0.137152777777715
11	563	559.980902777778	562.291666666667	-2.31076388888888	3.01909722222229
12	566	560.387152777778	559.75	0.637152777777733	5.61284722222229
13	561	560.699652777778	556.833333333333	3.86631944444445	0.300347222222172
14	554	551.168402777778	554.458333333333	-3.28993055555558	2.83159722222217
15	540	536.366319444444	552.25	-15.8836805555556	3.63368055555554
16	526	525.710069444445	549.416666666667	-23.7065972222222	0.289930555555429
17	512	512.657986111111	546.125	-33.4670138888889	-0.657986111111086
18	505	506.480902777778	542.75	-36.2690972222222	-1.48090277777783
19	554	556.470486111111	539.666666666667	16.8038194444445	-2.47048611111109
20	584	583.303819444444	536.666666666667	46.6371527777778	0.696180555555543
21	569	566.762152777778	533.541666666667	33.2204861111111	2.23784722222229
22	540	544.220486111111	530.458333333333	13.7621527777778	-4.22048611111109
23	522	525.230902777778	527.541666666667	-2.31076388888888	-3.23090277777783
24	526	525.553819444444	524.916666666667	0.637152777777733	0.446180555555543
25	527	526.282986111111	522.416666666667	3.86631944444445	0.717013888888914
26	516	516.543402777778	519.833333333333	-3.28993055555558	-0.543402777777828
27	503	501.074652777778	516.958333333333	-15.8836805555556	1.92534722222229
28	489	490.501736111111	514.208333333333	-23.7065972222222	-1.50173611111109
29	479	478.282986111111	511.75	-33.4670138888889	0.717013888888914
30	475	472.814236111111	509.083333333333	-36.2690972222222	2.18576388888886
31	524	523.053819444444	506.25	16.8038194444445	0.946180555555486
32	552	550.012152777778	503.375	46.6371527777778	1.98784722222223
33	532	533.428819444444	500.208333333333	33.2204861111111	-1.42881944444446
34	511	510.928819444444	497.166666666667	13.7621527777778	0.0711805555555429
35	492	491.980902777778	494.291666666667	-2.31076388888888	0.0190972222222854
36	492	491.887152777778	491.25	0.637152777777733	0.112847222222285
37	493	492.116319444444	488.25	3.86631944444445	0.8836805555556
38	481	482.168402777778	485.458333333333	-3.28993055555558	-1.16840277777771
39	462	466.991319444444	482.875	-15.8836805555556	-4.9913194444444
40	457	456.793402777778	480.5	-23.7065972222222	0.206597222222229
41	442	444.782986111111	478.25	-33.4670138888889	-2.78298611111109
42	439	439.480902777778	475.75	-36.2690972222222	-0.480902777777658
43	488	490.137152777778	473.333333333333	16.8038194444445	-2.13715277777777
44	521	518.012152777778	471.375	46.6371527777778	2.98784722222229
45	501	503.137152777778	469.916666666667	33.2204861111111	-2.13715277777777
46	485	482.512152777778	468.75	13.7621527777778	2.48784722222223
47	464	465.605902777778	467.916666666667	-2.31076388888888	-1.60590277777783
48	460	467.970486111111	467.333333333333	0.637152777777733	-7.97048611111114
49	467	470.699652777778	466.833333333333	3.86631944444445	-3.69965277777783
50	460	462.918402777778	466.208333333333	-3.28993055555558	-2.91840277777777
51	448	450.366319444444	466.25	-15.8836805555556	-2.36631944444446
52	443	443.793402777778	467.5	-23.7065972222222	-0.793402777777715
53	436	435.074652777778	468.541666666667	-33.4670138888889	0.925347222222229
54	431	433.022569444444	469.291666666667	-36.2690972222222	-2.02256944444446
55	484	NA	NA	16.8038194444445	NA
56	510	NA	NA	46.6371527777778	NA
57	513	NA	NA	33.2204861111111	NA
58	503	NA	NA	13.7621527777778	NA
59	471	NA	NA	-2.31076388888888	NA
60	471	NA	NA	0.637152777777733	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