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, 26 Apr 2016 13:51:12 +0100

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/2016/Apr/26/t1461675676x66mgbuma5go8mi.htm/, Retrieved Fri, 03 May 2024 16:04:26 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=294876, Retrieved Fri, 03 May 2024 16:04:26 +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] [Verhuur en handel...] [2016-04-26 12:51:12] [38f93cf143127a30e50d4675c70fea9c] [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=294876&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=294876&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=294876&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	16.8	NA	NA	-0.102419	NA
2	17.2	NA	NA	-0.0753356	NA
3	17.4	NA	NA	-0.0257523	NA
4	17.6	NA	NA	-0.024919	NA
5	17.7	NA	NA	0.037581	NA
6	17.7	NA	NA	0.0609144	NA
7	17.6	17.5969	17.5292	0.0677199	0.00311343
8	17.6	17.6941	17.6167	0.0774421	-0.0941088
9	17.5	17.9573	17.7	0.257303	-0.457303
10	17.5	17.7177	17.7792	-0.0614468	-0.21772
11	17.6	17.7913	17.8708	-0.0795023	-0.191331
12	17.6	17.8684	18	-0.131586	-0.268414
13	17.9	18.0601	18.1625	-0.102419	-0.160081
14	18.2	18.2705	18.3458	-0.0753356	-0.0704977
15	18.4	18.5076	18.5333	-0.0257523	-0.107581
16	18.5	18.6834	18.7083	-0.024919	-0.183414
17	19	18.9167	18.8792	0.037581	0.0832523
18	19.5	19.1151	19.0542	0.0609144	0.384919
19	19.7	19.2844	19.2167	0.0677199	0.415613
20	19.9	19.4399	19.3625	0.0774421	0.460058
21	19.7	19.7615	19.5042	0.257303	-0.0614699
22	19.5	19.5802	19.6417	-0.0614468	-0.0802199
23	19.7	19.6747	19.7542	-0.0795023	0.0253356
24	19.7	19.6934	19.825	-0.131586	0.00658565
25	19.7	19.7684	19.8708	-0.102419	-0.0684144
26	19.9	19.833	19.9083	-0.0753356	0.0670023
27	20.1	19.9451	19.9708	-0.0257523	0.154919
28	20.1	20.0584	20.0833	-0.024919	0.0415856
29	20.1	20.2501	20.2125	0.037581	-0.150081
30	20.1	20.4026	20.3417	0.0609144	-0.302581
31	20.2	20.5552	20.4875	0.0677199	-0.35522
32	20.3	20.7191	20.6417	0.0774421	-0.419109
33	20.8	21.0448	20.7875	0.257303	-0.244803
34	21.1	20.8761	20.9375	-0.0614468	0.223947
35	21.2	21.0122	21.0917	-0.0795023	0.187836
36	21.3	21.1101	21.2417	-0.131586	0.189919
37	21.6	21.2892	21.3917	-0.102419	0.310752
38	21.7	21.4663	21.5417	-0.0753356	0.233669
39	21.8	21.5992	21.625	-0.0257523	0.200752
40	22	21.5501	21.575	-0.024919	0.449919
41	21.9	21.4959	21.4583	0.037581	0.404086
42	21.9	21.4026	21.3417	0.0609144	0.497419
43	22	21.2761	21.2083	0.0677199	0.723947
44	22.1	21.1399	21.0625	0.0774421	0.960058
45	21	21.1823	20.925	0.257303	-0.182303
46	19.7	20.7261	20.7875	-0.0614468	-1.02605
47	19.8	20.5872	20.6667	-0.0795023	-0.787164
48	19.9	20.4434	20.575	-0.131586	-0.543414
49	19.8	20.3892	20.4917	-0.102419	-0.589248
50	20	20.3372	20.4125	-0.0753356	-0.337164
51	20.2	20.4617	20.4875	-0.0257523	-0.261748
52	20.3	20.7417	20.7667	-0.024919	-0.441748
53	20.7	21.1334	21.0958	0.037581	-0.433414
54	20.9	21.4817	21.4208	0.0609144	-0.581748
55	21	21.8261	21.7583	0.0677199	-0.826053
56	21.2	22.1774	22.1	0.0774421	-0.977442
57	23.7	22.6865	22.4292	0.257303	1.01353
58	23.7	22.6969	22.7583	-0.0614468	1.00311
59	23.7	22.9997	23.0792	-0.0795023	0.700336
60	23.8	23.2476	23.3792	-0.131586	0.552419
61	24	23.5684	23.6708	-0.102419	0.431586
62	24	23.883	23.9583	-0.0753356	0.117002
63	24.1	24.1159	24.1417	-0.0257523	-0.0159144
64	24.3	24.1959	24.2208	-0.024919	0.104086
65	24.4	24.3334	24.2958	0.037581	0.0665856
66	24.4	24.4276	24.3667	0.0609144	-0.027581
67	24.5	24.4969	24.4292	0.0677199	0.00311343
68	24.6	24.5649	24.4875	0.0774421	0.0350579
69	24.7	24.8031	24.5458	0.257303	-0.103137
70	24.6	24.5386	24.6	-0.0614468	0.0614468
71	24.6	24.5705	24.65	-0.0795023	0.0295023
72	24.6	24.5726	24.7042	-0.131586	0.027419
73	24.7	24.6601	24.7625	-0.102419	0.039919
74	24.7	24.7455	24.8208	-0.0753356	-0.0454977
75	24.8	NA	NA	-0.0257523	NA
76	24.9	NA	NA	-0.024919	NA
77	25	NA	NA	0.037581	NA
78	25.1	NA	NA	0.0609144	NA
79	25.2	NA	NA	0.0677199	NA
80	25.3	NA	NA	0.0774421	NA

\begin{tabular}{lllllllll}
\hline
Classical Decomposition by Moving Averages \tabularnewline
t & Observations & Fit & Trend & Seasonal & Random \tabularnewline
1 & 16.8 & NA & NA & -0.102419 & NA \tabularnewline
2 & 17.2 & NA & NA & -0.0753356 & NA \tabularnewline
3 & 17.4 & NA & NA & -0.0257523 & NA \tabularnewline
4 & 17.6 & NA & NA & -0.024919 & NA \tabularnewline
5 & 17.7 & NA & NA & 0.037581 & NA \tabularnewline
6 & 17.7 & NA & NA & 0.0609144 & NA \tabularnewline
7 & 17.6 & 17.5969 & 17.5292 & 0.0677199 & 0.00311343 \tabularnewline
8 & 17.6 & 17.6941 & 17.6167 & 0.0774421 & -0.0941088 \tabularnewline
9 & 17.5 & 17.9573 & 17.7 & 0.257303 & -0.457303 \tabularnewline
10 & 17.5 & 17.7177 & 17.7792 & -0.0614468 & -0.21772 \tabularnewline
11 & 17.6 & 17.7913 & 17.8708 & -0.0795023 & -0.191331 \tabularnewline
12 & 17.6 & 17.8684 & 18 & -0.131586 & -0.268414 \tabularnewline
13 & 17.9 & 18.0601 & 18.1625 & -0.102419 & -0.160081 \tabularnewline
14 & 18.2 & 18.2705 & 18.3458 & -0.0753356 & -0.0704977 \tabularnewline
15 & 18.4 & 18.5076 & 18.5333 & -0.0257523 & -0.107581 \tabularnewline
16 & 18.5 & 18.6834 & 18.7083 & -0.024919 & -0.183414 \tabularnewline
17 & 19 & 18.9167 & 18.8792 & 0.037581 & 0.0832523 \tabularnewline
18 & 19.5 & 19.1151 & 19.0542 & 0.0609144 & 0.384919 \tabularnewline
19 & 19.7 & 19.2844 & 19.2167 & 0.0677199 & 0.415613 \tabularnewline
20 & 19.9 & 19.4399 & 19.3625 & 0.0774421 & 0.460058 \tabularnewline
21 & 19.7 & 19.7615 & 19.5042 & 0.257303 & -0.0614699 \tabularnewline
22 & 19.5 & 19.5802 & 19.6417 & -0.0614468 & -0.0802199 \tabularnewline
23 & 19.7 & 19.6747 & 19.7542 & -0.0795023 & 0.0253356 \tabularnewline
24 & 19.7 & 19.6934 & 19.825 & -0.131586 & 0.00658565 \tabularnewline
25 & 19.7 & 19.7684 & 19.8708 & -0.102419 & -0.0684144 \tabularnewline
26 & 19.9 & 19.833 & 19.9083 & -0.0753356 & 0.0670023 \tabularnewline
27 & 20.1 & 19.9451 & 19.9708 & -0.0257523 & 0.154919 \tabularnewline
28 & 20.1 & 20.0584 & 20.0833 & -0.024919 & 0.0415856 \tabularnewline
29 & 20.1 & 20.2501 & 20.2125 & 0.037581 & -0.150081 \tabularnewline
30 & 20.1 & 20.4026 & 20.3417 & 0.0609144 & -0.302581 \tabularnewline
31 & 20.2 & 20.5552 & 20.4875 & 0.0677199 & -0.35522 \tabularnewline
32 & 20.3 & 20.7191 & 20.6417 & 0.0774421 & -0.419109 \tabularnewline
33 & 20.8 & 21.0448 & 20.7875 & 0.257303 & -0.244803 \tabularnewline
34 & 21.1 & 20.8761 & 20.9375 & -0.0614468 & 0.223947 \tabularnewline
35 & 21.2 & 21.0122 & 21.0917 & -0.0795023 & 0.187836 \tabularnewline
36 & 21.3 & 21.1101 & 21.2417 & -0.131586 & 0.189919 \tabularnewline
37 & 21.6 & 21.2892 & 21.3917 & -0.102419 & 0.310752 \tabularnewline
38 & 21.7 & 21.4663 & 21.5417 & -0.0753356 & 0.233669 \tabularnewline
39 & 21.8 & 21.5992 & 21.625 & -0.0257523 & 0.200752 \tabularnewline
40 & 22 & 21.5501 & 21.575 & -0.024919 & 0.449919 \tabularnewline
41 & 21.9 & 21.4959 & 21.4583 & 0.037581 & 0.404086 \tabularnewline
42 & 21.9 & 21.4026 & 21.3417 & 0.0609144 & 0.497419 \tabularnewline
43 & 22 & 21.2761 & 21.2083 & 0.0677199 & 0.723947 \tabularnewline
44 & 22.1 & 21.1399 & 21.0625 & 0.0774421 & 0.960058 \tabularnewline
45 & 21 & 21.1823 & 20.925 & 0.257303 & -0.182303 \tabularnewline
46 & 19.7 & 20.7261 & 20.7875 & -0.0614468 & -1.02605 \tabularnewline
47 & 19.8 & 20.5872 & 20.6667 & -0.0795023 & -0.787164 \tabularnewline
48 & 19.9 & 20.4434 & 20.575 & -0.131586 & -0.543414 \tabularnewline
49 & 19.8 & 20.3892 & 20.4917 & -0.102419 & -0.589248 \tabularnewline
50 & 20 & 20.3372 & 20.4125 & -0.0753356 & -0.337164 \tabularnewline
51 & 20.2 & 20.4617 & 20.4875 & -0.0257523 & -0.261748 \tabularnewline
52 & 20.3 & 20.7417 & 20.7667 & -0.024919 & -0.441748 \tabularnewline
53 & 20.7 & 21.1334 & 21.0958 & 0.037581 & -0.433414 \tabularnewline
54 & 20.9 & 21.4817 & 21.4208 & 0.0609144 & -0.581748 \tabularnewline
55 & 21 & 21.8261 & 21.7583 & 0.0677199 & -0.826053 \tabularnewline
56 & 21.2 & 22.1774 & 22.1 & 0.0774421 & -0.977442 \tabularnewline
57 & 23.7 & 22.6865 & 22.4292 & 0.257303 & 1.01353 \tabularnewline
58 & 23.7 & 22.6969 & 22.7583 & -0.0614468 & 1.00311 \tabularnewline
59 & 23.7 & 22.9997 & 23.0792 & -0.0795023 & 0.700336 \tabularnewline
60 & 23.8 & 23.2476 & 23.3792 & -0.131586 & 0.552419 \tabularnewline
61 & 24 & 23.5684 & 23.6708 & -0.102419 & 0.431586 \tabularnewline
62 & 24 & 23.883 & 23.9583 & -0.0753356 & 0.117002 \tabularnewline
63 & 24.1 & 24.1159 & 24.1417 & -0.0257523 & -0.0159144 \tabularnewline
64 & 24.3 & 24.1959 & 24.2208 & -0.024919 & 0.104086 \tabularnewline
65 & 24.4 & 24.3334 & 24.2958 & 0.037581 & 0.0665856 \tabularnewline
66 & 24.4 & 24.4276 & 24.3667 & 0.0609144 & -0.027581 \tabularnewline
67 & 24.5 & 24.4969 & 24.4292 & 0.0677199 & 0.00311343 \tabularnewline
68 & 24.6 & 24.5649 & 24.4875 & 0.0774421 & 0.0350579 \tabularnewline
69 & 24.7 & 24.8031 & 24.5458 & 0.257303 & -0.103137 \tabularnewline
70 & 24.6 & 24.5386 & 24.6 & -0.0614468 & 0.0614468 \tabularnewline
71 & 24.6 & 24.5705 & 24.65 & -0.0795023 & 0.0295023 \tabularnewline
72 & 24.6 & 24.5726 & 24.7042 & -0.131586 & 0.027419 \tabularnewline
73 & 24.7 & 24.6601 & 24.7625 & -0.102419 & 0.039919 \tabularnewline
74 & 24.7 & 24.7455 & 24.8208 & -0.0753356 & -0.0454977 \tabularnewline
75 & 24.8 & NA & NA & -0.0257523 & NA \tabularnewline
76 & 24.9 & NA & NA & -0.024919 & NA \tabularnewline
77 & 25 & NA & NA & 0.037581 & NA \tabularnewline
78 & 25.1 & NA & NA & 0.0609144 & NA \tabularnewline
79 & 25.2 & NA & NA & 0.0677199 & NA \tabularnewline
80 & 25.3 & NA & NA & 0.0774421 & NA \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=294876&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]16.8[/C][C]NA[/C][C]NA[/C][C]-0.102419[/C][C]NA[/C][/ROW]
[ROW][C]2[/C][C]17.2[/C][C]NA[/C][C]NA[/C][C]-0.0753356[/C][C]NA[/C][/ROW]
[ROW][C]3[/C][C]17.4[/C][C]NA[/C][C]NA[/C][C]-0.0257523[/C][C]NA[/C][/ROW]
[ROW][C]4[/C][C]17.6[/C][C]NA[/C][C]NA[/C][C]-0.024919[/C][C]NA[/C][/ROW]
[ROW][C]5[/C][C]17.7[/C][C]NA[/C][C]NA[/C][C]0.037581[/C][C]NA[/C][/ROW]
[ROW][C]6[/C][C]17.7[/C][C]NA[/C][C]NA[/C][C]0.0609144[/C][C]NA[/C][/ROW]
[ROW][C]7[/C][C]17.6[/C][C]17.5969[/C][C]17.5292[/C][C]0.0677199[/C][C]0.00311343[/C][/ROW]
[ROW][C]8[/C][C]17.6[/C][C]17.6941[/C][C]17.6167[/C][C]0.0774421[/C][C]-0.0941088[/C][/ROW]
[ROW][C]9[/C][C]17.5[/C][C]17.9573[/C][C]17.7[/C][C]0.257303[/C][C]-0.457303[/C][/ROW]
[ROW][C]10[/C][C]17.5[/C][C]17.7177[/C][C]17.7792[/C][C]-0.0614468[/C][C]-0.21772[/C][/ROW]
[ROW][C]11[/C][C]17.6[/C][C]17.7913[/C][C]17.8708[/C][C]-0.0795023[/C][C]-0.191331[/C][/ROW]
[ROW][C]12[/C][C]17.6[/C][C]17.8684[/C][C]18[/C][C]-0.131586[/C][C]-0.268414[/C][/ROW]
[ROW][C]13[/C][C]17.9[/C][C]18.0601[/C][C]18.1625[/C][C]-0.102419[/C][C]-0.160081[/C][/ROW]
[ROW][C]14[/C][C]18.2[/C][C]18.2705[/C][C]18.3458[/C][C]-0.0753356[/C][C]-0.0704977[/C][/ROW]
[ROW][C]15[/C][C]18.4[/C][C]18.5076[/C][C]18.5333[/C][C]-0.0257523[/C][C]-0.107581[/C][/ROW]
[ROW][C]16[/C][C]18.5[/C][C]18.6834[/C][C]18.7083[/C][C]-0.024919[/C][C]-0.183414[/C][/ROW]
[ROW][C]17[/C][C]19[/C][C]18.9167[/C][C]18.8792[/C][C]0.037581[/C][C]0.0832523[/C][/ROW]
[ROW][C]18[/C][C]19.5[/C][C]19.1151[/C][C]19.0542[/C][C]0.0609144[/C][C]0.384919[/C][/ROW]
[ROW][C]19[/C][C]19.7[/C][C]19.2844[/C][C]19.2167[/C][C]0.0677199[/C][C]0.415613[/C][/ROW]
[ROW][C]20[/C][C]19.9[/C][C]19.4399[/C][C]19.3625[/C][C]0.0774421[/C][C]0.460058[/C][/ROW]
[ROW][C]21[/C][C]19.7[/C][C]19.7615[/C][C]19.5042[/C][C]0.257303[/C][C]-0.0614699[/C][/ROW]
[ROW][C]22[/C][C]19.5[/C][C]19.5802[/C][C]19.6417[/C][C]-0.0614468[/C][C]-0.0802199[/C][/ROW]
[ROW][C]23[/C][C]19.7[/C][C]19.6747[/C][C]19.7542[/C][C]-0.0795023[/C][C]0.0253356[/C][/ROW]
[ROW][C]24[/C][C]19.7[/C][C]19.6934[/C][C]19.825[/C][C]-0.131586[/C][C]0.00658565[/C][/ROW]
[ROW][C]25[/C][C]19.7[/C][C]19.7684[/C][C]19.8708[/C][C]-0.102419[/C][C]-0.0684144[/C][/ROW]
[ROW][C]26[/C][C]19.9[/C][C]19.833[/C][C]19.9083[/C][C]-0.0753356[/C][C]0.0670023[/C][/ROW]
[ROW][C]27[/C][C]20.1[/C][C]19.9451[/C][C]19.9708[/C][C]-0.0257523[/C][C]0.154919[/C][/ROW]
[ROW][C]28[/C][C]20.1[/C][C]20.0584[/C][C]20.0833[/C][C]-0.024919[/C][C]0.0415856[/C][/ROW]
[ROW][C]29[/C][C]20.1[/C][C]20.2501[/C][C]20.2125[/C][C]0.037581[/C][C]-0.150081[/C][/ROW]
[ROW][C]30[/C][C]20.1[/C][C]20.4026[/C][C]20.3417[/C][C]0.0609144[/C][C]-0.302581[/C][/ROW]
[ROW][C]31[/C][C]20.2[/C][C]20.5552[/C][C]20.4875[/C][C]0.0677199[/C][C]-0.35522[/C][/ROW]
[ROW][C]32[/C][C]20.3[/C][C]20.7191[/C][C]20.6417[/C][C]0.0774421[/C][C]-0.419109[/C][/ROW]
[ROW][C]33[/C][C]20.8[/C][C]21.0448[/C][C]20.7875[/C][C]0.257303[/C][C]-0.244803[/C][/ROW]
[ROW][C]34[/C][C]21.1[/C][C]20.8761[/C][C]20.9375[/C][C]-0.0614468[/C][C]0.223947[/C][/ROW]
[ROW][C]35[/C][C]21.2[/C][C]21.0122[/C][C]21.0917[/C][C]-0.0795023[/C][C]0.187836[/C][/ROW]
[ROW][C]36[/C][C]21.3[/C][C]21.1101[/C][C]21.2417[/C][C]-0.131586[/C][C]0.189919[/C][/ROW]
[ROW][C]37[/C][C]21.6[/C][C]21.2892[/C][C]21.3917[/C][C]-0.102419[/C][C]0.310752[/C][/ROW]
[ROW][C]38[/C][C]21.7[/C][C]21.4663[/C][C]21.5417[/C][C]-0.0753356[/C][C]0.233669[/C][/ROW]
[ROW][C]39[/C][C]21.8[/C][C]21.5992[/C][C]21.625[/C][C]-0.0257523[/C][C]0.200752[/C][/ROW]
[ROW][C]40[/C][C]22[/C][C]21.5501[/C][C]21.575[/C][C]-0.024919[/C][C]0.449919[/C][/ROW]
[ROW][C]41[/C][C]21.9[/C][C]21.4959[/C][C]21.4583[/C][C]0.037581[/C][C]0.404086[/C][/ROW]
[ROW][C]42[/C][C]21.9[/C][C]21.4026[/C][C]21.3417[/C][C]0.0609144[/C][C]0.497419[/C][/ROW]
[ROW][C]43[/C][C]22[/C][C]21.2761[/C][C]21.2083[/C][C]0.0677199[/C][C]0.723947[/C][/ROW]
[ROW][C]44[/C][C]22.1[/C][C]21.1399[/C][C]21.0625[/C][C]0.0774421[/C][C]0.960058[/C][/ROW]
[ROW][C]45[/C][C]21[/C][C]21.1823[/C][C]20.925[/C][C]0.257303[/C][C]-0.182303[/C][/ROW]
[ROW][C]46[/C][C]19.7[/C][C]20.7261[/C][C]20.7875[/C][C]-0.0614468[/C][C]-1.02605[/C][/ROW]
[ROW][C]47[/C][C]19.8[/C][C]20.5872[/C][C]20.6667[/C][C]-0.0795023[/C][C]-0.787164[/C][/ROW]
[ROW][C]48[/C][C]19.9[/C][C]20.4434[/C][C]20.575[/C][C]-0.131586[/C][C]-0.543414[/C][/ROW]
[ROW][C]49[/C][C]19.8[/C][C]20.3892[/C][C]20.4917[/C][C]-0.102419[/C][C]-0.589248[/C][/ROW]
[ROW][C]50[/C][C]20[/C][C]20.3372[/C][C]20.4125[/C][C]-0.0753356[/C][C]-0.337164[/C][/ROW]
[ROW][C]51[/C][C]20.2[/C][C]20.4617[/C][C]20.4875[/C][C]-0.0257523[/C][C]-0.261748[/C][/ROW]
[ROW][C]52[/C][C]20.3[/C][C]20.7417[/C][C]20.7667[/C][C]-0.024919[/C][C]-0.441748[/C][/ROW]
[ROW][C]53[/C][C]20.7[/C][C]21.1334[/C][C]21.0958[/C][C]0.037581[/C][C]-0.433414[/C][/ROW]
[ROW][C]54[/C][C]20.9[/C][C]21.4817[/C][C]21.4208[/C][C]0.0609144[/C][C]-0.581748[/C][/ROW]
[ROW][C]55[/C][C]21[/C][C]21.8261[/C][C]21.7583[/C][C]0.0677199[/C][C]-0.826053[/C][/ROW]
[ROW][C]56[/C][C]21.2[/C][C]22.1774[/C][C]22.1[/C][C]0.0774421[/C][C]-0.977442[/C][/ROW]
[ROW][C]57[/C][C]23.7[/C][C]22.6865[/C][C]22.4292[/C][C]0.257303[/C][C]1.01353[/C][/ROW]
[ROW][C]58[/C][C]23.7[/C][C]22.6969[/C][C]22.7583[/C][C]-0.0614468[/C][C]1.00311[/C][/ROW]
[ROW][C]59[/C][C]23.7[/C][C]22.9997[/C][C]23.0792[/C][C]-0.0795023[/C][C]0.700336[/C][/ROW]
[ROW][C]60[/C][C]23.8[/C][C]23.2476[/C][C]23.3792[/C][C]-0.131586[/C][C]0.552419[/C][/ROW]
[ROW][C]61[/C][C]24[/C][C]23.5684[/C][C]23.6708[/C][C]-0.102419[/C][C]0.431586[/C][/ROW]
[ROW][C]62[/C][C]24[/C][C]23.883[/C][C]23.9583[/C][C]-0.0753356[/C][C]0.117002[/C][/ROW]
[ROW][C]63[/C][C]24.1[/C][C]24.1159[/C][C]24.1417[/C][C]-0.0257523[/C][C]-0.0159144[/C][/ROW]
[ROW][C]64[/C][C]24.3[/C][C]24.1959[/C][C]24.2208[/C][C]-0.024919[/C][C]0.104086[/C][/ROW]
[ROW][C]65[/C][C]24.4[/C][C]24.3334[/C][C]24.2958[/C][C]0.037581[/C][C]0.0665856[/C][/ROW]
[ROW][C]66[/C][C]24.4[/C][C]24.4276[/C][C]24.3667[/C][C]0.0609144[/C][C]-0.027581[/C][/ROW]
[ROW][C]67[/C][C]24.5[/C][C]24.4969[/C][C]24.4292[/C][C]0.0677199[/C][C]0.00311343[/C][/ROW]
[ROW][C]68[/C][C]24.6[/C][C]24.5649[/C][C]24.4875[/C][C]0.0774421[/C][C]0.0350579[/C][/ROW]
[ROW][C]69[/C][C]24.7[/C][C]24.8031[/C][C]24.5458[/C][C]0.257303[/C][C]-0.103137[/C][/ROW]
[ROW][C]70[/C][C]24.6[/C][C]24.5386[/C][C]24.6[/C][C]-0.0614468[/C][C]0.0614468[/C][/ROW]
[ROW][C]71[/C][C]24.6[/C][C]24.5705[/C][C]24.65[/C][C]-0.0795023[/C][C]0.0295023[/C][/ROW]
[ROW][C]72[/C][C]24.6[/C][C]24.5726[/C][C]24.7042[/C][C]-0.131586[/C][C]0.027419[/C][/ROW]
[ROW][C]73[/C][C]24.7[/C][C]24.6601[/C][C]24.7625[/C][C]-0.102419[/C][C]0.039919[/C][/ROW]
[ROW][C]74[/C][C]24.7[/C][C]24.7455[/C][C]24.8208[/C][C]-0.0753356[/C][C]-0.0454977[/C][/ROW]
[ROW][C]75[/C][C]24.8[/C][C]NA[/C][C]NA[/C][C]-0.0257523[/C][C]NA[/C][/ROW]
[ROW][C]76[/C][C]24.9[/C][C]NA[/C][C]NA[/C][C]-0.024919[/C][C]NA[/C][/ROW]
[ROW][C]77[/C][C]25[/C][C]NA[/C][C]NA[/C][C]0.037581[/C][C]NA[/C][/ROW]
[ROW][C]78[/C][C]25.1[/C][C]NA[/C][C]NA[/C][C]0.0609144[/C][C]NA[/C][/ROW]
[ROW][C]79[/C][C]25.2[/C][C]NA[/C][C]NA[/C][C]0.0677199[/C][C]NA[/C][/ROW]
[ROW][C]80[/C][C]25.3[/C][C]NA[/C][C]NA[/C][C]0.0774421[/C][C]NA[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=294876&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=294876&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	16.8	NA	NA	-0.102419	NA
2	17.2	NA	NA	-0.0753356	NA
3	17.4	NA	NA	-0.0257523	NA
4	17.6	NA	NA	-0.024919	NA
5	17.7	NA	NA	0.037581	NA
6	17.7	NA	NA	0.0609144	NA
7	17.6	17.5969	17.5292	0.0677199	0.00311343
8	17.6	17.6941	17.6167	0.0774421	-0.0941088
9	17.5	17.9573	17.7	0.257303	-0.457303
10	17.5	17.7177	17.7792	-0.0614468	-0.21772
11	17.6	17.7913	17.8708	-0.0795023	-0.191331
12	17.6	17.8684	18	-0.131586	-0.268414
13	17.9	18.0601	18.1625	-0.102419	-0.160081
14	18.2	18.2705	18.3458	-0.0753356	-0.0704977
15	18.4	18.5076	18.5333	-0.0257523	-0.107581
16	18.5	18.6834	18.7083	-0.024919	-0.183414
17	19	18.9167	18.8792	0.037581	0.0832523
18	19.5	19.1151	19.0542	0.0609144	0.384919
19	19.7	19.2844	19.2167	0.0677199	0.415613
20	19.9	19.4399	19.3625	0.0774421	0.460058
21	19.7	19.7615	19.5042	0.257303	-0.0614699
22	19.5	19.5802	19.6417	-0.0614468	-0.0802199
23	19.7	19.6747	19.7542	-0.0795023	0.0253356
24	19.7	19.6934	19.825	-0.131586	0.00658565
25	19.7	19.7684	19.8708	-0.102419	-0.0684144
26	19.9	19.833	19.9083	-0.0753356	0.0670023
27	20.1	19.9451	19.9708	-0.0257523	0.154919
28	20.1	20.0584	20.0833	-0.024919	0.0415856
29	20.1	20.2501	20.2125	0.037581	-0.150081
30	20.1	20.4026	20.3417	0.0609144	-0.302581
31	20.2	20.5552	20.4875	0.0677199	-0.35522
32	20.3	20.7191	20.6417	0.0774421	-0.419109
33	20.8	21.0448	20.7875	0.257303	-0.244803
34	21.1	20.8761	20.9375	-0.0614468	0.223947
35	21.2	21.0122	21.0917	-0.0795023	0.187836
36	21.3	21.1101	21.2417	-0.131586	0.189919
37	21.6	21.2892	21.3917	-0.102419	0.310752
38	21.7	21.4663	21.5417	-0.0753356	0.233669
39	21.8	21.5992	21.625	-0.0257523	0.200752
40	22	21.5501	21.575	-0.024919	0.449919
41	21.9	21.4959	21.4583	0.037581	0.404086
42	21.9	21.4026	21.3417	0.0609144	0.497419
43	22	21.2761	21.2083	0.0677199	0.723947
44	22.1	21.1399	21.0625	0.0774421	0.960058
45	21	21.1823	20.925	0.257303	-0.182303
46	19.7	20.7261	20.7875	-0.0614468	-1.02605
47	19.8	20.5872	20.6667	-0.0795023	-0.787164
48	19.9	20.4434	20.575	-0.131586	-0.543414
49	19.8	20.3892	20.4917	-0.102419	-0.589248
50	20	20.3372	20.4125	-0.0753356	-0.337164
51	20.2	20.4617	20.4875	-0.0257523	-0.261748
52	20.3	20.7417	20.7667	-0.024919	-0.441748
53	20.7	21.1334	21.0958	0.037581	-0.433414
54	20.9	21.4817	21.4208	0.0609144	-0.581748
55	21	21.8261	21.7583	0.0677199	-0.826053
56	21.2	22.1774	22.1	0.0774421	-0.977442
57	23.7	22.6865	22.4292	0.257303	1.01353
58	23.7	22.6969	22.7583	-0.0614468	1.00311
59	23.7	22.9997	23.0792	-0.0795023	0.700336
60	23.8	23.2476	23.3792	-0.131586	0.552419
61	24	23.5684	23.6708	-0.102419	0.431586
62	24	23.883	23.9583	-0.0753356	0.117002
63	24.1	24.1159	24.1417	-0.0257523	-0.0159144
64	24.3	24.1959	24.2208	-0.024919	0.104086
65	24.4	24.3334	24.2958	0.037581	0.0665856
66	24.4	24.4276	24.3667	0.0609144	-0.027581
67	24.5	24.4969	24.4292	0.0677199	0.00311343
68	24.6	24.5649	24.4875	0.0774421	0.0350579
69	24.7	24.8031	24.5458	0.257303	-0.103137
70	24.6	24.5386	24.6	-0.0614468	0.0614468
71	24.6	24.5705	24.65	-0.0795023	0.0295023
72	24.6	24.5726	24.7042	-0.131586	0.027419
73	24.7	24.6601	24.7625	-0.102419	0.039919
74	24.7	24.7455	24.8208	-0.0753356	-0.0454977
75	24.8	NA	NA	-0.0257523	NA
76	24.9	NA	NA	-0.024919	NA
77	25	NA	NA	0.037581	NA
78	25.1	NA	NA	0.0609144	NA
79	25.2	NA	NA	0.0677199	NA
80	25.3	NA	NA	0.0774421	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