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

Thu, 27 Nov 2014 09:20:37 +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/27/t1417080069vv4n93pf3mdt3f9.htm/, Retrieved Sun, 19 May 2024 21:32:56 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=259554, Retrieved Sun, 19 May 2024 21:32:56 +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-27 09:20:37] [1b1e43390f81e2233427cd22b8161931] [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	'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=259554&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=259554&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=259554&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	122.5	NA	NA	-0.0216667	NA
2	123.1	NA	NA	0.345	NA
3	123.1	NA	NA	0.171667	NA
4	124.4	NA	NA	0.198333	NA
5	124.4	NA	NA	0.045	NA
6	124.6	NA	NA	-0.0683333	NA
7	125.9	125.187	125.029	0.158333	0.7125
8	125.9	125.664	125.525	0.139167	0.235833
9	125.9	125.983	126.042	-0.0591667	-0.0825
10	125.9	126.438	126.504	-0.0666667	-0.5375
11	125.9	126.649	126.913	-0.263333	-0.749167
12	125.9	126.738	127.317	-0.578333	-0.838333
13	128.2	127.649	127.671	-0.0216667	0.550833
14	129.3	128.324	127.979	0.345	0.975833
15	129.3	128.459	128.288	0.171667	0.840833
16	129.3	128.811	128.613	0.198333	0.489167
17	129.3	128.999	128.954	0.045	0.300833
18	129.4	129.203	129.271	-0.0683333	0.1975
19	129.6	129.658	129.5	0.158333	-0.0583333
20	129.6	129.76	129.621	0.139167	-0.16
21	129.6	129.637	129.696	-0.0591667	-0.0366667
22	130	129.708	129.775	-0.0666667	0.291667
23	130	129.595	129.858	-0.263333	0.405
24	129.4	129.359	129.937	-0.578333	0.0408333
25	130.2	129.999	130.021	-0.0216667	0.200833
26	130.2	130.457	130.112	0.345	-0.2575
27	130.2	130.376	130.204	0.171667	-0.175833
28	130.3	130.486	130.287	0.198333	-0.185833
29	130.3	130.407	130.362	0.045	-0.1075
30	130.3	130.394	130.462	-0.0683333	-0.0941667
31	130.7	130.725	130.567	0.158333	-0.025
32	130.7	130.814	130.675	0.139167	-0.114167
33	130.7	130.749	130.808	-0.0591667	-0.0491667
34	130.9	130.871	130.938	-0.0666667	0.0291667
35	130.9	130.803	131.067	-0.263333	0.0966667
36	130.9	130.626	131.204	-0.578333	0.274167
37	131.2	131.32	131.342	-0.0216667	-0.12
38	131.8	131.82	131.475	0.345	-0.02
39	131.8	131.784	131.612	0.171667	0.0158333
40	131.8	131.961	131.763	0.198333	-0.160833
41	131.9	131.966	131.921	0.045	-0.0658333
42	132	132.011	132.079	-0.0683333	-0.0108333
43	132.3	132.392	132.233	0.158333	-0.0916667
44	132.3	132.518	132.379	0.139167	-0.218333
45	132.4	132.462	132.521	-0.0591667	-0.0616667
46	132.8	132.633	132.7	-0.0666667	0.166667
47	132.8	132.649	132.912	-0.263333	0.150833
48	132.8	132.543	133.121	-0.578333	0.2575
49	133	133.299	133.321	-0.0216667	-0.299167
50	133.5	133.899	133.554	0.345	-0.399167
51	133.5	133.997	133.825	0.171667	-0.496667
52	134.4	134.273	134.075	0.198333	0.126667
53	134.4	134.353	134.308	0.045	0.0466667
54	134.5	134.473	134.542	-0.0683333	0.0266667
55	134.6	134.929	134.771	0.158333	-0.329167
56	135.6	135.135	134.996	0.139167	0.465
57	135.6	135.162	135.221	-0.0591667	0.438333
58	135.6	135.342	135.408	-0.0666667	0.258333
59	135.6	135.295	135.558	-0.263333	0.305
60	135.6	135.126	135.704	-0.578333	0.474167
61	135.7	135.824	135.846	-0.0216667	-0.124167
62	136.2	136.291	135.946	0.345	-0.0908333
63	136.2	136.176	136.004	0.171667	0.0241667
64	136.2	136.261	136.062	0.198333	-0.0608333
65	136.2	136.166	136.121	0.045	0.0341667
66	136.2	136.111	136.179	-0.0683333	0.0891667
67	136.3	NA	NA	0.158333	NA
68	136.3	NA	NA	0.139167	NA
69	136.3	NA	NA	-0.0591667	NA
70	136.3	NA	NA	-0.0666667	NA
71	136.3	NA	NA	-0.263333	NA
72	136.3	NA	NA	-0.578333	NA

\begin{tabular}{lllllllll}
\hline
Classical Decomposition by Moving Averages \tabularnewline
t & Observations & Fit & Trend & Seasonal & Random \tabularnewline
1 & 122.5 & NA & NA & -0.0216667 & NA \tabularnewline
2 & 123.1 & NA & NA & 0.345 & NA \tabularnewline
3 & 123.1 & NA & NA & 0.171667 & NA \tabularnewline
4 & 124.4 & NA & NA & 0.198333 & NA \tabularnewline
5 & 124.4 & NA & NA & 0.045 & NA \tabularnewline
6 & 124.6 & NA & NA & -0.0683333 & NA \tabularnewline
7 & 125.9 & 125.187 & 125.029 & 0.158333 & 0.7125 \tabularnewline
8 & 125.9 & 125.664 & 125.525 & 0.139167 & 0.235833 \tabularnewline
9 & 125.9 & 125.983 & 126.042 & -0.0591667 & -0.0825 \tabularnewline
10 & 125.9 & 126.438 & 126.504 & -0.0666667 & -0.5375 \tabularnewline
11 & 125.9 & 126.649 & 126.913 & -0.263333 & -0.749167 \tabularnewline
12 & 125.9 & 126.738 & 127.317 & -0.578333 & -0.838333 \tabularnewline
13 & 128.2 & 127.649 & 127.671 & -0.0216667 & 0.550833 \tabularnewline
14 & 129.3 & 128.324 & 127.979 & 0.345 & 0.975833 \tabularnewline
15 & 129.3 & 128.459 & 128.288 & 0.171667 & 0.840833 \tabularnewline
16 & 129.3 & 128.811 & 128.613 & 0.198333 & 0.489167 \tabularnewline
17 & 129.3 & 128.999 & 128.954 & 0.045 & 0.300833 \tabularnewline
18 & 129.4 & 129.203 & 129.271 & -0.0683333 & 0.1975 \tabularnewline
19 & 129.6 & 129.658 & 129.5 & 0.158333 & -0.0583333 \tabularnewline
20 & 129.6 & 129.76 & 129.621 & 0.139167 & -0.16 \tabularnewline
21 & 129.6 & 129.637 & 129.696 & -0.0591667 & -0.0366667 \tabularnewline
22 & 130 & 129.708 & 129.775 & -0.0666667 & 0.291667 \tabularnewline
23 & 130 & 129.595 & 129.858 & -0.263333 & 0.405 \tabularnewline
24 & 129.4 & 129.359 & 129.937 & -0.578333 & 0.0408333 \tabularnewline
25 & 130.2 & 129.999 & 130.021 & -0.0216667 & 0.200833 \tabularnewline
26 & 130.2 & 130.457 & 130.112 & 0.345 & -0.2575 \tabularnewline
27 & 130.2 & 130.376 & 130.204 & 0.171667 & -0.175833 \tabularnewline
28 & 130.3 & 130.486 & 130.287 & 0.198333 & -0.185833 \tabularnewline
29 & 130.3 & 130.407 & 130.362 & 0.045 & -0.1075 \tabularnewline
30 & 130.3 & 130.394 & 130.462 & -0.0683333 & -0.0941667 \tabularnewline
31 & 130.7 & 130.725 & 130.567 & 0.158333 & -0.025 \tabularnewline
32 & 130.7 & 130.814 & 130.675 & 0.139167 & -0.114167 \tabularnewline
33 & 130.7 & 130.749 & 130.808 & -0.0591667 & -0.0491667 \tabularnewline
34 & 130.9 & 130.871 & 130.938 & -0.0666667 & 0.0291667 \tabularnewline
35 & 130.9 & 130.803 & 131.067 & -0.263333 & 0.0966667 \tabularnewline
36 & 130.9 & 130.626 & 131.204 & -0.578333 & 0.274167 \tabularnewline
37 & 131.2 & 131.32 & 131.342 & -0.0216667 & -0.12 \tabularnewline
38 & 131.8 & 131.82 & 131.475 & 0.345 & -0.02 \tabularnewline
39 & 131.8 & 131.784 & 131.612 & 0.171667 & 0.0158333 \tabularnewline
40 & 131.8 & 131.961 & 131.763 & 0.198333 & -0.160833 \tabularnewline
41 & 131.9 & 131.966 & 131.921 & 0.045 & -0.0658333 \tabularnewline
42 & 132 & 132.011 & 132.079 & -0.0683333 & -0.0108333 \tabularnewline
43 & 132.3 & 132.392 & 132.233 & 0.158333 & -0.0916667 \tabularnewline
44 & 132.3 & 132.518 & 132.379 & 0.139167 & -0.218333 \tabularnewline
45 & 132.4 & 132.462 & 132.521 & -0.0591667 & -0.0616667 \tabularnewline
46 & 132.8 & 132.633 & 132.7 & -0.0666667 & 0.166667 \tabularnewline
47 & 132.8 & 132.649 & 132.912 & -0.263333 & 0.150833 \tabularnewline
48 & 132.8 & 132.543 & 133.121 & -0.578333 & 0.2575 \tabularnewline
49 & 133 & 133.299 & 133.321 & -0.0216667 & -0.299167 \tabularnewline
50 & 133.5 & 133.899 & 133.554 & 0.345 & -0.399167 \tabularnewline
51 & 133.5 & 133.997 & 133.825 & 0.171667 & -0.496667 \tabularnewline
52 & 134.4 & 134.273 & 134.075 & 0.198333 & 0.126667 \tabularnewline
53 & 134.4 & 134.353 & 134.308 & 0.045 & 0.0466667 \tabularnewline
54 & 134.5 & 134.473 & 134.542 & -0.0683333 & 0.0266667 \tabularnewline
55 & 134.6 & 134.929 & 134.771 & 0.158333 & -0.329167 \tabularnewline
56 & 135.6 & 135.135 & 134.996 & 0.139167 & 0.465 \tabularnewline
57 & 135.6 & 135.162 & 135.221 & -0.0591667 & 0.438333 \tabularnewline
58 & 135.6 & 135.342 & 135.408 & -0.0666667 & 0.258333 \tabularnewline
59 & 135.6 & 135.295 & 135.558 & -0.263333 & 0.305 \tabularnewline
60 & 135.6 & 135.126 & 135.704 & -0.578333 & 0.474167 \tabularnewline
61 & 135.7 & 135.824 & 135.846 & -0.0216667 & -0.124167 \tabularnewline
62 & 136.2 & 136.291 & 135.946 & 0.345 & -0.0908333 \tabularnewline
63 & 136.2 & 136.176 & 136.004 & 0.171667 & 0.0241667 \tabularnewline
64 & 136.2 & 136.261 & 136.062 & 0.198333 & -0.0608333 \tabularnewline
65 & 136.2 & 136.166 & 136.121 & 0.045 & 0.0341667 \tabularnewline
66 & 136.2 & 136.111 & 136.179 & -0.0683333 & 0.0891667 \tabularnewline
67 & 136.3 & NA & NA & 0.158333 & NA \tabularnewline
68 & 136.3 & NA & NA & 0.139167 & NA \tabularnewline
69 & 136.3 & NA & NA & -0.0591667 & NA \tabularnewline
70 & 136.3 & NA & NA & -0.0666667 & NA \tabularnewline
71 & 136.3 & NA & NA & -0.263333 & NA \tabularnewline
72 & 136.3 & NA & NA & -0.578333 & NA \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=259554&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]122.5[/C][C]NA[/C][C]NA[/C][C]-0.0216667[/C][C]NA[/C][/ROW]
[ROW][C]2[/C][C]123.1[/C][C]NA[/C][C]NA[/C][C]0.345[/C][C]NA[/C][/ROW]
[ROW][C]3[/C][C]123.1[/C][C]NA[/C][C]NA[/C][C]0.171667[/C][C]NA[/C][/ROW]
[ROW][C]4[/C][C]124.4[/C][C]NA[/C][C]NA[/C][C]0.198333[/C][C]NA[/C][/ROW]
[ROW][C]5[/C][C]124.4[/C][C]NA[/C][C]NA[/C][C]0.045[/C][C]NA[/C][/ROW]
[ROW][C]6[/C][C]124.6[/C][C]NA[/C][C]NA[/C][C]-0.0683333[/C][C]NA[/C][/ROW]
[ROW][C]7[/C][C]125.9[/C][C]125.187[/C][C]125.029[/C][C]0.158333[/C][C]0.7125[/C][/ROW]
[ROW][C]8[/C][C]125.9[/C][C]125.664[/C][C]125.525[/C][C]0.139167[/C][C]0.235833[/C][/ROW]
[ROW][C]9[/C][C]125.9[/C][C]125.983[/C][C]126.042[/C][C]-0.0591667[/C][C]-0.0825[/C][/ROW]
[ROW][C]10[/C][C]125.9[/C][C]126.438[/C][C]126.504[/C][C]-0.0666667[/C][C]-0.5375[/C][/ROW]
[ROW][C]11[/C][C]125.9[/C][C]126.649[/C][C]126.913[/C][C]-0.263333[/C][C]-0.749167[/C][/ROW]
[ROW][C]12[/C][C]125.9[/C][C]126.738[/C][C]127.317[/C][C]-0.578333[/C][C]-0.838333[/C][/ROW]
[ROW][C]13[/C][C]128.2[/C][C]127.649[/C][C]127.671[/C][C]-0.0216667[/C][C]0.550833[/C][/ROW]
[ROW][C]14[/C][C]129.3[/C][C]128.324[/C][C]127.979[/C][C]0.345[/C][C]0.975833[/C][/ROW]
[ROW][C]15[/C][C]129.3[/C][C]128.459[/C][C]128.288[/C][C]0.171667[/C][C]0.840833[/C][/ROW]
[ROW][C]16[/C][C]129.3[/C][C]128.811[/C][C]128.613[/C][C]0.198333[/C][C]0.489167[/C][/ROW]
[ROW][C]17[/C][C]129.3[/C][C]128.999[/C][C]128.954[/C][C]0.045[/C][C]0.300833[/C][/ROW]
[ROW][C]18[/C][C]129.4[/C][C]129.203[/C][C]129.271[/C][C]-0.0683333[/C][C]0.1975[/C][/ROW]
[ROW][C]19[/C][C]129.6[/C][C]129.658[/C][C]129.5[/C][C]0.158333[/C][C]-0.0583333[/C][/ROW]
[ROW][C]20[/C][C]129.6[/C][C]129.76[/C][C]129.621[/C][C]0.139167[/C][C]-0.16[/C][/ROW]
[ROW][C]21[/C][C]129.6[/C][C]129.637[/C][C]129.696[/C][C]-0.0591667[/C][C]-0.0366667[/C][/ROW]
[ROW][C]22[/C][C]130[/C][C]129.708[/C][C]129.775[/C][C]-0.0666667[/C][C]0.291667[/C][/ROW]
[ROW][C]23[/C][C]130[/C][C]129.595[/C][C]129.858[/C][C]-0.263333[/C][C]0.405[/C][/ROW]
[ROW][C]24[/C][C]129.4[/C][C]129.359[/C][C]129.937[/C][C]-0.578333[/C][C]0.0408333[/C][/ROW]
[ROW][C]25[/C][C]130.2[/C][C]129.999[/C][C]130.021[/C][C]-0.0216667[/C][C]0.200833[/C][/ROW]
[ROW][C]26[/C][C]130.2[/C][C]130.457[/C][C]130.112[/C][C]0.345[/C][C]-0.2575[/C][/ROW]
[ROW][C]27[/C][C]130.2[/C][C]130.376[/C][C]130.204[/C][C]0.171667[/C][C]-0.175833[/C][/ROW]
[ROW][C]28[/C][C]130.3[/C][C]130.486[/C][C]130.287[/C][C]0.198333[/C][C]-0.185833[/C][/ROW]
[ROW][C]29[/C][C]130.3[/C][C]130.407[/C][C]130.362[/C][C]0.045[/C][C]-0.1075[/C][/ROW]
[ROW][C]30[/C][C]130.3[/C][C]130.394[/C][C]130.462[/C][C]-0.0683333[/C][C]-0.0941667[/C][/ROW]
[ROW][C]31[/C][C]130.7[/C][C]130.725[/C][C]130.567[/C][C]0.158333[/C][C]-0.025[/C][/ROW]
[ROW][C]32[/C][C]130.7[/C][C]130.814[/C][C]130.675[/C][C]0.139167[/C][C]-0.114167[/C][/ROW]
[ROW][C]33[/C][C]130.7[/C][C]130.749[/C][C]130.808[/C][C]-0.0591667[/C][C]-0.0491667[/C][/ROW]
[ROW][C]34[/C][C]130.9[/C][C]130.871[/C][C]130.938[/C][C]-0.0666667[/C][C]0.0291667[/C][/ROW]
[ROW][C]35[/C][C]130.9[/C][C]130.803[/C][C]131.067[/C][C]-0.263333[/C][C]0.0966667[/C][/ROW]
[ROW][C]36[/C][C]130.9[/C][C]130.626[/C][C]131.204[/C][C]-0.578333[/C][C]0.274167[/C][/ROW]
[ROW][C]37[/C][C]131.2[/C][C]131.32[/C][C]131.342[/C][C]-0.0216667[/C][C]-0.12[/C][/ROW]
[ROW][C]38[/C][C]131.8[/C][C]131.82[/C][C]131.475[/C][C]0.345[/C][C]-0.02[/C][/ROW]
[ROW][C]39[/C][C]131.8[/C][C]131.784[/C][C]131.612[/C][C]0.171667[/C][C]0.0158333[/C][/ROW]
[ROW][C]40[/C][C]131.8[/C][C]131.961[/C][C]131.763[/C][C]0.198333[/C][C]-0.160833[/C][/ROW]
[ROW][C]41[/C][C]131.9[/C][C]131.966[/C][C]131.921[/C][C]0.045[/C][C]-0.0658333[/C][/ROW]
[ROW][C]42[/C][C]132[/C][C]132.011[/C][C]132.079[/C][C]-0.0683333[/C][C]-0.0108333[/C][/ROW]
[ROW][C]43[/C][C]132.3[/C][C]132.392[/C][C]132.233[/C][C]0.158333[/C][C]-0.0916667[/C][/ROW]
[ROW][C]44[/C][C]132.3[/C][C]132.518[/C][C]132.379[/C][C]0.139167[/C][C]-0.218333[/C][/ROW]
[ROW][C]45[/C][C]132.4[/C][C]132.462[/C][C]132.521[/C][C]-0.0591667[/C][C]-0.0616667[/C][/ROW]
[ROW][C]46[/C][C]132.8[/C][C]132.633[/C][C]132.7[/C][C]-0.0666667[/C][C]0.166667[/C][/ROW]
[ROW][C]47[/C][C]132.8[/C][C]132.649[/C][C]132.912[/C][C]-0.263333[/C][C]0.150833[/C][/ROW]
[ROW][C]48[/C][C]132.8[/C][C]132.543[/C][C]133.121[/C][C]-0.578333[/C][C]0.2575[/C][/ROW]
[ROW][C]49[/C][C]133[/C][C]133.299[/C][C]133.321[/C][C]-0.0216667[/C][C]-0.299167[/C][/ROW]
[ROW][C]50[/C][C]133.5[/C][C]133.899[/C][C]133.554[/C][C]0.345[/C][C]-0.399167[/C][/ROW]
[ROW][C]51[/C][C]133.5[/C][C]133.997[/C][C]133.825[/C][C]0.171667[/C][C]-0.496667[/C][/ROW]
[ROW][C]52[/C][C]134.4[/C][C]134.273[/C][C]134.075[/C][C]0.198333[/C][C]0.126667[/C][/ROW]
[ROW][C]53[/C][C]134.4[/C][C]134.353[/C][C]134.308[/C][C]0.045[/C][C]0.0466667[/C][/ROW]
[ROW][C]54[/C][C]134.5[/C][C]134.473[/C][C]134.542[/C][C]-0.0683333[/C][C]0.0266667[/C][/ROW]
[ROW][C]55[/C][C]134.6[/C][C]134.929[/C][C]134.771[/C][C]0.158333[/C][C]-0.329167[/C][/ROW]
[ROW][C]56[/C][C]135.6[/C][C]135.135[/C][C]134.996[/C][C]0.139167[/C][C]0.465[/C][/ROW]
[ROW][C]57[/C][C]135.6[/C][C]135.162[/C][C]135.221[/C][C]-0.0591667[/C][C]0.438333[/C][/ROW]
[ROW][C]58[/C][C]135.6[/C][C]135.342[/C][C]135.408[/C][C]-0.0666667[/C][C]0.258333[/C][/ROW]
[ROW][C]59[/C][C]135.6[/C][C]135.295[/C][C]135.558[/C][C]-0.263333[/C][C]0.305[/C][/ROW]
[ROW][C]60[/C][C]135.6[/C][C]135.126[/C][C]135.704[/C][C]-0.578333[/C][C]0.474167[/C][/ROW]
[ROW][C]61[/C][C]135.7[/C][C]135.824[/C][C]135.846[/C][C]-0.0216667[/C][C]-0.124167[/C][/ROW]
[ROW][C]62[/C][C]136.2[/C][C]136.291[/C][C]135.946[/C][C]0.345[/C][C]-0.0908333[/C][/ROW]
[ROW][C]63[/C][C]136.2[/C][C]136.176[/C][C]136.004[/C][C]0.171667[/C][C]0.0241667[/C][/ROW]
[ROW][C]64[/C][C]136.2[/C][C]136.261[/C][C]136.062[/C][C]0.198333[/C][C]-0.0608333[/C][/ROW]
[ROW][C]65[/C][C]136.2[/C][C]136.166[/C][C]136.121[/C][C]0.045[/C][C]0.0341667[/C][/ROW]
[ROW][C]66[/C][C]136.2[/C][C]136.111[/C][C]136.179[/C][C]-0.0683333[/C][C]0.0891667[/C][/ROW]
[ROW][C]67[/C][C]136.3[/C][C]NA[/C][C]NA[/C][C]0.158333[/C][C]NA[/C][/ROW]
[ROW][C]68[/C][C]136.3[/C][C]NA[/C][C]NA[/C][C]0.139167[/C][C]NA[/C][/ROW]
[ROW][C]69[/C][C]136.3[/C][C]NA[/C][C]NA[/C][C]-0.0591667[/C][C]NA[/C][/ROW]
[ROW][C]70[/C][C]136.3[/C][C]NA[/C][C]NA[/C][C]-0.0666667[/C][C]NA[/C][/ROW]
[ROW][C]71[/C][C]136.3[/C][C]NA[/C][C]NA[/C][C]-0.263333[/C][C]NA[/C][/ROW]
[ROW][C]72[/C][C]136.3[/C][C]NA[/C][C]NA[/C][C]-0.578333[/C][C]NA[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=259554&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=259554&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	122.5	NA	NA	-0.0216667	NA
2	123.1	NA	NA	0.345	NA
3	123.1	NA	NA	0.171667	NA
4	124.4	NA	NA	0.198333	NA
5	124.4	NA	NA	0.045	NA
6	124.6	NA	NA	-0.0683333	NA
7	125.9	125.187	125.029	0.158333	0.7125
8	125.9	125.664	125.525	0.139167	0.235833
9	125.9	125.983	126.042	-0.0591667	-0.0825
10	125.9	126.438	126.504	-0.0666667	-0.5375
11	125.9	126.649	126.913	-0.263333	-0.749167
12	125.9	126.738	127.317	-0.578333	-0.838333
13	128.2	127.649	127.671	-0.0216667	0.550833
14	129.3	128.324	127.979	0.345	0.975833
15	129.3	128.459	128.288	0.171667	0.840833
16	129.3	128.811	128.613	0.198333	0.489167
17	129.3	128.999	128.954	0.045	0.300833
18	129.4	129.203	129.271	-0.0683333	0.1975
19	129.6	129.658	129.5	0.158333	-0.0583333
20	129.6	129.76	129.621	0.139167	-0.16
21	129.6	129.637	129.696	-0.0591667	-0.0366667
22	130	129.708	129.775	-0.0666667	0.291667
23	130	129.595	129.858	-0.263333	0.405
24	129.4	129.359	129.937	-0.578333	0.0408333
25	130.2	129.999	130.021	-0.0216667	0.200833
26	130.2	130.457	130.112	0.345	-0.2575
27	130.2	130.376	130.204	0.171667	-0.175833
28	130.3	130.486	130.287	0.198333	-0.185833
29	130.3	130.407	130.362	0.045	-0.1075
30	130.3	130.394	130.462	-0.0683333	-0.0941667
31	130.7	130.725	130.567	0.158333	-0.025
32	130.7	130.814	130.675	0.139167	-0.114167
33	130.7	130.749	130.808	-0.0591667	-0.0491667
34	130.9	130.871	130.938	-0.0666667	0.0291667
35	130.9	130.803	131.067	-0.263333	0.0966667
36	130.9	130.626	131.204	-0.578333	0.274167
37	131.2	131.32	131.342	-0.0216667	-0.12
38	131.8	131.82	131.475	0.345	-0.02
39	131.8	131.784	131.612	0.171667	0.0158333
40	131.8	131.961	131.763	0.198333	-0.160833
41	131.9	131.966	131.921	0.045	-0.0658333
42	132	132.011	132.079	-0.0683333	-0.0108333
43	132.3	132.392	132.233	0.158333	-0.0916667
44	132.3	132.518	132.379	0.139167	-0.218333
45	132.4	132.462	132.521	-0.0591667	-0.0616667
46	132.8	132.633	132.7	-0.0666667	0.166667
47	132.8	132.649	132.912	-0.263333	0.150833
48	132.8	132.543	133.121	-0.578333	0.2575
49	133	133.299	133.321	-0.0216667	-0.299167
50	133.5	133.899	133.554	0.345	-0.399167
51	133.5	133.997	133.825	0.171667	-0.496667
52	134.4	134.273	134.075	0.198333	0.126667
53	134.4	134.353	134.308	0.045	0.0466667
54	134.5	134.473	134.542	-0.0683333	0.0266667
55	134.6	134.929	134.771	0.158333	-0.329167
56	135.6	135.135	134.996	0.139167	0.465
57	135.6	135.162	135.221	-0.0591667	0.438333
58	135.6	135.342	135.408	-0.0666667	0.258333
59	135.6	135.295	135.558	-0.263333	0.305
60	135.6	135.126	135.704	-0.578333	0.474167
61	135.7	135.824	135.846	-0.0216667	-0.124167
62	136.2	136.291	135.946	0.345	-0.0908333
63	136.2	136.176	136.004	0.171667	0.0241667
64	136.2	136.261	136.062	0.198333	-0.0608333
65	136.2	136.166	136.121	0.045	0.0341667
66	136.2	136.111	136.179	-0.0683333	0.0891667
67	136.3	NA	NA	0.158333	NA
68	136.3	NA	NA	0.139167	NA
69	136.3	NA	NA	-0.0591667	NA
70	136.3	NA	NA	-0.0666667	NA
71	136.3	NA	NA	-0.263333	NA
72	136.3	NA	NA	-0.578333	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 <- '12'
par1 <- 'multiplicative'
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