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

Tue, 08 May 2012 14:21:26 -0400

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/2012/May/08/t1336501772cnlol6g23wx3ofd.htm/, Retrieved Wed, 01 May 2024 20:31:55 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=166344, Retrieved Wed, 01 May 2024 20:31:55 +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

155

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

-       [Classical Decomposition] [Buitenlandse hand...] [2012-05-08 18:21:26] [675223405f94cd8491f4a89fc80aa26c] [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	'Gertrude Mary Cox' @ cox.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 & 'Gertrude Mary Cox' @ cox.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=166344&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]'Gertrude Mary Cox' @ cox.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=166344&T=0

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

Classical Decomposition by Moving Averages
t	Observations	Fit	Trend	Seasonal	Random
1	219.2	NA	NA	2.91085069444444	NA
2	232.5	NA	NA	25.4441840277778	NA
3	235.6	NA	NA	19.9754340277778	NA
4	171	NA	NA	-31.9412326388889	NA
5	165.9	NA	NA	-55.4672743055556	NA
6	187.6	NA	NA	-33.2297743055556	NA
7	218.2	230.604600694444	212.4375	18.1671006944444	-12.4046006944444
8	249.8	244.440017361111	213.745833333333	30.6941840277778	5.35998263888891
9	256.5	251.691059027778	216.05	35.6410590277778	4.80894097222225
10	224.9	240.174392361111	218.5875	21.5868923611111	-15.2743923611111
11	200	197.600434027778	220.45	-22.8495659722222	2.39956597222223
12	182.5	210.922309027778	221.854166666667	-10.9318576388889	-28.4223090277778
13	230.3	227.052517361111	224.141666666667	2.91085069444444	3.24748263888893
14	252.8	252.640017361111	227.195833333333	25.4441840277778	0.15998263888892
15	270.6	249.058767361111	229.083333333333	19.9754340277778	21.5412326388889
16	196.9	200.096267361111	232.0375	-31.9412326388889	-3.1962673611111
17	184.7	180.320225694444	235.7875	-55.4672743055556	4.37977430555554
18	202.5	205.086892361111	238.316666666667	-33.2297743055556	-2.58689236111107
19	258.2	258.058767361111	239.891666666667	18.1671006944444	0.14123263888888
20	283.1	271.344184027778	240.65	30.6941840277778	11.7558159722223
21	268.5	275.661892361111	240.020833333333	35.6410590277778	-7.16189236111106
22	283.8	260.616059027778	239.029166666667	21.5868923611111	23.1839409722223
23	231.1	215.504600694444	238.354166666667	-22.8495659722222	15.5953993055556
24	212.1	225.930642361111	236.8625	-10.9318576388889	-13.8306423611111
25	238.5	238.873350694444	235.9625	2.91085069444444	-0.37335069444444
26	262.8	259.740017361111	234.295833333333	25.4441840277778	3.05998263888893
27	245.5	252.575434027778	232.6	19.9754340277778	-7.07543402777776
28	198.2	198.767100694444	230.708333333333	-31.9412326388889	-0.567100694444434
29	167.2	171.666059027778	227.133333333333	-55.4672743055556	-4.46605902777776
30	184.2	193.828559027778	227.058333333333	-33.2297743055556	-9.62855902777775
31	254.9	246.650434027778	228.483333333333	18.1671006944444	8.24956597222223
32	246.4	258.444184027778	227.75	30.6941840277778	-12.0441840277778
33	264.5	262.278559027778	226.6375	35.6410590277778	2.22144097222224
34	242.4	246.895225694444	225.308333333333	21.5868923611111	-4.49522569444446
35	186.7	201.142100694444	223.991666666667	-22.8495659722222	-14.4421006944444
36	254.7	212.105642361111	223.0375	-10.9318576388889	42.5943576388889
37	230.1	224.606684027778	221.695833333333	2.91085069444444	5.49331597222226
38	253.6	245.298350694444	219.854166666667	25.4441840277778	8.30164930555557
39	228	237.933767361111	217.958333333333	19.9754340277778	-9.93376736111111
40	183.8	183.850434027778	215.791666666667	-31.9412326388889	-0.0504340277777544
41	150	158.766059027778	214.233333333333	-55.4672743055556	-8.76605902777774
42	178.5	177.720225694444	210.95	-33.2297743055556	0.779774305555549
43	228.4	224.904600694444	206.7375	18.1671006944444	3.49539930555557
44	228.7	234.290017361111	203.595833333333	30.6941840277778	-5.59001736111114
45	236.7	237.086892361111	201.445833333333	35.6410590277778	-0.386892361111109
46	218.2	222.132725694444	200.545833333333	21.5868923611111	-3.93272569444446
47	173.5	177.571267361111	200.420833333333	-22.8495659722222	-4.0712673611111
48	189.1	189.959809027778	200.891666666667	-10.9318576388889	-0.859809027777771
49	194.6	203.485850694444	200.575	2.91085069444444	-8.88585069444446
50	213.7	225.740017361111	200.295833333333	25.4441840277778	-12.0400173611111
51	216.3	221.350434027778	201.375	19.9754340277778	-5.05043402777775
52	173.9	170.604600694444	202.545833333333	-31.9412326388889	3.29539930555558
53	156.9	148.566059027778	204.033333333333	-55.4672743055556	8.33394097222225
54	182.9	171.982725694444	205.2125	-33.2297743055556	10.9172743055556
55	216.4	NA	NA	18.1671006944444	NA
56	234	NA	NA	30.6941840277778	NA
57	257.3	NA	NA	35.6410590277778	NA
58	225.7	NA	NA	21.5868923611111	NA
59	201.7	NA	NA	-22.8495659722222	NA
60	189.2	NA	NA	-10.9318576388889	NA

\begin{tabular}{lllllllll}
\hline
Classical Decomposition by Moving Averages \tabularnewline
t & Observations & Fit & Trend & Seasonal & Random \tabularnewline
1 & 219.2 & NA & NA & 2.91085069444444 & NA \tabularnewline
2 & 232.5 & NA & NA & 25.4441840277778 & NA \tabularnewline
3 & 235.6 & NA & NA & 19.9754340277778 & NA \tabularnewline
4 & 171 & NA & NA & -31.9412326388889 & NA \tabularnewline
5 & 165.9 & NA & NA & -55.4672743055556 & NA \tabularnewline
6 & 187.6 & NA & NA & -33.2297743055556 & NA \tabularnewline
7 & 218.2 & 230.604600694444 & 212.4375 & 18.1671006944444 & -12.4046006944444 \tabularnewline
8 & 249.8 & 244.440017361111 & 213.745833333333 & 30.6941840277778 & 5.35998263888891 \tabularnewline
9 & 256.5 & 251.691059027778 & 216.05 & 35.6410590277778 & 4.80894097222225 \tabularnewline
10 & 224.9 & 240.174392361111 & 218.5875 & 21.5868923611111 & -15.2743923611111 \tabularnewline
11 & 200 & 197.600434027778 & 220.45 & -22.8495659722222 & 2.39956597222223 \tabularnewline
12 & 182.5 & 210.922309027778 & 221.854166666667 & -10.9318576388889 & -28.4223090277778 \tabularnewline
13 & 230.3 & 227.052517361111 & 224.141666666667 & 2.91085069444444 & 3.24748263888893 \tabularnewline
14 & 252.8 & 252.640017361111 & 227.195833333333 & 25.4441840277778 & 0.15998263888892 \tabularnewline
15 & 270.6 & 249.058767361111 & 229.083333333333 & 19.9754340277778 & 21.5412326388889 \tabularnewline
16 & 196.9 & 200.096267361111 & 232.0375 & -31.9412326388889 & -3.1962673611111 \tabularnewline
17 & 184.7 & 180.320225694444 & 235.7875 & -55.4672743055556 & 4.37977430555554 \tabularnewline
18 & 202.5 & 205.086892361111 & 238.316666666667 & -33.2297743055556 & -2.58689236111107 \tabularnewline
19 & 258.2 & 258.058767361111 & 239.891666666667 & 18.1671006944444 & 0.14123263888888 \tabularnewline
20 & 283.1 & 271.344184027778 & 240.65 & 30.6941840277778 & 11.7558159722223 \tabularnewline
21 & 268.5 & 275.661892361111 & 240.020833333333 & 35.6410590277778 & -7.16189236111106 \tabularnewline
22 & 283.8 & 260.616059027778 & 239.029166666667 & 21.5868923611111 & 23.1839409722223 \tabularnewline
23 & 231.1 & 215.504600694444 & 238.354166666667 & -22.8495659722222 & 15.5953993055556 \tabularnewline
24 & 212.1 & 225.930642361111 & 236.8625 & -10.9318576388889 & -13.8306423611111 \tabularnewline
25 & 238.5 & 238.873350694444 & 235.9625 & 2.91085069444444 & -0.37335069444444 \tabularnewline
26 & 262.8 & 259.740017361111 & 234.295833333333 & 25.4441840277778 & 3.05998263888893 \tabularnewline
27 & 245.5 & 252.575434027778 & 232.6 & 19.9754340277778 & -7.07543402777776 \tabularnewline
28 & 198.2 & 198.767100694444 & 230.708333333333 & -31.9412326388889 & -0.567100694444434 \tabularnewline
29 & 167.2 & 171.666059027778 & 227.133333333333 & -55.4672743055556 & -4.46605902777776 \tabularnewline
30 & 184.2 & 193.828559027778 & 227.058333333333 & -33.2297743055556 & -9.62855902777775 \tabularnewline
31 & 254.9 & 246.650434027778 & 228.483333333333 & 18.1671006944444 & 8.24956597222223 \tabularnewline
32 & 246.4 & 258.444184027778 & 227.75 & 30.6941840277778 & -12.0441840277778 \tabularnewline
33 & 264.5 & 262.278559027778 & 226.6375 & 35.6410590277778 & 2.22144097222224 \tabularnewline
34 & 242.4 & 246.895225694444 & 225.308333333333 & 21.5868923611111 & -4.49522569444446 \tabularnewline
35 & 186.7 & 201.142100694444 & 223.991666666667 & -22.8495659722222 & -14.4421006944444 \tabularnewline
36 & 254.7 & 212.105642361111 & 223.0375 & -10.9318576388889 & 42.5943576388889 \tabularnewline
37 & 230.1 & 224.606684027778 & 221.695833333333 & 2.91085069444444 & 5.49331597222226 \tabularnewline
38 & 253.6 & 245.298350694444 & 219.854166666667 & 25.4441840277778 & 8.30164930555557 \tabularnewline
39 & 228 & 237.933767361111 & 217.958333333333 & 19.9754340277778 & -9.93376736111111 \tabularnewline
40 & 183.8 & 183.850434027778 & 215.791666666667 & -31.9412326388889 & -0.0504340277777544 \tabularnewline
41 & 150 & 158.766059027778 & 214.233333333333 & -55.4672743055556 & -8.76605902777774 \tabularnewline
42 & 178.5 & 177.720225694444 & 210.95 & -33.2297743055556 & 0.779774305555549 \tabularnewline
43 & 228.4 & 224.904600694444 & 206.7375 & 18.1671006944444 & 3.49539930555557 \tabularnewline
44 & 228.7 & 234.290017361111 & 203.595833333333 & 30.6941840277778 & -5.59001736111114 \tabularnewline
45 & 236.7 & 237.086892361111 & 201.445833333333 & 35.6410590277778 & -0.386892361111109 \tabularnewline
46 & 218.2 & 222.132725694444 & 200.545833333333 & 21.5868923611111 & -3.93272569444446 \tabularnewline
47 & 173.5 & 177.571267361111 & 200.420833333333 & -22.8495659722222 & -4.0712673611111 \tabularnewline
48 & 189.1 & 189.959809027778 & 200.891666666667 & -10.9318576388889 & -0.859809027777771 \tabularnewline
49 & 194.6 & 203.485850694444 & 200.575 & 2.91085069444444 & -8.88585069444446 \tabularnewline
50 & 213.7 & 225.740017361111 & 200.295833333333 & 25.4441840277778 & -12.0400173611111 \tabularnewline
51 & 216.3 & 221.350434027778 & 201.375 & 19.9754340277778 & -5.05043402777775 \tabularnewline
52 & 173.9 & 170.604600694444 & 202.545833333333 & -31.9412326388889 & 3.29539930555558 \tabularnewline
53 & 156.9 & 148.566059027778 & 204.033333333333 & -55.4672743055556 & 8.33394097222225 \tabularnewline
54 & 182.9 & 171.982725694444 & 205.2125 & -33.2297743055556 & 10.9172743055556 \tabularnewline
55 & 216.4 & NA & NA & 18.1671006944444 & NA \tabularnewline
56 & 234 & NA & NA & 30.6941840277778 & NA \tabularnewline
57 & 257.3 & NA & NA & 35.6410590277778 & NA \tabularnewline
58 & 225.7 & NA & NA & 21.5868923611111 & NA \tabularnewline
59 & 201.7 & NA & NA & -22.8495659722222 & NA \tabularnewline
60 & 189.2 & NA & NA & -10.9318576388889 & NA \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=166344&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]219.2[/C][C]NA[/C][C]NA[/C][C]2.91085069444444[/C][C]NA[/C][/ROW]
[ROW][C]2[/C][C]232.5[/C][C]NA[/C][C]NA[/C][C]25.4441840277778[/C][C]NA[/C][/ROW]
[ROW][C]3[/C][C]235.6[/C][C]NA[/C][C]NA[/C][C]19.9754340277778[/C][C]NA[/C][/ROW]
[ROW][C]4[/C][C]171[/C][C]NA[/C][C]NA[/C][C]-31.9412326388889[/C][C]NA[/C][/ROW]
[ROW][C]5[/C][C]165.9[/C][C]NA[/C][C]NA[/C][C]-55.4672743055556[/C][C]NA[/C][/ROW]
[ROW][C]6[/C][C]187.6[/C][C]NA[/C][C]NA[/C][C]-33.2297743055556[/C][C]NA[/C][/ROW]
[ROW][C]7[/C][C]218.2[/C][C]230.604600694444[/C][C]212.4375[/C][C]18.1671006944444[/C][C]-12.4046006944444[/C][/ROW]
[ROW][C]8[/C][C]249.8[/C][C]244.440017361111[/C][C]213.745833333333[/C][C]30.6941840277778[/C][C]5.35998263888891[/C][/ROW]
[ROW][C]9[/C][C]256.5[/C][C]251.691059027778[/C][C]216.05[/C][C]35.6410590277778[/C][C]4.80894097222225[/C][/ROW]
[ROW][C]10[/C][C]224.9[/C][C]240.174392361111[/C][C]218.5875[/C][C]21.5868923611111[/C][C]-15.2743923611111[/C][/ROW]
[ROW][C]11[/C][C]200[/C][C]197.600434027778[/C][C]220.45[/C][C]-22.8495659722222[/C][C]2.39956597222223[/C][/ROW]
[ROW][C]12[/C][C]182.5[/C][C]210.922309027778[/C][C]221.854166666667[/C][C]-10.9318576388889[/C][C]-28.4223090277778[/C][/ROW]
[ROW][C]13[/C][C]230.3[/C][C]227.052517361111[/C][C]224.141666666667[/C][C]2.91085069444444[/C][C]3.24748263888893[/C][/ROW]
[ROW][C]14[/C][C]252.8[/C][C]252.640017361111[/C][C]227.195833333333[/C][C]25.4441840277778[/C][C]0.15998263888892[/C][/ROW]
[ROW][C]15[/C][C]270.6[/C][C]249.058767361111[/C][C]229.083333333333[/C][C]19.9754340277778[/C][C]21.5412326388889[/C][/ROW]
[ROW][C]16[/C][C]196.9[/C][C]200.096267361111[/C][C]232.0375[/C][C]-31.9412326388889[/C][C]-3.1962673611111[/C][/ROW]
[ROW][C]17[/C][C]184.7[/C][C]180.320225694444[/C][C]235.7875[/C][C]-55.4672743055556[/C][C]4.37977430555554[/C][/ROW]
[ROW][C]18[/C][C]202.5[/C][C]205.086892361111[/C][C]238.316666666667[/C][C]-33.2297743055556[/C][C]-2.58689236111107[/C][/ROW]
[ROW][C]19[/C][C]258.2[/C][C]258.058767361111[/C][C]239.891666666667[/C][C]18.1671006944444[/C][C]0.14123263888888[/C][/ROW]
[ROW][C]20[/C][C]283.1[/C][C]271.344184027778[/C][C]240.65[/C][C]30.6941840277778[/C][C]11.7558159722223[/C][/ROW]
[ROW][C]21[/C][C]268.5[/C][C]275.661892361111[/C][C]240.020833333333[/C][C]35.6410590277778[/C][C]-7.16189236111106[/C][/ROW]
[ROW][C]22[/C][C]283.8[/C][C]260.616059027778[/C][C]239.029166666667[/C][C]21.5868923611111[/C][C]23.1839409722223[/C][/ROW]
[ROW][C]23[/C][C]231.1[/C][C]215.504600694444[/C][C]238.354166666667[/C][C]-22.8495659722222[/C][C]15.5953993055556[/C][/ROW]
[ROW][C]24[/C][C]212.1[/C][C]225.930642361111[/C][C]236.8625[/C][C]-10.9318576388889[/C][C]-13.8306423611111[/C][/ROW]
[ROW][C]25[/C][C]238.5[/C][C]238.873350694444[/C][C]235.9625[/C][C]2.91085069444444[/C][C]-0.37335069444444[/C][/ROW]
[ROW][C]26[/C][C]262.8[/C][C]259.740017361111[/C][C]234.295833333333[/C][C]25.4441840277778[/C][C]3.05998263888893[/C][/ROW]
[ROW][C]27[/C][C]245.5[/C][C]252.575434027778[/C][C]232.6[/C][C]19.9754340277778[/C][C]-7.07543402777776[/C][/ROW]
[ROW][C]28[/C][C]198.2[/C][C]198.767100694444[/C][C]230.708333333333[/C][C]-31.9412326388889[/C][C]-0.567100694444434[/C][/ROW]
[ROW][C]29[/C][C]167.2[/C][C]171.666059027778[/C][C]227.133333333333[/C][C]-55.4672743055556[/C][C]-4.46605902777776[/C][/ROW]
[ROW][C]30[/C][C]184.2[/C][C]193.828559027778[/C][C]227.058333333333[/C][C]-33.2297743055556[/C][C]-9.62855902777775[/C][/ROW]
[ROW][C]31[/C][C]254.9[/C][C]246.650434027778[/C][C]228.483333333333[/C][C]18.1671006944444[/C][C]8.24956597222223[/C][/ROW]
[ROW][C]32[/C][C]246.4[/C][C]258.444184027778[/C][C]227.75[/C][C]30.6941840277778[/C][C]-12.0441840277778[/C][/ROW]
[ROW][C]33[/C][C]264.5[/C][C]262.278559027778[/C][C]226.6375[/C][C]35.6410590277778[/C][C]2.22144097222224[/C][/ROW]
[ROW][C]34[/C][C]242.4[/C][C]246.895225694444[/C][C]225.308333333333[/C][C]21.5868923611111[/C][C]-4.49522569444446[/C][/ROW]
[ROW][C]35[/C][C]186.7[/C][C]201.142100694444[/C][C]223.991666666667[/C][C]-22.8495659722222[/C][C]-14.4421006944444[/C][/ROW]
[ROW][C]36[/C][C]254.7[/C][C]212.105642361111[/C][C]223.0375[/C][C]-10.9318576388889[/C][C]42.5943576388889[/C][/ROW]
[ROW][C]37[/C][C]230.1[/C][C]224.606684027778[/C][C]221.695833333333[/C][C]2.91085069444444[/C][C]5.49331597222226[/C][/ROW]
[ROW][C]38[/C][C]253.6[/C][C]245.298350694444[/C][C]219.854166666667[/C][C]25.4441840277778[/C][C]8.30164930555557[/C][/ROW]
[ROW][C]39[/C][C]228[/C][C]237.933767361111[/C][C]217.958333333333[/C][C]19.9754340277778[/C][C]-9.93376736111111[/C][/ROW]
[ROW][C]40[/C][C]183.8[/C][C]183.850434027778[/C][C]215.791666666667[/C][C]-31.9412326388889[/C][C]-0.0504340277777544[/C][/ROW]
[ROW][C]41[/C][C]150[/C][C]158.766059027778[/C][C]214.233333333333[/C][C]-55.4672743055556[/C][C]-8.76605902777774[/C][/ROW]
[ROW][C]42[/C][C]178.5[/C][C]177.720225694444[/C][C]210.95[/C][C]-33.2297743055556[/C][C]0.779774305555549[/C][/ROW]
[ROW][C]43[/C][C]228.4[/C][C]224.904600694444[/C][C]206.7375[/C][C]18.1671006944444[/C][C]3.49539930555557[/C][/ROW]
[ROW][C]44[/C][C]228.7[/C][C]234.290017361111[/C][C]203.595833333333[/C][C]30.6941840277778[/C][C]-5.59001736111114[/C][/ROW]
[ROW][C]45[/C][C]236.7[/C][C]237.086892361111[/C][C]201.445833333333[/C][C]35.6410590277778[/C][C]-0.386892361111109[/C][/ROW]
[ROW][C]46[/C][C]218.2[/C][C]222.132725694444[/C][C]200.545833333333[/C][C]21.5868923611111[/C][C]-3.93272569444446[/C][/ROW]
[ROW][C]47[/C][C]173.5[/C][C]177.571267361111[/C][C]200.420833333333[/C][C]-22.8495659722222[/C][C]-4.0712673611111[/C][/ROW]
[ROW][C]48[/C][C]189.1[/C][C]189.959809027778[/C][C]200.891666666667[/C][C]-10.9318576388889[/C][C]-0.859809027777771[/C][/ROW]
[ROW][C]49[/C][C]194.6[/C][C]203.485850694444[/C][C]200.575[/C][C]2.91085069444444[/C][C]-8.88585069444446[/C][/ROW]
[ROW][C]50[/C][C]213.7[/C][C]225.740017361111[/C][C]200.295833333333[/C][C]25.4441840277778[/C][C]-12.0400173611111[/C][/ROW]
[ROW][C]51[/C][C]216.3[/C][C]221.350434027778[/C][C]201.375[/C][C]19.9754340277778[/C][C]-5.05043402777775[/C][/ROW]
[ROW][C]52[/C][C]173.9[/C][C]170.604600694444[/C][C]202.545833333333[/C][C]-31.9412326388889[/C][C]3.29539930555558[/C][/ROW]
[ROW][C]53[/C][C]156.9[/C][C]148.566059027778[/C][C]204.033333333333[/C][C]-55.4672743055556[/C][C]8.33394097222225[/C][/ROW]
[ROW][C]54[/C][C]182.9[/C][C]171.982725694444[/C][C]205.2125[/C][C]-33.2297743055556[/C][C]10.9172743055556[/C][/ROW]
[ROW][C]55[/C][C]216.4[/C][C]NA[/C][C]NA[/C][C]18.1671006944444[/C][C]NA[/C][/ROW]
[ROW][C]56[/C][C]234[/C][C]NA[/C][C]NA[/C][C]30.6941840277778[/C][C]NA[/C][/ROW]
[ROW][C]57[/C][C]257.3[/C][C]NA[/C][C]NA[/C][C]35.6410590277778[/C][C]NA[/C][/ROW]
[ROW][C]58[/C][C]225.7[/C][C]NA[/C][C]NA[/C][C]21.5868923611111[/C][C]NA[/C][/ROW]
[ROW][C]59[/C][C]201.7[/C][C]NA[/C][C]NA[/C][C]-22.8495659722222[/C][C]NA[/C][/ROW]
[ROW][C]60[/C][C]189.2[/C][C]NA[/C][C]NA[/C][C]-10.9318576388889[/C][C]NA[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=166344&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=166344&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	219.2	NA	NA	2.91085069444444	NA
2	232.5	NA	NA	25.4441840277778	NA
3	235.6	NA	NA	19.9754340277778	NA
4	171	NA	NA	-31.9412326388889	NA
5	165.9	NA	NA	-55.4672743055556	NA
6	187.6	NA	NA	-33.2297743055556	NA
7	218.2	230.604600694444	212.4375	18.1671006944444	-12.4046006944444
8	249.8	244.440017361111	213.745833333333	30.6941840277778	5.35998263888891
9	256.5	251.691059027778	216.05	35.6410590277778	4.80894097222225
10	224.9	240.174392361111	218.5875	21.5868923611111	-15.2743923611111
11	200	197.600434027778	220.45	-22.8495659722222	2.39956597222223
12	182.5	210.922309027778	221.854166666667	-10.9318576388889	-28.4223090277778
13	230.3	227.052517361111	224.141666666667	2.91085069444444	3.24748263888893
14	252.8	252.640017361111	227.195833333333	25.4441840277778	0.15998263888892
15	270.6	249.058767361111	229.083333333333	19.9754340277778	21.5412326388889
16	196.9	200.096267361111	232.0375	-31.9412326388889	-3.1962673611111
17	184.7	180.320225694444	235.7875	-55.4672743055556	4.37977430555554
18	202.5	205.086892361111	238.316666666667	-33.2297743055556	-2.58689236111107
19	258.2	258.058767361111	239.891666666667	18.1671006944444	0.14123263888888
20	283.1	271.344184027778	240.65	30.6941840277778	11.7558159722223
21	268.5	275.661892361111	240.020833333333	35.6410590277778	-7.16189236111106
22	283.8	260.616059027778	239.029166666667	21.5868923611111	23.1839409722223
23	231.1	215.504600694444	238.354166666667	-22.8495659722222	15.5953993055556
24	212.1	225.930642361111	236.8625	-10.9318576388889	-13.8306423611111
25	238.5	238.873350694444	235.9625	2.91085069444444	-0.37335069444444
26	262.8	259.740017361111	234.295833333333	25.4441840277778	3.05998263888893
27	245.5	252.575434027778	232.6	19.9754340277778	-7.07543402777776
28	198.2	198.767100694444	230.708333333333	-31.9412326388889	-0.567100694444434
29	167.2	171.666059027778	227.133333333333	-55.4672743055556	-4.46605902777776
30	184.2	193.828559027778	227.058333333333	-33.2297743055556	-9.62855902777775
31	254.9	246.650434027778	228.483333333333	18.1671006944444	8.24956597222223
32	246.4	258.444184027778	227.75	30.6941840277778	-12.0441840277778
33	264.5	262.278559027778	226.6375	35.6410590277778	2.22144097222224
34	242.4	246.895225694444	225.308333333333	21.5868923611111	-4.49522569444446
35	186.7	201.142100694444	223.991666666667	-22.8495659722222	-14.4421006944444
36	254.7	212.105642361111	223.0375	-10.9318576388889	42.5943576388889
37	230.1	224.606684027778	221.695833333333	2.91085069444444	5.49331597222226
38	253.6	245.298350694444	219.854166666667	25.4441840277778	8.30164930555557
39	228	237.933767361111	217.958333333333	19.9754340277778	-9.93376736111111
40	183.8	183.850434027778	215.791666666667	-31.9412326388889	-0.0504340277777544
41	150	158.766059027778	214.233333333333	-55.4672743055556	-8.76605902777774
42	178.5	177.720225694444	210.95	-33.2297743055556	0.779774305555549
43	228.4	224.904600694444	206.7375	18.1671006944444	3.49539930555557
44	228.7	234.290017361111	203.595833333333	30.6941840277778	-5.59001736111114
45	236.7	237.086892361111	201.445833333333	35.6410590277778	-0.386892361111109
46	218.2	222.132725694444	200.545833333333	21.5868923611111	-3.93272569444446
47	173.5	177.571267361111	200.420833333333	-22.8495659722222	-4.0712673611111
48	189.1	189.959809027778	200.891666666667	-10.9318576388889	-0.859809027777771
49	194.6	203.485850694444	200.575	2.91085069444444	-8.88585069444446
50	213.7	225.740017361111	200.295833333333	25.4441840277778	-12.0400173611111
51	216.3	221.350434027778	201.375	19.9754340277778	-5.05043402777775
52	173.9	170.604600694444	202.545833333333	-31.9412326388889	3.29539930555558
53	156.9	148.566059027778	204.033333333333	-55.4672743055556	8.33394097222225
54	182.9	171.982725694444	205.2125	-33.2297743055556	10.9172743055556
55	216.4	NA	NA	18.1671006944444	NA
56	234	NA	NA	30.6941840277778	NA
57	257.3	NA	NA	35.6410590277778	NA
58	225.7	NA	NA	21.5868923611111	NA
59	201.7	NA	NA	-22.8495659722222	NA
60	189.2	NA	NA	-10.9318576388889	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