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

Sat, 18 Dec 2010 16:15:43 +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/18/t1292688907dh4lpu4qs9ynxql.htm/, Retrieved Tue, 30 Apr 2024 07:05:47 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=112078, Retrieved Tue, 30 Apr 2024 07:05:47 +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

135

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

-     [Multiple Regression] [Competence to learn] [2010-11-17 07:43:53] [b98453cac15ba1066b407e146608df68]
-   PD  [Multiple Regression] [Ws 7 - multiple r...] [2010-11-21 14:34:41] [603e2f5305d3a2a4e062624458fa1155]
- RMPD      [Classical Decomposition] [PAPER - Classical...] [2010-12-18 16:15:43] [0829c729852d8a4b1b0c41cf0848af95] [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	3 seconds
R Server	'George Udny Yule' @ 72.249.76.132

\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 & 3 seconds \tabularnewline
R Server & 'George Udny Yule' @ 72.249.76.132 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=112078&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]3 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'George Udny Yule' @ 72.249.76.132[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=112078&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=112078&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	3 seconds
R Server	'George Udny Yule' @ 72.249.76.132

Classical Decomposition by Moving Averages
t	Observations	Fit	Trend	Seasonal	Random
1	104.37	NA	NA	0.400081018518512	NA
2	104.89	NA	NA	0.4392476851852	NA
3	105.15	NA	NA	0.20827546296297	NA
4	105.72	NA	NA	0.0168865740740753	NA
5	106.38	NA	NA	-0.171030092592600	NA
6	106.4	NA	NA	-0.419363425925931	NA
7	106.47	105.835219907407	106.522916666667	-0.687696759259261	0.634780092592607
8	106.59	106.240636574074	106.92625	-0.68561342592592	0.349363425925915
9	106.76	107.048136574074	107.3475	-0.299363425925931	-0.288136574074073
10	107.35	108.187164351852	107.754166666667	0.432997685185182	-0.837164351851868
11	107.81	108.546331018519	108.122083333333	0.424247685185185	-0.736331018518513
12	108.03	108.815497685185	108.474166666667	0.341331018518518	-0.785497685185177
13	109.08	109.232581018519	108.8325	0.400081018518512	-0.152581018518518
14	109.86	109.658414351852	109.219166666667	0.4392476851852	0.201585648148153
15	110.29	109.905775462963	109.6975	0.20827546296297	0.384224537037028
16	110.34	110.343553240741	110.326666666667	0.0168865740740753	-0.00355324074074304
17	110.59	110.873969907407	111.045	-0.171030092592600	-0.283969907407410
18	110.64	111.380219907407	111.799583333333	-0.419363425925931	-0.740219907407408
19	110.83	111.886053240741	112.57375	-0.687696759259261	-1.05605324074074
20	111.51	112.636469907407	113.322083333333	-0.68561342592592	-1.12646990740741
21	113.32	113.731886574074	114.03125	-0.299363425925931	-0.411886574074074
22	115.89	115.170914351852	114.737916666667	0.432997685185182	0.719085648148152
23	116.51	115.881331018519	115.457083333333	0.424247685185185	0.628668981481496
24	117.44	116.513831018519	116.1725	0.341331018518518	0.926168981481496
25	118.25	117.285497685185	116.885416666667	0.400081018518512	0.964502314814837
26	118.65	118.007997685185	117.56875	0.4392476851852	0.642002314814832
27	118.52	118.367858796296	118.159583333333	0.20827546296297	0.152141203703707
28	119.07	118.605219907407	118.588333333333	0.0168865740740753	0.464780092592591
29	119.12	118.732303240741	118.903333333333	-0.171030092592600	0.387696759259271
30	119.28	118.723136574074	119.1425	-0.419363425925931	0.55686342592594
31	119.3	118.597719907407	119.285416666667	-0.687696759259261	0.702280092592616
32	119.44	118.684803240741	119.370416666667	-0.68561342592592	0.755196759259277
33	119.57	119.148969907407	119.448333333333	-0.299363425925931	0.421030092592616
34	119.93	119.939664351852	119.506666666667	0.432997685185182	-0.00966435185183911
35	120.03	119.964664351852	119.540416666667	0.424247685185185	0.0653356481481495
36	119.66	119.913414351852	119.572083333333	0.341331018518518	-0.253414351851845
37	119.46	119.993414351852	119.593333333333	0.400081018518512	-0.533414351851846
38	119.48	120.045081018519	119.605833333333	0.4392476851852	-0.565081018518512
39	119.56	119.817858796296	119.609583333333	0.20827546296297	-0.25785879629629
40	119.43	119.612719907407	119.595833333333	0.0168865740740753	-0.182719907407403
41	119.57	119.395219907407	119.56625	-0.171030092592600	0.174780092592599
42	119.59	119.128136574074	119.5475	-0.419363425925931	0.461863425925941
43	119.5	118.867719907407	119.555416666667	-0.687696759259261	0.632280092592595
44	119.54	118.890219907407	119.575833333333	-0.68561342592592	0.649780092592593
45	119.56	119.290636574074	119.59	-0.299363425925931	0.269363425925917
46	119.61	120.040914351852	119.607916666667	0.432997685185182	-0.430914351851868
47	119.64	120.055497685185	119.63125	0.424247685185185	-0.415497685185173
48	119.6	119.994247685185	119.652916666667	0.341331018518518	-0.394247685185192
49	119.71	NA	119.676666666667	NA	NA
50	119.72	NA	119.710833333333	NA	NA
51	119.66	NA	119.760833333333	NA	NA
52	119.76	NA	NA	NA	NA
53	119.8	NA	NA	NA	NA
54	119.88	NA	NA	NA	NA
55	119.78	NA	NA	NA	NA
56	120.08	NA	NA	NA	NA
57	120.22	NA	NA	NA	NA

\begin{tabular}{lllllllll}
\hline
Classical Decomposition by Moving Averages \tabularnewline
t & Observations & Fit & Trend & Seasonal & Random \tabularnewline
1 & 104.37 & NA & NA & 0.400081018518512 & NA \tabularnewline
2 & 104.89 & NA & NA & 0.4392476851852 & NA \tabularnewline
3 & 105.15 & NA & NA & 0.20827546296297 & NA \tabularnewline
4 & 105.72 & NA & NA & 0.0168865740740753 & NA \tabularnewline
5 & 106.38 & NA & NA & -0.171030092592600 & NA \tabularnewline
6 & 106.4 & NA & NA & -0.419363425925931 & NA \tabularnewline
7 & 106.47 & 105.835219907407 & 106.522916666667 & -0.687696759259261 & 0.634780092592607 \tabularnewline
8 & 106.59 & 106.240636574074 & 106.92625 & -0.68561342592592 & 0.349363425925915 \tabularnewline
9 & 106.76 & 107.048136574074 & 107.3475 & -0.299363425925931 & -0.288136574074073 \tabularnewline
10 & 107.35 & 108.187164351852 & 107.754166666667 & 0.432997685185182 & -0.837164351851868 \tabularnewline
11 & 107.81 & 108.546331018519 & 108.122083333333 & 0.424247685185185 & -0.736331018518513 \tabularnewline
12 & 108.03 & 108.815497685185 & 108.474166666667 & 0.341331018518518 & -0.785497685185177 \tabularnewline
13 & 109.08 & 109.232581018519 & 108.8325 & 0.400081018518512 & -0.152581018518518 \tabularnewline
14 & 109.86 & 109.658414351852 & 109.219166666667 & 0.4392476851852 & 0.201585648148153 \tabularnewline
15 & 110.29 & 109.905775462963 & 109.6975 & 0.20827546296297 & 0.384224537037028 \tabularnewline
16 & 110.34 & 110.343553240741 & 110.326666666667 & 0.0168865740740753 & -0.00355324074074304 \tabularnewline
17 & 110.59 & 110.873969907407 & 111.045 & -0.171030092592600 & -0.283969907407410 \tabularnewline
18 & 110.64 & 111.380219907407 & 111.799583333333 & -0.419363425925931 & -0.740219907407408 \tabularnewline
19 & 110.83 & 111.886053240741 & 112.57375 & -0.687696759259261 & -1.05605324074074 \tabularnewline
20 & 111.51 & 112.636469907407 & 113.322083333333 & -0.68561342592592 & -1.12646990740741 \tabularnewline
21 & 113.32 & 113.731886574074 & 114.03125 & -0.299363425925931 & -0.411886574074074 \tabularnewline
22 & 115.89 & 115.170914351852 & 114.737916666667 & 0.432997685185182 & 0.719085648148152 \tabularnewline
23 & 116.51 & 115.881331018519 & 115.457083333333 & 0.424247685185185 & 0.628668981481496 \tabularnewline
24 & 117.44 & 116.513831018519 & 116.1725 & 0.341331018518518 & 0.926168981481496 \tabularnewline
25 & 118.25 & 117.285497685185 & 116.885416666667 & 0.400081018518512 & 0.964502314814837 \tabularnewline
26 & 118.65 & 118.007997685185 & 117.56875 & 0.4392476851852 & 0.642002314814832 \tabularnewline
27 & 118.52 & 118.367858796296 & 118.159583333333 & 0.20827546296297 & 0.152141203703707 \tabularnewline
28 & 119.07 & 118.605219907407 & 118.588333333333 & 0.0168865740740753 & 0.464780092592591 \tabularnewline
29 & 119.12 & 118.732303240741 & 118.903333333333 & -0.171030092592600 & 0.387696759259271 \tabularnewline
30 & 119.28 & 118.723136574074 & 119.1425 & -0.419363425925931 & 0.55686342592594 \tabularnewline
31 & 119.3 & 118.597719907407 & 119.285416666667 & -0.687696759259261 & 0.702280092592616 \tabularnewline
32 & 119.44 & 118.684803240741 & 119.370416666667 & -0.68561342592592 & 0.755196759259277 \tabularnewline
33 & 119.57 & 119.148969907407 & 119.448333333333 & -0.299363425925931 & 0.421030092592616 \tabularnewline
34 & 119.93 & 119.939664351852 & 119.506666666667 & 0.432997685185182 & -0.00966435185183911 \tabularnewline
35 & 120.03 & 119.964664351852 & 119.540416666667 & 0.424247685185185 & 0.0653356481481495 \tabularnewline
36 & 119.66 & 119.913414351852 & 119.572083333333 & 0.341331018518518 & -0.253414351851845 \tabularnewline
37 & 119.46 & 119.993414351852 & 119.593333333333 & 0.400081018518512 & -0.533414351851846 \tabularnewline
38 & 119.48 & 120.045081018519 & 119.605833333333 & 0.4392476851852 & -0.565081018518512 \tabularnewline
39 & 119.56 & 119.817858796296 & 119.609583333333 & 0.20827546296297 & -0.25785879629629 \tabularnewline
40 & 119.43 & 119.612719907407 & 119.595833333333 & 0.0168865740740753 & -0.182719907407403 \tabularnewline
41 & 119.57 & 119.395219907407 & 119.56625 & -0.171030092592600 & 0.174780092592599 \tabularnewline
42 & 119.59 & 119.128136574074 & 119.5475 & -0.419363425925931 & 0.461863425925941 \tabularnewline
43 & 119.5 & 118.867719907407 & 119.555416666667 & -0.687696759259261 & 0.632280092592595 \tabularnewline
44 & 119.54 & 118.890219907407 & 119.575833333333 & -0.68561342592592 & 0.649780092592593 \tabularnewline
45 & 119.56 & 119.290636574074 & 119.59 & -0.299363425925931 & 0.269363425925917 \tabularnewline
46 & 119.61 & 120.040914351852 & 119.607916666667 & 0.432997685185182 & -0.430914351851868 \tabularnewline
47 & 119.64 & 120.055497685185 & 119.63125 & 0.424247685185185 & -0.415497685185173 \tabularnewline
48 & 119.6 & 119.994247685185 & 119.652916666667 & 0.341331018518518 & -0.394247685185192 \tabularnewline
49 & 119.71 & NA & 119.676666666667 & NA & NA \tabularnewline
50 & 119.72 & NA & 119.710833333333 & NA & NA \tabularnewline
51 & 119.66 & NA & 119.760833333333 & NA & NA \tabularnewline
52 & 119.76 & NA & NA & NA & NA \tabularnewline
53 & 119.8 & NA & NA & NA & NA \tabularnewline
54 & 119.88 & NA & NA & NA & NA \tabularnewline
55 & 119.78 & NA & NA & NA & NA \tabularnewline
56 & 120.08 & NA & NA & NA & NA \tabularnewline
57 & 120.22 & NA & NA & NA & NA \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=112078&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]104.37[/C][C]NA[/C][C]NA[/C][C]0.400081018518512[/C][C]NA[/C][/ROW]
[ROW][C]2[/C][C]104.89[/C][C]NA[/C][C]NA[/C][C]0.4392476851852[/C][C]NA[/C][/ROW]
[ROW][C]3[/C][C]105.15[/C][C]NA[/C][C]NA[/C][C]0.20827546296297[/C][C]NA[/C][/ROW]
[ROW][C]4[/C][C]105.72[/C][C]NA[/C][C]NA[/C][C]0.0168865740740753[/C][C]NA[/C][/ROW]
[ROW][C]5[/C][C]106.38[/C][C]NA[/C][C]NA[/C][C]-0.171030092592600[/C][C]NA[/C][/ROW]
[ROW][C]6[/C][C]106.4[/C][C]NA[/C][C]NA[/C][C]-0.419363425925931[/C][C]NA[/C][/ROW]
[ROW][C]7[/C][C]106.47[/C][C]105.835219907407[/C][C]106.522916666667[/C][C]-0.687696759259261[/C][C]0.634780092592607[/C][/ROW]
[ROW][C]8[/C][C]106.59[/C][C]106.240636574074[/C][C]106.92625[/C][C]-0.68561342592592[/C][C]0.349363425925915[/C][/ROW]
[ROW][C]9[/C][C]106.76[/C][C]107.048136574074[/C][C]107.3475[/C][C]-0.299363425925931[/C][C]-0.288136574074073[/C][/ROW]
[ROW][C]10[/C][C]107.35[/C][C]108.187164351852[/C][C]107.754166666667[/C][C]0.432997685185182[/C][C]-0.837164351851868[/C][/ROW]
[ROW][C]11[/C][C]107.81[/C][C]108.546331018519[/C][C]108.122083333333[/C][C]0.424247685185185[/C][C]-0.736331018518513[/C][/ROW]
[ROW][C]12[/C][C]108.03[/C][C]108.815497685185[/C][C]108.474166666667[/C][C]0.341331018518518[/C][C]-0.785497685185177[/C][/ROW]
[ROW][C]13[/C][C]109.08[/C][C]109.232581018519[/C][C]108.8325[/C][C]0.400081018518512[/C][C]-0.152581018518518[/C][/ROW]
[ROW][C]14[/C][C]109.86[/C][C]109.658414351852[/C][C]109.219166666667[/C][C]0.4392476851852[/C][C]0.201585648148153[/C][/ROW]
[ROW][C]15[/C][C]110.29[/C][C]109.905775462963[/C][C]109.6975[/C][C]0.20827546296297[/C][C]0.384224537037028[/C][/ROW]
[ROW][C]16[/C][C]110.34[/C][C]110.343553240741[/C][C]110.326666666667[/C][C]0.0168865740740753[/C][C]-0.00355324074074304[/C][/ROW]
[ROW][C]17[/C][C]110.59[/C][C]110.873969907407[/C][C]111.045[/C][C]-0.171030092592600[/C][C]-0.283969907407410[/C][/ROW]
[ROW][C]18[/C][C]110.64[/C][C]111.380219907407[/C][C]111.799583333333[/C][C]-0.419363425925931[/C][C]-0.740219907407408[/C][/ROW]
[ROW][C]19[/C][C]110.83[/C][C]111.886053240741[/C][C]112.57375[/C][C]-0.687696759259261[/C][C]-1.05605324074074[/C][/ROW]
[ROW][C]20[/C][C]111.51[/C][C]112.636469907407[/C][C]113.322083333333[/C][C]-0.68561342592592[/C][C]-1.12646990740741[/C][/ROW]
[ROW][C]21[/C][C]113.32[/C][C]113.731886574074[/C][C]114.03125[/C][C]-0.299363425925931[/C][C]-0.411886574074074[/C][/ROW]
[ROW][C]22[/C][C]115.89[/C][C]115.170914351852[/C][C]114.737916666667[/C][C]0.432997685185182[/C][C]0.719085648148152[/C][/ROW]
[ROW][C]23[/C][C]116.51[/C][C]115.881331018519[/C][C]115.457083333333[/C][C]0.424247685185185[/C][C]0.628668981481496[/C][/ROW]
[ROW][C]24[/C][C]117.44[/C][C]116.513831018519[/C][C]116.1725[/C][C]0.341331018518518[/C][C]0.926168981481496[/C][/ROW]
[ROW][C]25[/C][C]118.25[/C][C]117.285497685185[/C][C]116.885416666667[/C][C]0.400081018518512[/C][C]0.964502314814837[/C][/ROW]
[ROW][C]26[/C][C]118.65[/C][C]118.007997685185[/C][C]117.56875[/C][C]0.4392476851852[/C][C]0.642002314814832[/C][/ROW]
[ROW][C]27[/C][C]118.52[/C][C]118.367858796296[/C][C]118.159583333333[/C][C]0.20827546296297[/C][C]0.152141203703707[/C][/ROW]
[ROW][C]28[/C][C]119.07[/C][C]118.605219907407[/C][C]118.588333333333[/C][C]0.0168865740740753[/C][C]0.464780092592591[/C][/ROW]
[ROW][C]29[/C][C]119.12[/C][C]118.732303240741[/C][C]118.903333333333[/C][C]-0.171030092592600[/C][C]0.387696759259271[/C][/ROW]
[ROW][C]30[/C][C]119.28[/C][C]118.723136574074[/C][C]119.1425[/C][C]-0.419363425925931[/C][C]0.55686342592594[/C][/ROW]
[ROW][C]31[/C][C]119.3[/C][C]118.597719907407[/C][C]119.285416666667[/C][C]-0.687696759259261[/C][C]0.702280092592616[/C][/ROW]
[ROW][C]32[/C][C]119.44[/C][C]118.684803240741[/C][C]119.370416666667[/C][C]-0.68561342592592[/C][C]0.755196759259277[/C][/ROW]
[ROW][C]33[/C][C]119.57[/C][C]119.148969907407[/C][C]119.448333333333[/C][C]-0.299363425925931[/C][C]0.421030092592616[/C][/ROW]
[ROW][C]34[/C][C]119.93[/C][C]119.939664351852[/C][C]119.506666666667[/C][C]0.432997685185182[/C][C]-0.00966435185183911[/C][/ROW]
[ROW][C]35[/C][C]120.03[/C][C]119.964664351852[/C][C]119.540416666667[/C][C]0.424247685185185[/C][C]0.0653356481481495[/C][/ROW]
[ROW][C]36[/C][C]119.66[/C][C]119.913414351852[/C][C]119.572083333333[/C][C]0.341331018518518[/C][C]-0.253414351851845[/C][/ROW]
[ROW][C]37[/C][C]119.46[/C][C]119.993414351852[/C][C]119.593333333333[/C][C]0.400081018518512[/C][C]-0.533414351851846[/C][/ROW]
[ROW][C]38[/C][C]119.48[/C][C]120.045081018519[/C][C]119.605833333333[/C][C]0.4392476851852[/C][C]-0.565081018518512[/C][/ROW]
[ROW][C]39[/C][C]119.56[/C][C]119.817858796296[/C][C]119.609583333333[/C][C]0.20827546296297[/C][C]-0.25785879629629[/C][/ROW]
[ROW][C]40[/C][C]119.43[/C][C]119.612719907407[/C][C]119.595833333333[/C][C]0.0168865740740753[/C][C]-0.182719907407403[/C][/ROW]
[ROW][C]41[/C][C]119.57[/C][C]119.395219907407[/C][C]119.56625[/C][C]-0.171030092592600[/C][C]0.174780092592599[/C][/ROW]
[ROW][C]42[/C][C]119.59[/C][C]119.128136574074[/C][C]119.5475[/C][C]-0.419363425925931[/C][C]0.461863425925941[/C][/ROW]
[ROW][C]43[/C][C]119.5[/C][C]118.867719907407[/C][C]119.555416666667[/C][C]-0.687696759259261[/C][C]0.632280092592595[/C][/ROW]
[ROW][C]44[/C][C]119.54[/C][C]118.890219907407[/C][C]119.575833333333[/C][C]-0.68561342592592[/C][C]0.649780092592593[/C][/ROW]
[ROW][C]45[/C][C]119.56[/C][C]119.290636574074[/C][C]119.59[/C][C]-0.299363425925931[/C][C]0.269363425925917[/C][/ROW]
[ROW][C]46[/C][C]119.61[/C][C]120.040914351852[/C][C]119.607916666667[/C][C]0.432997685185182[/C][C]-0.430914351851868[/C][/ROW]
[ROW][C]47[/C][C]119.64[/C][C]120.055497685185[/C][C]119.63125[/C][C]0.424247685185185[/C][C]-0.415497685185173[/C][/ROW]
[ROW][C]48[/C][C]119.6[/C][C]119.994247685185[/C][C]119.652916666667[/C][C]0.341331018518518[/C][C]-0.394247685185192[/C][/ROW]
[ROW][C]49[/C][C]119.71[/C][C]NA[/C][C]119.676666666667[/C][C]NA[/C][C]NA[/C][/ROW]
[ROW][C]50[/C][C]119.72[/C][C]NA[/C][C]119.710833333333[/C][C]NA[/C][C]NA[/C][/ROW]
[ROW][C]51[/C][C]119.66[/C][C]NA[/C][C]119.760833333333[/C][C]NA[/C][C]NA[/C][/ROW]
[ROW][C]52[/C][C]119.76[/C][C]NA[/C][C]NA[/C][C]NA[/C][C]NA[/C][/ROW]
[ROW][C]53[/C][C]119.8[/C][C]NA[/C][C]NA[/C][C]NA[/C][C]NA[/C][/ROW]
[ROW][C]54[/C][C]119.88[/C][C]NA[/C][C]NA[/C][C]NA[/C][C]NA[/C][/ROW]
[ROW][C]55[/C][C]119.78[/C][C]NA[/C][C]NA[/C][C]NA[/C][C]NA[/C][/ROW]
[ROW][C]56[/C][C]120.08[/C][C]NA[/C][C]NA[/C][C]NA[/C][C]NA[/C][/ROW]
[ROW][C]57[/C][C]120.22[/C][C]NA[/C][C]NA[/C][C]NA[/C][C]NA[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=112078&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=112078&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	104.37	NA	NA	0.400081018518512	NA
2	104.89	NA	NA	0.4392476851852	NA
3	105.15	NA	NA	0.20827546296297	NA
4	105.72	NA	NA	0.0168865740740753	NA
5	106.38	NA	NA	-0.171030092592600	NA
6	106.4	NA	NA	-0.419363425925931	NA
7	106.47	105.835219907407	106.522916666667	-0.687696759259261	0.634780092592607
8	106.59	106.240636574074	106.92625	-0.68561342592592	0.349363425925915
9	106.76	107.048136574074	107.3475	-0.299363425925931	-0.288136574074073
10	107.35	108.187164351852	107.754166666667	0.432997685185182	-0.837164351851868
11	107.81	108.546331018519	108.122083333333	0.424247685185185	-0.736331018518513
12	108.03	108.815497685185	108.474166666667	0.341331018518518	-0.785497685185177
13	109.08	109.232581018519	108.8325	0.400081018518512	-0.152581018518518
14	109.86	109.658414351852	109.219166666667	0.4392476851852	0.201585648148153
15	110.29	109.905775462963	109.6975	0.20827546296297	0.384224537037028
16	110.34	110.343553240741	110.326666666667	0.0168865740740753	-0.00355324074074304
17	110.59	110.873969907407	111.045	-0.171030092592600	-0.283969907407410
18	110.64	111.380219907407	111.799583333333	-0.419363425925931	-0.740219907407408
19	110.83	111.886053240741	112.57375	-0.687696759259261	-1.05605324074074
20	111.51	112.636469907407	113.322083333333	-0.68561342592592	-1.12646990740741
21	113.32	113.731886574074	114.03125	-0.299363425925931	-0.411886574074074
22	115.89	115.170914351852	114.737916666667	0.432997685185182	0.719085648148152
23	116.51	115.881331018519	115.457083333333	0.424247685185185	0.628668981481496
24	117.44	116.513831018519	116.1725	0.341331018518518	0.926168981481496
25	118.25	117.285497685185	116.885416666667	0.400081018518512	0.964502314814837
26	118.65	118.007997685185	117.56875	0.4392476851852	0.642002314814832
27	118.52	118.367858796296	118.159583333333	0.20827546296297	0.152141203703707
28	119.07	118.605219907407	118.588333333333	0.0168865740740753	0.464780092592591
29	119.12	118.732303240741	118.903333333333	-0.171030092592600	0.387696759259271
30	119.28	118.723136574074	119.1425	-0.419363425925931	0.55686342592594
31	119.3	118.597719907407	119.285416666667	-0.687696759259261	0.702280092592616
32	119.44	118.684803240741	119.370416666667	-0.68561342592592	0.755196759259277
33	119.57	119.148969907407	119.448333333333	-0.299363425925931	0.421030092592616
34	119.93	119.939664351852	119.506666666667	0.432997685185182	-0.00966435185183911
35	120.03	119.964664351852	119.540416666667	0.424247685185185	0.0653356481481495
36	119.66	119.913414351852	119.572083333333	0.341331018518518	-0.253414351851845
37	119.46	119.993414351852	119.593333333333	0.400081018518512	-0.533414351851846
38	119.48	120.045081018519	119.605833333333	0.4392476851852	-0.565081018518512
39	119.56	119.817858796296	119.609583333333	0.20827546296297	-0.25785879629629
40	119.43	119.612719907407	119.595833333333	0.0168865740740753	-0.182719907407403
41	119.57	119.395219907407	119.56625	-0.171030092592600	0.174780092592599
42	119.59	119.128136574074	119.5475	-0.419363425925931	0.461863425925941
43	119.5	118.867719907407	119.555416666667	-0.687696759259261	0.632280092592595
44	119.54	118.890219907407	119.575833333333	-0.68561342592592	0.649780092592593
45	119.56	119.290636574074	119.59	-0.299363425925931	0.269363425925917
46	119.61	120.040914351852	119.607916666667	0.432997685185182	-0.430914351851868
47	119.64	120.055497685185	119.63125	0.424247685185185	-0.415497685185173
48	119.6	119.994247685185	119.652916666667	0.341331018518518	-0.394247685185192
49	119.71	NA	119.676666666667	NA	NA
50	119.72	NA	119.710833333333	NA	NA
51	119.66	NA	119.760833333333	NA	NA
52	119.76	NA	NA	NA	NA
53	119.8	NA	NA	NA	NA
54	119.88	NA	NA	NA	NA
55	119.78	NA	NA	NA	NA
56	120.08	NA	NA	NA	NA
57	120.22	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