Repository of Reproducible Computations

Free Statistics

of Irreproducible Research!

Author's title

Author

*Unverified author*

R Software Module

rwasp_decompose.wasp

Title produced by software

Classical Decomposition

Date of computation

Fri, 28 Nov 2014 12:46:25 +0000

Cite this page as follows

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

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=260874, Retrieved Sun, 19 May 2024 13:08:01 +0000

QR Codes:

Paste this QR Code to cite your computation.

Original text written by user:

IsPrivate?

No (this computation is public)

User-defined keywords

Estimated Impact

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)

-       [Classical Decomposition] [] [2014-11-28 12:46:25] [f1a1c306ccf782003dcf1365fad9efec] [Current]
- RMPD    [Exponential Smoothing] [] [2014-11-28 13:04:22] [b5b39717209e06ff52ecfc643c6cbf41] 
-   P       [Exponential Smoothing] [] [2014-12-04 10:03:43] [b5b39717209e06ff52ecfc643c6cbf41] 
- RMP     [Exponential Smoothing] [] [2014-11-28 13:15:11] [b5b39717209e06ff52ecfc643c6cbf41] 

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=260874&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=260874&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=260874&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	1850.07	NA	NA	0.149403	NA
2	1841.55	NA	NA	-1.16951	NA
3	1845	NA	NA	3.0099	NA
4	1844.01	NA	NA	2.3289	NA
5	1842.67	NA	NA	-0.241264	NA
6	1842.67	NA	NA	-1.30768	NA
7	1842.67	1841.83	1843.27	-1.44785	0.843681
8	1842.9	1841.14	1843.2	-2.05026	1.75526
9	1840.37	1842.42	1844.06	-1.6331	-2.05357
10	1841.59	1845.89	1845.54	0.342736	-4.29607
11	1844.33	1848.75	1847.44	1.30415	-4.41874
12	1844.33	1850.45	1849.73	0.714569	-6.11749
13	1844.33	1852.23	1852.08	0.149403	-7.89649
14	1845.39	1853.27	1854.44	-1.16951	-7.88215
15	1861.84	1860.11	1857.1	3.0099	1.73135
16	1862.85	1862.51	1860.18	2.3289	0.341514
17	1869.46	1863.25	1863.49	-0.241264	6.20876
18	1870.8	1865.64	1866.94	-1.30768	5.16476
19	1870.8	1869	1870.45	-1.44785	1.79743
20	1871.52	1872.08	1874.13	-2.05026	-0.561403
21	1875.52	1876.15	1877.78	-1.6331	-0.625653
22	1880.38	1881.61	1881.27	0.342736	-1.2294
23	1885.05	1885.79	1884.48	1.30415	-0.739153
24	1886.42	1888.09	1887.38	0.714569	-1.66999
25	1886.42	1890.41	1890.26	0.149403	-3.98565
26	1891.65	1891.93	1893.1	-1.16951	-0.277153
27	1903.11	1898.89	1895.88	3.0099	4.22426
28	1905.29	1901.03	1898.7	2.3289	4.26026
29	1904.26	1901.21	1901.45	-0.241264	3.05001
30	1905.37	1902.71	1904.02	-1.30768	2.66101
31	1905.37	1905.07	1906.52	-1.44785	0.297847
32	1905.12	1906.98	1909.03	-2.05026	-1.8589
33	1908.62	1909.48	1911.11	-1.6331	-0.856069
34	1915.08	1912.98	1912.64	0.342736	2.09893
35	1916.36	1915.34	1914.04	1.30415	1.01918
36	1916.68	1916.07	1915.36	0.714569	0.609181
37	1916.24	1916.78	1916.63	0.149403	-0.539819
38	1922.05	1916.77	1917.94	-1.16951	5.28243
39	1922.63	1922.15	1919.14	3.0099	0.479264
40	1922.47	1922.28	1919.95	2.3289	0.189014
41	1920.64	1920.21	1920.46	-0.241264	0.425014
42	1920.66	1919.59	1920.9	-1.30768	1.0706
43	1920.66	1919.9	1921.34	-1.44785	0.764931
44	1921.19	1919.5	1921.55	-2.05026	1.68901
45	1921.44	1919.66	1921.3	-1.6331	1.77726
46	1921.73	1921	1920.65	0.342736	0.732681
47	1921.81	1920.74	1919.43	1.30415	1.07293
48	1921.81	1918.4	1917.68	0.714569	3.41376
49	1921.81	1916.03	1915.88	0.149403	5.7781
50	1921.48	1912.97	1914.14	-1.16951	8.5091
51	1917.07	1915.41	1912.4	3.0099	1.66093
52	1912.64	1913.04	1910.71	2.3289	-0.402653
53	1901.15	1908.83	1909.07	-0.241264	-7.67874
54	1898.12	1906.11	1907.42	-1.30768	-7.99274
55	1900.02	1904.39	1905.84	-1.44785	-4.36715
56	1900.02	1901.71	1903.76	-2.05026	-1.68724
57	1900.82	1899.73	1901.36	-1.6331	1.09476
58	1901.9	1899.87	1899.53	0.342736	2.0306
59	1902.19	1899.79	1898.48	1.30415	2.40251
60	1901.84	1898.74	1898.02	0.714569	3.10126
61	1903.73	1897.75	1897.6	0.149403	5.9806
62	1889.7	1896	1897.16	-1.16951	-6.29549
63	1891.27	1900.03	1897.02	3.0099	-8.75907
64	1894.48	1899.53	1897.2	2.3289	-5.0514
65	1894.27	1896.94	1897.18	-0.241264	-2.66832
66	1893.98	1895.55	1896.85	-1.30768	-1.5669
67	1893.98	NA	NA	-1.44785	NA
68	1895.62	NA	NA	-2.05026	NA
69	1901.72	NA	NA	-1.6331	NA
70	1905.4	NA	NA	0.342736	NA
71	1898.14	NA	NA	1.30415	NA
72	1898.09	NA	NA	0.714569	NA

\begin{tabular}{lllllllll}
\hline
Classical Decomposition by Moving Averages \tabularnewline
t & Observations & Fit & Trend & Seasonal & Random \tabularnewline
1 & 1850.07 & NA & NA & 0.149403 & NA \tabularnewline
2 & 1841.55 & NA & NA & -1.16951 & NA \tabularnewline
3 & 1845 & NA & NA & 3.0099 & NA \tabularnewline
4 & 1844.01 & NA & NA & 2.3289 & NA \tabularnewline
5 & 1842.67 & NA & NA & -0.241264 & NA \tabularnewline
6 & 1842.67 & NA & NA & -1.30768 & NA \tabularnewline
7 & 1842.67 & 1841.83 & 1843.27 & -1.44785 & 0.843681 \tabularnewline
8 & 1842.9 & 1841.14 & 1843.2 & -2.05026 & 1.75526 \tabularnewline
9 & 1840.37 & 1842.42 & 1844.06 & -1.6331 & -2.05357 \tabularnewline
10 & 1841.59 & 1845.89 & 1845.54 & 0.342736 & -4.29607 \tabularnewline
11 & 1844.33 & 1848.75 & 1847.44 & 1.30415 & -4.41874 \tabularnewline
12 & 1844.33 & 1850.45 & 1849.73 & 0.714569 & -6.11749 \tabularnewline
13 & 1844.33 & 1852.23 & 1852.08 & 0.149403 & -7.89649 \tabularnewline
14 & 1845.39 & 1853.27 & 1854.44 & -1.16951 & -7.88215 \tabularnewline
15 & 1861.84 & 1860.11 & 1857.1 & 3.0099 & 1.73135 \tabularnewline
16 & 1862.85 & 1862.51 & 1860.18 & 2.3289 & 0.341514 \tabularnewline
17 & 1869.46 & 1863.25 & 1863.49 & -0.241264 & 6.20876 \tabularnewline
18 & 1870.8 & 1865.64 & 1866.94 & -1.30768 & 5.16476 \tabularnewline
19 & 1870.8 & 1869 & 1870.45 & -1.44785 & 1.79743 \tabularnewline
20 & 1871.52 & 1872.08 & 1874.13 & -2.05026 & -0.561403 \tabularnewline
21 & 1875.52 & 1876.15 & 1877.78 & -1.6331 & -0.625653 \tabularnewline
22 & 1880.38 & 1881.61 & 1881.27 & 0.342736 & -1.2294 \tabularnewline
23 & 1885.05 & 1885.79 & 1884.48 & 1.30415 & -0.739153 \tabularnewline
24 & 1886.42 & 1888.09 & 1887.38 & 0.714569 & -1.66999 \tabularnewline
25 & 1886.42 & 1890.41 & 1890.26 & 0.149403 & -3.98565 \tabularnewline
26 & 1891.65 & 1891.93 & 1893.1 & -1.16951 & -0.277153 \tabularnewline
27 & 1903.11 & 1898.89 & 1895.88 & 3.0099 & 4.22426 \tabularnewline
28 & 1905.29 & 1901.03 & 1898.7 & 2.3289 & 4.26026 \tabularnewline
29 & 1904.26 & 1901.21 & 1901.45 & -0.241264 & 3.05001 \tabularnewline
30 & 1905.37 & 1902.71 & 1904.02 & -1.30768 & 2.66101 \tabularnewline
31 & 1905.37 & 1905.07 & 1906.52 & -1.44785 & 0.297847 \tabularnewline
32 & 1905.12 & 1906.98 & 1909.03 & -2.05026 & -1.8589 \tabularnewline
33 & 1908.62 & 1909.48 & 1911.11 & -1.6331 & -0.856069 \tabularnewline
34 & 1915.08 & 1912.98 & 1912.64 & 0.342736 & 2.09893 \tabularnewline
35 & 1916.36 & 1915.34 & 1914.04 & 1.30415 & 1.01918 \tabularnewline
36 & 1916.68 & 1916.07 & 1915.36 & 0.714569 & 0.609181 \tabularnewline
37 & 1916.24 & 1916.78 & 1916.63 & 0.149403 & -0.539819 \tabularnewline
38 & 1922.05 & 1916.77 & 1917.94 & -1.16951 & 5.28243 \tabularnewline
39 & 1922.63 & 1922.15 & 1919.14 & 3.0099 & 0.479264 \tabularnewline
40 & 1922.47 & 1922.28 & 1919.95 & 2.3289 & 0.189014 \tabularnewline
41 & 1920.64 & 1920.21 & 1920.46 & -0.241264 & 0.425014 \tabularnewline
42 & 1920.66 & 1919.59 & 1920.9 & -1.30768 & 1.0706 \tabularnewline
43 & 1920.66 & 1919.9 & 1921.34 & -1.44785 & 0.764931 \tabularnewline
44 & 1921.19 & 1919.5 & 1921.55 & -2.05026 & 1.68901 \tabularnewline
45 & 1921.44 & 1919.66 & 1921.3 & -1.6331 & 1.77726 \tabularnewline
46 & 1921.73 & 1921 & 1920.65 & 0.342736 & 0.732681 \tabularnewline
47 & 1921.81 & 1920.74 & 1919.43 & 1.30415 & 1.07293 \tabularnewline
48 & 1921.81 & 1918.4 & 1917.68 & 0.714569 & 3.41376 \tabularnewline
49 & 1921.81 & 1916.03 & 1915.88 & 0.149403 & 5.7781 \tabularnewline
50 & 1921.48 & 1912.97 & 1914.14 & -1.16951 & 8.5091 \tabularnewline
51 & 1917.07 & 1915.41 & 1912.4 & 3.0099 & 1.66093 \tabularnewline
52 & 1912.64 & 1913.04 & 1910.71 & 2.3289 & -0.402653 \tabularnewline
53 & 1901.15 & 1908.83 & 1909.07 & -0.241264 & -7.67874 \tabularnewline
54 & 1898.12 & 1906.11 & 1907.42 & -1.30768 & -7.99274 \tabularnewline
55 & 1900.02 & 1904.39 & 1905.84 & -1.44785 & -4.36715 \tabularnewline
56 & 1900.02 & 1901.71 & 1903.76 & -2.05026 & -1.68724 \tabularnewline
57 & 1900.82 & 1899.73 & 1901.36 & -1.6331 & 1.09476 \tabularnewline
58 & 1901.9 & 1899.87 & 1899.53 & 0.342736 & 2.0306 \tabularnewline
59 & 1902.19 & 1899.79 & 1898.48 & 1.30415 & 2.40251 \tabularnewline
60 & 1901.84 & 1898.74 & 1898.02 & 0.714569 & 3.10126 \tabularnewline
61 & 1903.73 & 1897.75 & 1897.6 & 0.149403 & 5.9806 \tabularnewline
62 & 1889.7 & 1896 & 1897.16 & -1.16951 & -6.29549 \tabularnewline
63 & 1891.27 & 1900.03 & 1897.02 & 3.0099 & -8.75907 \tabularnewline
64 & 1894.48 & 1899.53 & 1897.2 & 2.3289 & -5.0514 \tabularnewline
65 & 1894.27 & 1896.94 & 1897.18 & -0.241264 & -2.66832 \tabularnewline
66 & 1893.98 & 1895.55 & 1896.85 & -1.30768 & -1.5669 \tabularnewline
67 & 1893.98 & NA & NA & -1.44785 & NA \tabularnewline
68 & 1895.62 & NA & NA & -2.05026 & NA \tabularnewline
69 & 1901.72 & NA & NA & -1.6331 & NA \tabularnewline
70 & 1905.4 & NA & NA & 0.342736 & NA \tabularnewline
71 & 1898.14 & NA & NA & 1.30415 & NA \tabularnewline
72 & 1898.09 & NA & NA & 0.714569 & NA \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=260874&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]1850.07[/C][C]NA[/C][C]NA[/C][C]0.149403[/C][C]NA[/C][/ROW]
[ROW][C]2[/C][C]1841.55[/C][C]NA[/C][C]NA[/C][C]-1.16951[/C][C]NA[/C][/ROW]
[ROW][C]3[/C][C]1845[/C][C]NA[/C][C]NA[/C][C]3.0099[/C][C]NA[/C][/ROW]
[ROW][C]4[/C][C]1844.01[/C][C]NA[/C][C]NA[/C][C]2.3289[/C][C]NA[/C][/ROW]
[ROW][C]5[/C][C]1842.67[/C][C]NA[/C][C]NA[/C][C]-0.241264[/C][C]NA[/C][/ROW]
[ROW][C]6[/C][C]1842.67[/C][C]NA[/C][C]NA[/C][C]-1.30768[/C][C]NA[/C][/ROW]
[ROW][C]7[/C][C]1842.67[/C][C]1841.83[/C][C]1843.27[/C][C]-1.44785[/C][C]0.843681[/C][/ROW]
[ROW][C]8[/C][C]1842.9[/C][C]1841.14[/C][C]1843.2[/C][C]-2.05026[/C][C]1.75526[/C][/ROW]
[ROW][C]9[/C][C]1840.37[/C][C]1842.42[/C][C]1844.06[/C][C]-1.6331[/C][C]-2.05357[/C][/ROW]
[ROW][C]10[/C][C]1841.59[/C][C]1845.89[/C][C]1845.54[/C][C]0.342736[/C][C]-4.29607[/C][/ROW]
[ROW][C]11[/C][C]1844.33[/C][C]1848.75[/C][C]1847.44[/C][C]1.30415[/C][C]-4.41874[/C][/ROW]
[ROW][C]12[/C][C]1844.33[/C][C]1850.45[/C][C]1849.73[/C][C]0.714569[/C][C]-6.11749[/C][/ROW]
[ROW][C]13[/C][C]1844.33[/C][C]1852.23[/C][C]1852.08[/C][C]0.149403[/C][C]-7.89649[/C][/ROW]
[ROW][C]14[/C][C]1845.39[/C][C]1853.27[/C][C]1854.44[/C][C]-1.16951[/C][C]-7.88215[/C][/ROW]
[ROW][C]15[/C][C]1861.84[/C][C]1860.11[/C][C]1857.1[/C][C]3.0099[/C][C]1.73135[/C][/ROW]
[ROW][C]16[/C][C]1862.85[/C][C]1862.51[/C][C]1860.18[/C][C]2.3289[/C][C]0.341514[/C][/ROW]
[ROW][C]17[/C][C]1869.46[/C][C]1863.25[/C][C]1863.49[/C][C]-0.241264[/C][C]6.20876[/C][/ROW]
[ROW][C]18[/C][C]1870.8[/C][C]1865.64[/C][C]1866.94[/C][C]-1.30768[/C][C]5.16476[/C][/ROW]
[ROW][C]19[/C][C]1870.8[/C][C]1869[/C][C]1870.45[/C][C]-1.44785[/C][C]1.79743[/C][/ROW]
[ROW][C]20[/C][C]1871.52[/C][C]1872.08[/C][C]1874.13[/C][C]-2.05026[/C][C]-0.561403[/C][/ROW]
[ROW][C]21[/C][C]1875.52[/C][C]1876.15[/C][C]1877.78[/C][C]-1.6331[/C][C]-0.625653[/C][/ROW]
[ROW][C]22[/C][C]1880.38[/C][C]1881.61[/C][C]1881.27[/C][C]0.342736[/C][C]-1.2294[/C][/ROW]
[ROW][C]23[/C][C]1885.05[/C][C]1885.79[/C][C]1884.48[/C][C]1.30415[/C][C]-0.739153[/C][/ROW]
[ROW][C]24[/C][C]1886.42[/C][C]1888.09[/C][C]1887.38[/C][C]0.714569[/C][C]-1.66999[/C][/ROW]
[ROW][C]25[/C][C]1886.42[/C][C]1890.41[/C][C]1890.26[/C][C]0.149403[/C][C]-3.98565[/C][/ROW]
[ROW][C]26[/C][C]1891.65[/C][C]1891.93[/C][C]1893.1[/C][C]-1.16951[/C][C]-0.277153[/C][/ROW]
[ROW][C]27[/C][C]1903.11[/C][C]1898.89[/C][C]1895.88[/C][C]3.0099[/C][C]4.22426[/C][/ROW]
[ROW][C]28[/C][C]1905.29[/C][C]1901.03[/C][C]1898.7[/C][C]2.3289[/C][C]4.26026[/C][/ROW]
[ROW][C]29[/C][C]1904.26[/C][C]1901.21[/C][C]1901.45[/C][C]-0.241264[/C][C]3.05001[/C][/ROW]
[ROW][C]30[/C][C]1905.37[/C][C]1902.71[/C][C]1904.02[/C][C]-1.30768[/C][C]2.66101[/C][/ROW]
[ROW][C]31[/C][C]1905.37[/C][C]1905.07[/C][C]1906.52[/C][C]-1.44785[/C][C]0.297847[/C][/ROW]
[ROW][C]32[/C][C]1905.12[/C][C]1906.98[/C][C]1909.03[/C][C]-2.05026[/C][C]-1.8589[/C][/ROW]
[ROW][C]33[/C][C]1908.62[/C][C]1909.48[/C][C]1911.11[/C][C]-1.6331[/C][C]-0.856069[/C][/ROW]
[ROW][C]34[/C][C]1915.08[/C][C]1912.98[/C][C]1912.64[/C][C]0.342736[/C][C]2.09893[/C][/ROW]
[ROW][C]35[/C][C]1916.36[/C][C]1915.34[/C][C]1914.04[/C][C]1.30415[/C][C]1.01918[/C][/ROW]
[ROW][C]36[/C][C]1916.68[/C][C]1916.07[/C][C]1915.36[/C][C]0.714569[/C][C]0.609181[/C][/ROW]
[ROW][C]37[/C][C]1916.24[/C][C]1916.78[/C][C]1916.63[/C][C]0.149403[/C][C]-0.539819[/C][/ROW]
[ROW][C]38[/C][C]1922.05[/C][C]1916.77[/C][C]1917.94[/C][C]-1.16951[/C][C]5.28243[/C][/ROW]
[ROW][C]39[/C][C]1922.63[/C][C]1922.15[/C][C]1919.14[/C][C]3.0099[/C][C]0.479264[/C][/ROW]
[ROW][C]40[/C][C]1922.47[/C][C]1922.28[/C][C]1919.95[/C][C]2.3289[/C][C]0.189014[/C][/ROW]
[ROW][C]41[/C][C]1920.64[/C][C]1920.21[/C][C]1920.46[/C][C]-0.241264[/C][C]0.425014[/C][/ROW]
[ROW][C]42[/C][C]1920.66[/C][C]1919.59[/C][C]1920.9[/C][C]-1.30768[/C][C]1.0706[/C][/ROW]
[ROW][C]43[/C][C]1920.66[/C][C]1919.9[/C][C]1921.34[/C][C]-1.44785[/C][C]0.764931[/C][/ROW]
[ROW][C]44[/C][C]1921.19[/C][C]1919.5[/C][C]1921.55[/C][C]-2.05026[/C][C]1.68901[/C][/ROW]
[ROW][C]45[/C][C]1921.44[/C][C]1919.66[/C][C]1921.3[/C][C]-1.6331[/C][C]1.77726[/C][/ROW]
[ROW][C]46[/C][C]1921.73[/C][C]1921[/C][C]1920.65[/C][C]0.342736[/C][C]0.732681[/C][/ROW]
[ROW][C]47[/C][C]1921.81[/C][C]1920.74[/C][C]1919.43[/C][C]1.30415[/C][C]1.07293[/C][/ROW]
[ROW][C]48[/C][C]1921.81[/C][C]1918.4[/C][C]1917.68[/C][C]0.714569[/C][C]3.41376[/C][/ROW]
[ROW][C]49[/C][C]1921.81[/C][C]1916.03[/C][C]1915.88[/C][C]0.149403[/C][C]5.7781[/C][/ROW]
[ROW][C]50[/C][C]1921.48[/C][C]1912.97[/C][C]1914.14[/C][C]-1.16951[/C][C]8.5091[/C][/ROW]
[ROW][C]51[/C][C]1917.07[/C][C]1915.41[/C][C]1912.4[/C][C]3.0099[/C][C]1.66093[/C][/ROW]
[ROW][C]52[/C][C]1912.64[/C][C]1913.04[/C][C]1910.71[/C][C]2.3289[/C][C]-0.402653[/C][/ROW]
[ROW][C]53[/C][C]1901.15[/C][C]1908.83[/C][C]1909.07[/C][C]-0.241264[/C][C]-7.67874[/C][/ROW]
[ROW][C]54[/C][C]1898.12[/C][C]1906.11[/C][C]1907.42[/C][C]-1.30768[/C][C]-7.99274[/C][/ROW]
[ROW][C]55[/C][C]1900.02[/C][C]1904.39[/C][C]1905.84[/C][C]-1.44785[/C][C]-4.36715[/C][/ROW]
[ROW][C]56[/C][C]1900.02[/C][C]1901.71[/C][C]1903.76[/C][C]-2.05026[/C][C]-1.68724[/C][/ROW]
[ROW][C]57[/C][C]1900.82[/C][C]1899.73[/C][C]1901.36[/C][C]-1.6331[/C][C]1.09476[/C][/ROW]
[ROW][C]58[/C][C]1901.9[/C][C]1899.87[/C][C]1899.53[/C][C]0.342736[/C][C]2.0306[/C][/ROW]
[ROW][C]59[/C][C]1902.19[/C][C]1899.79[/C][C]1898.48[/C][C]1.30415[/C][C]2.40251[/C][/ROW]
[ROW][C]60[/C][C]1901.84[/C][C]1898.74[/C][C]1898.02[/C][C]0.714569[/C][C]3.10126[/C][/ROW]
[ROW][C]61[/C][C]1903.73[/C][C]1897.75[/C][C]1897.6[/C][C]0.149403[/C][C]5.9806[/C][/ROW]
[ROW][C]62[/C][C]1889.7[/C][C]1896[/C][C]1897.16[/C][C]-1.16951[/C][C]-6.29549[/C][/ROW]
[ROW][C]63[/C][C]1891.27[/C][C]1900.03[/C][C]1897.02[/C][C]3.0099[/C][C]-8.75907[/C][/ROW]
[ROW][C]64[/C][C]1894.48[/C][C]1899.53[/C][C]1897.2[/C][C]2.3289[/C][C]-5.0514[/C][/ROW]
[ROW][C]65[/C][C]1894.27[/C][C]1896.94[/C][C]1897.18[/C][C]-0.241264[/C][C]-2.66832[/C][/ROW]
[ROW][C]66[/C][C]1893.98[/C][C]1895.55[/C][C]1896.85[/C][C]-1.30768[/C][C]-1.5669[/C][/ROW]
[ROW][C]67[/C][C]1893.98[/C][C]NA[/C][C]NA[/C][C]-1.44785[/C][C]NA[/C][/ROW]
[ROW][C]68[/C][C]1895.62[/C][C]NA[/C][C]NA[/C][C]-2.05026[/C][C]NA[/C][/ROW]
[ROW][C]69[/C][C]1901.72[/C][C]NA[/C][C]NA[/C][C]-1.6331[/C][C]NA[/C][/ROW]
[ROW][C]70[/C][C]1905.4[/C][C]NA[/C][C]NA[/C][C]0.342736[/C][C]NA[/C][/ROW]
[ROW][C]71[/C][C]1898.14[/C][C]NA[/C][C]NA[/C][C]1.30415[/C][C]NA[/C][/ROW]
[ROW][C]72[/C][C]1898.09[/C][C]NA[/C][C]NA[/C][C]0.714569[/C][C]NA[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=260874&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=260874&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	1850.07	NA	NA	0.149403	NA
2	1841.55	NA	NA	-1.16951	NA
3	1845	NA	NA	3.0099	NA
4	1844.01	NA	NA	2.3289	NA
5	1842.67	NA	NA	-0.241264	NA
6	1842.67	NA	NA	-1.30768	NA
7	1842.67	1841.83	1843.27	-1.44785	0.843681
8	1842.9	1841.14	1843.2	-2.05026	1.75526
9	1840.37	1842.42	1844.06	-1.6331	-2.05357
10	1841.59	1845.89	1845.54	0.342736	-4.29607
11	1844.33	1848.75	1847.44	1.30415	-4.41874
12	1844.33	1850.45	1849.73	0.714569	-6.11749
13	1844.33	1852.23	1852.08	0.149403	-7.89649
14	1845.39	1853.27	1854.44	-1.16951	-7.88215
15	1861.84	1860.11	1857.1	3.0099	1.73135
16	1862.85	1862.51	1860.18	2.3289	0.341514
17	1869.46	1863.25	1863.49	-0.241264	6.20876
18	1870.8	1865.64	1866.94	-1.30768	5.16476
19	1870.8	1869	1870.45	-1.44785	1.79743
20	1871.52	1872.08	1874.13	-2.05026	-0.561403
21	1875.52	1876.15	1877.78	-1.6331	-0.625653
22	1880.38	1881.61	1881.27	0.342736	-1.2294
23	1885.05	1885.79	1884.48	1.30415	-0.739153
24	1886.42	1888.09	1887.38	0.714569	-1.66999
25	1886.42	1890.41	1890.26	0.149403	-3.98565
26	1891.65	1891.93	1893.1	-1.16951	-0.277153
27	1903.11	1898.89	1895.88	3.0099	4.22426
28	1905.29	1901.03	1898.7	2.3289	4.26026
29	1904.26	1901.21	1901.45	-0.241264	3.05001
30	1905.37	1902.71	1904.02	-1.30768	2.66101
31	1905.37	1905.07	1906.52	-1.44785	0.297847
32	1905.12	1906.98	1909.03	-2.05026	-1.8589
33	1908.62	1909.48	1911.11	-1.6331	-0.856069
34	1915.08	1912.98	1912.64	0.342736	2.09893
35	1916.36	1915.34	1914.04	1.30415	1.01918
36	1916.68	1916.07	1915.36	0.714569	0.609181
37	1916.24	1916.78	1916.63	0.149403	-0.539819
38	1922.05	1916.77	1917.94	-1.16951	5.28243
39	1922.63	1922.15	1919.14	3.0099	0.479264
40	1922.47	1922.28	1919.95	2.3289	0.189014
41	1920.64	1920.21	1920.46	-0.241264	0.425014
42	1920.66	1919.59	1920.9	-1.30768	1.0706
43	1920.66	1919.9	1921.34	-1.44785	0.764931
44	1921.19	1919.5	1921.55	-2.05026	1.68901
45	1921.44	1919.66	1921.3	-1.6331	1.77726
46	1921.73	1921	1920.65	0.342736	0.732681
47	1921.81	1920.74	1919.43	1.30415	1.07293
48	1921.81	1918.4	1917.68	0.714569	3.41376
49	1921.81	1916.03	1915.88	0.149403	5.7781
50	1921.48	1912.97	1914.14	-1.16951	8.5091
51	1917.07	1915.41	1912.4	3.0099	1.66093
52	1912.64	1913.04	1910.71	2.3289	-0.402653
53	1901.15	1908.83	1909.07	-0.241264	-7.67874
54	1898.12	1906.11	1907.42	-1.30768	-7.99274
55	1900.02	1904.39	1905.84	-1.44785	-4.36715
56	1900.02	1901.71	1903.76	-2.05026	-1.68724
57	1900.82	1899.73	1901.36	-1.6331	1.09476
58	1901.9	1899.87	1899.53	0.342736	2.0306
59	1902.19	1899.79	1898.48	1.30415	2.40251
60	1901.84	1898.74	1898.02	0.714569	3.10126
61	1903.73	1897.75	1897.6	0.149403	5.9806
62	1889.7	1896	1897.16	-1.16951	-6.29549
63	1891.27	1900.03	1897.02	3.0099	-8.75907
64	1894.48	1899.53	1897.2	2.3289	-5.0514
65	1894.27	1896.94	1897.18	-0.241264	-2.66832
66	1893.98	1895.55	1896.85	-1.30768	-1.5669
67	1893.98	NA	NA	-1.44785	NA
68	1895.62	NA	NA	-2.05026	NA
69	1901.72	NA	NA	-1.6331	NA
70	1905.4	NA	NA	0.342736	NA
71	1898.14	NA	NA	1.30415	NA
72	1898.09	NA	NA	0.714569	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