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

Sun, 30 Nov 2014 21:17:49 +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/30/t1417382331qtlvycy83kxfkaw.htm/, Retrieved Sun, 19 May 2024 16:34:45 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=261671, Retrieved Sun, 19 May 2024 16:34:45 +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-30 21:17:49] [10cb439e718ee6ebb3ca27a8e32cf1a7] [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=261671&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=261671&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=261671&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	27.88	NA	NA	0.0604167	NA
2	28.06	NA	NA	0.0334167	NA
3	28.08	NA	NA	0.037	NA
4	28.12	NA	NA	-0.00575	NA
5	28.11	NA	NA	-0.0163333	NA
6	28.18	NA	NA	-0.0655	NA
7	28.2	28.3069	28.4233	-0.116417	-0.106917
8	28.37	28.4247	28.5258	-0.101167	-0.0546667
9	28.64	28.6132	28.6283	-0.0151667	0.0268333
10	28.75	28.7682	28.7329	0.0353333	-0.01825
11	28.97	28.9451	28.8392	0.105917	0.0249167
12	29.08	28.997	28.9488	0.04825	0.083
13	29.16	29.1225	29.0621	0.0604167	0.0375
14	29.24	29.208	29.1746	0.0334167	0.032
15	29.36	29.3116	29.2746	0.037	0.0484167
16	29.35	29.3563	29.3621	-0.00575	-0.00633333
17	29.43	29.4287	29.445	-0.0163333	0.00133333
18	29.49	29.4603	29.5258	-0.0655	0.0296667
19	29.61	29.4873	29.6038	-0.116417	0.122667
20	29.66	29.5797	29.6808	-0.101167	0.0803333
21	29.75	29.7444	29.7596	-0.0151667	0.00558333
22	29.74	29.8795	29.8442	0.0353333	-0.1395
23	29.97	30.0363	29.9304	0.105917	-0.0663333
24	30.02	30.0608	30.0125	0.04825	-0.04075
25	30.09	30.1483	30.0879	0.0604167	-0.0583333
26	30.16	30.1922	30.1587	0.0334167	-0.0321667
27	30.33	30.2641	30.2271	0.037	0.0659167
28	30.41	30.2992	30.305	-0.00575	0.11075
29	30.44	30.3716	30.3879	-0.0163333	0.0684167
30	30.45	30.3966	30.4621	-0.0655	0.0534167
31	30.46	30.4252	30.5417	-0.116417	0.03475
32	30.51	30.5359	30.6371	-0.101167	-0.0259167
33	30.54	30.7215	30.7367	-0.0151667	-0.1815
34	30.82	30.8674	30.8321	0.0353333	-0.0474167
35	30.88	31.0351	30.9292	0.105917	-0.155083
36	30.89	31.0766	31.0283	0.04825	-0.186583
37	31.13	31.1942	31.1338	0.0604167	-0.0641667
38	31.41	31.2838	31.2504	0.0334167	0.126167
39	31.47	31.4153	31.3783	0.037	0.0546667
40	31.56	31.5018	31.5075	-0.00575	0.05825
41	31.62	31.6212	31.6375	-0.0163333	-0.00116667
42	31.65	31.7087	31.7742	-0.0655	-0.0586667
43	31.79	31.7907	31.9071	-0.116417	-0.000666667
44	31.98	31.9226	32.0237	-0.101167	0.0574167
45	32.14	32.1136	32.1287	-0.0151667	0.0264167
46	32.32	32.2678	32.2325	0.0353333	0.0521667
47	32.5	32.4447	32.3388	0.105917	0.0553333
48	32.55	32.4962	32.4479	0.04825	0.0538333
49	32.66	32.6125	32.5521	0.0604167	0.0475
50	32.68	32.6813	32.6479	0.0334167	-0.00133333
51	32.72	32.7862	32.7492	0.037	-0.0661667
52	32.8	32.8538	32.8596	-0.00575	-0.0538333
53	32.93	32.9537	32.97	-0.0163333	-0.0236667
54	32.96	33.0128	33.0783	-0.0655	-0.0528333
55	32.98	33.0678	33.1842	-0.116417	-0.08775
56	33.09	33.1851	33.2862	-0.101167	-0.0950833
57	33.46	33.3752	33.3904	-0.0151667	0.08475
58	33.65	33.5349	33.4996	0.0353333	0.115083
59	33.82	33.7168	33.6108	0.105917	0.10325
60	33.83	33.7774	33.7292	0.04825	0.0525833
61	33.92	33.9204	33.86	0.0604167	-0.000416667
62	33.87	34.0326	33.9992	0.0334167	-0.162583
63	34.03	34.1708	34.1338	0.037	-0.14075
64	34.11	34.2568	34.2625	-0.00575	-0.14675
65	34.29	34.3728	34.3892	-0.0163333	-0.0828333
66	34.44	34.4495	34.515	-0.0655	-0.0095
67	34.64	NA	NA	-0.116417	NA
68	34.77	NA	NA	-0.101167	NA
69	35.01	NA	NA	-0.0151667	NA
70	35.19	NA	NA	0.0353333	NA
71	35.32	NA	NA	0.105917	NA
72	35.35	NA	NA	0.04825	NA

\begin{tabular}{lllllllll}
\hline
Classical Decomposition by Moving Averages \tabularnewline
t & Observations & Fit & Trend & Seasonal & Random \tabularnewline
1 & 27.88 & NA & NA & 0.0604167 & NA \tabularnewline
2 & 28.06 & NA & NA & 0.0334167 & NA \tabularnewline
3 & 28.08 & NA & NA & 0.037 & NA \tabularnewline
4 & 28.12 & NA & NA & -0.00575 & NA \tabularnewline
5 & 28.11 & NA & NA & -0.0163333 & NA \tabularnewline
6 & 28.18 & NA & NA & -0.0655 & NA \tabularnewline
7 & 28.2 & 28.3069 & 28.4233 & -0.116417 & -0.106917 \tabularnewline
8 & 28.37 & 28.4247 & 28.5258 & -0.101167 & -0.0546667 \tabularnewline
9 & 28.64 & 28.6132 & 28.6283 & -0.0151667 & 0.0268333 \tabularnewline
10 & 28.75 & 28.7682 & 28.7329 & 0.0353333 & -0.01825 \tabularnewline
11 & 28.97 & 28.9451 & 28.8392 & 0.105917 & 0.0249167 \tabularnewline
12 & 29.08 & 28.997 & 28.9488 & 0.04825 & 0.083 \tabularnewline
13 & 29.16 & 29.1225 & 29.0621 & 0.0604167 & 0.0375 \tabularnewline
14 & 29.24 & 29.208 & 29.1746 & 0.0334167 & 0.032 \tabularnewline
15 & 29.36 & 29.3116 & 29.2746 & 0.037 & 0.0484167 \tabularnewline
16 & 29.35 & 29.3563 & 29.3621 & -0.00575 & -0.00633333 \tabularnewline
17 & 29.43 & 29.4287 & 29.445 & -0.0163333 & 0.00133333 \tabularnewline
18 & 29.49 & 29.4603 & 29.5258 & -0.0655 & 0.0296667 \tabularnewline
19 & 29.61 & 29.4873 & 29.6038 & -0.116417 & 0.122667 \tabularnewline
20 & 29.66 & 29.5797 & 29.6808 & -0.101167 & 0.0803333 \tabularnewline
21 & 29.75 & 29.7444 & 29.7596 & -0.0151667 & 0.00558333 \tabularnewline
22 & 29.74 & 29.8795 & 29.8442 & 0.0353333 & -0.1395 \tabularnewline
23 & 29.97 & 30.0363 & 29.9304 & 0.105917 & -0.0663333 \tabularnewline
24 & 30.02 & 30.0608 & 30.0125 & 0.04825 & -0.04075 \tabularnewline
25 & 30.09 & 30.1483 & 30.0879 & 0.0604167 & -0.0583333 \tabularnewline
26 & 30.16 & 30.1922 & 30.1587 & 0.0334167 & -0.0321667 \tabularnewline
27 & 30.33 & 30.2641 & 30.2271 & 0.037 & 0.0659167 \tabularnewline
28 & 30.41 & 30.2992 & 30.305 & -0.00575 & 0.11075 \tabularnewline
29 & 30.44 & 30.3716 & 30.3879 & -0.0163333 & 0.0684167 \tabularnewline
30 & 30.45 & 30.3966 & 30.4621 & -0.0655 & 0.0534167 \tabularnewline
31 & 30.46 & 30.4252 & 30.5417 & -0.116417 & 0.03475 \tabularnewline
32 & 30.51 & 30.5359 & 30.6371 & -0.101167 & -0.0259167 \tabularnewline
33 & 30.54 & 30.7215 & 30.7367 & -0.0151667 & -0.1815 \tabularnewline
34 & 30.82 & 30.8674 & 30.8321 & 0.0353333 & -0.0474167 \tabularnewline
35 & 30.88 & 31.0351 & 30.9292 & 0.105917 & -0.155083 \tabularnewline
36 & 30.89 & 31.0766 & 31.0283 & 0.04825 & -0.186583 \tabularnewline
37 & 31.13 & 31.1942 & 31.1338 & 0.0604167 & -0.0641667 \tabularnewline
38 & 31.41 & 31.2838 & 31.2504 & 0.0334167 & 0.126167 \tabularnewline
39 & 31.47 & 31.4153 & 31.3783 & 0.037 & 0.0546667 \tabularnewline
40 & 31.56 & 31.5018 & 31.5075 & -0.00575 & 0.05825 \tabularnewline
41 & 31.62 & 31.6212 & 31.6375 & -0.0163333 & -0.00116667 \tabularnewline
42 & 31.65 & 31.7087 & 31.7742 & -0.0655 & -0.0586667 \tabularnewline
43 & 31.79 & 31.7907 & 31.9071 & -0.116417 & -0.000666667 \tabularnewline
44 & 31.98 & 31.9226 & 32.0237 & -0.101167 & 0.0574167 \tabularnewline
45 & 32.14 & 32.1136 & 32.1287 & -0.0151667 & 0.0264167 \tabularnewline
46 & 32.32 & 32.2678 & 32.2325 & 0.0353333 & 0.0521667 \tabularnewline
47 & 32.5 & 32.4447 & 32.3388 & 0.105917 & 0.0553333 \tabularnewline
48 & 32.55 & 32.4962 & 32.4479 & 0.04825 & 0.0538333 \tabularnewline
49 & 32.66 & 32.6125 & 32.5521 & 0.0604167 & 0.0475 \tabularnewline
50 & 32.68 & 32.6813 & 32.6479 & 0.0334167 & -0.00133333 \tabularnewline
51 & 32.72 & 32.7862 & 32.7492 & 0.037 & -0.0661667 \tabularnewline
52 & 32.8 & 32.8538 & 32.8596 & -0.00575 & -0.0538333 \tabularnewline
53 & 32.93 & 32.9537 & 32.97 & -0.0163333 & -0.0236667 \tabularnewline
54 & 32.96 & 33.0128 & 33.0783 & -0.0655 & -0.0528333 \tabularnewline
55 & 32.98 & 33.0678 & 33.1842 & -0.116417 & -0.08775 \tabularnewline
56 & 33.09 & 33.1851 & 33.2862 & -0.101167 & -0.0950833 \tabularnewline
57 & 33.46 & 33.3752 & 33.3904 & -0.0151667 & 0.08475 \tabularnewline
58 & 33.65 & 33.5349 & 33.4996 & 0.0353333 & 0.115083 \tabularnewline
59 & 33.82 & 33.7168 & 33.6108 & 0.105917 & 0.10325 \tabularnewline
60 & 33.83 & 33.7774 & 33.7292 & 0.04825 & 0.0525833 \tabularnewline
61 & 33.92 & 33.9204 & 33.86 & 0.0604167 & -0.000416667 \tabularnewline
62 & 33.87 & 34.0326 & 33.9992 & 0.0334167 & -0.162583 \tabularnewline
63 & 34.03 & 34.1708 & 34.1338 & 0.037 & -0.14075 \tabularnewline
64 & 34.11 & 34.2568 & 34.2625 & -0.00575 & -0.14675 \tabularnewline
65 & 34.29 & 34.3728 & 34.3892 & -0.0163333 & -0.0828333 \tabularnewline
66 & 34.44 & 34.4495 & 34.515 & -0.0655 & -0.0095 \tabularnewline
67 & 34.64 & NA & NA & -0.116417 & NA \tabularnewline
68 & 34.77 & NA & NA & -0.101167 & NA \tabularnewline
69 & 35.01 & NA & NA & -0.0151667 & NA \tabularnewline
70 & 35.19 & NA & NA & 0.0353333 & NA \tabularnewline
71 & 35.32 & NA & NA & 0.105917 & NA \tabularnewline
72 & 35.35 & NA & NA & 0.04825 & NA \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=261671&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]27.88[/C][C]NA[/C][C]NA[/C][C]0.0604167[/C][C]NA[/C][/ROW]
[ROW][C]2[/C][C]28.06[/C][C]NA[/C][C]NA[/C][C]0.0334167[/C][C]NA[/C][/ROW]
[ROW][C]3[/C][C]28.08[/C][C]NA[/C][C]NA[/C][C]0.037[/C][C]NA[/C][/ROW]
[ROW][C]4[/C][C]28.12[/C][C]NA[/C][C]NA[/C][C]-0.00575[/C][C]NA[/C][/ROW]
[ROW][C]5[/C][C]28.11[/C][C]NA[/C][C]NA[/C][C]-0.0163333[/C][C]NA[/C][/ROW]
[ROW][C]6[/C][C]28.18[/C][C]NA[/C][C]NA[/C][C]-0.0655[/C][C]NA[/C][/ROW]
[ROW][C]7[/C][C]28.2[/C][C]28.3069[/C][C]28.4233[/C][C]-0.116417[/C][C]-0.106917[/C][/ROW]
[ROW][C]8[/C][C]28.37[/C][C]28.4247[/C][C]28.5258[/C][C]-0.101167[/C][C]-0.0546667[/C][/ROW]
[ROW][C]9[/C][C]28.64[/C][C]28.6132[/C][C]28.6283[/C][C]-0.0151667[/C][C]0.0268333[/C][/ROW]
[ROW][C]10[/C][C]28.75[/C][C]28.7682[/C][C]28.7329[/C][C]0.0353333[/C][C]-0.01825[/C][/ROW]
[ROW][C]11[/C][C]28.97[/C][C]28.9451[/C][C]28.8392[/C][C]0.105917[/C][C]0.0249167[/C][/ROW]
[ROW][C]12[/C][C]29.08[/C][C]28.997[/C][C]28.9488[/C][C]0.04825[/C][C]0.083[/C][/ROW]
[ROW][C]13[/C][C]29.16[/C][C]29.1225[/C][C]29.0621[/C][C]0.0604167[/C][C]0.0375[/C][/ROW]
[ROW][C]14[/C][C]29.24[/C][C]29.208[/C][C]29.1746[/C][C]0.0334167[/C][C]0.032[/C][/ROW]
[ROW][C]15[/C][C]29.36[/C][C]29.3116[/C][C]29.2746[/C][C]0.037[/C][C]0.0484167[/C][/ROW]
[ROW][C]16[/C][C]29.35[/C][C]29.3563[/C][C]29.3621[/C][C]-0.00575[/C][C]-0.00633333[/C][/ROW]
[ROW][C]17[/C][C]29.43[/C][C]29.4287[/C][C]29.445[/C][C]-0.0163333[/C][C]0.00133333[/C][/ROW]
[ROW][C]18[/C][C]29.49[/C][C]29.4603[/C][C]29.5258[/C][C]-0.0655[/C][C]0.0296667[/C][/ROW]
[ROW][C]19[/C][C]29.61[/C][C]29.4873[/C][C]29.6038[/C][C]-0.116417[/C][C]0.122667[/C][/ROW]
[ROW][C]20[/C][C]29.66[/C][C]29.5797[/C][C]29.6808[/C][C]-0.101167[/C][C]0.0803333[/C][/ROW]
[ROW][C]21[/C][C]29.75[/C][C]29.7444[/C][C]29.7596[/C][C]-0.0151667[/C][C]0.00558333[/C][/ROW]
[ROW][C]22[/C][C]29.74[/C][C]29.8795[/C][C]29.8442[/C][C]0.0353333[/C][C]-0.1395[/C][/ROW]
[ROW][C]23[/C][C]29.97[/C][C]30.0363[/C][C]29.9304[/C][C]0.105917[/C][C]-0.0663333[/C][/ROW]
[ROW][C]24[/C][C]30.02[/C][C]30.0608[/C][C]30.0125[/C][C]0.04825[/C][C]-0.04075[/C][/ROW]
[ROW][C]25[/C][C]30.09[/C][C]30.1483[/C][C]30.0879[/C][C]0.0604167[/C][C]-0.0583333[/C][/ROW]
[ROW][C]26[/C][C]30.16[/C][C]30.1922[/C][C]30.1587[/C][C]0.0334167[/C][C]-0.0321667[/C][/ROW]
[ROW][C]27[/C][C]30.33[/C][C]30.2641[/C][C]30.2271[/C][C]0.037[/C][C]0.0659167[/C][/ROW]
[ROW][C]28[/C][C]30.41[/C][C]30.2992[/C][C]30.305[/C][C]-0.00575[/C][C]0.11075[/C][/ROW]
[ROW][C]29[/C][C]30.44[/C][C]30.3716[/C][C]30.3879[/C][C]-0.0163333[/C][C]0.0684167[/C][/ROW]
[ROW][C]30[/C][C]30.45[/C][C]30.3966[/C][C]30.4621[/C][C]-0.0655[/C][C]0.0534167[/C][/ROW]
[ROW][C]31[/C][C]30.46[/C][C]30.4252[/C][C]30.5417[/C][C]-0.116417[/C][C]0.03475[/C][/ROW]
[ROW][C]32[/C][C]30.51[/C][C]30.5359[/C][C]30.6371[/C][C]-0.101167[/C][C]-0.0259167[/C][/ROW]
[ROW][C]33[/C][C]30.54[/C][C]30.7215[/C][C]30.7367[/C][C]-0.0151667[/C][C]-0.1815[/C][/ROW]
[ROW][C]34[/C][C]30.82[/C][C]30.8674[/C][C]30.8321[/C][C]0.0353333[/C][C]-0.0474167[/C][/ROW]
[ROW][C]35[/C][C]30.88[/C][C]31.0351[/C][C]30.9292[/C][C]0.105917[/C][C]-0.155083[/C][/ROW]
[ROW][C]36[/C][C]30.89[/C][C]31.0766[/C][C]31.0283[/C][C]0.04825[/C][C]-0.186583[/C][/ROW]
[ROW][C]37[/C][C]31.13[/C][C]31.1942[/C][C]31.1338[/C][C]0.0604167[/C][C]-0.0641667[/C][/ROW]
[ROW][C]38[/C][C]31.41[/C][C]31.2838[/C][C]31.2504[/C][C]0.0334167[/C][C]0.126167[/C][/ROW]
[ROW][C]39[/C][C]31.47[/C][C]31.4153[/C][C]31.3783[/C][C]0.037[/C][C]0.0546667[/C][/ROW]
[ROW][C]40[/C][C]31.56[/C][C]31.5018[/C][C]31.5075[/C][C]-0.00575[/C][C]0.05825[/C][/ROW]
[ROW][C]41[/C][C]31.62[/C][C]31.6212[/C][C]31.6375[/C][C]-0.0163333[/C][C]-0.00116667[/C][/ROW]
[ROW][C]42[/C][C]31.65[/C][C]31.7087[/C][C]31.7742[/C][C]-0.0655[/C][C]-0.0586667[/C][/ROW]
[ROW][C]43[/C][C]31.79[/C][C]31.7907[/C][C]31.9071[/C][C]-0.116417[/C][C]-0.000666667[/C][/ROW]
[ROW][C]44[/C][C]31.98[/C][C]31.9226[/C][C]32.0237[/C][C]-0.101167[/C][C]0.0574167[/C][/ROW]
[ROW][C]45[/C][C]32.14[/C][C]32.1136[/C][C]32.1287[/C][C]-0.0151667[/C][C]0.0264167[/C][/ROW]
[ROW][C]46[/C][C]32.32[/C][C]32.2678[/C][C]32.2325[/C][C]0.0353333[/C][C]0.0521667[/C][/ROW]
[ROW][C]47[/C][C]32.5[/C][C]32.4447[/C][C]32.3388[/C][C]0.105917[/C][C]0.0553333[/C][/ROW]
[ROW][C]48[/C][C]32.55[/C][C]32.4962[/C][C]32.4479[/C][C]0.04825[/C][C]0.0538333[/C][/ROW]
[ROW][C]49[/C][C]32.66[/C][C]32.6125[/C][C]32.5521[/C][C]0.0604167[/C][C]0.0475[/C][/ROW]
[ROW][C]50[/C][C]32.68[/C][C]32.6813[/C][C]32.6479[/C][C]0.0334167[/C][C]-0.00133333[/C][/ROW]
[ROW][C]51[/C][C]32.72[/C][C]32.7862[/C][C]32.7492[/C][C]0.037[/C][C]-0.0661667[/C][/ROW]
[ROW][C]52[/C][C]32.8[/C][C]32.8538[/C][C]32.8596[/C][C]-0.00575[/C][C]-0.0538333[/C][/ROW]
[ROW][C]53[/C][C]32.93[/C][C]32.9537[/C][C]32.97[/C][C]-0.0163333[/C][C]-0.0236667[/C][/ROW]
[ROW][C]54[/C][C]32.96[/C][C]33.0128[/C][C]33.0783[/C][C]-0.0655[/C][C]-0.0528333[/C][/ROW]
[ROW][C]55[/C][C]32.98[/C][C]33.0678[/C][C]33.1842[/C][C]-0.116417[/C][C]-0.08775[/C][/ROW]
[ROW][C]56[/C][C]33.09[/C][C]33.1851[/C][C]33.2862[/C][C]-0.101167[/C][C]-0.0950833[/C][/ROW]
[ROW][C]57[/C][C]33.46[/C][C]33.3752[/C][C]33.3904[/C][C]-0.0151667[/C][C]0.08475[/C][/ROW]
[ROW][C]58[/C][C]33.65[/C][C]33.5349[/C][C]33.4996[/C][C]0.0353333[/C][C]0.115083[/C][/ROW]
[ROW][C]59[/C][C]33.82[/C][C]33.7168[/C][C]33.6108[/C][C]0.105917[/C][C]0.10325[/C][/ROW]
[ROW][C]60[/C][C]33.83[/C][C]33.7774[/C][C]33.7292[/C][C]0.04825[/C][C]0.0525833[/C][/ROW]
[ROW][C]61[/C][C]33.92[/C][C]33.9204[/C][C]33.86[/C][C]0.0604167[/C][C]-0.000416667[/C][/ROW]
[ROW][C]62[/C][C]33.87[/C][C]34.0326[/C][C]33.9992[/C][C]0.0334167[/C][C]-0.162583[/C][/ROW]
[ROW][C]63[/C][C]34.03[/C][C]34.1708[/C][C]34.1338[/C][C]0.037[/C][C]-0.14075[/C][/ROW]
[ROW][C]64[/C][C]34.11[/C][C]34.2568[/C][C]34.2625[/C][C]-0.00575[/C][C]-0.14675[/C][/ROW]
[ROW][C]65[/C][C]34.29[/C][C]34.3728[/C][C]34.3892[/C][C]-0.0163333[/C][C]-0.0828333[/C][/ROW]
[ROW][C]66[/C][C]34.44[/C][C]34.4495[/C][C]34.515[/C][C]-0.0655[/C][C]-0.0095[/C][/ROW]
[ROW][C]67[/C][C]34.64[/C][C]NA[/C][C]NA[/C][C]-0.116417[/C][C]NA[/C][/ROW]
[ROW][C]68[/C][C]34.77[/C][C]NA[/C][C]NA[/C][C]-0.101167[/C][C]NA[/C][/ROW]
[ROW][C]69[/C][C]35.01[/C][C]NA[/C][C]NA[/C][C]-0.0151667[/C][C]NA[/C][/ROW]
[ROW][C]70[/C][C]35.19[/C][C]NA[/C][C]NA[/C][C]0.0353333[/C][C]NA[/C][/ROW]
[ROW][C]71[/C][C]35.32[/C][C]NA[/C][C]NA[/C][C]0.105917[/C][C]NA[/C][/ROW]
[ROW][C]72[/C][C]35.35[/C][C]NA[/C][C]NA[/C][C]0.04825[/C][C]NA[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=261671&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=261671&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	27.88	NA	NA	0.0604167	NA
2	28.06	NA	NA	0.0334167	NA
3	28.08	NA	NA	0.037	NA
4	28.12	NA	NA	-0.00575	NA
5	28.11	NA	NA	-0.0163333	NA
6	28.18	NA	NA	-0.0655	NA
7	28.2	28.3069	28.4233	-0.116417	-0.106917
8	28.37	28.4247	28.5258	-0.101167	-0.0546667
9	28.64	28.6132	28.6283	-0.0151667	0.0268333
10	28.75	28.7682	28.7329	0.0353333	-0.01825
11	28.97	28.9451	28.8392	0.105917	0.0249167
12	29.08	28.997	28.9488	0.04825	0.083
13	29.16	29.1225	29.0621	0.0604167	0.0375
14	29.24	29.208	29.1746	0.0334167	0.032
15	29.36	29.3116	29.2746	0.037	0.0484167
16	29.35	29.3563	29.3621	-0.00575	-0.00633333
17	29.43	29.4287	29.445	-0.0163333	0.00133333
18	29.49	29.4603	29.5258	-0.0655	0.0296667
19	29.61	29.4873	29.6038	-0.116417	0.122667
20	29.66	29.5797	29.6808	-0.101167	0.0803333
21	29.75	29.7444	29.7596	-0.0151667	0.00558333
22	29.74	29.8795	29.8442	0.0353333	-0.1395
23	29.97	30.0363	29.9304	0.105917	-0.0663333
24	30.02	30.0608	30.0125	0.04825	-0.04075
25	30.09	30.1483	30.0879	0.0604167	-0.0583333
26	30.16	30.1922	30.1587	0.0334167	-0.0321667
27	30.33	30.2641	30.2271	0.037	0.0659167
28	30.41	30.2992	30.305	-0.00575	0.11075
29	30.44	30.3716	30.3879	-0.0163333	0.0684167
30	30.45	30.3966	30.4621	-0.0655	0.0534167
31	30.46	30.4252	30.5417	-0.116417	0.03475
32	30.51	30.5359	30.6371	-0.101167	-0.0259167
33	30.54	30.7215	30.7367	-0.0151667	-0.1815
34	30.82	30.8674	30.8321	0.0353333	-0.0474167
35	30.88	31.0351	30.9292	0.105917	-0.155083
36	30.89	31.0766	31.0283	0.04825	-0.186583
37	31.13	31.1942	31.1338	0.0604167	-0.0641667
38	31.41	31.2838	31.2504	0.0334167	0.126167
39	31.47	31.4153	31.3783	0.037	0.0546667
40	31.56	31.5018	31.5075	-0.00575	0.05825
41	31.62	31.6212	31.6375	-0.0163333	-0.00116667
42	31.65	31.7087	31.7742	-0.0655	-0.0586667
43	31.79	31.7907	31.9071	-0.116417	-0.000666667
44	31.98	31.9226	32.0237	-0.101167	0.0574167
45	32.14	32.1136	32.1287	-0.0151667	0.0264167
46	32.32	32.2678	32.2325	0.0353333	0.0521667
47	32.5	32.4447	32.3388	0.105917	0.0553333
48	32.55	32.4962	32.4479	0.04825	0.0538333
49	32.66	32.6125	32.5521	0.0604167	0.0475
50	32.68	32.6813	32.6479	0.0334167	-0.00133333
51	32.72	32.7862	32.7492	0.037	-0.0661667
52	32.8	32.8538	32.8596	-0.00575	-0.0538333
53	32.93	32.9537	32.97	-0.0163333	-0.0236667
54	32.96	33.0128	33.0783	-0.0655	-0.0528333
55	32.98	33.0678	33.1842	-0.116417	-0.08775
56	33.09	33.1851	33.2862	-0.101167	-0.0950833
57	33.46	33.3752	33.3904	-0.0151667	0.08475
58	33.65	33.5349	33.4996	0.0353333	0.115083
59	33.82	33.7168	33.6108	0.105917	0.10325
60	33.83	33.7774	33.7292	0.04825	0.0525833
61	33.92	33.9204	33.86	0.0604167	-0.000416667
62	33.87	34.0326	33.9992	0.0334167	-0.162583
63	34.03	34.1708	34.1338	0.037	-0.14075
64	34.11	34.2568	34.2625	-0.00575	-0.14675
65	34.29	34.3728	34.3892	-0.0163333	-0.0828333
66	34.44	34.4495	34.515	-0.0655	-0.0095
67	34.64	NA	NA	-0.116417	NA
68	34.77	NA	NA	-0.101167	NA
69	35.01	NA	NA	-0.0151667	NA
70	35.19	NA	NA	0.0353333	NA
71	35.32	NA	NA	0.105917	NA
72	35.35	NA	NA	0.04825	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