Repository of Reproducible Computations

Free Statistics

of Irreproducible Research!

Author's title

Author

*Unverified author*

R Software Module

rwasp_decompose.wasp

Title produced by software

Classical Decomposition

Date of computation

Fri, 28 Nov 2014 14:40:24 +0000

Cite this page as follows

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2014/Nov/28/t1417185637ri90jzouf7hichf.htm/, Retrieved Sun, 19 May 2024 15:57:00 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=260914, Retrieved Sun, 19 May 2024 15:57:00 +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)

-       [Classical Decomposition] [] [2014-11-28 14:40:24] [81bcec4b91879990466572cf43afb80d] [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	1 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 & 1 seconds \tabularnewline
R Server & 'Gertrude Mary Cox' @ cox.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=260914&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]1 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=260914&T=0

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

Classical Decomposition by Moving Averages
t	Observations	Fit	Trend	Seasonal	Random
1	79.26	NA	NA	-0.0841736	NA
2	79.38	NA	NA	-0.0579236	NA
3	79.35	NA	NA	-0.00167361	NA
4	78.91	NA	NA	-0.0327569	NA
5	79.11	NA	NA	-0.25134	NA
6	79.22	NA	NA	-0.288007	NA
7	79.22	79.2448	79.4542	-0.20934	-0.0248264
8	79.21	79.3657	79.5304	-0.164674	-0.155743
9	79.26	79.5539	79.61	-0.0560903	-0.29391
10	79.82	79.9415	79.7217	0.219826	-0.121493
11	80.04	80.301	79.8275	0.473493	-0.260993
12	80.2	80.3435	79.8908	0.45266	-0.143493
13	80.2	79.86	79.9442	-0.0841736	0.340007
14	80.27	79.9379	79.9958	-0.0579236	0.33209
15	80.37	80.045	80.0467	-0.00167361	0.325007
16	80.57	80.0556	80.0883	-0.0327569	0.514424
17	79.99	79.8732	80.1246	-0.25134	0.116757
18	79.86	79.8703	80.1583	-0.288007	-0.0103264
19	79.86	79.9757	80.185	-0.20934	-0.11566
20	79.81	80.0424	80.2071	-0.164674	-0.23241
21	79.88	80.1564	80.2125	-0.0560903	-0.27641
22	80.2	80.3861	80.1662	0.219826	-0.186076
23	80.53	80.5718	80.0983	0.473493	-0.0418264
24	80.52	80.5027	80.05	0.45266	0.0173403
25	80.52	79.9192	80.0033	-0.0841736	0.60084
26	80.48	79.9087	79.9667	-0.0579236	0.571257
27	80.29	79.9412	79.9429	-0.00167361	0.348757
28	79.54	79.8806	79.9133	-0.0327569	-0.340576
29	79.39	79.6278	79.8792	-0.25134	-0.237826
30	79.3	79.557	79.845	-0.288007	-0.256993
31	79.3	79.5973	79.8067	-0.20934	-0.297326
32	79.49	79.612	79.7767	-0.164674	-0.121993
33	79.63	79.7185	79.7746	-0.0560903	-0.0884931
34	79.74	80.0465	79.8267	0.219826	-0.306493
35	80.17	80.3789	79.9054	0.473493	-0.20891
36	80.06	80.4368	79.9842	0.45266	-0.376826
37	80.06	79.9867	80.0708	-0.0841736	0.0733403
38	80.22	80.0946	80.1525	-0.0579236	0.125424
39	80.5	80.2292	80.2308	-0.00167361	0.27084
40	80.58	80.281	80.3138	-0.0327569	0.299007
41	80.24	80.1374	80.3888	-0.25134	0.10259
42	80.34	80.1637	80.4517	-0.288007	0.17634
43	80.34	80.304	80.5133	-0.20934	0.0360069
44	80.41	80.402	80.5667	-0.164674	0.00800694
45	80.59	80.5514	80.6075	-0.0560903	0.0385903
46	80.77	80.8644	80.6446	0.219826	-0.0944097
47	80.94	81.1831	80.7096	0.473493	-0.243076
48	80.8	81.2531	80.8004	0.45266	-0.453076
49	80.8	80.8054	80.8896	-0.0841736	-0.00540972
50	80.76	80.9192	80.9771	-0.0579236	-0.15916
51	80.94	81.0583	81.06	-0.00167361	-0.118326
52	81.03	81.1102	81.1429	-0.0327569	-0.0801597
53	81.35	80.9774	81.2287	-0.25134	0.37259
54	81.41	81.0332	81.3212	-0.288007	0.376757
55	81.41	81.1015	81.3108	-0.20934	0.308507
56	81.44	81.0312	81.1958	-0.164674	0.40884
57	81.55	81.0231	81.0792	-0.0560903	0.526924
58	81.8	81.1848	80.965	0.219826	0.615174
59	81.97	81.3085	80.835	0.473493	0.661507
60	81.99	81.1272	80.6746	0.45266	0.862757
61	79.36	80.4621	80.5462	-0.0841736	-1.10208
62	79.44	80.4029	80.4608	-0.0579236	-0.96291
63	79.46	80.3796	80.3812	-0.00167361	-0.919576
64	79.77	80.256	80.2887	-0.0327569	-0.485993
65	79.49	79.9374	80.1888	-0.25134	-0.44741
66	79.42	79.7991	80.0871	-0.288007	-0.379076
67	80.32	NA	NA	-0.20934	NA
68	80.48	NA	NA	-0.164674	NA
69	80.6	NA	NA	-0.0560903	NA
70	80.53	NA	NA	0.219826	NA
71	80.84	NA	NA	0.473493	NA
72	80.68	NA	NA	0.45266	NA

\begin{tabular}{lllllllll}
\hline
Classical Decomposition by Moving Averages \tabularnewline
t & Observations & Fit & Trend & Seasonal & Random \tabularnewline
1 & 79.26 & NA & NA & -0.0841736 & NA \tabularnewline
2 & 79.38 & NA & NA & -0.0579236 & NA \tabularnewline
3 & 79.35 & NA & NA & -0.00167361 & NA \tabularnewline
4 & 78.91 & NA & NA & -0.0327569 & NA \tabularnewline
5 & 79.11 & NA & NA & -0.25134 & NA \tabularnewline
6 & 79.22 & NA & NA & -0.288007 & NA \tabularnewline
7 & 79.22 & 79.2448 & 79.4542 & -0.20934 & -0.0248264 \tabularnewline
8 & 79.21 & 79.3657 & 79.5304 & -0.164674 & -0.155743 \tabularnewline
9 & 79.26 & 79.5539 & 79.61 & -0.0560903 & -0.29391 \tabularnewline
10 & 79.82 & 79.9415 & 79.7217 & 0.219826 & -0.121493 \tabularnewline
11 & 80.04 & 80.301 & 79.8275 & 0.473493 & -0.260993 \tabularnewline
12 & 80.2 & 80.3435 & 79.8908 & 0.45266 & -0.143493 \tabularnewline
13 & 80.2 & 79.86 & 79.9442 & -0.0841736 & 0.340007 \tabularnewline
14 & 80.27 & 79.9379 & 79.9958 & -0.0579236 & 0.33209 \tabularnewline
15 & 80.37 & 80.045 & 80.0467 & -0.00167361 & 0.325007 \tabularnewline
16 & 80.57 & 80.0556 & 80.0883 & -0.0327569 & 0.514424 \tabularnewline
17 & 79.99 & 79.8732 & 80.1246 & -0.25134 & 0.116757 \tabularnewline
18 & 79.86 & 79.8703 & 80.1583 & -0.288007 & -0.0103264 \tabularnewline
19 & 79.86 & 79.9757 & 80.185 & -0.20934 & -0.11566 \tabularnewline
20 & 79.81 & 80.0424 & 80.2071 & -0.164674 & -0.23241 \tabularnewline
21 & 79.88 & 80.1564 & 80.2125 & -0.0560903 & -0.27641 \tabularnewline
22 & 80.2 & 80.3861 & 80.1662 & 0.219826 & -0.186076 \tabularnewline
23 & 80.53 & 80.5718 & 80.0983 & 0.473493 & -0.0418264 \tabularnewline
24 & 80.52 & 80.5027 & 80.05 & 0.45266 & 0.0173403 \tabularnewline
25 & 80.52 & 79.9192 & 80.0033 & -0.0841736 & 0.60084 \tabularnewline
26 & 80.48 & 79.9087 & 79.9667 & -0.0579236 & 0.571257 \tabularnewline
27 & 80.29 & 79.9412 & 79.9429 & -0.00167361 & 0.348757 \tabularnewline
28 & 79.54 & 79.8806 & 79.9133 & -0.0327569 & -0.340576 \tabularnewline
29 & 79.39 & 79.6278 & 79.8792 & -0.25134 & -0.237826 \tabularnewline
30 & 79.3 & 79.557 & 79.845 & -0.288007 & -0.256993 \tabularnewline
31 & 79.3 & 79.5973 & 79.8067 & -0.20934 & -0.297326 \tabularnewline
32 & 79.49 & 79.612 & 79.7767 & -0.164674 & -0.121993 \tabularnewline
33 & 79.63 & 79.7185 & 79.7746 & -0.0560903 & -0.0884931 \tabularnewline
34 & 79.74 & 80.0465 & 79.8267 & 0.219826 & -0.306493 \tabularnewline
35 & 80.17 & 80.3789 & 79.9054 & 0.473493 & -0.20891 \tabularnewline
36 & 80.06 & 80.4368 & 79.9842 & 0.45266 & -0.376826 \tabularnewline
37 & 80.06 & 79.9867 & 80.0708 & -0.0841736 & 0.0733403 \tabularnewline
38 & 80.22 & 80.0946 & 80.1525 & -0.0579236 & 0.125424 \tabularnewline
39 & 80.5 & 80.2292 & 80.2308 & -0.00167361 & 0.27084 \tabularnewline
40 & 80.58 & 80.281 & 80.3138 & -0.0327569 & 0.299007 \tabularnewline
41 & 80.24 & 80.1374 & 80.3888 & -0.25134 & 0.10259 \tabularnewline
42 & 80.34 & 80.1637 & 80.4517 & -0.288007 & 0.17634 \tabularnewline
43 & 80.34 & 80.304 & 80.5133 & -0.20934 & 0.0360069 \tabularnewline
44 & 80.41 & 80.402 & 80.5667 & -0.164674 & 0.00800694 \tabularnewline
45 & 80.59 & 80.5514 & 80.6075 & -0.0560903 & 0.0385903 \tabularnewline
46 & 80.77 & 80.8644 & 80.6446 & 0.219826 & -0.0944097 \tabularnewline
47 & 80.94 & 81.1831 & 80.7096 & 0.473493 & -0.243076 \tabularnewline
48 & 80.8 & 81.2531 & 80.8004 & 0.45266 & -0.453076 \tabularnewline
49 & 80.8 & 80.8054 & 80.8896 & -0.0841736 & -0.00540972 \tabularnewline
50 & 80.76 & 80.9192 & 80.9771 & -0.0579236 & -0.15916 \tabularnewline
51 & 80.94 & 81.0583 & 81.06 & -0.00167361 & -0.118326 \tabularnewline
52 & 81.03 & 81.1102 & 81.1429 & -0.0327569 & -0.0801597 \tabularnewline
53 & 81.35 & 80.9774 & 81.2287 & -0.25134 & 0.37259 \tabularnewline
54 & 81.41 & 81.0332 & 81.3212 & -0.288007 & 0.376757 \tabularnewline
55 & 81.41 & 81.1015 & 81.3108 & -0.20934 & 0.308507 \tabularnewline
56 & 81.44 & 81.0312 & 81.1958 & -0.164674 & 0.40884 \tabularnewline
57 & 81.55 & 81.0231 & 81.0792 & -0.0560903 & 0.526924 \tabularnewline
58 & 81.8 & 81.1848 & 80.965 & 0.219826 & 0.615174 \tabularnewline
59 & 81.97 & 81.3085 & 80.835 & 0.473493 & 0.661507 \tabularnewline
60 & 81.99 & 81.1272 & 80.6746 & 0.45266 & 0.862757 \tabularnewline
61 & 79.36 & 80.4621 & 80.5462 & -0.0841736 & -1.10208 \tabularnewline
62 & 79.44 & 80.4029 & 80.4608 & -0.0579236 & -0.96291 \tabularnewline
63 & 79.46 & 80.3796 & 80.3812 & -0.00167361 & -0.919576 \tabularnewline
64 & 79.77 & 80.256 & 80.2887 & -0.0327569 & -0.485993 \tabularnewline
65 & 79.49 & 79.9374 & 80.1888 & -0.25134 & -0.44741 \tabularnewline
66 & 79.42 & 79.7991 & 80.0871 & -0.288007 & -0.379076 \tabularnewline
67 & 80.32 & NA & NA & -0.20934 & NA \tabularnewline
68 & 80.48 & NA & NA & -0.164674 & NA \tabularnewline
69 & 80.6 & NA & NA & -0.0560903 & NA \tabularnewline
70 & 80.53 & NA & NA & 0.219826 & NA \tabularnewline
71 & 80.84 & NA & NA & 0.473493 & NA \tabularnewline
72 & 80.68 & NA & NA & 0.45266 & NA \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=260914&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]79.26[/C][C]NA[/C][C]NA[/C][C]-0.0841736[/C][C]NA[/C][/ROW]
[ROW][C]2[/C][C]79.38[/C][C]NA[/C][C]NA[/C][C]-0.0579236[/C][C]NA[/C][/ROW]
[ROW][C]3[/C][C]79.35[/C][C]NA[/C][C]NA[/C][C]-0.00167361[/C][C]NA[/C][/ROW]
[ROW][C]4[/C][C]78.91[/C][C]NA[/C][C]NA[/C][C]-0.0327569[/C][C]NA[/C][/ROW]
[ROW][C]5[/C][C]79.11[/C][C]NA[/C][C]NA[/C][C]-0.25134[/C][C]NA[/C][/ROW]
[ROW][C]6[/C][C]79.22[/C][C]NA[/C][C]NA[/C][C]-0.288007[/C][C]NA[/C][/ROW]
[ROW][C]7[/C][C]79.22[/C][C]79.2448[/C][C]79.4542[/C][C]-0.20934[/C][C]-0.0248264[/C][/ROW]
[ROW][C]8[/C][C]79.21[/C][C]79.3657[/C][C]79.5304[/C][C]-0.164674[/C][C]-0.155743[/C][/ROW]
[ROW][C]9[/C][C]79.26[/C][C]79.5539[/C][C]79.61[/C][C]-0.0560903[/C][C]-0.29391[/C][/ROW]
[ROW][C]10[/C][C]79.82[/C][C]79.9415[/C][C]79.7217[/C][C]0.219826[/C][C]-0.121493[/C][/ROW]
[ROW][C]11[/C][C]80.04[/C][C]80.301[/C][C]79.8275[/C][C]0.473493[/C][C]-0.260993[/C][/ROW]
[ROW][C]12[/C][C]80.2[/C][C]80.3435[/C][C]79.8908[/C][C]0.45266[/C][C]-0.143493[/C][/ROW]
[ROW][C]13[/C][C]80.2[/C][C]79.86[/C][C]79.9442[/C][C]-0.0841736[/C][C]0.340007[/C][/ROW]
[ROW][C]14[/C][C]80.27[/C][C]79.9379[/C][C]79.9958[/C][C]-0.0579236[/C][C]0.33209[/C][/ROW]
[ROW][C]15[/C][C]80.37[/C][C]80.045[/C][C]80.0467[/C][C]-0.00167361[/C][C]0.325007[/C][/ROW]
[ROW][C]16[/C][C]80.57[/C][C]80.0556[/C][C]80.0883[/C][C]-0.0327569[/C][C]0.514424[/C][/ROW]
[ROW][C]17[/C][C]79.99[/C][C]79.8732[/C][C]80.1246[/C][C]-0.25134[/C][C]0.116757[/C][/ROW]
[ROW][C]18[/C][C]79.86[/C][C]79.8703[/C][C]80.1583[/C][C]-0.288007[/C][C]-0.0103264[/C][/ROW]
[ROW][C]19[/C][C]79.86[/C][C]79.9757[/C][C]80.185[/C][C]-0.20934[/C][C]-0.11566[/C][/ROW]
[ROW][C]20[/C][C]79.81[/C][C]80.0424[/C][C]80.2071[/C][C]-0.164674[/C][C]-0.23241[/C][/ROW]
[ROW][C]21[/C][C]79.88[/C][C]80.1564[/C][C]80.2125[/C][C]-0.0560903[/C][C]-0.27641[/C][/ROW]
[ROW][C]22[/C][C]80.2[/C][C]80.3861[/C][C]80.1662[/C][C]0.219826[/C][C]-0.186076[/C][/ROW]
[ROW][C]23[/C][C]80.53[/C][C]80.5718[/C][C]80.0983[/C][C]0.473493[/C][C]-0.0418264[/C][/ROW]
[ROW][C]24[/C][C]80.52[/C][C]80.5027[/C][C]80.05[/C][C]0.45266[/C][C]0.0173403[/C][/ROW]
[ROW][C]25[/C][C]80.52[/C][C]79.9192[/C][C]80.0033[/C][C]-0.0841736[/C][C]0.60084[/C][/ROW]
[ROW][C]26[/C][C]80.48[/C][C]79.9087[/C][C]79.9667[/C][C]-0.0579236[/C][C]0.571257[/C][/ROW]
[ROW][C]27[/C][C]80.29[/C][C]79.9412[/C][C]79.9429[/C][C]-0.00167361[/C][C]0.348757[/C][/ROW]
[ROW][C]28[/C][C]79.54[/C][C]79.8806[/C][C]79.9133[/C][C]-0.0327569[/C][C]-0.340576[/C][/ROW]
[ROW][C]29[/C][C]79.39[/C][C]79.6278[/C][C]79.8792[/C][C]-0.25134[/C][C]-0.237826[/C][/ROW]
[ROW][C]30[/C][C]79.3[/C][C]79.557[/C][C]79.845[/C][C]-0.288007[/C][C]-0.256993[/C][/ROW]
[ROW][C]31[/C][C]79.3[/C][C]79.5973[/C][C]79.8067[/C][C]-0.20934[/C][C]-0.297326[/C][/ROW]
[ROW][C]32[/C][C]79.49[/C][C]79.612[/C][C]79.7767[/C][C]-0.164674[/C][C]-0.121993[/C][/ROW]
[ROW][C]33[/C][C]79.63[/C][C]79.7185[/C][C]79.7746[/C][C]-0.0560903[/C][C]-0.0884931[/C][/ROW]
[ROW][C]34[/C][C]79.74[/C][C]80.0465[/C][C]79.8267[/C][C]0.219826[/C][C]-0.306493[/C][/ROW]
[ROW][C]35[/C][C]80.17[/C][C]80.3789[/C][C]79.9054[/C][C]0.473493[/C][C]-0.20891[/C][/ROW]
[ROW][C]36[/C][C]80.06[/C][C]80.4368[/C][C]79.9842[/C][C]0.45266[/C][C]-0.376826[/C][/ROW]
[ROW][C]37[/C][C]80.06[/C][C]79.9867[/C][C]80.0708[/C][C]-0.0841736[/C][C]0.0733403[/C][/ROW]
[ROW][C]38[/C][C]80.22[/C][C]80.0946[/C][C]80.1525[/C][C]-0.0579236[/C][C]0.125424[/C][/ROW]
[ROW][C]39[/C][C]80.5[/C][C]80.2292[/C][C]80.2308[/C][C]-0.00167361[/C][C]0.27084[/C][/ROW]
[ROW][C]40[/C][C]80.58[/C][C]80.281[/C][C]80.3138[/C][C]-0.0327569[/C][C]0.299007[/C][/ROW]
[ROW][C]41[/C][C]80.24[/C][C]80.1374[/C][C]80.3888[/C][C]-0.25134[/C][C]0.10259[/C][/ROW]
[ROW][C]42[/C][C]80.34[/C][C]80.1637[/C][C]80.4517[/C][C]-0.288007[/C][C]0.17634[/C][/ROW]
[ROW][C]43[/C][C]80.34[/C][C]80.304[/C][C]80.5133[/C][C]-0.20934[/C][C]0.0360069[/C][/ROW]
[ROW][C]44[/C][C]80.41[/C][C]80.402[/C][C]80.5667[/C][C]-0.164674[/C][C]0.00800694[/C][/ROW]
[ROW][C]45[/C][C]80.59[/C][C]80.5514[/C][C]80.6075[/C][C]-0.0560903[/C][C]0.0385903[/C][/ROW]
[ROW][C]46[/C][C]80.77[/C][C]80.8644[/C][C]80.6446[/C][C]0.219826[/C][C]-0.0944097[/C][/ROW]
[ROW][C]47[/C][C]80.94[/C][C]81.1831[/C][C]80.7096[/C][C]0.473493[/C][C]-0.243076[/C][/ROW]
[ROW][C]48[/C][C]80.8[/C][C]81.2531[/C][C]80.8004[/C][C]0.45266[/C][C]-0.453076[/C][/ROW]
[ROW][C]49[/C][C]80.8[/C][C]80.8054[/C][C]80.8896[/C][C]-0.0841736[/C][C]-0.00540972[/C][/ROW]
[ROW][C]50[/C][C]80.76[/C][C]80.9192[/C][C]80.9771[/C][C]-0.0579236[/C][C]-0.15916[/C][/ROW]
[ROW][C]51[/C][C]80.94[/C][C]81.0583[/C][C]81.06[/C][C]-0.00167361[/C][C]-0.118326[/C][/ROW]
[ROW][C]52[/C][C]81.03[/C][C]81.1102[/C][C]81.1429[/C][C]-0.0327569[/C][C]-0.0801597[/C][/ROW]
[ROW][C]53[/C][C]81.35[/C][C]80.9774[/C][C]81.2287[/C][C]-0.25134[/C][C]0.37259[/C][/ROW]
[ROW][C]54[/C][C]81.41[/C][C]81.0332[/C][C]81.3212[/C][C]-0.288007[/C][C]0.376757[/C][/ROW]
[ROW][C]55[/C][C]81.41[/C][C]81.1015[/C][C]81.3108[/C][C]-0.20934[/C][C]0.308507[/C][/ROW]
[ROW][C]56[/C][C]81.44[/C][C]81.0312[/C][C]81.1958[/C][C]-0.164674[/C][C]0.40884[/C][/ROW]
[ROW][C]57[/C][C]81.55[/C][C]81.0231[/C][C]81.0792[/C][C]-0.0560903[/C][C]0.526924[/C][/ROW]
[ROW][C]58[/C][C]81.8[/C][C]81.1848[/C][C]80.965[/C][C]0.219826[/C][C]0.615174[/C][/ROW]
[ROW][C]59[/C][C]81.97[/C][C]81.3085[/C][C]80.835[/C][C]0.473493[/C][C]0.661507[/C][/ROW]
[ROW][C]60[/C][C]81.99[/C][C]81.1272[/C][C]80.6746[/C][C]0.45266[/C][C]0.862757[/C][/ROW]
[ROW][C]61[/C][C]79.36[/C][C]80.4621[/C][C]80.5462[/C][C]-0.0841736[/C][C]-1.10208[/C][/ROW]
[ROW][C]62[/C][C]79.44[/C][C]80.4029[/C][C]80.4608[/C][C]-0.0579236[/C][C]-0.96291[/C][/ROW]
[ROW][C]63[/C][C]79.46[/C][C]80.3796[/C][C]80.3812[/C][C]-0.00167361[/C][C]-0.919576[/C][/ROW]
[ROW][C]64[/C][C]79.77[/C][C]80.256[/C][C]80.2887[/C][C]-0.0327569[/C][C]-0.485993[/C][/ROW]
[ROW][C]65[/C][C]79.49[/C][C]79.9374[/C][C]80.1888[/C][C]-0.25134[/C][C]-0.44741[/C][/ROW]
[ROW][C]66[/C][C]79.42[/C][C]79.7991[/C][C]80.0871[/C][C]-0.288007[/C][C]-0.379076[/C][/ROW]
[ROW][C]67[/C][C]80.32[/C][C]NA[/C][C]NA[/C][C]-0.20934[/C][C]NA[/C][/ROW]
[ROW][C]68[/C][C]80.48[/C][C]NA[/C][C]NA[/C][C]-0.164674[/C][C]NA[/C][/ROW]
[ROW][C]69[/C][C]80.6[/C][C]NA[/C][C]NA[/C][C]-0.0560903[/C][C]NA[/C][/ROW]
[ROW][C]70[/C][C]80.53[/C][C]NA[/C][C]NA[/C][C]0.219826[/C][C]NA[/C][/ROW]
[ROW][C]71[/C][C]80.84[/C][C]NA[/C][C]NA[/C][C]0.473493[/C][C]NA[/C][/ROW]
[ROW][C]72[/C][C]80.68[/C][C]NA[/C][C]NA[/C][C]0.45266[/C][C]NA[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=260914&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=260914&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	79.26	NA	NA	-0.0841736	NA
2	79.38	NA	NA	-0.0579236	NA
3	79.35	NA	NA	-0.00167361	NA
4	78.91	NA	NA	-0.0327569	NA
5	79.11	NA	NA	-0.25134	NA
6	79.22	NA	NA	-0.288007	NA
7	79.22	79.2448	79.4542	-0.20934	-0.0248264
8	79.21	79.3657	79.5304	-0.164674	-0.155743
9	79.26	79.5539	79.61	-0.0560903	-0.29391
10	79.82	79.9415	79.7217	0.219826	-0.121493
11	80.04	80.301	79.8275	0.473493	-0.260993
12	80.2	80.3435	79.8908	0.45266	-0.143493
13	80.2	79.86	79.9442	-0.0841736	0.340007
14	80.27	79.9379	79.9958	-0.0579236	0.33209
15	80.37	80.045	80.0467	-0.00167361	0.325007
16	80.57	80.0556	80.0883	-0.0327569	0.514424
17	79.99	79.8732	80.1246	-0.25134	0.116757
18	79.86	79.8703	80.1583	-0.288007	-0.0103264
19	79.86	79.9757	80.185	-0.20934	-0.11566
20	79.81	80.0424	80.2071	-0.164674	-0.23241
21	79.88	80.1564	80.2125	-0.0560903	-0.27641
22	80.2	80.3861	80.1662	0.219826	-0.186076
23	80.53	80.5718	80.0983	0.473493	-0.0418264
24	80.52	80.5027	80.05	0.45266	0.0173403
25	80.52	79.9192	80.0033	-0.0841736	0.60084
26	80.48	79.9087	79.9667	-0.0579236	0.571257
27	80.29	79.9412	79.9429	-0.00167361	0.348757
28	79.54	79.8806	79.9133	-0.0327569	-0.340576
29	79.39	79.6278	79.8792	-0.25134	-0.237826
30	79.3	79.557	79.845	-0.288007	-0.256993
31	79.3	79.5973	79.8067	-0.20934	-0.297326
32	79.49	79.612	79.7767	-0.164674	-0.121993
33	79.63	79.7185	79.7746	-0.0560903	-0.0884931
34	79.74	80.0465	79.8267	0.219826	-0.306493
35	80.17	80.3789	79.9054	0.473493	-0.20891
36	80.06	80.4368	79.9842	0.45266	-0.376826
37	80.06	79.9867	80.0708	-0.0841736	0.0733403
38	80.22	80.0946	80.1525	-0.0579236	0.125424
39	80.5	80.2292	80.2308	-0.00167361	0.27084
40	80.58	80.281	80.3138	-0.0327569	0.299007
41	80.24	80.1374	80.3888	-0.25134	0.10259
42	80.34	80.1637	80.4517	-0.288007	0.17634
43	80.34	80.304	80.5133	-0.20934	0.0360069
44	80.41	80.402	80.5667	-0.164674	0.00800694
45	80.59	80.5514	80.6075	-0.0560903	0.0385903
46	80.77	80.8644	80.6446	0.219826	-0.0944097
47	80.94	81.1831	80.7096	0.473493	-0.243076
48	80.8	81.2531	80.8004	0.45266	-0.453076
49	80.8	80.8054	80.8896	-0.0841736	-0.00540972
50	80.76	80.9192	80.9771	-0.0579236	-0.15916
51	80.94	81.0583	81.06	-0.00167361	-0.118326
52	81.03	81.1102	81.1429	-0.0327569	-0.0801597
53	81.35	80.9774	81.2287	-0.25134	0.37259
54	81.41	81.0332	81.3212	-0.288007	0.376757
55	81.41	81.1015	81.3108	-0.20934	0.308507
56	81.44	81.0312	81.1958	-0.164674	0.40884
57	81.55	81.0231	81.0792	-0.0560903	0.526924
58	81.8	81.1848	80.965	0.219826	0.615174
59	81.97	81.3085	80.835	0.473493	0.661507
60	81.99	81.1272	80.6746	0.45266	0.862757
61	79.36	80.4621	80.5462	-0.0841736	-1.10208
62	79.44	80.4029	80.4608	-0.0579236	-0.96291
63	79.46	80.3796	80.3812	-0.00167361	-0.919576
64	79.77	80.256	80.2887	-0.0327569	-0.485993
65	79.49	79.9374	80.1888	-0.25134	-0.44741
66	79.42	79.7991	80.0871	-0.288007	-0.379076
67	80.32	NA	NA	-0.20934	NA
68	80.48	NA	NA	-0.164674	NA
69	80.6	NA	NA	-0.0560903	NA
70	80.53	NA	NA	0.219826	NA
71	80.84	NA	NA	0.473493	NA
72	80.68	NA	NA	0.45266	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,signif(m$trend[i]+m$seasonal[i],6)) else a<-table.element(a,signif(m$trend[i]*m$seasonal[i],6))
a<-table.element(a,signif(m$trend[i],6))
a<-table.element(a,signif(m$seasonal[i],6))
a<-table.element(a,signif(m$random[i],6))
a<-table.row.end(a)
}
a<-table.end(a)
table.save(a,file='mytable.tab')

Free Statistics

Description of Statistical Computation

Tree of Dependent Computations

Dataset

Tables (Output of Computation)

Figures (Output of Computation)

Input Parameters & R Code