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, 12 Dec 2013 04:41:04 -0500

Cite this page as follows

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2013/Dec/12/t1386841395w0sbvjmen0p7ucq.htm/, Retrieved Sat, 20 Apr 2024 04:26:24 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=232235, Retrieved Sat, 20 Apr 2024 04:26:24 +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

124

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

-       [Classical Decomposition] [] [2013-12-12 09:41:04] [d41d8cd98f00b204e9800998ecf8427e] [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	5 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 & 5 seconds \tabularnewline
R Server & 'Gwilym Jenkins' @ jenkins.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=232235&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]5 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=232235&T=0

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

Classical Decomposition by Moving Averages
t	Observations	Fit	Trend	Seasonal	Random
1	1876.88	NA	NA	0.999432	NA
2	1876.68	NA	NA	0.999386	NA
3	1865.52	NA	NA	1.00198	NA
4	1858.99	NA	NA	1.00133	NA
5	1856.87	NA	NA	0.999936	NA
6	1858.22	NA	NA	0.999418	NA
7	1858.22	1858.49	1859.12	0.999663	0.999853
8	1859.32	1855.65	1856.54	0.999522	1.00198
9	1859.52	1853.6	1854.22	0.999666	1.00319
10	1852.48	1852.36	1852.74	0.999796	1.00006
11	1850.07	1851.59	1851.52	1.00004	0.999178
12	1850.07	1849.99	1850.29	0.99984	1.00004
13	1850.07	1847.94	1848.99	0.999432	1.00115
14	1841.55	1846.52	1847.66	0.999386	0.997307
15	1845	1849.83	1846.18	1.00198	0.99739
16	1844.01	1847.37	1844.92	1.00133	0.998181
17	1842.67	1844.11	1844.23	0.999936	0.999218
18	1842.67	1842.68	1843.75	0.999418	0.999995
19	1842.67	1842.65	1843.27	0.999663	1.00001
20	1842.9	1842.31	1843.2	0.999522	1.00032
21	1840.37	1843.44	1844.06	0.999666	0.998334
22	1841.59	1845.17	1845.54	0.999796	0.998061
23	1844.33	1847.51	1847.44	1.00004	0.998278
24	1844.33	1849.44	1849.73	0.99984	0.997239
25	1844.33	1851.03	1852.08	0.999432	0.996383
26	1845.39	1853.3	1854.44	0.999386	0.995731
27	1861.84	1860.77	1857.1	1.00198	1.00057
28	1862.85	1862.65	1860.18	1.00133	1.00011
29	1869.46	1863.37	1863.49	0.999936	1.00327
30	1870.8	1865.86	1866.94	0.999418	1.00265
31	1870.8	1869.82	1870.45	0.999663	1.00052
32	1871.52	1873.24	1874.13	0.999522	0.999084
33	1875.52	1877.15	1877.78	0.999666	0.999131
34	1880.38	1880.88	1881.27	0.999796	0.999732
35	1885.05	1884.55	1884.49	1.00004	1.00026
36	1886.42	1887.07	1887.38	0.99984	0.999654
37	1886.42	1889.18	1890.26	0.999432	0.998537
38	1891.65	1891.93	1893.1	0.999386	0.99985
39	1903.11	1899.63	1895.88	1.00198	1.00183
40	1905.29	1901.22	1898.7	1.00133	1.00214
41	1904.26	1901.33	1901.45	0.999936	1.00154
42	1905.37	1902.91	1904.02	0.999418	1.00129
43	1905.37	1905.88	1906.52	0.999663	0.999733
44	1905.12	1908.12	1909.03	0.999522	0.99843
45	1908.62	1910.47	1911.11	0.999666	0.999031
46	1915.08	1912.25	1912.64	0.999796	1.00148
47	1916.36	1914.11	1914.04	1.00004	1.00118
48	1916.68	1915.05	1915.36	0.99984	1.00085
49	1916.24	1915.54	1916.63	0.999432	1.00036
50	1922.05	1916.76	1917.94	0.999386	1.00276
51	1922.63	1922.94	1919.14	1.00198	0.99984
52	1922.47	1922.5	1919.95	1.00133	0.999985
53	1920.64	1920.33	1920.46	0.999936	1.00016
54	1920.66	1919.78	1920.9	0.999418	1.00046
55	1920.66	1920.7	1921.34	0.999663	0.999981
56	1921.19	1920.63	1921.55	0.999522	1.00029
57	1921.44	1920.65	1921.3	0.999666	1.00041
58	1921.73	1920.26	1920.65	0.999796	1.00076
59	1921.81	1919.5	1919.43	1.00004	1.0012
60	1921.81	1917.37	1917.68	0.99984	1.00231
61	1921.81	1914.8	1915.88	0.999432	1.00366
62	1921.48	1912.96	1914.14	0.999386	1.00445
63	1917.07	1916.18	1912.4	1.00198	1.00046
64	1912.64	1913.25	1910.71	1.00133	0.999683
65	1901.15	1908.95	1909.07	0.999936	0.995915
66	1898.12	1906.31	1907.42	0.999418	0.995704
67	1900.02	NA	NA	0.999663	NA
68	1900.02	NA	NA	0.999522	NA
69	1900.82	NA	NA	0.999666	NA
70	1901.9	NA	NA	0.999796	NA
71	1902.19	NA	NA	1.00004	NA
72	1901.84	NA	NA	0.99984	NA

\begin{tabular}{lllllllll}
\hline
Classical Decomposition by Moving Averages \tabularnewline
t & Observations & Fit & Trend & Seasonal & Random \tabularnewline
1 & 1876.88 & NA & NA & 0.999432 & NA \tabularnewline
2 & 1876.68 & NA & NA & 0.999386 & NA \tabularnewline
3 & 1865.52 & NA & NA & 1.00198 & NA \tabularnewline
4 & 1858.99 & NA & NA & 1.00133 & NA \tabularnewline
5 & 1856.87 & NA & NA & 0.999936 & NA \tabularnewline
6 & 1858.22 & NA & NA & 0.999418 & NA \tabularnewline
7 & 1858.22 & 1858.49 & 1859.12 & 0.999663 & 0.999853 \tabularnewline
8 & 1859.32 & 1855.65 & 1856.54 & 0.999522 & 1.00198 \tabularnewline
9 & 1859.52 & 1853.6 & 1854.22 & 0.999666 & 1.00319 \tabularnewline
10 & 1852.48 & 1852.36 & 1852.74 & 0.999796 & 1.00006 \tabularnewline
11 & 1850.07 & 1851.59 & 1851.52 & 1.00004 & 0.999178 \tabularnewline
12 & 1850.07 & 1849.99 & 1850.29 & 0.99984 & 1.00004 \tabularnewline
13 & 1850.07 & 1847.94 & 1848.99 & 0.999432 & 1.00115 \tabularnewline
14 & 1841.55 & 1846.52 & 1847.66 & 0.999386 & 0.997307 \tabularnewline
15 & 1845 & 1849.83 & 1846.18 & 1.00198 & 0.99739 \tabularnewline
16 & 1844.01 & 1847.37 & 1844.92 & 1.00133 & 0.998181 \tabularnewline
17 & 1842.67 & 1844.11 & 1844.23 & 0.999936 & 0.999218 \tabularnewline
18 & 1842.67 & 1842.68 & 1843.75 & 0.999418 & 0.999995 \tabularnewline
19 & 1842.67 & 1842.65 & 1843.27 & 0.999663 & 1.00001 \tabularnewline
20 & 1842.9 & 1842.31 & 1843.2 & 0.999522 & 1.00032 \tabularnewline
21 & 1840.37 & 1843.44 & 1844.06 & 0.999666 & 0.998334 \tabularnewline
22 & 1841.59 & 1845.17 & 1845.54 & 0.999796 & 0.998061 \tabularnewline
23 & 1844.33 & 1847.51 & 1847.44 & 1.00004 & 0.998278 \tabularnewline
24 & 1844.33 & 1849.44 & 1849.73 & 0.99984 & 0.997239 \tabularnewline
25 & 1844.33 & 1851.03 & 1852.08 & 0.999432 & 0.996383 \tabularnewline
26 & 1845.39 & 1853.3 & 1854.44 & 0.999386 & 0.995731 \tabularnewline
27 & 1861.84 & 1860.77 & 1857.1 & 1.00198 & 1.00057 \tabularnewline
28 & 1862.85 & 1862.65 & 1860.18 & 1.00133 & 1.00011 \tabularnewline
29 & 1869.46 & 1863.37 & 1863.49 & 0.999936 & 1.00327 \tabularnewline
30 & 1870.8 & 1865.86 & 1866.94 & 0.999418 & 1.00265 \tabularnewline
31 & 1870.8 & 1869.82 & 1870.45 & 0.999663 & 1.00052 \tabularnewline
32 & 1871.52 & 1873.24 & 1874.13 & 0.999522 & 0.999084 \tabularnewline
33 & 1875.52 & 1877.15 & 1877.78 & 0.999666 & 0.999131 \tabularnewline
34 & 1880.38 & 1880.88 & 1881.27 & 0.999796 & 0.999732 \tabularnewline
35 & 1885.05 & 1884.55 & 1884.49 & 1.00004 & 1.00026 \tabularnewline
36 & 1886.42 & 1887.07 & 1887.38 & 0.99984 & 0.999654 \tabularnewline
37 & 1886.42 & 1889.18 & 1890.26 & 0.999432 & 0.998537 \tabularnewline
38 & 1891.65 & 1891.93 & 1893.1 & 0.999386 & 0.99985 \tabularnewline
39 & 1903.11 & 1899.63 & 1895.88 & 1.00198 & 1.00183 \tabularnewline
40 & 1905.29 & 1901.22 & 1898.7 & 1.00133 & 1.00214 \tabularnewline
41 & 1904.26 & 1901.33 & 1901.45 & 0.999936 & 1.00154 \tabularnewline
42 & 1905.37 & 1902.91 & 1904.02 & 0.999418 & 1.00129 \tabularnewline
43 & 1905.37 & 1905.88 & 1906.52 & 0.999663 & 0.999733 \tabularnewline
44 & 1905.12 & 1908.12 & 1909.03 & 0.999522 & 0.99843 \tabularnewline
45 & 1908.62 & 1910.47 & 1911.11 & 0.999666 & 0.999031 \tabularnewline
46 & 1915.08 & 1912.25 & 1912.64 & 0.999796 & 1.00148 \tabularnewline
47 & 1916.36 & 1914.11 & 1914.04 & 1.00004 & 1.00118 \tabularnewline
48 & 1916.68 & 1915.05 & 1915.36 & 0.99984 & 1.00085 \tabularnewline
49 & 1916.24 & 1915.54 & 1916.63 & 0.999432 & 1.00036 \tabularnewline
50 & 1922.05 & 1916.76 & 1917.94 & 0.999386 & 1.00276 \tabularnewline
51 & 1922.63 & 1922.94 & 1919.14 & 1.00198 & 0.99984 \tabularnewline
52 & 1922.47 & 1922.5 & 1919.95 & 1.00133 & 0.999985 \tabularnewline
53 & 1920.64 & 1920.33 & 1920.46 & 0.999936 & 1.00016 \tabularnewline
54 & 1920.66 & 1919.78 & 1920.9 & 0.999418 & 1.00046 \tabularnewline
55 & 1920.66 & 1920.7 & 1921.34 & 0.999663 & 0.999981 \tabularnewline
56 & 1921.19 & 1920.63 & 1921.55 & 0.999522 & 1.00029 \tabularnewline
57 & 1921.44 & 1920.65 & 1921.3 & 0.999666 & 1.00041 \tabularnewline
58 & 1921.73 & 1920.26 & 1920.65 & 0.999796 & 1.00076 \tabularnewline
59 & 1921.81 & 1919.5 & 1919.43 & 1.00004 & 1.0012 \tabularnewline
60 & 1921.81 & 1917.37 & 1917.68 & 0.99984 & 1.00231 \tabularnewline
61 & 1921.81 & 1914.8 & 1915.88 & 0.999432 & 1.00366 \tabularnewline
62 & 1921.48 & 1912.96 & 1914.14 & 0.999386 & 1.00445 \tabularnewline
63 & 1917.07 & 1916.18 & 1912.4 & 1.00198 & 1.00046 \tabularnewline
64 & 1912.64 & 1913.25 & 1910.71 & 1.00133 & 0.999683 \tabularnewline
65 & 1901.15 & 1908.95 & 1909.07 & 0.999936 & 0.995915 \tabularnewline
66 & 1898.12 & 1906.31 & 1907.42 & 0.999418 & 0.995704 \tabularnewline
67 & 1900.02 & NA & NA & 0.999663 & NA \tabularnewline
68 & 1900.02 & NA & NA & 0.999522 & NA \tabularnewline
69 & 1900.82 & NA & NA & 0.999666 & NA \tabularnewline
70 & 1901.9 & NA & NA & 0.999796 & NA \tabularnewline
71 & 1902.19 & NA & NA & 1.00004 & NA \tabularnewline
72 & 1901.84 & NA & NA & 0.99984 & NA \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=232235&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]1876.88[/C][C]NA[/C][C]NA[/C][C]0.999432[/C][C]NA[/C][/ROW]
[ROW][C]2[/C][C]1876.68[/C][C]NA[/C][C]NA[/C][C]0.999386[/C][C]NA[/C][/ROW]
[ROW][C]3[/C][C]1865.52[/C][C]NA[/C][C]NA[/C][C]1.00198[/C][C]NA[/C][/ROW]
[ROW][C]4[/C][C]1858.99[/C][C]NA[/C][C]NA[/C][C]1.00133[/C][C]NA[/C][/ROW]
[ROW][C]5[/C][C]1856.87[/C][C]NA[/C][C]NA[/C][C]0.999936[/C][C]NA[/C][/ROW]
[ROW][C]6[/C][C]1858.22[/C][C]NA[/C][C]NA[/C][C]0.999418[/C][C]NA[/C][/ROW]
[ROW][C]7[/C][C]1858.22[/C][C]1858.49[/C][C]1859.12[/C][C]0.999663[/C][C]0.999853[/C][/ROW]
[ROW][C]8[/C][C]1859.32[/C][C]1855.65[/C][C]1856.54[/C][C]0.999522[/C][C]1.00198[/C][/ROW]
[ROW][C]9[/C][C]1859.52[/C][C]1853.6[/C][C]1854.22[/C][C]0.999666[/C][C]1.00319[/C][/ROW]
[ROW][C]10[/C][C]1852.48[/C][C]1852.36[/C][C]1852.74[/C][C]0.999796[/C][C]1.00006[/C][/ROW]
[ROW][C]11[/C][C]1850.07[/C][C]1851.59[/C][C]1851.52[/C][C]1.00004[/C][C]0.999178[/C][/ROW]
[ROW][C]12[/C][C]1850.07[/C][C]1849.99[/C][C]1850.29[/C][C]0.99984[/C][C]1.00004[/C][/ROW]
[ROW][C]13[/C][C]1850.07[/C][C]1847.94[/C][C]1848.99[/C][C]0.999432[/C][C]1.00115[/C][/ROW]
[ROW][C]14[/C][C]1841.55[/C][C]1846.52[/C][C]1847.66[/C][C]0.999386[/C][C]0.997307[/C][/ROW]
[ROW][C]15[/C][C]1845[/C][C]1849.83[/C][C]1846.18[/C][C]1.00198[/C][C]0.99739[/C][/ROW]
[ROW][C]16[/C][C]1844.01[/C][C]1847.37[/C][C]1844.92[/C][C]1.00133[/C][C]0.998181[/C][/ROW]
[ROW][C]17[/C][C]1842.67[/C][C]1844.11[/C][C]1844.23[/C][C]0.999936[/C][C]0.999218[/C][/ROW]
[ROW][C]18[/C][C]1842.67[/C][C]1842.68[/C][C]1843.75[/C][C]0.999418[/C][C]0.999995[/C][/ROW]
[ROW][C]19[/C][C]1842.67[/C][C]1842.65[/C][C]1843.27[/C][C]0.999663[/C][C]1.00001[/C][/ROW]
[ROW][C]20[/C][C]1842.9[/C][C]1842.31[/C][C]1843.2[/C][C]0.999522[/C][C]1.00032[/C][/ROW]
[ROW][C]21[/C][C]1840.37[/C][C]1843.44[/C][C]1844.06[/C][C]0.999666[/C][C]0.998334[/C][/ROW]
[ROW][C]22[/C][C]1841.59[/C][C]1845.17[/C][C]1845.54[/C][C]0.999796[/C][C]0.998061[/C][/ROW]
[ROW][C]23[/C][C]1844.33[/C][C]1847.51[/C][C]1847.44[/C][C]1.00004[/C][C]0.998278[/C][/ROW]
[ROW][C]24[/C][C]1844.33[/C][C]1849.44[/C][C]1849.73[/C][C]0.99984[/C][C]0.997239[/C][/ROW]
[ROW][C]25[/C][C]1844.33[/C][C]1851.03[/C][C]1852.08[/C][C]0.999432[/C][C]0.996383[/C][/ROW]
[ROW][C]26[/C][C]1845.39[/C][C]1853.3[/C][C]1854.44[/C][C]0.999386[/C][C]0.995731[/C][/ROW]
[ROW][C]27[/C][C]1861.84[/C][C]1860.77[/C][C]1857.1[/C][C]1.00198[/C][C]1.00057[/C][/ROW]
[ROW][C]28[/C][C]1862.85[/C][C]1862.65[/C][C]1860.18[/C][C]1.00133[/C][C]1.00011[/C][/ROW]
[ROW][C]29[/C][C]1869.46[/C][C]1863.37[/C][C]1863.49[/C][C]0.999936[/C][C]1.00327[/C][/ROW]
[ROW][C]30[/C][C]1870.8[/C][C]1865.86[/C][C]1866.94[/C][C]0.999418[/C][C]1.00265[/C][/ROW]
[ROW][C]31[/C][C]1870.8[/C][C]1869.82[/C][C]1870.45[/C][C]0.999663[/C][C]1.00052[/C][/ROW]
[ROW][C]32[/C][C]1871.52[/C][C]1873.24[/C][C]1874.13[/C][C]0.999522[/C][C]0.999084[/C][/ROW]
[ROW][C]33[/C][C]1875.52[/C][C]1877.15[/C][C]1877.78[/C][C]0.999666[/C][C]0.999131[/C][/ROW]
[ROW][C]34[/C][C]1880.38[/C][C]1880.88[/C][C]1881.27[/C][C]0.999796[/C][C]0.999732[/C][/ROW]
[ROW][C]35[/C][C]1885.05[/C][C]1884.55[/C][C]1884.49[/C][C]1.00004[/C][C]1.00026[/C][/ROW]
[ROW][C]36[/C][C]1886.42[/C][C]1887.07[/C][C]1887.38[/C][C]0.99984[/C][C]0.999654[/C][/ROW]
[ROW][C]37[/C][C]1886.42[/C][C]1889.18[/C][C]1890.26[/C][C]0.999432[/C][C]0.998537[/C][/ROW]
[ROW][C]38[/C][C]1891.65[/C][C]1891.93[/C][C]1893.1[/C][C]0.999386[/C][C]0.99985[/C][/ROW]
[ROW][C]39[/C][C]1903.11[/C][C]1899.63[/C][C]1895.88[/C][C]1.00198[/C][C]1.00183[/C][/ROW]
[ROW][C]40[/C][C]1905.29[/C][C]1901.22[/C][C]1898.7[/C][C]1.00133[/C][C]1.00214[/C][/ROW]
[ROW][C]41[/C][C]1904.26[/C][C]1901.33[/C][C]1901.45[/C][C]0.999936[/C][C]1.00154[/C][/ROW]
[ROW][C]42[/C][C]1905.37[/C][C]1902.91[/C][C]1904.02[/C][C]0.999418[/C][C]1.00129[/C][/ROW]
[ROW][C]43[/C][C]1905.37[/C][C]1905.88[/C][C]1906.52[/C][C]0.999663[/C][C]0.999733[/C][/ROW]
[ROW][C]44[/C][C]1905.12[/C][C]1908.12[/C][C]1909.03[/C][C]0.999522[/C][C]0.99843[/C][/ROW]
[ROW][C]45[/C][C]1908.62[/C][C]1910.47[/C][C]1911.11[/C][C]0.999666[/C][C]0.999031[/C][/ROW]
[ROW][C]46[/C][C]1915.08[/C][C]1912.25[/C][C]1912.64[/C][C]0.999796[/C][C]1.00148[/C][/ROW]
[ROW][C]47[/C][C]1916.36[/C][C]1914.11[/C][C]1914.04[/C][C]1.00004[/C][C]1.00118[/C][/ROW]
[ROW][C]48[/C][C]1916.68[/C][C]1915.05[/C][C]1915.36[/C][C]0.99984[/C][C]1.00085[/C][/ROW]
[ROW][C]49[/C][C]1916.24[/C][C]1915.54[/C][C]1916.63[/C][C]0.999432[/C][C]1.00036[/C][/ROW]
[ROW][C]50[/C][C]1922.05[/C][C]1916.76[/C][C]1917.94[/C][C]0.999386[/C][C]1.00276[/C][/ROW]
[ROW][C]51[/C][C]1922.63[/C][C]1922.94[/C][C]1919.14[/C][C]1.00198[/C][C]0.99984[/C][/ROW]
[ROW][C]52[/C][C]1922.47[/C][C]1922.5[/C][C]1919.95[/C][C]1.00133[/C][C]0.999985[/C][/ROW]
[ROW][C]53[/C][C]1920.64[/C][C]1920.33[/C][C]1920.46[/C][C]0.999936[/C][C]1.00016[/C][/ROW]
[ROW][C]54[/C][C]1920.66[/C][C]1919.78[/C][C]1920.9[/C][C]0.999418[/C][C]1.00046[/C][/ROW]
[ROW][C]55[/C][C]1920.66[/C][C]1920.7[/C][C]1921.34[/C][C]0.999663[/C][C]0.999981[/C][/ROW]
[ROW][C]56[/C][C]1921.19[/C][C]1920.63[/C][C]1921.55[/C][C]0.999522[/C][C]1.00029[/C][/ROW]
[ROW][C]57[/C][C]1921.44[/C][C]1920.65[/C][C]1921.3[/C][C]0.999666[/C][C]1.00041[/C][/ROW]
[ROW][C]58[/C][C]1921.73[/C][C]1920.26[/C][C]1920.65[/C][C]0.999796[/C][C]1.00076[/C][/ROW]
[ROW][C]59[/C][C]1921.81[/C][C]1919.5[/C][C]1919.43[/C][C]1.00004[/C][C]1.0012[/C][/ROW]
[ROW][C]60[/C][C]1921.81[/C][C]1917.37[/C][C]1917.68[/C][C]0.99984[/C][C]1.00231[/C][/ROW]
[ROW][C]61[/C][C]1921.81[/C][C]1914.8[/C][C]1915.88[/C][C]0.999432[/C][C]1.00366[/C][/ROW]
[ROW][C]62[/C][C]1921.48[/C][C]1912.96[/C][C]1914.14[/C][C]0.999386[/C][C]1.00445[/C][/ROW]
[ROW][C]63[/C][C]1917.07[/C][C]1916.18[/C][C]1912.4[/C][C]1.00198[/C][C]1.00046[/C][/ROW]
[ROW][C]64[/C][C]1912.64[/C][C]1913.25[/C][C]1910.71[/C][C]1.00133[/C][C]0.999683[/C][/ROW]
[ROW][C]65[/C][C]1901.15[/C][C]1908.95[/C][C]1909.07[/C][C]0.999936[/C][C]0.995915[/C][/ROW]
[ROW][C]66[/C][C]1898.12[/C][C]1906.31[/C][C]1907.42[/C][C]0.999418[/C][C]0.995704[/C][/ROW]
[ROW][C]67[/C][C]1900.02[/C][C]NA[/C][C]NA[/C][C]0.999663[/C][C]NA[/C][/ROW]
[ROW][C]68[/C][C]1900.02[/C][C]NA[/C][C]NA[/C][C]0.999522[/C][C]NA[/C][/ROW]
[ROW][C]69[/C][C]1900.82[/C][C]NA[/C][C]NA[/C][C]0.999666[/C][C]NA[/C][/ROW]
[ROW][C]70[/C][C]1901.9[/C][C]NA[/C][C]NA[/C][C]0.999796[/C][C]NA[/C][/ROW]
[ROW][C]71[/C][C]1902.19[/C][C]NA[/C][C]NA[/C][C]1.00004[/C][C]NA[/C][/ROW]
[ROW][C]72[/C][C]1901.84[/C][C]NA[/C][C]NA[/C][C]0.99984[/C][C]NA[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=232235&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=232235&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	1876.88	NA	NA	0.999432	NA
2	1876.68	NA	NA	0.999386	NA
3	1865.52	NA	NA	1.00198	NA
4	1858.99	NA	NA	1.00133	NA
5	1856.87	NA	NA	0.999936	NA
6	1858.22	NA	NA	0.999418	NA
7	1858.22	1858.49	1859.12	0.999663	0.999853
8	1859.32	1855.65	1856.54	0.999522	1.00198
9	1859.52	1853.6	1854.22	0.999666	1.00319
10	1852.48	1852.36	1852.74	0.999796	1.00006
11	1850.07	1851.59	1851.52	1.00004	0.999178
12	1850.07	1849.99	1850.29	0.99984	1.00004
13	1850.07	1847.94	1848.99	0.999432	1.00115
14	1841.55	1846.52	1847.66	0.999386	0.997307
15	1845	1849.83	1846.18	1.00198	0.99739
16	1844.01	1847.37	1844.92	1.00133	0.998181
17	1842.67	1844.11	1844.23	0.999936	0.999218
18	1842.67	1842.68	1843.75	0.999418	0.999995
19	1842.67	1842.65	1843.27	0.999663	1.00001
20	1842.9	1842.31	1843.2	0.999522	1.00032
21	1840.37	1843.44	1844.06	0.999666	0.998334
22	1841.59	1845.17	1845.54	0.999796	0.998061
23	1844.33	1847.51	1847.44	1.00004	0.998278
24	1844.33	1849.44	1849.73	0.99984	0.997239
25	1844.33	1851.03	1852.08	0.999432	0.996383
26	1845.39	1853.3	1854.44	0.999386	0.995731
27	1861.84	1860.77	1857.1	1.00198	1.00057
28	1862.85	1862.65	1860.18	1.00133	1.00011
29	1869.46	1863.37	1863.49	0.999936	1.00327
30	1870.8	1865.86	1866.94	0.999418	1.00265
31	1870.8	1869.82	1870.45	0.999663	1.00052
32	1871.52	1873.24	1874.13	0.999522	0.999084
33	1875.52	1877.15	1877.78	0.999666	0.999131
34	1880.38	1880.88	1881.27	0.999796	0.999732
35	1885.05	1884.55	1884.49	1.00004	1.00026
36	1886.42	1887.07	1887.38	0.99984	0.999654
37	1886.42	1889.18	1890.26	0.999432	0.998537
38	1891.65	1891.93	1893.1	0.999386	0.99985
39	1903.11	1899.63	1895.88	1.00198	1.00183
40	1905.29	1901.22	1898.7	1.00133	1.00214
41	1904.26	1901.33	1901.45	0.999936	1.00154
42	1905.37	1902.91	1904.02	0.999418	1.00129
43	1905.37	1905.88	1906.52	0.999663	0.999733
44	1905.12	1908.12	1909.03	0.999522	0.99843
45	1908.62	1910.47	1911.11	0.999666	0.999031
46	1915.08	1912.25	1912.64	0.999796	1.00148
47	1916.36	1914.11	1914.04	1.00004	1.00118
48	1916.68	1915.05	1915.36	0.99984	1.00085
49	1916.24	1915.54	1916.63	0.999432	1.00036
50	1922.05	1916.76	1917.94	0.999386	1.00276
51	1922.63	1922.94	1919.14	1.00198	0.99984
52	1922.47	1922.5	1919.95	1.00133	0.999985
53	1920.64	1920.33	1920.46	0.999936	1.00016
54	1920.66	1919.78	1920.9	0.999418	1.00046
55	1920.66	1920.7	1921.34	0.999663	0.999981
56	1921.19	1920.63	1921.55	0.999522	1.00029
57	1921.44	1920.65	1921.3	0.999666	1.00041
58	1921.73	1920.26	1920.65	0.999796	1.00076
59	1921.81	1919.5	1919.43	1.00004	1.0012
60	1921.81	1917.37	1917.68	0.99984	1.00231
61	1921.81	1914.8	1915.88	0.999432	1.00366
62	1921.48	1912.96	1914.14	0.999386	1.00445
63	1917.07	1916.18	1912.4	1.00198	1.00046
64	1912.64	1913.25	1910.71	1.00133	0.999683
65	1901.15	1908.95	1909.07	0.999936	0.995915
66	1898.12	1906.31	1907.42	0.999418	0.995704
67	1900.02	NA	NA	0.999663	NA
68	1900.02	NA	NA	0.999522	NA
69	1900.82	NA	NA	0.999666	NA
70	1901.9	NA	NA	0.999796	NA
71	1902.19	NA	NA	1.00004	NA
72	1901.84	NA	NA	0.99984	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 = multiplicative ; par2 = 12 ;

Parameters (R input):

par1 = multiplicative ; 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