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, 09 Dec 2010 17:53:11 +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/09/t12919171531t6kypikisbnyj9.htm/, Retrieved Thu, 01 Oct 2026 07:44:17 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=107303, Retrieved Thu, 01 Oct 2026 07:44:17 +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

KDGP2W92

Estimated Impact

511

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

-       [Classical Decomposition] [index huishoudcon...] [2010-12-09 17:53:11] [bc974f2989c3f1048b8acb0f98df66e5] [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	4 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 & 4 seconds \tabularnewline
R Server & 'George Udny Yule' @ 72.249.76.132 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=107303&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]4 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=107303&T=0

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

Classical Decomposition by Moving Averages
t	Observations	Fit	Trend	Seasonal	Random
1	132.1	NA	NA	1.36464742142388	NA
2	125	NA	NA	1.22502281121452	NA
3	127.1	NA	NA	1.23277130163144	NA
4	101.5	NA	NA	0.980793667700393	NA
5	85.7	NA	NA	0.863786668523817	NA
6	79.3	NA	NA	0.753165977400242	NA
7	70.9	66.9441859051867	101.954166666667	0.65661059369998	1.05909122713683
8	77.1	74.2619270409077	102.845833333333	0.722070351651657	1.03821706589339
9	83.9	84.0530591443625	103.6125	0.811225085239353	0.998179017564374
10	96.2	105.124888341529	104.125	1.00960276918635	0.9151020421298
11	111.7	118.517876982603	104.3125	1.13618096568103	0.942473851572589
12	127.2	129.570162726042	104.145833333333	1.24412238664733	0.981707495952958
13	143.6	141.667460436567	103.8125	1.36464742142388	1.01364137930812
14	134.9	126.815382269269	103.520833333333	1.22502281121452	1.06375108118639
15	135.6	127.150086669103	103.141666666667	1.23277130163144	1.06645621369404
16	105.3	101.021747773140	103	0.980793667700393	1.04234981398725
17	86.4	89.2903477475308	103.370833333333	0.863786668523817	0.96762978507259
18	74.6	78.3763345232127	104.0625	0.753165977400242	0.951817923788024
19	67.6	68.4379750058541	104.229166666667	0.65661059369998	0.987755701337124
20	73.4	74.5086344110553	103.1875	0.722070351651657	0.985120725674032
21	78.5	82.504971273364	101.704166666667	0.811225085239353	0.951457818704107
22	98.2	101.709065639115	100.741666666667	1.00960276918635	0.965498988540847
23	118.6	114.039430342877	100.370833333333	1.13618096568103	1.03999116484019
24	136.9	124.707717731562	100.2375	1.24412238664733	1.09776686230986
25	137.9	136.333963431169	99.9041666666667	1.36464742142388	1.01148676770937
26	115.6	121.833622836997	99.4541666666667	1.22502281121452	0.94883495465503
27	119.3	122.373097875281	99.2666666666667	1.23277130163144	0.974887471767586
28	98.5	97.9772007629872	99.8958333333333	0.980793667700393	1.00533592747028
29	84.3	87.1308810762212	100.870833333333	0.863786668523817	0.967510014345605
30	73.5	76.1576330814545	101.116666666667	0.753165977400242	0.965103523127983
31	60.7	66.142573805378	100.733333333333	0.65661059369998	0.917714514385356
32	69.5	72.4386994029873	100.320833333333	0.722070351651657	0.959431913780798
33	77.9	80.9839242385403	99.8291666666667	0.811225085239353	0.961919303521814
34	113.9	100.072667817392	99.1208333333334	1.00960276918635	1.13817291458482
35	126.3	112.306754370213	98.8458333333333	1.13618096568103	1.12459843317757
36	135.1	122.981497920089	98.85	1.24412238664733	1.09853922976109
37	130.5	135.065978535429	98.975	1.36464742142388	0.966194458553223
38	113.1	121.333405189084	99.0458333333333	1.22502281121452	0.932142305111658
39	110	121.982720296431	98.95	1.23277130163144	0.901767067767372
40	90.8	96.6939957144125	98.5875	0.980793667700393	0.939044863428537
41	85.4	84.1580152920518	97.4291666666667	0.863786668523817	1.01475777088657
42	72.5	72.3290393630033	96.0333333333333	0.753165977400242	1.00236365142552
43	64.7	62.4108369311831	95.05	0.65661059369998	1.03667893560442
44	67.2	68.199544713499	94.45	0.722070351651657	0.985343821315846
45	77.9	76.2957192667612	94.05	0.811225085239353	1.02102713951263
46	105.2	94.368412171489	93.4708333333333	1.00960276918635	1.11477980374225
47	107.2	105.101473412853	92.5041666666667	1.13618096568103	1.01996667143670
48	120.7	113.977162146729	91.6125	1.24412238664733	1.05898407827190
49	121.3	124.160171225883	90.9833333333333	1.36464742142388	0.976963858879675
50	107.9	110.808417536066	90.4541666666667	1.22502281121452	0.973752738278031
51	105.6	110.836413110847	89.9083333333333	1.23277130163144	0.952755480226433
52	81.3	87.192557058565	88.9	0.980793667700393	0.932419036012362
53	71.7	76.1859841638007	88.2	0.863786668523817	0.941117986293177
54	64.8	66.1028672831613	87.7666666666667	0.753165977400242	0.980290306053136
55	57.3	57.1579521815832	87.05	0.65661059369998	1.00248518032916
56	61.9	62.6426116322464	86.7541666666667	0.722070351651657	0.988145263856397
57	70.1	70.5799625203456	87.0041666666667	0.811225085239353	0.993199733986721
58	88.8	88.3192089127809	87.4791666666667	1.00960276918635	1.00544378842539
59	106.8	99.96972271786	87.9875	1.13618096568103	1.06832345930794
60	110.7	109.980418979624	88.4	1.24412238664733	1.00654281032071
61	114.1	120.816785043395	88.5333333333333	1.36464742142388	0.94440519965018
62	108	108.628897784447	88.675	1.22502281121452	0.99421058486946
63	111.5	109.655007280117	88.95	1.23277130163144	1.01682543064514
64	86.8	87.3641959504125	89.075	0.980793667700393	0.993542023202128
65	78.4	76.7366481649846	88.8375	0.863786668523817	1.02167610750263
66	68	67.1196413526516	89.1166666666667	0.753165977400242	1.01311625970590
67	57.3	59.1907091445794	90.1458333333333	0.65661059369998	0.968057332444503
68	65.3	65.6512380974617	90.9208333333333	0.722070351651657	0.99464993947349
69	73.3	74.4096209435797	91.725	0.811225085239353	0.98508766837529
70	88.6	NA	NA	1.00960276918635	NA
71	101.3	NA	NA	1.13618096568103	NA
72	122.9	NA	NA	1.24412238664733	NA
73	126.6	NA	NA	NA	NA
74	114.1	NA	NA	NA	NA
75	124.7	NA	NA	NA	NA

\begin{tabular}{lllllllll}
\hline
Classical Decomposition by Moving Averages \tabularnewline
t & Observations & Fit & Trend & Seasonal & Random \tabularnewline
1 & 132.1 & NA & NA & 1.36464742142388 & NA \tabularnewline
2 & 125 & NA & NA & 1.22502281121452 & NA \tabularnewline
3 & 127.1 & NA & NA & 1.23277130163144 & NA \tabularnewline
4 & 101.5 & NA & NA & 0.980793667700393 & NA \tabularnewline
5 & 85.7 & NA & NA & 0.863786668523817 & NA \tabularnewline
6 & 79.3 & NA & NA & 0.753165977400242 & NA \tabularnewline
7 & 70.9 & 66.9441859051867 & 101.954166666667 & 0.65661059369998 & 1.05909122713683 \tabularnewline
8 & 77.1 & 74.2619270409077 & 102.845833333333 & 0.722070351651657 & 1.03821706589339 \tabularnewline
9 & 83.9 & 84.0530591443625 & 103.6125 & 0.811225085239353 & 0.998179017564374 \tabularnewline
10 & 96.2 & 105.124888341529 & 104.125 & 1.00960276918635 & 0.9151020421298 \tabularnewline
11 & 111.7 & 118.517876982603 & 104.3125 & 1.13618096568103 & 0.942473851572589 \tabularnewline
12 & 127.2 & 129.570162726042 & 104.145833333333 & 1.24412238664733 & 0.981707495952958 \tabularnewline
13 & 143.6 & 141.667460436567 & 103.8125 & 1.36464742142388 & 1.01364137930812 \tabularnewline
14 & 134.9 & 126.815382269269 & 103.520833333333 & 1.22502281121452 & 1.06375108118639 \tabularnewline
15 & 135.6 & 127.150086669103 & 103.141666666667 & 1.23277130163144 & 1.06645621369404 \tabularnewline
16 & 105.3 & 101.021747773140 & 103 & 0.980793667700393 & 1.04234981398725 \tabularnewline
17 & 86.4 & 89.2903477475308 & 103.370833333333 & 0.863786668523817 & 0.96762978507259 \tabularnewline
18 & 74.6 & 78.3763345232127 & 104.0625 & 0.753165977400242 & 0.951817923788024 \tabularnewline
19 & 67.6 & 68.4379750058541 & 104.229166666667 & 0.65661059369998 & 0.987755701337124 \tabularnewline
20 & 73.4 & 74.5086344110553 & 103.1875 & 0.722070351651657 & 0.985120725674032 \tabularnewline
21 & 78.5 & 82.504971273364 & 101.704166666667 & 0.811225085239353 & 0.951457818704107 \tabularnewline
22 & 98.2 & 101.709065639115 & 100.741666666667 & 1.00960276918635 & 0.965498988540847 \tabularnewline
23 & 118.6 & 114.039430342877 & 100.370833333333 & 1.13618096568103 & 1.03999116484019 \tabularnewline
24 & 136.9 & 124.707717731562 & 100.2375 & 1.24412238664733 & 1.09776686230986 \tabularnewline
25 & 137.9 & 136.333963431169 & 99.9041666666667 & 1.36464742142388 & 1.01148676770937 \tabularnewline
26 & 115.6 & 121.833622836997 & 99.4541666666667 & 1.22502281121452 & 0.94883495465503 \tabularnewline
27 & 119.3 & 122.373097875281 & 99.2666666666667 & 1.23277130163144 & 0.974887471767586 \tabularnewline
28 & 98.5 & 97.9772007629872 & 99.8958333333333 & 0.980793667700393 & 1.00533592747028 \tabularnewline
29 & 84.3 & 87.1308810762212 & 100.870833333333 & 0.863786668523817 & 0.967510014345605 \tabularnewline
30 & 73.5 & 76.1576330814545 & 101.116666666667 & 0.753165977400242 & 0.965103523127983 \tabularnewline
31 & 60.7 & 66.142573805378 & 100.733333333333 & 0.65661059369998 & 0.917714514385356 \tabularnewline
32 & 69.5 & 72.4386994029873 & 100.320833333333 & 0.722070351651657 & 0.959431913780798 \tabularnewline
33 & 77.9 & 80.9839242385403 & 99.8291666666667 & 0.811225085239353 & 0.961919303521814 \tabularnewline
34 & 113.9 & 100.072667817392 & 99.1208333333334 & 1.00960276918635 & 1.13817291458482 \tabularnewline
35 & 126.3 & 112.306754370213 & 98.8458333333333 & 1.13618096568103 & 1.12459843317757 \tabularnewline
36 & 135.1 & 122.981497920089 & 98.85 & 1.24412238664733 & 1.09853922976109 \tabularnewline
37 & 130.5 & 135.065978535429 & 98.975 & 1.36464742142388 & 0.966194458553223 \tabularnewline
38 & 113.1 & 121.333405189084 & 99.0458333333333 & 1.22502281121452 & 0.932142305111658 \tabularnewline
39 & 110 & 121.982720296431 & 98.95 & 1.23277130163144 & 0.901767067767372 \tabularnewline
40 & 90.8 & 96.6939957144125 & 98.5875 & 0.980793667700393 & 0.939044863428537 \tabularnewline
41 & 85.4 & 84.1580152920518 & 97.4291666666667 & 0.863786668523817 & 1.01475777088657 \tabularnewline
42 & 72.5 & 72.3290393630033 & 96.0333333333333 & 0.753165977400242 & 1.00236365142552 \tabularnewline
43 & 64.7 & 62.4108369311831 & 95.05 & 0.65661059369998 & 1.03667893560442 \tabularnewline
44 & 67.2 & 68.199544713499 & 94.45 & 0.722070351651657 & 0.985343821315846 \tabularnewline
45 & 77.9 & 76.2957192667612 & 94.05 & 0.811225085239353 & 1.02102713951263 \tabularnewline
46 & 105.2 & 94.368412171489 & 93.4708333333333 & 1.00960276918635 & 1.11477980374225 \tabularnewline
47 & 107.2 & 105.101473412853 & 92.5041666666667 & 1.13618096568103 & 1.01996667143670 \tabularnewline
48 & 120.7 & 113.977162146729 & 91.6125 & 1.24412238664733 & 1.05898407827190 \tabularnewline
49 & 121.3 & 124.160171225883 & 90.9833333333333 & 1.36464742142388 & 0.976963858879675 \tabularnewline
50 & 107.9 & 110.808417536066 & 90.4541666666667 & 1.22502281121452 & 0.973752738278031 \tabularnewline
51 & 105.6 & 110.836413110847 & 89.9083333333333 & 1.23277130163144 & 0.952755480226433 \tabularnewline
52 & 81.3 & 87.192557058565 & 88.9 & 0.980793667700393 & 0.932419036012362 \tabularnewline
53 & 71.7 & 76.1859841638007 & 88.2 & 0.863786668523817 & 0.941117986293177 \tabularnewline
54 & 64.8 & 66.1028672831613 & 87.7666666666667 & 0.753165977400242 & 0.980290306053136 \tabularnewline
55 & 57.3 & 57.1579521815832 & 87.05 & 0.65661059369998 & 1.00248518032916 \tabularnewline
56 & 61.9 & 62.6426116322464 & 86.7541666666667 & 0.722070351651657 & 0.988145263856397 \tabularnewline
57 & 70.1 & 70.5799625203456 & 87.0041666666667 & 0.811225085239353 & 0.993199733986721 \tabularnewline
58 & 88.8 & 88.3192089127809 & 87.4791666666667 & 1.00960276918635 & 1.00544378842539 \tabularnewline
59 & 106.8 & 99.96972271786 & 87.9875 & 1.13618096568103 & 1.06832345930794 \tabularnewline
60 & 110.7 & 109.980418979624 & 88.4 & 1.24412238664733 & 1.00654281032071 \tabularnewline
61 & 114.1 & 120.816785043395 & 88.5333333333333 & 1.36464742142388 & 0.94440519965018 \tabularnewline
62 & 108 & 108.628897784447 & 88.675 & 1.22502281121452 & 0.99421058486946 \tabularnewline
63 & 111.5 & 109.655007280117 & 88.95 & 1.23277130163144 & 1.01682543064514 \tabularnewline
64 & 86.8 & 87.3641959504125 & 89.075 & 0.980793667700393 & 0.993542023202128 \tabularnewline
65 & 78.4 & 76.7366481649846 & 88.8375 & 0.863786668523817 & 1.02167610750263 \tabularnewline
66 & 68 & 67.1196413526516 & 89.1166666666667 & 0.753165977400242 & 1.01311625970590 \tabularnewline
67 & 57.3 & 59.1907091445794 & 90.1458333333333 & 0.65661059369998 & 0.968057332444503 \tabularnewline
68 & 65.3 & 65.6512380974617 & 90.9208333333333 & 0.722070351651657 & 0.99464993947349 \tabularnewline
69 & 73.3 & 74.4096209435797 & 91.725 & 0.811225085239353 & 0.98508766837529 \tabularnewline
70 & 88.6 & NA & NA & 1.00960276918635 & NA \tabularnewline
71 & 101.3 & NA & NA & 1.13618096568103 & NA \tabularnewline
72 & 122.9 & NA & NA & 1.24412238664733 & NA \tabularnewline
73 & 126.6 & NA & NA & NA & NA \tabularnewline
74 & 114.1 & NA & NA & NA & NA \tabularnewline
75 & 124.7 & NA & NA & NA & NA \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=107303&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]132.1[/C][C]NA[/C][C]NA[/C][C]1.36464742142388[/C][C]NA[/C][/ROW]
[ROW][C]2[/C][C]125[/C][C]NA[/C][C]NA[/C][C]1.22502281121452[/C][C]NA[/C][/ROW]
[ROW][C]3[/C][C]127.1[/C][C]NA[/C][C]NA[/C][C]1.23277130163144[/C][C]NA[/C][/ROW]
[ROW][C]4[/C][C]101.5[/C][C]NA[/C][C]NA[/C][C]0.980793667700393[/C][C]NA[/C][/ROW]
[ROW][C]5[/C][C]85.7[/C][C]NA[/C][C]NA[/C][C]0.863786668523817[/C][C]NA[/C][/ROW]
[ROW][C]6[/C][C]79.3[/C][C]NA[/C][C]NA[/C][C]0.753165977400242[/C][C]NA[/C][/ROW]
[ROW][C]7[/C][C]70.9[/C][C]66.9441859051867[/C][C]101.954166666667[/C][C]0.65661059369998[/C][C]1.05909122713683[/C][/ROW]
[ROW][C]8[/C][C]77.1[/C][C]74.2619270409077[/C][C]102.845833333333[/C][C]0.722070351651657[/C][C]1.03821706589339[/C][/ROW]
[ROW][C]9[/C][C]83.9[/C][C]84.0530591443625[/C][C]103.6125[/C][C]0.811225085239353[/C][C]0.998179017564374[/C][/ROW]
[ROW][C]10[/C][C]96.2[/C][C]105.124888341529[/C][C]104.125[/C][C]1.00960276918635[/C][C]0.9151020421298[/C][/ROW]
[ROW][C]11[/C][C]111.7[/C][C]118.517876982603[/C][C]104.3125[/C][C]1.13618096568103[/C][C]0.942473851572589[/C][/ROW]
[ROW][C]12[/C][C]127.2[/C][C]129.570162726042[/C][C]104.145833333333[/C][C]1.24412238664733[/C][C]0.981707495952958[/C][/ROW]
[ROW][C]13[/C][C]143.6[/C][C]141.667460436567[/C][C]103.8125[/C][C]1.36464742142388[/C][C]1.01364137930812[/C][/ROW]
[ROW][C]14[/C][C]134.9[/C][C]126.815382269269[/C][C]103.520833333333[/C][C]1.22502281121452[/C][C]1.06375108118639[/C][/ROW]
[ROW][C]15[/C][C]135.6[/C][C]127.150086669103[/C][C]103.141666666667[/C][C]1.23277130163144[/C][C]1.06645621369404[/C][/ROW]
[ROW][C]16[/C][C]105.3[/C][C]101.021747773140[/C][C]103[/C][C]0.980793667700393[/C][C]1.04234981398725[/C][/ROW]
[ROW][C]17[/C][C]86.4[/C][C]89.2903477475308[/C][C]103.370833333333[/C][C]0.863786668523817[/C][C]0.96762978507259[/C][/ROW]
[ROW][C]18[/C][C]74.6[/C][C]78.3763345232127[/C][C]104.0625[/C][C]0.753165977400242[/C][C]0.951817923788024[/C][/ROW]
[ROW][C]19[/C][C]67.6[/C][C]68.4379750058541[/C][C]104.229166666667[/C][C]0.65661059369998[/C][C]0.987755701337124[/C][/ROW]
[ROW][C]20[/C][C]73.4[/C][C]74.5086344110553[/C][C]103.1875[/C][C]0.722070351651657[/C][C]0.985120725674032[/C][/ROW]
[ROW][C]21[/C][C]78.5[/C][C]82.504971273364[/C][C]101.704166666667[/C][C]0.811225085239353[/C][C]0.951457818704107[/C][/ROW]
[ROW][C]22[/C][C]98.2[/C][C]101.709065639115[/C][C]100.741666666667[/C][C]1.00960276918635[/C][C]0.965498988540847[/C][/ROW]
[ROW][C]23[/C][C]118.6[/C][C]114.039430342877[/C][C]100.370833333333[/C][C]1.13618096568103[/C][C]1.03999116484019[/C][/ROW]
[ROW][C]24[/C][C]136.9[/C][C]124.707717731562[/C][C]100.2375[/C][C]1.24412238664733[/C][C]1.09776686230986[/C][/ROW]
[ROW][C]25[/C][C]137.9[/C][C]136.333963431169[/C][C]99.9041666666667[/C][C]1.36464742142388[/C][C]1.01148676770937[/C][/ROW]
[ROW][C]26[/C][C]115.6[/C][C]121.833622836997[/C][C]99.4541666666667[/C][C]1.22502281121452[/C][C]0.94883495465503[/C][/ROW]
[ROW][C]27[/C][C]119.3[/C][C]122.373097875281[/C][C]99.2666666666667[/C][C]1.23277130163144[/C][C]0.974887471767586[/C][/ROW]
[ROW][C]28[/C][C]98.5[/C][C]97.9772007629872[/C][C]99.8958333333333[/C][C]0.980793667700393[/C][C]1.00533592747028[/C][/ROW]
[ROW][C]29[/C][C]84.3[/C][C]87.1308810762212[/C][C]100.870833333333[/C][C]0.863786668523817[/C][C]0.967510014345605[/C][/ROW]
[ROW][C]30[/C][C]73.5[/C][C]76.1576330814545[/C][C]101.116666666667[/C][C]0.753165977400242[/C][C]0.965103523127983[/C][/ROW]
[ROW][C]31[/C][C]60.7[/C][C]66.142573805378[/C][C]100.733333333333[/C][C]0.65661059369998[/C][C]0.917714514385356[/C][/ROW]
[ROW][C]32[/C][C]69.5[/C][C]72.4386994029873[/C][C]100.320833333333[/C][C]0.722070351651657[/C][C]0.959431913780798[/C][/ROW]
[ROW][C]33[/C][C]77.9[/C][C]80.9839242385403[/C][C]99.8291666666667[/C][C]0.811225085239353[/C][C]0.961919303521814[/C][/ROW]
[ROW][C]34[/C][C]113.9[/C][C]100.072667817392[/C][C]99.1208333333334[/C][C]1.00960276918635[/C][C]1.13817291458482[/C][/ROW]
[ROW][C]35[/C][C]126.3[/C][C]112.306754370213[/C][C]98.8458333333333[/C][C]1.13618096568103[/C][C]1.12459843317757[/C][/ROW]
[ROW][C]36[/C][C]135.1[/C][C]122.981497920089[/C][C]98.85[/C][C]1.24412238664733[/C][C]1.09853922976109[/C][/ROW]
[ROW][C]37[/C][C]130.5[/C][C]135.065978535429[/C][C]98.975[/C][C]1.36464742142388[/C][C]0.966194458553223[/C][/ROW]
[ROW][C]38[/C][C]113.1[/C][C]121.333405189084[/C][C]99.0458333333333[/C][C]1.22502281121452[/C][C]0.932142305111658[/C][/ROW]
[ROW][C]39[/C][C]110[/C][C]121.982720296431[/C][C]98.95[/C][C]1.23277130163144[/C][C]0.901767067767372[/C][/ROW]
[ROW][C]40[/C][C]90.8[/C][C]96.6939957144125[/C][C]98.5875[/C][C]0.980793667700393[/C][C]0.939044863428537[/C][/ROW]
[ROW][C]41[/C][C]85.4[/C][C]84.1580152920518[/C][C]97.4291666666667[/C][C]0.863786668523817[/C][C]1.01475777088657[/C][/ROW]
[ROW][C]42[/C][C]72.5[/C][C]72.3290393630033[/C][C]96.0333333333333[/C][C]0.753165977400242[/C][C]1.00236365142552[/C][/ROW]
[ROW][C]43[/C][C]64.7[/C][C]62.4108369311831[/C][C]95.05[/C][C]0.65661059369998[/C][C]1.03667893560442[/C][/ROW]
[ROW][C]44[/C][C]67.2[/C][C]68.199544713499[/C][C]94.45[/C][C]0.722070351651657[/C][C]0.985343821315846[/C][/ROW]
[ROW][C]45[/C][C]77.9[/C][C]76.2957192667612[/C][C]94.05[/C][C]0.811225085239353[/C][C]1.02102713951263[/C][/ROW]
[ROW][C]46[/C][C]105.2[/C][C]94.368412171489[/C][C]93.4708333333333[/C][C]1.00960276918635[/C][C]1.11477980374225[/C][/ROW]
[ROW][C]47[/C][C]107.2[/C][C]105.101473412853[/C][C]92.5041666666667[/C][C]1.13618096568103[/C][C]1.01996667143670[/C][/ROW]
[ROW][C]48[/C][C]120.7[/C][C]113.977162146729[/C][C]91.6125[/C][C]1.24412238664733[/C][C]1.05898407827190[/C][/ROW]
[ROW][C]49[/C][C]121.3[/C][C]124.160171225883[/C][C]90.9833333333333[/C][C]1.36464742142388[/C][C]0.976963858879675[/C][/ROW]
[ROW][C]50[/C][C]107.9[/C][C]110.808417536066[/C][C]90.4541666666667[/C][C]1.22502281121452[/C][C]0.973752738278031[/C][/ROW]
[ROW][C]51[/C][C]105.6[/C][C]110.836413110847[/C][C]89.9083333333333[/C][C]1.23277130163144[/C][C]0.952755480226433[/C][/ROW]
[ROW][C]52[/C][C]81.3[/C][C]87.192557058565[/C][C]88.9[/C][C]0.980793667700393[/C][C]0.932419036012362[/C][/ROW]
[ROW][C]53[/C][C]71.7[/C][C]76.1859841638007[/C][C]88.2[/C][C]0.863786668523817[/C][C]0.941117986293177[/C][/ROW]
[ROW][C]54[/C][C]64.8[/C][C]66.1028672831613[/C][C]87.7666666666667[/C][C]0.753165977400242[/C][C]0.980290306053136[/C][/ROW]
[ROW][C]55[/C][C]57.3[/C][C]57.1579521815832[/C][C]87.05[/C][C]0.65661059369998[/C][C]1.00248518032916[/C][/ROW]
[ROW][C]56[/C][C]61.9[/C][C]62.6426116322464[/C][C]86.7541666666667[/C][C]0.722070351651657[/C][C]0.988145263856397[/C][/ROW]
[ROW][C]57[/C][C]70.1[/C][C]70.5799625203456[/C][C]87.0041666666667[/C][C]0.811225085239353[/C][C]0.993199733986721[/C][/ROW]
[ROW][C]58[/C][C]88.8[/C][C]88.3192089127809[/C][C]87.4791666666667[/C][C]1.00960276918635[/C][C]1.00544378842539[/C][/ROW]
[ROW][C]59[/C][C]106.8[/C][C]99.96972271786[/C][C]87.9875[/C][C]1.13618096568103[/C][C]1.06832345930794[/C][/ROW]
[ROW][C]60[/C][C]110.7[/C][C]109.980418979624[/C][C]88.4[/C][C]1.24412238664733[/C][C]1.00654281032071[/C][/ROW]
[ROW][C]61[/C][C]114.1[/C][C]120.816785043395[/C][C]88.5333333333333[/C][C]1.36464742142388[/C][C]0.94440519965018[/C][/ROW]
[ROW][C]62[/C][C]108[/C][C]108.628897784447[/C][C]88.675[/C][C]1.22502281121452[/C][C]0.99421058486946[/C][/ROW]
[ROW][C]63[/C][C]111.5[/C][C]109.655007280117[/C][C]88.95[/C][C]1.23277130163144[/C][C]1.01682543064514[/C][/ROW]
[ROW][C]64[/C][C]86.8[/C][C]87.3641959504125[/C][C]89.075[/C][C]0.980793667700393[/C][C]0.993542023202128[/C][/ROW]
[ROW][C]65[/C][C]78.4[/C][C]76.7366481649846[/C][C]88.8375[/C][C]0.863786668523817[/C][C]1.02167610750263[/C][/ROW]
[ROW][C]66[/C][C]68[/C][C]67.1196413526516[/C][C]89.1166666666667[/C][C]0.753165977400242[/C][C]1.01311625970590[/C][/ROW]
[ROW][C]67[/C][C]57.3[/C][C]59.1907091445794[/C][C]90.1458333333333[/C][C]0.65661059369998[/C][C]0.968057332444503[/C][/ROW]
[ROW][C]68[/C][C]65.3[/C][C]65.6512380974617[/C][C]90.9208333333333[/C][C]0.722070351651657[/C][C]0.99464993947349[/C][/ROW]
[ROW][C]69[/C][C]73.3[/C][C]74.4096209435797[/C][C]91.725[/C][C]0.811225085239353[/C][C]0.98508766837529[/C][/ROW]
[ROW][C]70[/C][C]88.6[/C][C]NA[/C][C]NA[/C][C]1.00960276918635[/C][C]NA[/C][/ROW]
[ROW][C]71[/C][C]101.3[/C][C]NA[/C][C]NA[/C][C]1.13618096568103[/C][C]NA[/C][/ROW]
[ROW][C]72[/C][C]122.9[/C][C]NA[/C][C]NA[/C][C]1.24412238664733[/C][C]NA[/C][/ROW]
[ROW][C]73[/C][C]126.6[/C][C]NA[/C][C]NA[/C][C]NA[/C][C]NA[/C][/ROW]
[ROW][C]74[/C][C]114.1[/C][C]NA[/C][C]NA[/C][C]NA[/C][C]NA[/C][/ROW]
[ROW][C]75[/C][C]124.7[/C][C]NA[/C][C]NA[/C][C]NA[/C][C]NA[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=107303&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=107303&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	132.1	NA	NA	1.36464742142388	NA
2	125	NA	NA	1.22502281121452	NA
3	127.1	NA	NA	1.23277130163144	NA
4	101.5	NA	NA	0.980793667700393	NA
5	85.7	NA	NA	0.863786668523817	NA
6	79.3	NA	NA	0.753165977400242	NA
7	70.9	66.9441859051867	101.954166666667	0.65661059369998	1.05909122713683
8	77.1	74.2619270409077	102.845833333333	0.722070351651657	1.03821706589339
9	83.9	84.0530591443625	103.6125	0.811225085239353	0.998179017564374
10	96.2	105.124888341529	104.125	1.00960276918635	0.9151020421298
11	111.7	118.517876982603	104.3125	1.13618096568103	0.942473851572589
12	127.2	129.570162726042	104.145833333333	1.24412238664733	0.981707495952958
13	143.6	141.667460436567	103.8125	1.36464742142388	1.01364137930812
14	134.9	126.815382269269	103.520833333333	1.22502281121452	1.06375108118639
15	135.6	127.150086669103	103.141666666667	1.23277130163144	1.06645621369404
16	105.3	101.021747773140	103	0.980793667700393	1.04234981398725
17	86.4	89.2903477475308	103.370833333333	0.863786668523817	0.96762978507259
18	74.6	78.3763345232127	104.0625	0.753165977400242	0.951817923788024
19	67.6	68.4379750058541	104.229166666667	0.65661059369998	0.987755701337124
20	73.4	74.5086344110553	103.1875	0.722070351651657	0.985120725674032
21	78.5	82.504971273364	101.704166666667	0.811225085239353	0.951457818704107
22	98.2	101.709065639115	100.741666666667	1.00960276918635	0.965498988540847
23	118.6	114.039430342877	100.370833333333	1.13618096568103	1.03999116484019
24	136.9	124.707717731562	100.2375	1.24412238664733	1.09776686230986
25	137.9	136.333963431169	99.9041666666667	1.36464742142388	1.01148676770937
26	115.6	121.833622836997	99.4541666666667	1.22502281121452	0.94883495465503
27	119.3	122.373097875281	99.2666666666667	1.23277130163144	0.974887471767586
28	98.5	97.9772007629872	99.8958333333333	0.980793667700393	1.00533592747028
29	84.3	87.1308810762212	100.870833333333	0.863786668523817	0.967510014345605
30	73.5	76.1576330814545	101.116666666667	0.753165977400242	0.965103523127983
31	60.7	66.142573805378	100.733333333333	0.65661059369998	0.917714514385356
32	69.5	72.4386994029873	100.320833333333	0.722070351651657	0.959431913780798
33	77.9	80.9839242385403	99.8291666666667	0.811225085239353	0.961919303521814
34	113.9	100.072667817392	99.1208333333334	1.00960276918635	1.13817291458482
35	126.3	112.306754370213	98.8458333333333	1.13618096568103	1.12459843317757
36	135.1	122.981497920089	98.85	1.24412238664733	1.09853922976109
37	130.5	135.065978535429	98.975	1.36464742142388	0.966194458553223
38	113.1	121.333405189084	99.0458333333333	1.22502281121452	0.932142305111658
39	110	121.982720296431	98.95	1.23277130163144	0.901767067767372
40	90.8	96.6939957144125	98.5875	0.980793667700393	0.939044863428537
41	85.4	84.1580152920518	97.4291666666667	0.863786668523817	1.01475777088657
42	72.5	72.3290393630033	96.0333333333333	0.753165977400242	1.00236365142552
43	64.7	62.4108369311831	95.05	0.65661059369998	1.03667893560442
44	67.2	68.199544713499	94.45	0.722070351651657	0.985343821315846
45	77.9	76.2957192667612	94.05	0.811225085239353	1.02102713951263
46	105.2	94.368412171489	93.4708333333333	1.00960276918635	1.11477980374225
47	107.2	105.101473412853	92.5041666666667	1.13618096568103	1.01996667143670
48	120.7	113.977162146729	91.6125	1.24412238664733	1.05898407827190
49	121.3	124.160171225883	90.9833333333333	1.36464742142388	0.976963858879675
50	107.9	110.808417536066	90.4541666666667	1.22502281121452	0.973752738278031
51	105.6	110.836413110847	89.9083333333333	1.23277130163144	0.952755480226433
52	81.3	87.192557058565	88.9	0.980793667700393	0.932419036012362
53	71.7	76.1859841638007	88.2	0.863786668523817	0.941117986293177
54	64.8	66.1028672831613	87.7666666666667	0.753165977400242	0.980290306053136
55	57.3	57.1579521815832	87.05	0.65661059369998	1.00248518032916
56	61.9	62.6426116322464	86.7541666666667	0.722070351651657	0.988145263856397
57	70.1	70.5799625203456	87.0041666666667	0.811225085239353	0.993199733986721
58	88.8	88.3192089127809	87.4791666666667	1.00960276918635	1.00544378842539
59	106.8	99.96972271786	87.9875	1.13618096568103	1.06832345930794
60	110.7	109.980418979624	88.4	1.24412238664733	1.00654281032071
61	114.1	120.816785043395	88.5333333333333	1.36464742142388	0.94440519965018
62	108	108.628897784447	88.675	1.22502281121452	0.99421058486946
63	111.5	109.655007280117	88.95	1.23277130163144	1.01682543064514
64	86.8	87.3641959504125	89.075	0.980793667700393	0.993542023202128
65	78.4	76.7366481649846	88.8375	0.863786668523817	1.02167610750263
66	68	67.1196413526516	89.1166666666667	0.753165977400242	1.01311625970590
67	57.3	59.1907091445794	90.1458333333333	0.65661059369998	0.968057332444503
68	65.3	65.6512380974617	90.9208333333333	0.722070351651657	0.99464993947349
69	73.3	74.4096209435797	91.725	0.811225085239353	0.98508766837529
70	88.6	NA	NA	1.00960276918635	NA
71	101.3	NA	NA	1.13618096568103	NA
72	122.9	NA	NA	1.24412238664733	NA
73	126.6	NA	NA	NA	NA
74	114.1	NA	NA	NA	NA
75	124.7	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 = 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,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