Free Statistics

of Irreproducible Research!

Author's title

Author*The author of this computation has been verified*
R Software Modulerwasp_decompose.wasp
Title produced by softwareClassical Decomposition
Date of computationMon, 28 Nov 2011 17:34:10 -0500
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2011/Nov/28/t1322519664192atqewb40r6x0.htm/, Retrieved Tue, 16 Apr 2024 08:00:38 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=148058, Retrieved Tue, 16 Apr 2024 08:00:38 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact145
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Classical Decomposition] [HPC Retail Sales] [2008-03-02 16:19:32] [74be16979710d4c4e7c6647856088456]
- RM D    [Classical Decomposition] [] [2011-11-28 22:34:10] [fe5ec8748c528a1557751a5a0f6a19ab] [Current]
-  M        [Classical Decomposition] [] [2011-12-22 14:00:10] [bdca8f3e7c3554be8c1291e54f61d441]
-           [Classical Decomposition] [] [2011-12-22 18:23:52] [bdca8f3e7c3554be8c1291e54f61d441]
-  M        [Classical Decomposition] [WS8 1] [2012-11-27 15:22:04] [bdca8f3e7c3554be8c1291e54f61d441]
Feedback Forum

Post a new message
Dataseries X:
61
65
55
56
91
80
135
129
129
130
109
126
73
68
74
95
105
108
127
108
126
154
127
103
95
59
68
82
92
124
139
167
138
146
128
145
91
66
89
98
113
130
127
157
157
136
145
112
71
95
95
105
116
104
128
181
130
124
123
152




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 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 & 1 seconds \tabularnewline
R Server & 'Gwilym Jenkins' @ jenkins.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=148058&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]1 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=148058&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=148058&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 Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'Gwilym Jenkins' @ jenkins.wessa.net







Classical Decomposition by Moving Averages
tObservationsFitTrendSeasonalRandom
161NANA-30.8645833333333NA
265NANA-41.8333333333333NA
355NANA-32.8854166666667NA
456NANA-19.3333333333333NA
591NANA-7.91666666666668NA
680NANA1.66666666666666NA
7135119.83333333333397.666666666666722.166666666666715.1666666666667
8129128.29166666666798.2916666666667300.708333333333343
9129125.72916666666799.208333333333326.52083333333333.27083333333333
10130131.21875101.62529.59375-1.21875
11109118.40625103.83333333333314.5729166666667-9.40625000000001
12126113.895833333333105.5833333333338.312512.1041666666667
137375.5520833333333106.416666666667-30.8645833333333-2.55208333333333
146863.375105.208333333333-41.83333333333334.625
157471.3229166666667104.208333333333-32.88541666666672.67708333333334
169585.75105.083333333333-19.33333333333339.25
1710598.9166666666667106.833333333333-7.916666666666686.08333333333333
18108108.291666666667106.6251.66666666666666-0.291666666666657
19127128.75106.58333333333322.1666666666667-1.75000000000001
20108137.125107.12530-29.125
21126133.020833333333106.526.5208333333333-7.02083333333333
22154135.302083333333105.70833333333329.5937518.6979166666667
23127119.197916666667104.62514.57291666666677.80208333333333
24103113.0625104.758.3125-10.0625
259575.0520833333333105.916666666667-30.864583333333319.9479166666667
265967.0416666666667108.875-41.8333333333333-8.04166666666667
276878.9479166666667111.833333333333-32.8854166666667-10.9479166666667
288292.6666666666667112-19.3333333333333-10.6666666666667
2992103.791666666667111.708333333333-7.91666666666668-11.7916666666667
30124115.166666666667113.51.666666666666668.83333333333334
31139137.25115.08333333333322.16666666666671.75000000000001
32167145.208333333333115.2083333333333021.7916666666667
33138142.895833333333116.37526.5208333333333-4.89583333333331
34146147.510416666667117.91666666666729.59375-1.51041666666666
35128134.03125119.45833333333314.5729166666667-6.03125
36145128.895833333333120.5833333333338.312516.1041666666667
379189.46875120.333333333333-30.86458333333331.53124999999997
386677.5833333333333119.416666666667-41.8333333333333-11.5833333333333
398986.90625119.791666666667-32.88541666666672.09375
4098100.833333333333120.166666666667-19.3333333333333-2.83333333333333
41113112.541666666667120.458333333333-7.916666666666680.458333333333343
42130121.458333333333119.7916666666671.666666666666668.54166666666667
43127139.75117.58333333333322.1666666666667-12.75
44157147.958333333333117.958333333333309.04166666666666
45157145.9375119.41666666666726.520833333333311.0625
46136149.552083333333119.95833333333329.59375-13.5520833333333
47145134.947916666667120.37514.572916666666710.0520833333334
48112127.729166666667119.4166666666678.3125-15.7291666666667
497187.5104166666667118.375-30.8645833333333-16.5104166666667
509577.5833333333333119.416666666667-41.833333333333317.4166666666667
519586.40625119.291666666667-32.88541666666678.59375
5210598.3333333333333117.666666666667-19.33333333333336.66666666666666
53116108.333333333333116.25-7.916666666666687.66666666666666
54104118.6666666666671171.66666666666666-14.6666666666667
55128NANA22.1666666666667NA
56181NANA30NA
57130NANA26.5208333333333NA
58124NANA29.59375NA
59123NANA14.5729166666667NA
60152NANA8.3125NA

\begin{tabular}{lllllllll}
\hline
Classical Decomposition by Moving Averages \tabularnewline
t & Observations & Fit & Trend & Seasonal & Random \tabularnewline
1 & 61 & NA & NA & -30.8645833333333 & NA \tabularnewline
2 & 65 & NA & NA & -41.8333333333333 & NA \tabularnewline
3 & 55 & NA & NA & -32.8854166666667 & NA \tabularnewline
4 & 56 & NA & NA & -19.3333333333333 & NA \tabularnewline
5 & 91 & NA & NA & -7.91666666666668 & NA \tabularnewline
6 & 80 & NA & NA & 1.66666666666666 & NA \tabularnewline
7 & 135 & 119.833333333333 & 97.6666666666667 & 22.1666666666667 & 15.1666666666667 \tabularnewline
8 & 129 & 128.291666666667 & 98.2916666666667 & 30 & 0.708333333333343 \tabularnewline
9 & 129 & 125.729166666667 & 99.2083333333333 & 26.5208333333333 & 3.27083333333333 \tabularnewline
10 & 130 & 131.21875 & 101.625 & 29.59375 & -1.21875 \tabularnewline
11 & 109 & 118.40625 & 103.833333333333 & 14.5729166666667 & -9.40625000000001 \tabularnewline
12 & 126 & 113.895833333333 & 105.583333333333 & 8.3125 & 12.1041666666667 \tabularnewline
13 & 73 & 75.5520833333333 & 106.416666666667 & -30.8645833333333 & -2.55208333333333 \tabularnewline
14 & 68 & 63.375 & 105.208333333333 & -41.8333333333333 & 4.625 \tabularnewline
15 & 74 & 71.3229166666667 & 104.208333333333 & -32.8854166666667 & 2.67708333333334 \tabularnewline
16 & 95 & 85.75 & 105.083333333333 & -19.3333333333333 & 9.25 \tabularnewline
17 & 105 & 98.9166666666667 & 106.833333333333 & -7.91666666666668 & 6.08333333333333 \tabularnewline
18 & 108 & 108.291666666667 & 106.625 & 1.66666666666666 & -0.291666666666657 \tabularnewline
19 & 127 & 128.75 & 106.583333333333 & 22.1666666666667 & -1.75000000000001 \tabularnewline
20 & 108 & 137.125 & 107.125 & 30 & -29.125 \tabularnewline
21 & 126 & 133.020833333333 & 106.5 & 26.5208333333333 & -7.02083333333333 \tabularnewline
22 & 154 & 135.302083333333 & 105.708333333333 & 29.59375 & 18.6979166666667 \tabularnewline
23 & 127 & 119.197916666667 & 104.625 & 14.5729166666667 & 7.80208333333333 \tabularnewline
24 & 103 & 113.0625 & 104.75 & 8.3125 & -10.0625 \tabularnewline
25 & 95 & 75.0520833333333 & 105.916666666667 & -30.8645833333333 & 19.9479166666667 \tabularnewline
26 & 59 & 67.0416666666667 & 108.875 & -41.8333333333333 & -8.04166666666667 \tabularnewline
27 & 68 & 78.9479166666667 & 111.833333333333 & -32.8854166666667 & -10.9479166666667 \tabularnewline
28 & 82 & 92.6666666666667 & 112 & -19.3333333333333 & -10.6666666666667 \tabularnewline
29 & 92 & 103.791666666667 & 111.708333333333 & -7.91666666666668 & -11.7916666666667 \tabularnewline
30 & 124 & 115.166666666667 & 113.5 & 1.66666666666666 & 8.83333333333334 \tabularnewline
31 & 139 & 137.25 & 115.083333333333 & 22.1666666666667 & 1.75000000000001 \tabularnewline
32 & 167 & 145.208333333333 & 115.208333333333 & 30 & 21.7916666666667 \tabularnewline
33 & 138 & 142.895833333333 & 116.375 & 26.5208333333333 & -4.89583333333331 \tabularnewline
34 & 146 & 147.510416666667 & 117.916666666667 & 29.59375 & -1.51041666666666 \tabularnewline
35 & 128 & 134.03125 & 119.458333333333 & 14.5729166666667 & -6.03125 \tabularnewline
36 & 145 & 128.895833333333 & 120.583333333333 & 8.3125 & 16.1041666666667 \tabularnewline
37 & 91 & 89.46875 & 120.333333333333 & -30.8645833333333 & 1.53124999999997 \tabularnewline
38 & 66 & 77.5833333333333 & 119.416666666667 & -41.8333333333333 & -11.5833333333333 \tabularnewline
39 & 89 & 86.90625 & 119.791666666667 & -32.8854166666667 & 2.09375 \tabularnewline
40 & 98 & 100.833333333333 & 120.166666666667 & -19.3333333333333 & -2.83333333333333 \tabularnewline
41 & 113 & 112.541666666667 & 120.458333333333 & -7.91666666666668 & 0.458333333333343 \tabularnewline
42 & 130 & 121.458333333333 & 119.791666666667 & 1.66666666666666 & 8.54166666666667 \tabularnewline
43 & 127 & 139.75 & 117.583333333333 & 22.1666666666667 & -12.75 \tabularnewline
44 & 157 & 147.958333333333 & 117.958333333333 & 30 & 9.04166666666666 \tabularnewline
45 & 157 & 145.9375 & 119.416666666667 & 26.5208333333333 & 11.0625 \tabularnewline
46 & 136 & 149.552083333333 & 119.958333333333 & 29.59375 & -13.5520833333333 \tabularnewline
47 & 145 & 134.947916666667 & 120.375 & 14.5729166666667 & 10.0520833333334 \tabularnewline
48 & 112 & 127.729166666667 & 119.416666666667 & 8.3125 & -15.7291666666667 \tabularnewline
49 & 71 & 87.5104166666667 & 118.375 & -30.8645833333333 & -16.5104166666667 \tabularnewline
50 & 95 & 77.5833333333333 & 119.416666666667 & -41.8333333333333 & 17.4166666666667 \tabularnewline
51 & 95 & 86.40625 & 119.291666666667 & -32.8854166666667 & 8.59375 \tabularnewline
52 & 105 & 98.3333333333333 & 117.666666666667 & -19.3333333333333 & 6.66666666666666 \tabularnewline
53 & 116 & 108.333333333333 & 116.25 & -7.91666666666668 & 7.66666666666666 \tabularnewline
54 & 104 & 118.666666666667 & 117 & 1.66666666666666 & -14.6666666666667 \tabularnewline
55 & 128 & NA & NA & 22.1666666666667 & NA \tabularnewline
56 & 181 & NA & NA & 30 & NA \tabularnewline
57 & 130 & NA & NA & 26.5208333333333 & NA \tabularnewline
58 & 124 & NA & NA & 29.59375 & NA \tabularnewline
59 & 123 & NA & NA & 14.5729166666667 & NA \tabularnewline
60 & 152 & NA & NA & 8.3125 & NA \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=148058&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]61[/C][C]NA[/C][C]NA[/C][C]-30.8645833333333[/C][C]NA[/C][/ROW]
[ROW][C]2[/C][C]65[/C][C]NA[/C][C]NA[/C][C]-41.8333333333333[/C][C]NA[/C][/ROW]
[ROW][C]3[/C][C]55[/C][C]NA[/C][C]NA[/C][C]-32.8854166666667[/C][C]NA[/C][/ROW]
[ROW][C]4[/C][C]56[/C][C]NA[/C][C]NA[/C][C]-19.3333333333333[/C][C]NA[/C][/ROW]
[ROW][C]5[/C][C]91[/C][C]NA[/C][C]NA[/C][C]-7.91666666666668[/C][C]NA[/C][/ROW]
[ROW][C]6[/C][C]80[/C][C]NA[/C][C]NA[/C][C]1.66666666666666[/C][C]NA[/C][/ROW]
[ROW][C]7[/C][C]135[/C][C]119.833333333333[/C][C]97.6666666666667[/C][C]22.1666666666667[/C][C]15.1666666666667[/C][/ROW]
[ROW][C]8[/C][C]129[/C][C]128.291666666667[/C][C]98.2916666666667[/C][C]30[/C][C]0.708333333333343[/C][/ROW]
[ROW][C]9[/C][C]129[/C][C]125.729166666667[/C][C]99.2083333333333[/C][C]26.5208333333333[/C][C]3.27083333333333[/C][/ROW]
[ROW][C]10[/C][C]130[/C][C]131.21875[/C][C]101.625[/C][C]29.59375[/C][C]-1.21875[/C][/ROW]
[ROW][C]11[/C][C]109[/C][C]118.40625[/C][C]103.833333333333[/C][C]14.5729166666667[/C][C]-9.40625000000001[/C][/ROW]
[ROW][C]12[/C][C]126[/C][C]113.895833333333[/C][C]105.583333333333[/C][C]8.3125[/C][C]12.1041666666667[/C][/ROW]
[ROW][C]13[/C][C]73[/C][C]75.5520833333333[/C][C]106.416666666667[/C][C]-30.8645833333333[/C][C]-2.55208333333333[/C][/ROW]
[ROW][C]14[/C][C]68[/C][C]63.375[/C][C]105.208333333333[/C][C]-41.8333333333333[/C][C]4.625[/C][/ROW]
[ROW][C]15[/C][C]74[/C][C]71.3229166666667[/C][C]104.208333333333[/C][C]-32.8854166666667[/C][C]2.67708333333334[/C][/ROW]
[ROW][C]16[/C][C]95[/C][C]85.75[/C][C]105.083333333333[/C][C]-19.3333333333333[/C][C]9.25[/C][/ROW]
[ROW][C]17[/C][C]105[/C][C]98.9166666666667[/C][C]106.833333333333[/C][C]-7.91666666666668[/C][C]6.08333333333333[/C][/ROW]
[ROW][C]18[/C][C]108[/C][C]108.291666666667[/C][C]106.625[/C][C]1.66666666666666[/C][C]-0.291666666666657[/C][/ROW]
[ROW][C]19[/C][C]127[/C][C]128.75[/C][C]106.583333333333[/C][C]22.1666666666667[/C][C]-1.75000000000001[/C][/ROW]
[ROW][C]20[/C][C]108[/C][C]137.125[/C][C]107.125[/C][C]30[/C][C]-29.125[/C][/ROW]
[ROW][C]21[/C][C]126[/C][C]133.020833333333[/C][C]106.5[/C][C]26.5208333333333[/C][C]-7.02083333333333[/C][/ROW]
[ROW][C]22[/C][C]154[/C][C]135.302083333333[/C][C]105.708333333333[/C][C]29.59375[/C][C]18.6979166666667[/C][/ROW]
[ROW][C]23[/C][C]127[/C][C]119.197916666667[/C][C]104.625[/C][C]14.5729166666667[/C][C]7.80208333333333[/C][/ROW]
[ROW][C]24[/C][C]103[/C][C]113.0625[/C][C]104.75[/C][C]8.3125[/C][C]-10.0625[/C][/ROW]
[ROW][C]25[/C][C]95[/C][C]75.0520833333333[/C][C]105.916666666667[/C][C]-30.8645833333333[/C][C]19.9479166666667[/C][/ROW]
[ROW][C]26[/C][C]59[/C][C]67.0416666666667[/C][C]108.875[/C][C]-41.8333333333333[/C][C]-8.04166666666667[/C][/ROW]
[ROW][C]27[/C][C]68[/C][C]78.9479166666667[/C][C]111.833333333333[/C][C]-32.8854166666667[/C][C]-10.9479166666667[/C][/ROW]
[ROW][C]28[/C][C]82[/C][C]92.6666666666667[/C][C]112[/C][C]-19.3333333333333[/C][C]-10.6666666666667[/C][/ROW]
[ROW][C]29[/C][C]92[/C][C]103.791666666667[/C][C]111.708333333333[/C][C]-7.91666666666668[/C][C]-11.7916666666667[/C][/ROW]
[ROW][C]30[/C][C]124[/C][C]115.166666666667[/C][C]113.5[/C][C]1.66666666666666[/C][C]8.83333333333334[/C][/ROW]
[ROW][C]31[/C][C]139[/C][C]137.25[/C][C]115.083333333333[/C][C]22.1666666666667[/C][C]1.75000000000001[/C][/ROW]
[ROW][C]32[/C][C]167[/C][C]145.208333333333[/C][C]115.208333333333[/C][C]30[/C][C]21.7916666666667[/C][/ROW]
[ROW][C]33[/C][C]138[/C][C]142.895833333333[/C][C]116.375[/C][C]26.5208333333333[/C][C]-4.89583333333331[/C][/ROW]
[ROW][C]34[/C][C]146[/C][C]147.510416666667[/C][C]117.916666666667[/C][C]29.59375[/C][C]-1.51041666666666[/C][/ROW]
[ROW][C]35[/C][C]128[/C][C]134.03125[/C][C]119.458333333333[/C][C]14.5729166666667[/C][C]-6.03125[/C][/ROW]
[ROW][C]36[/C][C]145[/C][C]128.895833333333[/C][C]120.583333333333[/C][C]8.3125[/C][C]16.1041666666667[/C][/ROW]
[ROW][C]37[/C][C]91[/C][C]89.46875[/C][C]120.333333333333[/C][C]-30.8645833333333[/C][C]1.53124999999997[/C][/ROW]
[ROW][C]38[/C][C]66[/C][C]77.5833333333333[/C][C]119.416666666667[/C][C]-41.8333333333333[/C][C]-11.5833333333333[/C][/ROW]
[ROW][C]39[/C][C]89[/C][C]86.90625[/C][C]119.791666666667[/C][C]-32.8854166666667[/C][C]2.09375[/C][/ROW]
[ROW][C]40[/C][C]98[/C][C]100.833333333333[/C][C]120.166666666667[/C][C]-19.3333333333333[/C][C]-2.83333333333333[/C][/ROW]
[ROW][C]41[/C][C]113[/C][C]112.541666666667[/C][C]120.458333333333[/C][C]-7.91666666666668[/C][C]0.458333333333343[/C][/ROW]
[ROW][C]42[/C][C]130[/C][C]121.458333333333[/C][C]119.791666666667[/C][C]1.66666666666666[/C][C]8.54166666666667[/C][/ROW]
[ROW][C]43[/C][C]127[/C][C]139.75[/C][C]117.583333333333[/C][C]22.1666666666667[/C][C]-12.75[/C][/ROW]
[ROW][C]44[/C][C]157[/C][C]147.958333333333[/C][C]117.958333333333[/C][C]30[/C][C]9.04166666666666[/C][/ROW]
[ROW][C]45[/C][C]157[/C][C]145.9375[/C][C]119.416666666667[/C][C]26.5208333333333[/C][C]11.0625[/C][/ROW]
[ROW][C]46[/C][C]136[/C][C]149.552083333333[/C][C]119.958333333333[/C][C]29.59375[/C][C]-13.5520833333333[/C][/ROW]
[ROW][C]47[/C][C]145[/C][C]134.947916666667[/C][C]120.375[/C][C]14.5729166666667[/C][C]10.0520833333334[/C][/ROW]
[ROW][C]48[/C][C]112[/C][C]127.729166666667[/C][C]119.416666666667[/C][C]8.3125[/C][C]-15.7291666666667[/C][/ROW]
[ROW][C]49[/C][C]71[/C][C]87.5104166666667[/C][C]118.375[/C][C]-30.8645833333333[/C][C]-16.5104166666667[/C][/ROW]
[ROW][C]50[/C][C]95[/C][C]77.5833333333333[/C][C]119.416666666667[/C][C]-41.8333333333333[/C][C]17.4166666666667[/C][/ROW]
[ROW][C]51[/C][C]95[/C][C]86.40625[/C][C]119.291666666667[/C][C]-32.8854166666667[/C][C]8.59375[/C][/ROW]
[ROW][C]52[/C][C]105[/C][C]98.3333333333333[/C][C]117.666666666667[/C][C]-19.3333333333333[/C][C]6.66666666666666[/C][/ROW]
[ROW][C]53[/C][C]116[/C][C]108.333333333333[/C][C]116.25[/C][C]-7.91666666666668[/C][C]7.66666666666666[/C][/ROW]
[ROW][C]54[/C][C]104[/C][C]118.666666666667[/C][C]117[/C][C]1.66666666666666[/C][C]-14.6666666666667[/C][/ROW]
[ROW][C]55[/C][C]128[/C][C]NA[/C][C]NA[/C][C]22.1666666666667[/C][C]NA[/C][/ROW]
[ROW][C]56[/C][C]181[/C][C]NA[/C][C]NA[/C][C]30[/C][C]NA[/C][/ROW]
[ROW][C]57[/C][C]130[/C][C]NA[/C][C]NA[/C][C]26.5208333333333[/C][C]NA[/C][/ROW]
[ROW][C]58[/C][C]124[/C][C]NA[/C][C]NA[/C][C]29.59375[/C][C]NA[/C][/ROW]
[ROW][C]59[/C][C]123[/C][C]NA[/C][C]NA[/C][C]14.5729166666667[/C][C]NA[/C][/ROW]
[ROW][C]60[/C][C]152[/C][C]NA[/C][C]NA[/C][C]8.3125[/C][C]NA[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=148058&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=148058&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
tObservationsFitTrendSeasonalRandom
161NANA-30.8645833333333NA
265NANA-41.8333333333333NA
355NANA-32.8854166666667NA
456NANA-19.3333333333333NA
591NANA-7.91666666666668NA
680NANA1.66666666666666NA
7135119.83333333333397.666666666666722.166666666666715.1666666666667
8129128.29166666666798.2916666666667300.708333333333343
9129125.72916666666799.208333333333326.52083333333333.27083333333333
10130131.21875101.62529.59375-1.21875
11109118.40625103.83333333333314.5729166666667-9.40625000000001
12126113.895833333333105.5833333333338.312512.1041666666667
137375.5520833333333106.416666666667-30.8645833333333-2.55208333333333
146863.375105.208333333333-41.83333333333334.625
157471.3229166666667104.208333333333-32.88541666666672.67708333333334
169585.75105.083333333333-19.33333333333339.25
1710598.9166666666667106.833333333333-7.916666666666686.08333333333333
18108108.291666666667106.6251.66666666666666-0.291666666666657
19127128.75106.58333333333322.1666666666667-1.75000000000001
20108137.125107.12530-29.125
21126133.020833333333106.526.5208333333333-7.02083333333333
22154135.302083333333105.70833333333329.5937518.6979166666667
23127119.197916666667104.62514.57291666666677.80208333333333
24103113.0625104.758.3125-10.0625
259575.0520833333333105.916666666667-30.864583333333319.9479166666667
265967.0416666666667108.875-41.8333333333333-8.04166666666667
276878.9479166666667111.833333333333-32.8854166666667-10.9479166666667
288292.6666666666667112-19.3333333333333-10.6666666666667
2992103.791666666667111.708333333333-7.91666666666668-11.7916666666667
30124115.166666666667113.51.666666666666668.83333333333334
31139137.25115.08333333333322.16666666666671.75000000000001
32167145.208333333333115.2083333333333021.7916666666667
33138142.895833333333116.37526.5208333333333-4.89583333333331
34146147.510416666667117.91666666666729.59375-1.51041666666666
35128134.03125119.45833333333314.5729166666667-6.03125
36145128.895833333333120.5833333333338.312516.1041666666667
379189.46875120.333333333333-30.86458333333331.53124999999997
386677.5833333333333119.416666666667-41.8333333333333-11.5833333333333
398986.90625119.791666666667-32.88541666666672.09375
4098100.833333333333120.166666666667-19.3333333333333-2.83333333333333
41113112.541666666667120.458333333333-7.916666666666680.458333333333343
42130121.458333333333119.7916666666671.666666666666668.54166666666667
43127139.75117.58333333333322.1666666666667-12.75
44157147.958333333333117.958333333333309.04166666666666
45157145.9375119.41666666666726.520833333333311.0625
46136149.552083333333119.95833333333329.59375-13.5520833333333
47145134.947916666667120.37514.572916666666710.0520833333334
48112127.729166666667119.4166666666678.3125-15.7291666666667
497187.5104166666667118.375-30.8645833333333-16.5104166666667
509577.5833333333333119.416666666667-41.833333333333317.4166666666667
519586.40625119.291666666667-32.88541666666678.59375
5210598.3333333333333117.666666666667-19.33333333333336.66666666666666
53116108.333333333333116.25-7.916666666666687.66666666666666
54104118.6666666666671171.66666666666666-14.6666666666667
55128NANA22.1666666666667NA
56181NANA30NA
57130NANA26.5208333333333NA
58124NANA29.59375NA
59123NANA14.5729166666667NA
60152NANA8.3125NA



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])
a<-table.element(a,m$trend[i]+m$seasonal[i])
a<-table.element(a,m$trend[i])
a<-table.element(a,m$seasonal[i])
a<-table.element(a,m$random[i])
a<-table.row.end(a)
}
a<-table.end(a)
table.save(a,file='mytable.tab')