Repository of Reproducible Computations

Free Statistics

of Irreproducible Research!

Author's title

Author

*The author of this computation has been verified*

R Software Module

rwasp_decompose.wasp

Title produced by software

Classical Decomposition

Date of computation

Tue, 28 Dec 2010 18:26:14 +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/2010/Dec/28/t12935606548u62xiztye8tg3k.htm/, Retrieved Sat, 04 May 2024 23:57:29 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=116458, Retrieved Sat, 04 May 2024 23:57:29 +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

165

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

-     [Univariate Data Series] [data set] [2008-12-01 19:54:57] [b98453cac15ba1066b407e146608df68]
- RMP   [Classical Decomposition] [Unemployment] [2010-11-30 13:33:27] [b98453cac15ba1066b407e146608df68]
-         [Classical Decomposition] [CD] [2010-12-10 16:27:20] [dc73d270d5d96f29ff77294e1b86f79b]
-    D        [Classical Decomposition] [] [2010-12-28 18:26:14] [e8bffe463cbaa638f5c41694f8d1de39] [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	'Sir Ronald Aylmer Fisher' @ 193.190.124.24

\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 & 'Sir Ronald Aylmer Fisher' @ 193.190.124.24 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=116458&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]'Sir Ronald Aylmer Fisher' @ 193.190.124.24[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=116458&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=116458&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	'Sir Ronald Aylmer Fisher' @ 193.190.124.24

Classical Decomposition by Moving Averages
t	Observations	Fit	Trend	Seasonal	Random
1	548604	NA	NA	-9043.07060185185	NA
2	563668	NA	NA	1157.04050925921	NA
3	586111	NA	NA	16085.6655092592	NA
4	604378	NA	NA	35100.7210648148	NA
5	600991	NA	NA	27577.2071759259	NA
6	544686	NA	NA	-24522.3067129630	NA
7	537034	542348.290509259	569558.083333333	-27209.7928240741	-5314.29050925921
8	551531	553482.262731481	569965	-16482.7372685185	-1951.26273148146
9	563250	559761.234953704	569765.916666667	-10004.6817129629	3488.76504629629
10	574761	567912.721064815	569208.75	-1296.02893518517	6848.27893518517
11	580112	573536.498842593	568283.541666667	5252.95717592592	6575.50115740742
12	575093	570714.693287037	567329.666666667	3385.02662037038	4378.30671296292
13	557560	557373.721064815	566416.791666667	-9043.07060185185	186.278935185168
14	564478	566389.123842593	565232.083333333	1157.04050925921	-1911.12384259258
15	580523	579570.915509259	563485.25	16085.6655092592	952.084490740788
16	596594	595708.846064815	560608.125	35100.7210648148	885.153935185168
17	586570	584268.123842593	556690.916666667	27577.2071759259	2301.87615740742
18	536214	527550.193287037	552072.5	-24522.3067129630	8663.80671296292
19	523597	520085.790509259	547295.583333333	-27209.7928240741	3511.20949074079
20	536535	526062.929398148	542545.666666667	-16482.7372685185	10472.0706018518
21	536322	527504.234953704	537508.916666667	-10004.6817129629	8817.7650462963
22	532638	530980.304398148	532276.333333333	-1296.02893518517	1657.69560185191
23	528222	532479.498842593	527226.541666667	5252.95717592592	-4257.49884259253
24	516141	525743.859953704	522358.833333333	3385.02662037038	-9602.85995370365
25	501866	508612.679398148	517655.75	-9043.07060185185	-6746.67939814809
26	506174	514623.957175926	513466.916666667	1157.04050925921	-8449.95717592584
27	517945	525802.915509259	509717.25	16085.6655092592	-7857.91550925915
28	533590	541952.262731481	506851.541666667	35100.7210648148	-8362.2627314814
29	528379	532913.040509259	505335.833333333	27577.2071759259	-4534.04050925915
30	477580	480264.234953704	504786.541666667	-24522.3067129630	-2684.23495370359
31	469357	477830.790509259	505040.583333333	-27209.7928240741	-8473.79050925915
32	490243	489761.012731481	506243.75	-16482.7372685185	481.987268518656
33	492622	498097.734953704	508102.416666667	-10004.6817129629	-5475.73495370359
34	507561	509086.096064815	510382.125	-1296.02893518517	-1525.09606481472
35	516922	518051.082175926	512798.125	5252.95717592592	-1129.08217592578
36	514258	518185.859953704	514800.833333333	3385.02662037038	-3927.85995370365
37	509846	508372.887731481	517415.958333333	-9043.07060185185	1473.11226851860
38	527070	521796.207175926	520639.166666667	1157.04050925921	5273.79282407416
39	541657	539838.457175926	523752.791666667	16085.6655092592	1818.54282407416
40	564591	562201.179398148	527100.458333333	35100.7210648148	2389.82060185191
41	555362	558217.123842593	530639.916666667	27577.2071759259	-2855.12384259258
42	498662	509728.859953704	534251.166666667	-24522.3067129630	-11066.8599537036
43	511038	511162.707175926	538372.5	-27209.7928240741	-124.707175925956
44	525919	NA	NA	-16482.7372685185	NA
45	531673	NA	NA	-10004.6817129629	NA
46	548854	NA	NA	-1296.02893518517	NA
47	560576	NA	NA	5252.95717592592	NA
48	557274	NA	NA	3385.02662037038	NA
49	565742	NA	NA	NA	NA

\begin{tabular}{lllllllll}
\hline
Classical Decomposition by Moving Averages \tabularnewline
t & Observations & Fit & Trend & Seasonal & Random \tabularnewline
1 & 548604 & NA & NA & -9043.07060185185 & NA \tabularnewline
2 & 563668 & NA & NA & 1157.04050925921 & NA \tabularnewline
3 & 586111 & NA & NA & 16085.6655092592 & NA \tabularnewline
4 & 604378 & NA & NA & 35100.7210648148 & NA \tabularnewline
5 & 600991 & NA & NA & 27577.2071759259 & NA \tabularnewline
6 & 544686 & NA & NA & -24522.3067129630 & NA \tabularnewline
7 & 537034 & 542348.290509259 & 569558.083333333 & -27209.7928240741 & -5314.29050925921 \tabularnewline
8 & 551531 & 553482.262731481 & 569965 & -16482.7372685185 & -1951.26273148146 \tabularnewline
9 & 563250 & 559761.234953704 & 569765.916666667 & -10004.6817129629 & 3488.76504629629 \tabularnewline
10 & 574761 & 567912.721064815 & 569208.75 & -1296.02893518517 & 6848.27893518517 \tabularnewline
11 & 580112 & 573536.498842593 & 568283.541666667 & 5252.95717592592 & 6575.50115740742 \tabularnewline
12 & 575093 & 570714.693287037 & 567329.666666667 & 3385.02662037038 & 4378.30671296292 \tabularnewline
13 & 557560 & 557373.721064815 & 566416.791666667 & -9043.07060185185 & 186.278935185168 \tabularnewline
14 & 564478 & 566389.123842593 & 565232.083333333 & 1157.04050925921 & -1911.12384259258 \tabularnewline
15 & 580523 & 579570.915509259 & 563485.25 & 16085.6655092592 & 952.084490740788 \tabularnewline
16 & 596594 & 595708.846064815 & 560608.125 & 35100.7210648148 & 885.153935185168 \tabularnewline
17 & 586570 & 584268.123842593 & 556690.916666667 & 27577.2071759259 & 2301.87615740742 \tabularnewline
18 & 536214 & 527550.193287037 & 552072.5 & -24522.3067129630 & 8663.80671296292 \tabularnewline
19 & 523597 & 520085.790509259 & 547295.583333333 & -27209.7928240741 & 3511.20949074079 \tabularnewline
20 & 536535 & 526062.929398148 & 542545.666666667 & -16482.7372685185 & 10472.0706018518 \tabularnewline
21 & 536322 & 527504.234953704 & 537508.916666667 & -10004.6817129629 & 8817.7650462963 \tabularnewline
22 & 532638 & 530980.304398148 & 532276.333333333 & -1296.02893518517 & 1657.69560185191 \tabularnewline
23 & 528222 & 532479.498842593 & 527226.541666667 & 5252.95717592592 & -4257.49884259253 \tabularnewline
24 & 516141 & 525743.859953704 & 522358.833333333 & 3385.02662037038 & -9602.85995370365 \tabularnewline
25 & 501866 & 508612.679398148 & 517655.75 & -9043.07060185185 & -6746.67939814809 \tabularnewline
26 & 506174 & 514623.957175926 & 513466.916666667 & 1157.04050925921 & -8449.95717592584 \tabularnewline
27 & 517945 & 525802.915509259 & 509717.25 & 16085.6655092592 & -7857.91550925915 \tabularnewline
28 & 533590 & 541952.262731481 & 506851.541666667 & 35100.7210648148 & -8362.2627314814 \tabularnewline
29 & 528379 & 532913.040509259 & 505335.833333333 & 27577.2071759259 & -4534.04050925915 \tabularnewline
30 & 477580 & 480264.234953704 & 504786.541666667 & -24522.3067129630 & -2684.23495370359 \tabularnewline
31 & 469357 & 477830.790509259 & 505040.583333333 & -27209.7928240741 & -8473.79050925915 \tabularnewline
32 & 490243 & 489761.012731481 & 506243.75 & -16482.7372685185 & 481.987268518656 \tabularnewline
33 & 492622 & 498097.734953704 & 508102.416666667 & -10004.6817129629 & -5475.73495370359 \tabularnewline
34 & 507561 & 509086.096064815 & 510382.125 & -1296.02893518517 & -1525.09606481472 \tabularnewline
35 & 516922 & 518051.082175926 & 512798.125 & 5252.95717592592 & -1129.08217592578 \tabularnewline
36 & 514258 & 518185.859953704 & 514800.833333333 & 3385.02662037038 & -3927.85995370365 \tabularnewline
37 & 509846 & 508372.887731481 & 517415.958333333 & -9043.07060185185 & 1473.11226851860 \tabularnewline
38 & 527070 & 521796.207175926 & 520639.166666667 & 1157.04050925921 & 5273.79282407416 \tabularnewline
39 & 541657 & 539838.457175926 & 523752.791666667 & 16085.6655092592 & 1818.54282407416 \tabularnewline
40 & 564591 & 562201.179398148 & 527100.458333333 & 35100.7210648148 & 2389.82060185191 \tabularnewline
41 & 555362 & 558217.123842593 & 530639.916666667 & 27577.2071759259 & -2855.12384259258 \tabularnewline
42 & 498662 & 509728.859953704 & 534251.166666667 & -24522.3067129630 & -11066.8599537036 \tabularnewline
43 & 511038 & 511162.707175926 & 538372.5 & -27209.7928240741 & -124.707175925956 \tabularnewline
44 & 525919 & NA & NA & -16482.7372685185 & NA \tabularnewline
45 & 531673 & NA & NA & -10004.6817129629 & NA \tabularnewline
46 & 548854 & NA & NA & -1296.02893518517 & NA \tabularnewline
47 & 560576 & NA & NA & 5252.95717592592 & NA \tabularnewline
48 & 557274 & NA & NA & 3385.02662037038 & NA \tabularnewline
49 & 565742 & NA & NA & NA & NA \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=116458&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]548604[/C][C]NA[/C][C]NA[/C][C]-9043.07060185185[/C][C]NA[/C][/ROW]
[ROW][C]2[/C][C]563668[/C][C]NA[/C][C]NA[/C][C]1157.04050925921[/C][C]NA[/C][/ROW]
[ROW][C]3[/C][C]586111[/C][C]NA[/C][C]NA[/C][C]16085.6655092592[/C][C]NA[/C][/ROW]
[ROW][C]4[/C][C]604378[/C][C]NA[/C][C]NA[/C][C]35100.7210648148[/C][C]NA[/C][/ROW]
[ROW][C]5[/C][C]600991[/C][C]NA[/C][C]NA[/C][C]27577.2071759259[/C][C]NA[/C][/ROW]
[ROW][C]6[/C][C]544686[/C][C]NA[/C][C]NA[/C][C]-24522.3067129630[/C][C]NA[/C][/ROW]
[ROW][C]7[/C][C]537034[/C][C]542348.290509259[/C][C]569558.083333333[/C][C]-27209.7928240741[/C][C]-5314.29050925921[/C][/ROW]
[ROW][C]8[/C][C]551531[/C][C]553482.262731481[/C][C]569965[/C][C]-16482.7372685185[/C][C]-1951.26273148146[/C][/ROW]
[ROW][C]9[/C][C]563250[/C][C]559761.234953704[/C][C]569765.916666667[/C][C]-10004.6817129629[/C][C]3488.76504629629[/C][/ROW]
[ROW][C]10[/C][C]574761[/C][C]567912.721064815[/C][C]569208.75[/C][C]-1296.02893518517[/C][C]6848.27893518517[/C][/ROW]
[ROW][C]11[/C][C]580112[/C][C]573536.498842593[/C][C]568283.541666667[/C][C]5252.95717592592[/C][C]6575.50115740742[/C][/ROW]
[ROW][C]12[/C][C]575093[/C][C]570714.693287037[/C][C]567329.666666667[/C][C]3385.02662037038[/C][C]4378.30671296292[/C][/ROW]
[ROW][C]13[/C][C]557560[/C][C]557373.721064815[/C][C]566416.791666667[/C][C]-9043.07060185185[/C][C]186.278935185168[/C][/ROW]
[ROW][C]14[/C][C]564478[/C][C]566389.123842593[/C][C]565232.083333333[/C][C]1157.04050925921[/C][C]-1911.12384259258[/C][/ROW]
[ROW][C]15[/C][C]580523[/C][C]579570.915509259[/C][C]563485.25[/C][C]16085.6655092592[/C][C]952.084490740788[/C][/ROW]
[ROW][C]16[/C][C]596594[/C][C]595708.846064815[/C][C]560608.125[/C][C]35100.7210648148[/C][C]885.153935185168[/C][/ROW]
[ROW][C]17[/C][C]586570[/C][C]584268.123842593[/C][C]556690.916666667[/C][C]27577.2071759259[/C][C]2301.87615740742[/C][/ROW]
[ROW][C]18[/C][C]536214[/C][C]527550.193287037[/C][C]552072.5[/C][C]-24522.3067129630[/C][C]8663.80671296292[/C][/ROW]
[ROW][C]19[/C][C]523597[/C][C]520085.790509259[/C][C]547295.583333333[/C][C]-27209.7928240741[/C][C]3511.20949074079[/C][/ROW]
[ROW][C]20[/C][C]536535[/C][C]526062.929398148[/C][C]542545.666666667[/C][C]-16482.7372685185[/C][C]10472.0706018518[/C][/ROW]
[ROW][C]21[/C][C]536322[/C][C]527504.234953704[/C][C]537508.916666667[/C][C]-10004.6817129629[/C][C]8817.7650462963[/C][/ROW]
[ROW][C]22[/C][C]532638[/C][C]530980.304398148[/C][C]532276.333333333[/C][C]-1296.02893518517[/C][C]1657.69560185191[/C][/ROW]
[ROW][C]23[/C][C]528222[/C][C]532479.498842593[/C][C]527226.541666667[/C][C]5252.95717592592[/C][C]-4257.49884259253[/C][/ROW]
[ROW][C]24[/C][C]516141[/C][C]525743.859953704[/C][C]522358.833333333[/C][C]3385.02662037038[/C][C]-9602.85995370365[/C][/ROW]
[ROW][C]25[/C][C]501866[/C][C]508612.679398148[/C][C]517655.75[/C][C]-9043.07060185185[/C][C]-6746.67939814809[/C][/ROW]
[ROW][C]26[/C][C]506174[/C][C]514623.957175926[/C][C]513466.916666667[/C][C]1157.04050925921[/C][C]-8449.95717592584[/C][/ROW]
[ROW][C]27[/C][C]517945[/C][C]525802.915509259[/C][C]509717.25[/C][C]16085.6655092592[/C][C]-7857.91550925915[/C][/ROW]
[ROW][C]28[/C][C]533590[/C][C]541952.262731481[/C][C]506851.541666667[/C][C]35100.7210648148[/C][C]-8362.2627314814[/C][/ROW]
[ROW][C]29[/C][C]528379[/C][C]532913.040509259[/C][C]505335.833333333[/C][C]27577.2071759259[/C][C]-4534.04050925915[/C][/ROW]
[ROW][C]30[/C][C]477580[/C][C]480264.234953704[/C][C]504786.541666667[/C][C]-24522.3067129630[/C][C]-2684.23495370359[/C][/ROW]
[ROW][C]31[/C][C]469357[/C][C]477830.790509259[/C][C]505040.583333333[/C][C]-27209.7928240741[/C][C]-8473.79050925915[/C][/ROW]
[ROW][C]32[/C][C]490243[/C][C]489761.012731481[/C][C]506243.75[/C][C]-16482.7372685185[/C][C]481.987268518656[/C][/ROW]
[ROW][C]33[/C][C]492622[/C][C]498097.734953704[/C][C]508102.416666667[/C][C]-10004.6817129629[/C][C]-5475.73495370359[/C][/ROW]
[ROW][C]34[/C][C]507561[/C][C]509086.096064815[/C][C]510382.125[/C][C]-1296.02893518517[/C][C]-1525.09606481472[/C][/ROW]
[ROW][C]35[/C][C]516922[/C][C]518051.082175926[/C][C]512798.125[/C][C]5252.95717592592[/C][C]-1129.08217592578[/C][/ROW]
[ROW][C]36[/C][C]514258[/C][C]518185.859953704[/C][C]514800.833333333[/C][C]3385.02662037038[/C][C]-3927.85995370365[/C][/ROW]
[ROW][C]37[/C][C]509846[/C][C]508372.887731481[/C][C]517415.958333333[/C][C]-9043.07060185185[/C][C]1473.11226851860[/C][/ROW]
[ROW][C]38[/C][C]527070[/C][C]521796.207175926[/C][C]520639.166666667[/C][C]1157.04050925921[/C][C]5273.79282407416[/C][/ROW]
[ROW][C]39[/C][C]541657[/C][C]539838.457175926[/C][C]523752.791666667[/C][C]16085.6655092592[/C][C]1818.54282407416[/C][/ROW]
[ROW][C]40[/C][C]564591[/C][C]562201.179398148[/C][C]527100.458333333[/C][C]35100.7210648148[/C][C]2389.82060185191[/C][/ROW]
[ROW][C]41[/C][C]555362[/C][C]558217.123842593[/C][C]530639.916666667[/C][C]27577.2071759259[/C][C]-2855.12384259258[/C][/ROW]
[ROW][C]42[/C][C]498662[/C][C]509728.859953704[/C][C]534251.166666667[/C][C]-24522.3067129630[/C][C]-11066.8599537036[/C][/ROW]
[ROW][C]43[/C][C]511038[/C][C]511162.707175926[/C][C]538372.5[/C][C]-27209.7928240741[/C][C]-124.707175925956[/C][/ROW]
[ROW][C]44[/C][C]525919[/C][C]NA[/C][C]NA[/C][C]-16482.7372685185[/C][C]NA[/C][/ROW]
[ROW][C]45[/C][C]531673[/C][C]NA[/C][C]NA[/C][C]-10004.6817129629[/C][C]NA[/C][/ROW]
[ROW][C]46[/C][C]548854[/C][C]NA[/C][C]NA[/C][C]-1296.02893518517[/C][C]NA[/C][/ROW]
[ROW][C]47[/C][C]560576[/C][C]NA[/C][C]NA[/C][C]5252.95717592592[/C][C]NA[/C][/ROW]
[ROW][C]48[/C][C]557274[/C][C]NA[/C][C]NA[/C][C]3385.02662037038[/C][C]NA[/C][/ROW]
[ROW][C]49[/C][C]565742[/C][C]NA[/C][C]NA[/C][C]NA[/C][C]NA[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=116458&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=116458&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	548604	NA	NA	-9043.07060185185	NA
2	563668	NA	NA	1157.04050925921	NA
3	586111	NA	NA	16085.6655092592	NA
4	604378	NA	NA	35100.7210648148	NA
5	600991	NA	NA	27577.2071759259	NA
6	544686	NA	NA	-24522.3067129630	NA
7	537034	542348.290509259	569558.083333333	-27209.7928240741	-5314.29050925921
8	551531	553482.262731481	569965	-16482.7372685185	-1951.26273148146
9	563250	559761.234953704	569765.916666667	-10004.6817129629	3488.76504629629
10	574761	567912.721064815	569208.75	-1296.02893518517	6848.27893518517
11	580112	573536.498842593	568283.541666667	5252.95717592592	6575.50115740742
12	575093	570714.693287037	567329.666666667	3385.02662037038	4378.30671296292
13	557560	557373.721064815	566416.791666667	-9043.07060185185	186.278935185168
14	564478	566389.123842593	565232.083333333	1157.04050925921	-1911.12384259258
15	580523	579570.915509259	563485.25	16085.6655092592	952.084490740788
16	596594	595708.846064815	560608.125	35100.7210648148	885.153935185168
17	586570	584268.123842593	556690.916666667	27577.2071759259	2301.87615740742
18	536214	527550.193287037	552072.5	-24522.3067129630	8663.80671296292
19	523597	520085.790509259	547295.583333333	-27209.7928240741	3511.20949074079
20	536535	526062.929398148	542545.666666667	-16482.7372685185	10472.0706018518
21	536322	527504.234953704	537508.916666667	-10004.6817129629	8817.7650462963
22	532638	530980.304398148	532276.333333333	-1296.02893518517	1657.69560185191
23	528222	532479.498842593	527226.541666667	5252.95717592592	-4257.49884259253
24	516141	525743.859953704	522358.833333333	3385.02662037038	-9602.85995370365
25	501866	508612.679398148	517655.75	-9043.07060185185	-6746.67939814809
26	506174	514623.957175926	513466.916666667	1157.04050925921	-8449.95717592584
27	517945	525802.915509259	509717.25	16085.6655092592	-7857.91550925915
28	533590	541952.262731481	506851.541666667	35100.7210648148	-8362.2627314814
29	528379	532913.040509259	505335.833333333	27577.2071759259	-4534.04050925915
30	477580	480264.234953704	504786.541666667	-24522.3067129630	-2684.23495370359
31	469357	477830.790509259	505040.583333333	-27209.7928240741	-8473.79050925915
32	490243	489761.012731481	506243.75	-16482.7372685185	481.987268518656
33	492622	498097.734953704	508102.416666667	-10004.6817129629	-5475.73495370359
34	507561	509086.096064815	510382.125	-1296.02893518517	-1525.09606481472
35	516922	518051.082175926	512798.125	5252.95717592592	-1129.08217592578
36	514258	518185.859953704	514800.833333333	3385.02662037038	-3927.85995370365
37	509846	508372.887731481	517415.958333333	-9043.07060185185	1473.11226851860
38	527070	521796.207175926	520639.166666667	1157.04050925921	5273.79282407416
39	541657	539838.457175926	523752.791666667	16085.6655092592	1818.54282407416
40	564591	562201.179398148	527100.458333333	35100.7210648148	2389.82060185191
41	555362	558217.123842593	530639.916666667	27577.2071759259	-2855.12384259258
42	498662	509728.859953704	534251.166666667	-24522.3067129630	-11066.8599537036
43	511038	511162.707175926	538372.5	-27209.7928240741	-124.707175925956
44	525919	NA	NA	-16482.7372685185	NA
45	531673	NA	NA	-10004.6817129629	NA
46	548854	NA	NA	-1296.02893518517	NA
47	560576	NA	NA	5252.95717592592	NA
48	557274	NA	NA	3385.02662037038	NA
49	565742	NA	NA	NA	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,m$trend[i]+m$seasonal[i]) else 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')

Free Statistics

Description of Statistical Computation

Tree of Dependent Computations

Dataset

Tables (Output of Computation)

Figures (Output of Computation)

Input Parameters & R Code