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

Mon, 09 Dec 2013 06:27:37 -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/2013/Dec/09/t1386588480tm77adk9ggy5wuw.htm/, Retrieved Sat, 20 Apr 2024 05:54:48 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=231618, Retrieved Sat, 20 Apr 2024 05:54:48 +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] [] [2013-12-09 11:27:37] [65fde7880dd4fc754cb993d7776a3fb6] [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	6 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 & 6 seconds \tabularnewline
R Server & 'Gwilym Jenkins' @ jenkins.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=231618&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]6 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=231618&T=0

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

Classical Decomposition by Moving Averages
t	Observations	Fit	Trend	Seasonal	Random
1	102.43	NA	NA	-0.675492	NA
2	102.43	NA	NA	-0.93952	NA
3	102.43	NA	NA	-1.20355	NA
4	102.43	NA	NA	-0.714242	NA
5	104.2	NA	NA	1.07173	NA
6	104.2	NA	NA	1.1727	NA
7	104.2	104.483	103.684	0.799161	-0.282911
8	104.2	104.409	103.831	0.577494	-0.208744
9	104.2	104.335	103.979	0.355828	-0.134578
10	104.2	104.241	104.126	0.114786	-0.0410359
11	104.2	104.215	104.363	-0.147436	-0.0150637
12	104.2	104.322	104.733	-0.411464	-0.121869
13	104.2	104.475	105.15	-0.675492	-0.274508
14	104.2	104.627	105.567	-0.93952	-0.427147
15	104.2	104.78	105.983	-1.20355	-0.579786
16	104.2	105.686	106.4	-0.714242	-1.48576
17	108.1	107.888	106.817	1.07173	0.211603
18	109.2	108.406	107.233	1.1727	0.793964
19	109.2	108.449	107.65	0.799161	0.750839
20	109.2	108.644	108.067	0.577494	0.555839
21	109.2	108.839	108.483	0.355828	0.360839
22	109.2	109.015	108.9	0.114786	0.185214
23	109.2	109.128	109.275	-0.147436	0.0724363
24	109.2	109.151	109.562	-0.411464	0.0489641
25	109.2	109.129	109.804	-0.675492	0.0713252
26	109.2	109.106	110.046	-0.93952	0.0936863
27	109.2	109.084	110.287	-1.20355	0.116047
28	109.2	109.815	110.529	-0.714242	-0.614925
29	112.1	111.843	110.771	1.07173	0.257436
30	112.1	112.185	111.012	1.1727	-0.0852025
31	112.1	112.053	111.254	0.799161	0.0466725
32	112.1	112.073	111.496	0.577494	0.0266725
33	112.1	112.093	111.738	0.355828	0.00667245
34	112.1	112.094	111.979	0.114786	0.00604745
35	112.1	112.065	112.213	-0.147436	0.0345197
36	112.1	112.027	112.439	-0.411464	0.0727141
37	112.1	111.989	112.665	-0.675492	0.110909
38	112.1	111.951	112.89	-0.93952	0.149103
39	112.1	111.913	113.116	-1.20355	0.187297
40	112.1	112.628	113.342	-0.714242	-0.527841
41	114.81	114.64	113.568	1.07173	0.170353
42	114.81	114.966	113.794	1.1727	-0.156453
43	114.81	114.819	114.02	0.799161	-0.00874421
44	114.81	114.823	114.245	0.577494	-0.0129109
45	114.81	114.827	114.471	0.355828	-0.0170775
46	114.81	114.812	114.697	0.114786	-0.00186921
47	114.81	114.694	114.842	-0.147436	0.11577
48	114.81	114.494	114.905	-0.411464	0.316464
49	114.81	114.293	114.968	-0.675492	0.517159
50	114.81	114.092	115.032	-0.93952	0.717853
51	114.81	113.891	115.095	-1.20355	0.918547
52	114.81	114.444	115.158	-0.714242	0.365909
53	115.57	116.293	115.222	1.07173	-0.723397
54	115.57	116.458	115.285	1.1727	-0.887703
55	115.57	116.147	115.348	0.799161	-0.577494
56	115.57	115.989	115.412	0.577494	-0.419161
57	115.57	115.831	115.475	0.355828	-0.260828
58	115.57	115.725	115.61	0.114786	-0.155203
59	115.57	115.639	115.786	-0.147436	-0.0688137
60	115.57	115.564	115.976	-0.411464	0.00563079
61	115.57	115.535	116.211	-0.675492	0.0346586
62	115.57	115.506	116.446	-0.93952	0.0636863
63	115.57	115.477	116.681	-1.20355	0.0927141
64	117.3	116.202	116.916	-0.714242	1.09841
65	117.3	118.223	117.151	1.07173	-0.922564
66	118.39	118.559	117.386	1.1727	-0.168536
67	118.39	118.42	117.621	0.799161	-0.0299942
68	118.39	118.433	117.856	0.577494	-0.0433275
69	118.39	118.447	118.091	0.355828	-0.0566609
70	118.39	118.485	118.37	0.114786	-0.0947859
71	118.39	118.63	118.778	-0.147436	-0.24048
72	118.39	118.814	119.225	-0.411464	-0.423536
73	118.39	118.951	119.627	-0.675492	-0.561175
74	118.39	119.089	120.028	-0.93952	-0.698814
75	118.39	119.226	120.43	-1.20355	-0.836453
76	121.18	120.117	120.832	-0.714242	1.06258
77	123.21	122.305	121.233	1.07173	0.904936
78	123.21	122.808	121.635	1.1727	0.402297
79	123.21	NA	NA	0.799161	NA
80	123.21	NA	NA	0.577494	NA
81	123.21	NA	NA	0.355828	NA
82	123.21	NA	NA	0.114786	NA
83	123.21	NA	NA	-0.147436	NA
84	123.21	NA	NA	-0.411464	NA

\begin{tabular}{lllllllll}
\hline
Classical Decomposition by Moving Averages \tabularnewline
t & Observations & Fit & Trend & Seasonal & Random \tabularnewline
1 & 102.43 & NA & NA & -0.675492 & NA \tabularnewline
2 & 102.43 & NA & NA & -0.93952 & NA \tabularnewline
3 & 102.43 & NA & NA & -1.20355 & NA \tabularnewline
4 & 102.43 & NA & NA & -0.714242 & NA \tabularnewline
5 & 104.2 & NA & NA & 1.07173 & NA \tabularnewline
6 & 104.2 & NA & NA & 1.1727 & NA \tabularnewline
7 & 104.2 & 104.483 & 103.684 & 0.799161 & -0.282911 \tabularnewline
8 & 104.2 & 104.409 & 103.831 & 0.577494 & -0.208744 \tabularnewline
9 & 104.2 & 104.335 & 103.979 & 0.355828 & -0.134578 \tabularnewline
10 & 104.2 & 104.241 & 104.126 & 0.114786 & -0.0410359 \tabularnewline
11 & 104.2 & 104.215 & 104.363 & -0.147436 & -0.0150637 \tabularnewline
12 & 104.2 & 104.322 & 104.733 & -0.411464 & -0.121869 \tabularnewline
13 & 104.2 & 104.475 & 105.15 & -0.675492 & -0.274508 \tabularnewline
14 & 104.2 & 104.627 & 105.567 & -0.93952 & -0.427147 \tabularnewline
15 & 104.2 & 104.78 & 105.983 & -1.20355 & -0.579786 \tabularnewline
16 & 104.2 & 105.686 & 106.4 & -0.714242 & -1.48576 \tabularnewline
17 & 108.1 & 107.888 & 106.817 & 1.07173 & 0.211603 \tabularnewline
18 & 109.2 & 108.406 & 107.233 & 1.1727 & 0.793964 \tabularnewline
19 & 109.2 & 108.449 & 107.65 & 0.799161 & 0.750839 \tabularnewline
20 & 109.2 & 108.644 & 108.067 & 0.577494 & 0.555839 \tabularnewline
21 & 109.2 & 108.839 & 108.483 & 0.355828 & 0.360839 \tabularnewline
22 & 109.2 & 109.015 & 108.9 & 0.114786 & 0.185214 \tabularnewline
23 & 109.2 & 109.128 & 109.275 & -0.147436 & 0.0724363 \tabularnewline
24 & 109.2 & 109.151 & 109.562 & -0.411464 & 0.0489641 \tabularnewline
25 & 109.2 & 109.129 & 109.804 & -0.675492 & 0.0713252 \tabularnewline
26 & 109.2 & 109.106 & 110.046 & -0.93952 & 0.0936863 \tabularnewline
27 & 109.2 & 109.084 & 110.287 & -1.20355 & 0.116047 \tabularnewline
28 & 109.2 & 109.815 & 110.529 & -0.714242 & -0.614925 \tabularnewline
29 & 112.1 & 111.843 & 110.771 & 1.07173 & 0.257436 \tabularnewline
30 & 112.1 & 112.185 & 111.012 & 1.1727 & -0.0852025 \tabularnewline
31 & 112.1 & 112.053 & 111.254 & 0.799161 & 0.0466725 \tabularnewline
32 & 112.1 & 112.073 & 111.496 & 0.577494 & 0.0266725 \tabularnewline
33 & 112.1 & 112.093 & 111.738 & 0.355828 & 0.00667245 \tabularnewline
34 & 112.1 & 112.094 & 111.979 & 0.114786 & 0.00604745 \tabularnewline
35 & 112.1 & 112.065 & 112.213 & -0.147436 & 0.0345197 \tabularnewline
36 & 112.1 & 112.027 & 112.439 & -0.411464 & 0.0727141 \tabularnewline
37 & 112.1 & 111.989 & 112.665 & -0.675492 & 0.110909 \tabularnewline
38 & 112.1 & 111.951 & 112.89 & -0.93952 & 0.149103 \tabularnewline
39 & 112.1 & 111.913 & 113.116 & -1.20355 & 0.187297 \tabularnewline
40 & 112.1 & 112.628 & 113.342 & -0.714242 & -0.527841 \tabularnewline
41 & 114.81 & 114.64 & 113.568 & 1.07173 & 0.170353 \tabularnewline
42 & 114.81 & 114.966 & 113.794 & 1.1727 & -0.156453 \tabularnewline
43 & 114.81 & 114.819 & 114.02 & 0.799161 & -0.00874421 \tabularnewline
44 & 114.81 & 114.823 & 114.245 & 0.577494 & -0.0129109 \tabularnewline
45 & 114.81 & 114.827 & 114.471 & 0.355828 & -0.0170775 \tabularnewline
46 & 114.81 & 114.812 & 114.697 & 0.114786 & -0.00186921 \tabularnewline
47 & 114.81 & 114.694 & 114.842 & -0.147436 & 0.11577 \tabularnewline
48 & 114.81 & 114.494 & 114.905 & -0.411464 & 0.316464 \tabularnewline
49 & 114.81 & 114.293 & 114.968 & -0.675492 & 0.517159 \tabularnewline
50 & 114.81 & 114.092 & 115.032 & -0.93952 & 0.717853 \tabularnewline
51 & 114.81 & 113.891 & 115.095 & -1.20355 & 0.918547 \tabularnewline
52 & 114.81 & 114.444 & 115.158 & -0.714242 & 0.365909 \tabularnewline
53 & 115.57 & 116.293 & 115.222 & 1.07173 & -0.723397 \tabularnewline
54 & 115.57 & 116.458 & 115.285 & 1.1727 & -0.887703 \tabularnewline
55 & 115.57 & 116.147 & 115.348 & 0.799161 & -0.577494 \tabularnewline
56 & 115.57 & 115.989 & 115.412 & 0.577494 & -0.419161 \tabularnewline
57 & 115.57 & 115.831 & 115.475 & 0.355828 & -0.260828 \tabularnewline
58 & 115.57 & 115.725 & 115.61 & 0.114786 & -0.155203 \tabularnewline
59 & 115.57 & 115.639 & 115.786 & -0.147436 & -0.0688137 \tabularnewline
60 & 115.57 & 115.564 & 115.976 & -0.411464 & 0.00563079 \tabularnewline
61 & 115.57 & 115.535 & 116.211 & -0.675492 & 0.0346586 \tabularnewline
62 & 115.57 & 115.506 & 116.446 & -0.93952 & 0.0636863 \tabularnewline
63 & 115.57 & 115.477 & 116.681 & -1.20355 & 0.0927141 \tabularnewline
64 & 117.3 & 116.202 & 116.916 & -0.714242 & 1.09841 \tabularnewline
65 & 117.3 & 118.223 & 117.151 & 1.07173 & -0.922564 \tabularnewline
66 & 118.39 & 118.559 & 117.386 & 1.1727 & -0.168536 \tabularnewline
67 & 118.39 & 118.42 & 117.621 & 0.799161 & -0.0299942 \tabularnewline
68 & 118.39 & 118.433 & 117.856 & 0.577494 & -0.0433275 \tabularnewline
69 & 118.39 & 118.447 & 118.091 & 0.355828 & -0.0566609 \tabularnewline
70 & 118.39 & 118.485 & 118.37 & 0.114786 & -0.0947859 \tabularnewline
71 & 118.39 & 118.63 & 118.778 & -0.147436 & -0.24048 \tabularnewline
72 & 118.39 & 118.814 & 119.225 & -0.411464 & -0.423536 \tabularnewline
73 & 118.39 & 118.951 & 119.627 & -0.675492 & -0.561175 \tabularnewline
74 & 118.39 & 119.089 & 120.028 & -0.93952 & -0.698814 \tabularnewline
75 & 118.39 & 119.226 & 120.43 & -1.20355 & -0.836453 \tabularnewline
76 & 121.18 & 120.117 & 120.832 & -0.714242 & 1.06258 \tabularnewline
77 & 123.21 & 122.305 & 121.233 & 1.07173 & 0.904936 \tabularnewline
78 & 123.21 & 122.808 & 121.635 & 1.1727 & 0.402297 \tabularnewline
79 & 123.21 & NA & NA & 0.799161 & NA \tabularnewline
80 & 123.21 & NA & NA & 0.577494 & NA \tabularnewline
81 & 123.21 & NA & NA & 0.355828 & NA \tabularnewline
82 & 123.21 & NA & NA & 0.114786 & NA \tabularnewline
83 & 123.21 & NA & NA & -0.147436 & NA \tabularnewline
84 & 123.21 & NA & NA & -0.411464 & NA \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=231618&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]102.43[/C][C]NA[/C][C]NA[/C][C]-0.675492[/C][C]NA[/C][/ROW]
[ROW][C]2[/C][C]102.43[/C][C]NA[/C][C]NA[/C][C]-0.93952[/C][C]NA[/C][/ROW]
[ROW][C]3[/C][C]102.43[/C][C]NA[/C][C]NA[/C][C]-1.20355[/C][C]NA[/C][/ROW]
[ROW][C]4[/C][C]102.43[/C][C]NA[/C][C]NA[/C][C]-0.714242[/C][C]NA[/C][/ROW]
[ROW][C]5[/C][C]104.2[/C][C]NA[/C][C]NA[/C][C]1.07173[/C][C]NA[/C][/ROW]
[ROW][C]6[/C][C]104.2[/C][C]NA[/C][C]NA[/C][C]1.1727[/C][C]NA[/C][/ROW]
[ROW][C]7[/C][C]104.2[/C][C]104.483[/C][C]103.684[/C][C]0.799161[/C][C]-0.282911[/C][/ROW]
[ROW][C]8[/C][C]104.2[/C][C]104.409[/C][C]103.831[/C][C]0.577494[/C][C]-0.208744[/C][/ROW]
[ROW][C]9[/C][C]104.2[/C][C]104.335[/C][C]103.979[/C][C]0.355828[/C][C]-0.134578[/C][/ROW]
[ROW][C]10[/C][C]104.2[/C][C]104.241[/C][C]104.126[/C][C]0.114786[/C][C]-0.0410359[/C][/ROW]
[ROW][C]11[/C][C]104.2[/C][C]104.215[/C][C]104.363[/C][C]-0.147436[/C][C]-0.0150637[/C][/ROW]
[ROW][C]12[/C][C]104.2[/C][C]104.322[/C][C]104.733[/C][C]-0.411464[/C][C]-0.121869[/C][/ROW]
[ROW][C]13[/C][C]104.2[/C][C]104.475[/C][C]105.15[/C][C]-0.675492[/C][C]-0.274508[/C][/ROW]
[ROW][C]14[/C][C]104.2[/C][C]104.627[/C][C]105.567[/C][C]-0.93952[/C][C]-0.427147[/C][/ROW]
[ROW][C]15[/C][C]104.2[/C][C]104.78[/C][C]105.983[/C][C]-1.20355[/C][C]-0.579786[/C][/ROW]
[ROW][C]16[/C][C]104.2[/C][C]105.686[/C][C]106.4[/C][C]-0.714242[/C][C]-1.48576[/C][/ROW]
[ROW][C]17[/C][C]108.1[/C][C]107.888[/C][C]106.817[/C][C]1.07173[/C][C]0.211603[/C][/ROW]
[ROW][C]18[/C][C]109.2[/C][C]108.406[/C][C]107.233[/C][C]1.1727[/C][C]0.793964[/C][/ROW]
[ROW][C]19[/C][C]109.2[/C][C]108.449[/C][C]107.65[/C][C]0.799161[/C][C]0.750839[/C][/ROW]
[ROW][C]20[/C][C]109.2[/C][C]108.644[/C][C]108.067[/C][C]0.577494[/C][C]0.555839[/C][/ROW]
[ROW][C]21[/C][C]109.2[/C][C]108.839[/C][C]108.483[/C][C]0.355828[/C][C]0.360839[/C][/ROW]
[ROW][C]22[/C][C]109.2[/C][C]109.015[/C][C]108.9[/C][C]0.114786[/C][C]0.185214[/C][/ROW]
[ROW][C]23[/C][C]109.2[/C][C]109.128[/C][C]109.275[/C][C]-0.147436[/C][C]0.0724363[/C][/ROW]
[ROW][C]24[/C][C]109.2[/C][C]109.151[/C][C]109.562[/C][C]-0.411464[/C][C]0.0489641[/C][/ROW]
[ROW][C]25[/C][C]109.2[/C][C]109.129[/C][C]109.804[/C][C]-0.675492[/C][C]0.0713252[/C][/ROW]
[ROW][C]26[/C][C]109.2[/C][C]109.106[/C][C]110.046[/C][C]-0.93952[/C][C]0.0936863[/C][/ROW]
[ROW][C]27[/C][C]109.2[/C][C]109.084[/C][C]110.287[/C][C]-1.20355[/C][C]0.116047[/C][/ROW]
[ROW][C]28[/C][C]109.2[/C][C]109.815[/C][C]110.529[/C][C]-0.714242[/C][C]-0.614925[/C][/ROW]
[ROW][C]29[/C][C]112.1[/C][C]111.843[/C][C]110.771[/C][C]1.07173[/C][C]0.257436[/C][/ROW]
[ROW][C]30[/C][C]112.1[/C][C]112.185[/C][C]111.012[/C][C]1.1727[/C][C]-0.0852025[/C][/ROW]
[ROW][C]31[/C][C]112.1[/C][C]112.053[/C][C]111.254[/C][C]0.799161[/C][C]0.0466725[/C][/ROW]
[ROW][C]32[/C][C]112.1[/C][C]112.073[/C][C]111.496[/C][C]0.577494[/C][C]0.0266725[/C][/ROW]
[ROW][C]33[/C][C]112.1[/C][C]112.093[/C][C]111.738[/C][C]0.355828[/C][C]0.00667245[/C][/ROW]
[ROW][C]34[/C][C]112.1[/C][C]112.094[/C][C]111.979[/C][C]0.114786[/C][C]0.00604745[/C][/ROW]
[ROW][C]35[/C][C]112.1[/C][C]112.065[/C][C]112.213[/C][C]-0.147436[/C][C]0.0345197[/C][/ROW]
[ROW][C]36[/C][C]112.1[/C][C]112.027[/C][C]112.439[/C][C]-0.411464[/C][C]0.0727141[/C][/ROW]
[ROW][C]37[/C][C]112.1[/C][C]111.989[/C][C]112.665[/C][C]-0.675492[/C][C]0.110909[/C][/ROW]
[ROW][C]38[/C][C]112.1[/C][C]111.951[/C][C]112.89[/C][C]-0.93952[/C][C]0.149103[/C][/ROW]
[ROW][C]39[/C][C]112.1[/C][C]111.913[/C][C]113.116[/C][C]-1.20355[/C][C]0.187297[/C][/ROW]
[ROW][C]40[/C][C]112.1[/C][C]112.628[/C][C]113.342[/C][C]-0.714242[/C][C]-0.527841[/C][/ROW]
[ROW][C]41[/C][C]114.81[/C][C]114.64[/C][C]113.568[/C][C]1.07173[/C][C]0.170353[/C][/ROW]
[ROW][C]42[/C][C]114.81[/C][C]114.966[/C][C]113.794[/C][C]1.1727[/C][C]-0.156453[/C][/ROW]
[ROW][C]43[/C][C]114.81[/C][C]114.819[/C][C]114.02[/C][C]0.799161[/C][C]-0.00874421[/C][/ROW]
[ROW][C]44[/C][C]114.81[/C][C]114.823[/C][C]114.245[/C][C]0.577494[/C][C]-0.0129109[/C][/ROW]
[ROW][C]45[/C][C]114.81[/C][C]114.827[/C][C]114.471[/C][C]0.355828[/C][C]-0.0170775[/C][/ROW]
[ROW][C]46[/C][C]114.81[/C][C]114.812[/C][C]114.697[/C][C]0.114786[/C][C]-0.00186921[/C][/ROW]
[ROW][C]47[/C][C]114.81[/C][C]114.694[/C][C]114.842[/C][C]-0.147436[/C][C]0.11577[/C][/ROW]
[ROW][C]48[/C][C]114.81[/C][C]114.494[/C][C]114.905[/C][C]-0.411464[/C][C]0.316464[/C][/ROW]
[ROW][C]49[/C][C]114.81[/C][C]114.293[/C][C]114.968[/C][C]-0.675492[/C][C]0.517159[/C][/ROW]
[ROW][C]50[/C][C]114.81[/C][C]114.092[/C][C]115.032[/C][C]-0.93952[/C][C]0.717853[/C][/ROW]
[ROW][C]51[/C][C]114.81[/C][C]113.891[/C][C]115.095[/C][C]-1.20355[/C][C]0.918547[/C][/ROW]
[ROW][C]52[/C][C]114.81[/C][C]114.444[/C][C]115.158[/C][C]-0.714242[/C][C]0.365909[/C][/ROW]
[ROW][C]53[/C][C]115.57[/C][C]116.293[/C][C]115.222[/C][C]1.07173[/C][C]-0.723397[/C][/ROW]
[ROW][C]54[/C][C]115.57[/C][C]116.458[/C][C]115.285[/C][C]1.1727[/C][C]-0.887703[/C][/ROW]
[ROW][C]55[/C][C]115.57[/C][C]116.147[/C][C]115.348[/C][C]0.799161[/C][C]-0.577494[/C][/ROW]
[ROW][C]56[/C][C]115.57[/C][C]115.989[/C][C]115.412[/C][C]0.577494[/C][C]-0.419161[/C][/ROW]
[ROW][C]57[/C][C]115.57[/C][C]115.831[/C][C]115.475[/C][C]0.355828[/C][C]-0.260828[/C][/ROW]
[ROW][C]58[/C][C]115.57[/C][C]115.725[/C][C]115.61[/C][C]0.114786[/C][C]-0.155203[/C][/ROW]
[ROW][C]59[/C][C]115.57[/C][C]115.639[/C][C]115.786[/C][C]-0.147436[/C][C]-0.0688137[/C][/ROW]
[ROW][C]60[/C][C]115.57[/C][C]115.564[/C][C]115.976[/C][C]-0.411464[/C][C]0.00563079[/C][/ROW]
[ROW][C]61[/C][C]115.57[/C][C]115.535[/C][C]116.211[/C][C]-0.675492[/C][C]0.0346586[/C][/ROW]
[ROW][C]62[/C][C]115.57[/C][C]115.506[/C][C]116.446[/C][C]-0.93952[/C][C]0.0636863[/C][/ROW]
[ROW][C]63[/C][C]115.57[/C][C]115.477[/C][C]116.681[/C][C]-1.20355[/C][C]0.0927141[/C][/ROW]
[ROW][C]64[/C][C]117.3[/C][C]116.202[/C][C]116.916[/C][C]-0.714242[/C][C]1.09841[/C][/ROW]
[ROW][C]65[/C][C]117.3[/C][C]118.223[/C][C]117.151[/C][C]1.07173[/C][C]-0.922564[/C][/ROW]
[ROW][C]66[/C][C]118.39[/C][C]118.559[/C][C]117.386[/C][C]1.1727[/C][C]-0.168536[/C][/ROW]
[ROW][C]67[/C][C]118.39[/C][C]118.42[/C][C]117.621[/C][C]0.799161[/C][C]-0.0299942[/C][/ROW]
[ROW][C]68[/C][C]118.39[/C][C]118.433[/C][C]117.856[/C][C]0.577494[/C][C]-0.0433275[/C][/ROW]
[ROW][C]69[/C][C]118.39[/C][C]118.447[/C][C]118.091[/C][C]0.355828[/C][C]-0.0566609[/C][/ROW]
[ROW][C]70[/C][C]118.39[/C][C]118.485[/C][C]118.37[/C][C]0.114786[/C][C]-0.0947859[/C][/ROW]
[ROW][C]71[/C][C]118.39[/C][C]118.63[/C][C]118.778[/C][C]-0.147436[/C][C]-0.24048[/C][/ROW]
[ROW][C]72[/C][C]118.39[/C][C]118.814[/C][C]119.225[/C][C]-0.411464[/C][C]-0.423536[/C][/ROW]
[ROW][C]73[/C][C]118.39[/C][C]118.951[/C][C]119.627[/C][C]-0.675492[/C][C]-0.561175[/C][/ROW]
[ROW][C]74[/C][C]118.39[/C][C]119.089[/C][C]120.028[/C][C]-0.93952[/C][C]-0.698814[/C][/ROW]
[ROW][C]75[/C][C]118.39[/C][C]119.226[/C][C]120.43[/C][C]-1.20355[/C][C]-0.836453[/C][/ROW]
[ROW][C]76[/C][C]121.18[/C][C]120.117[/C][C]120.832[/C][C]-0.714242[/C][C]1.06258[/C][/ROW]
[ROW][C]77[/C][C]123.21[/C][C]122.305[/C][C]121.233[/C][C]1.07173[/C][C]0.904936[/C][/ROW]
[ROW][C]78[/C][C]123.21[/C][C]122.808[/C][C]121.635[/C][C]1.1727[/C][C]0.402297[/C][/ROW]
[ROW][C]79[/C][C]123.21[/C][C]NA[/C][C]NA[/C][C]0.799161[/C][C]NA[/C][/ROW]
[ROW][C]80[/C][C]123.21[/C][C]NA[/C][C]NA[/C][C]0.577494[/C][C]NA[/C][/ROW]
[ROW][C]81[/C][C]123.21[/C][C]NA[/C][C]NA[/C][C]0.355828[/C][C]NA[/C][/ROW]
[ROW][C]82[/C][C]123.21[/C][C]NA[/C][C]NA[/C][C]0.114786[/C][C]NA[/C][/ROW]
[ROW][C]83[/C][C]123.21[/C][C]NA[/C][C]NA[/C][C]-0.147436[/C][C]NA[/C][/ROW]
[ROW][C]84[/C][C]123.21[/C][C]NA[/C][C]NA[/C][C]-0.411464[/C][C]NA[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=231618&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=231618&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	102.43	NA	NA	-0.675492	NA
2	102.43	NA	NA	-0.93952	NA
3	102.43	NA	NA	-1.20355	NA
4	102.43	NA	NA	-0.714242	NA
5	104.2	NA	NA	1.07173	NA
6	104.2	NA	NA	1.1727	NA
7	104.2	104.483	103.684	0.799161	-0.282911
8	104.2	104.409	103.831	0.577494	-0.208744
9	104.2	104.335	103.979	0.355828	-0.134578
10	104.2	104.241	104.126	0.114786	-0.0410359
11	104.2	104.215	104.363	-0.147436	-0.0150637
12	104.2	104.322	104.733	-0.411464	-0.121869
13	104.2	104.475	105.15	-0.675492	-0.274508
14	104.2	104.627	105.567	-0.93952	-0.427147
15	104.2	104.78	105.983	-1.20355	-0.579786
16	104.2	105.686	106.4	-0.714242	-1.48576
17	108.1	107.888	106.817	1.07173	0.211603
18	109.2	108.406	107.233	1.1727	0.793964
19	109.2	108.449	107.65	0.799161	0.750839
20	109.2	108.644	108.067	0.577494	0.555839
21	109.2	108.839	108.483	0.355828	0.360839
22	109.2	109.015	108.9	0.114786	0.185214
23	109.2	109.128	109.275	-0.147436	0.0724363
24	109.2	109.151	109.562	-0.411464	0.0489641
25	109.2	109.129	109.804	-0.675492	0.0713252
26	109.2	109.106	110.046	-0.93952	0.0936863
27	109.2	109.084	110.287	-1.20355	0.116047
28	109.2	109.815	110.529	-0.714242	-0.614925
29	112.1	111.843	110.771	1.07173	0.257436
30	112.1	112.185	111.012	1.1727	-0.0852025
31	112.1	112.053	111.254	0.799161	0.0466725
32	112.1	112.073	111.496	0.577494	0.0266725
33	112.1	112.093	111.738	0.355828	0.00667245
34	112.1	112.094	111.979	0.114786	0.00604745
35	112.1	112.065	112.213	-0.147436	0.0345197
36	112.1	112.027	112.439	-0.411464	0.0727141
37	112.1	111.989	112.665	-0.675492	0.110909
38	112.1	111.951	112.89	-0.93952	0.149103
39	112.1	111.913	113.116	-1.20355	0.187297
40	112.1	112.628	113.342	-0.714242	-0.527841
41	114.81	114.64	113.568	1.07173	0.170353
42	114.81	114.966	113.794	1.1727	-0.156453
43	114.81	114.819	114.02	0.799161	-0.00874421
44	114.81	114.823	114.245	0.577494	-0.0129109
45	114.81	114.827	114.471	0.355828	-0.0170775
46	114.81	114.812	114.697	0.114786	-0.00186921
47	114.81	114.694	114.842	-0.147436	0.11577
48	114.81	114.494	114.905	-0.411464	0.316464
49	114.81	114.293	114.968	-0.675492	0.517159
50	114.81	114.092	115.032	-0.93952	0.717853
51	114.81	113.891	115.095	-1.20355	0.918547
52	114.81	114.444	115.158	-0.714242	0.365909
53	115.57	116.293	115.222	1.07173	-0.723397
54	115.57	116.458	115.285	1.1727	-0.887703
55	115.57	116.147	115.348	0.799161	-0.577494
56	115.57	115.989	115.412	0.577494	-0.419161
57	115.57	115.831	115.475	0.355828	-0.260828
58	115.57	115.725	115.61	0.114786	-0.155203
59	115.57	115.639	115.786	-0.147436	-0.0688137
60	115.57	115.564	115.976	-0.411464	0.00563079
61	115.57	115.535	116.211	-0.675492	0.0346586
62	115.57	115.506	116.446	-0.93952	0.0636863
63	115.57	115.477	116.681	-1.20355	0.0927141
64	117.3	116.202	116.916	-0.714242	1.09841
65	117.3	118.223	117.151	1.07173	-0.922564
66	118.39	118.559	117.386	1.1727	-0.168536
67	118.39	118.42	117.621	0.799161	-0.0299942
68	118.39	118.433	117.856	0.577494	-0.0433275
69	118.39	118.447	118.091	0.355828	-0.0566609
70	118.39	118.485	118.37	0.114786	-0.0947859
71	118.39	118.63	118.778	-0.147436	-0.24048
72	118.39	118.814	119.225	-0.411464	-0.423536
73	118.39	118.951	119.627	-0.675492	-0.561175
74	118.39	119.089	120.028	-0.93952	-0.698814
75	118.39	119.226	120.43	-1.20355	-0.836453
76	121.18	120.117	120.832	-0.714242	1.06258
77	123.21	122.305	121.233	1.07173	0.904936
78	123.21	122.808	121.635	1.1727	0.402297
79	123.21	NA	NA	0.799161	NA
80	123.21	NA	NA	0.577494	NA
81	123.21	NA	NA	0.355828	NA
82	123.21	NA	NA	0.114786	NA
83	123.21	NA	NA	-0.147436	NA
84	123.21	NA	NA	-0.411464	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