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_decomposeloess.wasp

Title produced by software

Decomposition by Loess

Date of computation

Tue, 30 Nov 2010 13:47:21 +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/Nov/30/t1291124755x1taod0rtp7pmno.htm/, Retrieved Sun, 28 Apr 2024 05:27:44 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=103442, Retrieved Sun, 28 Apr 2024 05:27:44 +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

416

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

-     [Univariate Explorative Data Analysis] [Run Sequence gebo...] [2008-12-12 13:32:37] [76963dc1903f0f612b6153510a3818cf]
- R  D  [Univariate Explorative Data Analysis] [Run Sequence gebo...] [2008-12-17 12:14:40] [76963dc1903f0f612b6153510a3818cf]
-         [Univariate Explorative Data Analysis] [Run Sequence Plot...] [2008-12-22 18:19:51] [1ce0d16c8f4225c977b42c8fa93bc163]
- RMP       [Univariate Data Series] [Identifying Integ...] [2009-11-22 12:08:06] [b98453cac15ba1066b407e146608df68]
- RMP           [Decomposition by Loess] [Births] [2010-11-30 13:47:21] [d76b387543b13b5e3afd8ff9e5fdc89f] [Current]
-                 [Decomposition by Loess] [] [2010-12-08 17:12:43] [4cec9a0c6d7fcfe819c8df12b51eb7f5] 
-    D            [Decomposition by Loess] [Loess Decompositi...] [2010-12-17 16:48:07] [f4dc4aa51d65be851b8508203d9f6001] 
- R                 [Decomposition by Loess] [Loess Decompositi...] [2010-12-17 17:37:41] [f4dc4aa51d65be851b8508203d9f6001] 
-    D            [Decomposition by Loess] [] [2010-12-21 19:29:51] [dd4fe494cff2ee46c12b15bdc7b848ca] 
-                 [Decomposition by Loess] [] [2011-11-27 13:45:26] [72554d79606dc183296fd485368f0ec1] 
- RMP             [Structural Time Series Models] [] [2011-11-27 13:56:37] [72554d79606dc183296fd485368f0ec1] 
- RMP             [Skewness and Kurtosis Test] [] [2011-11-27 14:06:04] [72554d79606dc183296fd485368f0ec1] 
- RMP             [Skewness and Kurtosis Test] [] [2011-11-27 14:09:45] [72554d79606dc183296fd485368f0ec1] 
- RMP             [Exponential Smoothing] [] [2011-11-27 14:13:21] [72554d79606dc183296fd485368f0ec1] 
-                 [Decomposition by Loess] [WS 8 Decompositio...] [2011-11-28 18:39:42] [c26e829f03d42da3805b9c4b60f90f25] 
- R               [Decomposition by Loess] [] [2011-12-01 17:48:50] [74be16979710d4c4e7c6647856088456] 
- R               [Decomposition by Loess] [Decomposition by ...] [2011-12-10 14:16:23] [e13b8cc08ad7cfa5593a43161c1cbb1d] 
-  M                [Decomposition by Loess] [] [2012-11-12 16:02:39] [60d1ad8da4696c30bdea6b2c1b52db5e] 
-                 [Decomposition by Loess] [Decomposition By ...] [2011-12-14 12:13:05] [2c6fcdc40ef3b1a27716d75d6f478b32] 
- RMP             [Structural Time Series Models] [Structural Time S...] [2011-12-14 12:27:55] [2c6fcdc40ef3b1a27716d75d6f478b32] 
- R               [Decomposition by Loess] [Paper: LOESS] [2011-12-15 10:50:04] [54b1f171ce7a12209ffa11b565e1dcf5] 
-                 [Decomposition by Loess] [Births - Loess] [2011-12-18 14:58:48] [ac132d67200f983c7ab29dde77ce07c2] 
-   P             [Decomposition by Loess] [] [2011-12-19 14:07:43] [a90f9476280cfbc76b67d22532268624] 
-                   [Decomposition by Loess] [] [2011-12-19 14:11:51] [a90f9476280cfbc76b67d22532268624] 
- RM                  [Structural Time Series Models] [] [2011-12-19 14:17:24] [a90f9476280cfbc76b67d22532268624] 
-                 [Decomposition by Loess] [Loess] [2011-12-20 19:40:18] [bab4e1d4a779bb46523d87231e2a2e96] 
-                 [Decomposition by Loess] [Decomposition by ...] [2011-12-20 20:12:58] [3dd791303389e75e672968b227170a72] 
-                 [Decomposition by Loess] [Ws8 geboortes Dec...] [2012-11-07 12:41:48] [bc2c61a583a6186666a33616ccc196e4] 
-                 [Decomposition by Loess] [] [2012-11-25 16:32:19] [bbed103f50d9b60ea97669d7e6947a11] 
- RMP             [Structural Time Series Models] [] [2012-12-03 12:15:50] [1dc9e9bb821d24d6d1efa0483d04b9f8] 
- R               [Decomposition by Loess] [paper deel 4 deco...] [2012-12-18 10:18:50] [783d8509970888a6ec44a5a7a0d2a339] 
- R               [Decomposition by Loess] [paper deel 4 deco...] [2012-12-18 10:57:01] [783d8509970888a6ec44a5a7a0d2a339] 
- R               [Decomposition by Loess] [LOESS decompositi...] [2013-11-27 18:11:22] [e39a9fdb43d44bc7a3500a1d00251334] 
- RM              [Decomposition by Loess] [ws 8: Loess] [2014-11-19 14:07:22] [36781f05c04c55e165b348994b753b95] 
- RM              [Decomposition by Loess] [] [2014-11-19 14:09:44] [6795cd14e59cd8fafcdf800c40b889d9] 
- RM              [Decomposition by Loess] [WS8 Q2] [2014-11-19 14:27:37] [bcf5edf18529a33bd1494456d2c6cb9a] 
- RMPD              [Structural Time Series Models] [structural time s...] [2014-12-10 15:53:05] [189b7d469e4e3b4e868a6af83e3b3816] 
- RMPD              [Structural Time Series Models] [structural time s...] [2014-12-10 15:56:34] [189b7d469e4e3b4e868a6af83e3b3816] 
- RM              [Decomposition by Loess] [] [2014-11-19 15:30:37] [d253a55552bf9917a397def3be261e30] 
- RMP             [Decomposition by Loess] [] [2014-11-19 16:02:14] [bcf5edf18529a33bd1494456d2c6cb9a] 
- RM              [Decomposition by Loess] [] [2014-11-19 16:28:44] [ae96d02647dd9ad9c105f1fa6642e295] 
- RM              [Decomposition by Loess] [ws8 nr 2] [2014-11-20 12:44:50] [55c1befec93c91d3068a87706a208f8c] 
- RM              [Decomposition by Loess] [ws 8 l] [2014-11-20 21:00:32] [be945163e51ed825733188af308451be] 
- RMP             [Decomposition by Loess] [fqsfekj] [2014-11-20 21:48:35] [e596eb22b7565c1d1947422243452583] 

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

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

Seasonal Decomposition by Loess - Parameters
Component	Window	Degree	Jump
Seasonal	751	0	76
Trend	19	1	2
Low-pass	13	1	2

\begin{tabular}{lllllllll}
\hline
Seasonal Decomposition by Loess - Parameters \tabularnewline
Component & Window & Degree & Jump \tabularnewline
Seasonal & 751 & 0 & 76 \tabularnewline
Trend & 19 & 1 & 2 \tabularnewline
Low-pass & 13 & 1 & 2 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=103442&T=1

[TABLE]
[ROW][C]Seasonal Decomposition by Loess - Parameters[/C][/ROW]
[ROW][C]Component[/C][C]Window[/C][C]Degree[/C][C]Jump[/C][/ROW]
[ROW][C]Seasonal[/C][C]751[/C][C]0[/C][C]76[/C][/ROW]
[ROW][C]Trend[/C][C]19[/C][C]1[/C][C]2[/C][/ROW]
[ROW][C]Low-pass[/C][C]13[/C][C]1[/C][C]2[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=103442&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=103442&T=1

As an alternative you can also use a QR Code:

The GUIDs for individual cells are displayed in the table below:

Seasonal Decomposition by Loess - Parameters
Component	Window	Degree	Jump
Seasonal	751	0	76
Trend	19	1	2
Low-pass	13	1	2

Seasonal Decomposition by Loess - Time Series Components
t	Observed	Fitted	Seasonal	Trend	Remainder
1	9700	9665.38145341098	216.659724953351	9517.95882163567	-34.6185465890176
2	9081	9165.77198053844	-524.326278586285	9520.55429804784	84.7719805384404
3	9084	8819.30488240033	-174.454656860345	9523.14977446002	-264.695117599675
4	9743	9815.13667288808	148.134258167626	9522.72906894429	72.1366728880839
5	8587	8390.3144979431	-738.622861371664	9522.30836342856	-196.685502056896
6	9731	9725.13807465836	217.654813785794	9519.20711155585	-5.86192534164002
7	9563	9776.79463081457	-166.900490497699	9516.10585968313	213.794630814569
8	9998	10477.3915983949	4.89909322630898	9513.70930837882	479.391598394866
9	9437	9409.98788403842	-47.300641112937	9511.31275707452	-27.0121159615828
10	10038	10051.5200681786	519.33615291561	9505.14377890576	13.5200681786337
11	9918	9947.88590851772	389.139290745291	9498.9748007370	29.8859085177173
12	9252	8874.86319978722	155.781667904092	9473.35513230869	-377.136800212778
13	9737	9809.60481116627	216.659724953351	9447.73546388038	72.6048111662658
14	9035	9183.97766975102	-524.326278586285	9410.34860883526	148.977669751022
15	9133	9067.49290307021	-174.454656860345	9372.96175379014	-65.5070969297922
16	9487	9479.52410990384	148.134258167626	9346.34163192853	-7.47589009615695
17	8700	8818.90135130474	-738.622861371664	9319.72151006693	118.901351304739
18	9627	9732.83020877482	217.654813785794	9303.51497743939	105.830208774820
19	8947	8773.59204568585	-166.900490497699	9287.30844481185	-173.407954314149
20	9283	9285.24500345376	4.89909322630898	9275.85590331993	2.24500345375964
21	8829	8440.89727928493	-47.300641112937	9264.40336182801	-388.102720715075
22	9947	10115.1181643594	519.33615291561	9259.54568272501	168.118164359381
23	9628	9612.1727056327	389.139290745291	9254.688003622	-15.8272943672982
24	9318	9223.30241590875	155.781667904092	9256.91591618715	-94.6975840912455
25	9605	9734.19644629435	216.659724953351	9259.1438287523	129.196446294351
26	8640	8534.35586053478	-524.326278586285	9269.9704180515	-105.644139465216
27	9214	9321.65764950964	-174.454656860345	9280.7970073507	107.657649509643
28	9567	9693.8923956418	148.134258167626	9291.97334619057	126.892395641804
29	8547	8529.47317634123	-738.622861371664	9303.14968503044	-17.5268236587726
30	9185	8843.67047554607	217.654813785794	9308.67471066814	-341.329524453933
31	9470	9792.70075419186	-166.900490497699	9314.19973630584	322.700754191857
32	9123	8918.07357542626	4.89909322630898	9323.02733134744	-204.926424573745
33	9278	9271.4457147239	-47.300641112937	9331.85492638903	-6.55428527609365
34	10170	10468.1371071333	519.33615291561	9352.52673995109	298.137107133301
35	9434	9105.66215574156	389.139290745291	9373.19855351315	-328.33784425844
36	9655	9760.51674400656	155.781667904092	9393.70158808935	105.516744006556
37	9429	9227.1356523811	216.659724953351	9414.20462266556	-201.864347618908
38	8739	8573.70419384917	-524.326278586285	9428.62208473712	-165.295806150831
39	9552	9835.41511005167	-174.454656860345	9443.03954680867	283.415110051672
40	9687	9758.56511370315	148.134258167626	9467.30062812922	71.5651137031527
41	9019	9285.0611519219	-738.622861371664	9491.56170944977	266.061151921896
42	9672	9605.97213280895	217.654813785794	9520.37305340526	-66.0278671910492
43	9206	9029.71609313695	-166.900490497699	9549.18439736074	-176.283906863046
44	9069	8558.39427184335	4.89909322630898	9574.70663493034	-510.605728156652
45	9788	10023.071768613	-47.300641112937	9600.22887249994	235.071768612997
46	10312	10480.8282002468	519.33615291561	9623.8356468376	168.828200246793
47	10105	10173.4182880795	389.139290745291	9647.44242117525	68.4182880794542
48	9863	9890.35914461412	155.781667904092	9679.85918748179	27.3591446141218
49	9656	9383.06432125833	216.659724953351	9712.27595378832	-272.935678741667
50	9295	9374.16734837944	-524.326278586285	9740.15893020684	79.1673483794402
51	9946	10298.4127502350	-174.454656860345	9768.04190662537	352.412750234975
52	9701	9472.4536957728	148.134258167626	9781.41204605957	-228.546304227195
53	9049	9041.8406758779	-738.622861371664	9794.78218549377	-7.15932412210532
54	10190	10354.4579532181	217.654813785794	9807.88723299606	164.457953218149
55	9706	9757.90820999935	-166.900490497699	9820.99228049835	51.908209999352
56	9765	9692.77073374114	4.89909322630898	9832.33017303255	-72.229266258857
57	9893	9989.63257554619	-47.300641112937	9843.66806556675	96.6325755461912
58	9994	9615.54519313482	519.33615291561	9853.11865394957	-378.454806865182
59	10433	10614.2914669223	389.139290745291	9862.5692423324	181.291466922312
60	10073	10111.7158882826	155.781667904092	9878.50244381331	38.715888282597
61	10112	10112.9046297524	216.659724953351	9894.43564529423	0.904629752423716
62	9266	9136.50938088752	-524.326278586285	9919.81689769877	-129.490619112481
63	9820	9869.25650675704	-174.454656860345	9945.1981501033	49.2565067570413
64	10097	10071.7159847449	148.134258167626	9974.14975708747	-25.2840152550962
65	9115	8965.52149730003	-738.622861371664	10003.1013640716	-149.478502699973
66	10411	10567.8772587978	217.654813785794	10036.4679274164	156.877258797795
67	9678	9453.06599973651	-166.900490497699	10069.8344907612	-224.934000263487
68	10408	10720.2986443903	4.89909322630898	10090.8022623834	312.29864439033
69	10153	10241.5306071074	-47.300641112937	10111.7700340055	88.5306071074046
70	10368	10087.1032512669	519.33615291561	10129.5605958175	-280.896748733074
71	10581	10625.5095516253	389.139290745291	10147.3511576294	44.5095516253132
72	10597	10873.4076819219	155.781667904092	10164.8106501740	276.407681921863
73	10680	10961.0701323280	216.659724953351	10182.2701427187	281.070132327954
74	9738	9801.4948913326	-524.326278586285	10198.8313872537	63.4948913326098
75	9556	9071.0620250717	-174.454656860345	10215.3926317887	-484.937974928309

\begin{tabular}{lllllllll}
\hline
Seasonal Decomposition by Loess - Time Series Components \tabularnewline
t & Observed & Fitted & Seasonal & Trend & Remainder \tabularnewline
1 & 9700 & 9665.38145341098 & 216.659724953351 & 9517.95882163567 & -34.6185465890176 \tabularnewline
2 & 9081 & 9165.77198053844 & -524.326278586285 & 9520.55429804784 & 84.7719805384404 \tabularnewline
3 & 9084 & 8819.30488240033 & -174.454656860345 & 9523.14977446002 & -264.695117599675 \tabularnewline
4 & 9743 & 9815.13667288808 & 148.134258167626 & 9522.72906894429 & 72.1366728880839 \tabularnewline
5 & 8587 & 8390.3144979431 & -738.622861371664 & 9522.30836342856 & -196.685502056896 \tabularnewline
6 & 9731 & 9725.13807465836 & 217.654813785794 & 9519.20711155585 & -5.86192534164002 \tabularnewline
7 & 9563 & 9776.79463081457 & -166.900490497699 & 9516.10585968313 & 213.794630814569 \tabularnewline
8 & 9998 & 10477.3915983949 & 4.89909322630898 & 9513.70930837882 & 479.391598394866 \tabularnewline
9 & 9437 & 9409.98788403842 & -47.300641112937 & 9511.31275707452 & -27.0121159615828 \tabularnewline
10 & 10038 & 10051.5200681786 & 519.33615291561 & 9505.14377890576 & 13.5200681786337 \tabularnewline
11 & 9918 & 9947.88590851772 & 389.139290745291 & 9498.9748007370 & 29.8859085177173 \tabularnewline
12 & 9252 & 8874.86319978722 & 155.781667904092 & 9473.35513230869 & -377.136800212778 \tabularnewline
13 & 9737 & 9809.60481116627 & 216.659724953351 & 9447.73546388038 & 72.6048111662658 \tabularnewline
14 & 9035 & 9183.97766975102 & -524.326278586285 & 9410.34860883526 & 148.977669751022 \tabularnewline
15 & 9133 & 9067.49290307021 & -174.454656860345 & 9372.96175379014 & -65.5070969297922 \tabularnewline
16 & 9487 & 9479.52410990384 & 148.134258167626 & 9346.34163192853 & -7.47589009615695 \tabularnewline
17 & 8700 & 8818.90135130474 & -738.622861371664 & 9319.72151006693 & 118.901351304739 \tabularnewline
18 & 9627 & 9732.83020877482 & 217.654813785794 & 9303.51497743939 & 105.830208774820 \tabularnewline
19 & 8947 & 8773.59204568585 & -166.900490497699 & 9287.30844481185 & -173.407954314149 \tabularnewline
20 & 9283 & 9285.24500345376 & 4.89909322630898 & 9275.85590331993 & 2.24500345375964 \tabularnewline
21 & 8829 & 8440.89727928493 & -47.300641112937 & 9264.40336182801 & -388.102720715075 \tabularnewline
22 & 9947 & 10115.1181643594 & 519.33615291561 & 9259.54568272501 & 168.118164359381 \tabularnewline
23 & 9628 & 9612.1727056327 & 389.139290745291 & 9254.688003622 & -15.8272943672982 \tabularnewline
24 & 9318 & 9223.30241590875 & 155.781667904092 & 9256.91591618715 & -94.6975840912455 \tabularnewline
25 & 9605 & 9734.19644629435 & 216.659724953351 & 9259.1438287523 & 129.196446294351 \tabularnewline
26 & 8640 & 8534.35586053478 & -524.326278586285 & 9269.9704180515 & -105.644139465216 \tabularnewline
27 & 9214 & 9321.65764950964 & -174.454656860345 & 9280.7970073507 & 107.657649509643 \tabularnewline
28 & 9567 & 9693.8923956418 & 148.134258167626 & 9291.97334619057 & 126.892395641804 \tabularnewline
29 & 8547 & 8529.47317634123 & -738.622861371664 & 9303.14968503044 & -17.5268236587726 \tabularnewline
30 & 9185 & 8843.67047554607 & 217.654813785794 & 9308.67471066814 & -341.329524453933 \tabularnewline
31 & 9470 & 9792.70075419186 & -166.900490497699 & 9314.19973630584 & 322.700754191857 \tabularnewline
32 & 9123 & 8918.07357542626 & 4.89909322630898 & 9323.02733134744 & -204.926424573745 \tabularnewline
33 & 9278 & 9271.4457147239 & -47.300641112937 & 9331.85492638903 & -6.55428527609365 \tabularnewline
34 & 10170 & 10468.1371071333 & 519.33615291561 & 9352.52673995109 & 298.137107133301 \tabularnewline
35 & 9434 & 9105.66215574156 & 389.139290745291 & 9373.19855351315 & -328.33784425844 \tabularnewline
36 & 9655 & 9760.51674400656 & 155.781667904092 & 9393.70158808935 & 105.516744006556 \tabularnewline
37 & 9429 & 9227.1356523811 & 216.659724953351 & 9414.20462266556 & -201.864347618908 \tabularnewline
38 & 8739 & 8573.70419384917 & -524.326278586285 & 9428.62208473712 & -165.295806150831 \tabularnewline
39 & 9552 & 9835.41511005167 & -174.454656860345 & 9443.03954680867 & 283.415110051672 \tabularnewline
40 & 9687 & 9758.56511370315 & 148.134258167626 & 9467.30062812922 & 71.5651137031527 \tabularnewline
41 & 9019 & 9285.0611519219 & -738.622861371664 & 9491.56170944977 & 266.061151921896 \tabularnewline
42 & 9672 & 9605.97213280895 & 217.654813785794 & 9520.37305340526 & -66.0278671910492 \tabularnewline
43 & 9206 & 9029.71609313695 & -166.900490497699 & 9549.18439736074 & -176.283906863046 \tabularnewline
44 & 9069 & 8558.39427184335 & 4.89909322630898 & 9574.70663493034 & -510.605728156652 \tabularnewline
45 & 9788 & 10023.071768613 & -47.300641112937 & 9600.22887249994 & 235.071768612997 \tabularnewline
46 & 10312 & 10480.8282002468 & 519.33615291561 & 9623.8356468376 & 168.828200246793 \tabularnewline
47 & 10105 & 10173.4182880795 & 389.139290745291 & 9647.44242117525 & 68.4182880794542 \tabularnewline
48 & 9863 & 9890.35914461412 & 155.781667904092 & 9679.85918748179 & 27.3591446141218 \tabularnewline
49 & 9656 & 9383.06432125833 & 216.659724953351 & 9712.27595378832 & -272.935678741667 \tabularnewline
50 & 9295 & 9374.16734837944 & -524.326278586285 & 9740.15893020684 & 79.1673483794402 \tabularnewline
51 & 9946 & 10298.4127502350 & -174.454656860345 & 9768.04190662537 & 352.412750234975 \tabularnewline
52 & 9701 & 9472.4536957728 & 148.134258167626 & 9781.41204605957 & -228.546304227195 \tabularnewline
53 & 9049 & 9041.8406758779 & -738.622861371664 & 9794.78218549377 & -7.15932412210532 \tabularnewline
54 & 10190 & 10354.4579532181 & 217.654813785794 & 9807.88723299606 & 164.457953218149 \tabularnewline
55 & 9706 & 9757.90820999935 & -166.900490497699 & 9820.99228049835 & 51.908209999352 \tabularnewline
56 & 9765 & 9692.77073374114 & 4.89909322630898 & 9832.33017303255 & -72.229266258857 \tabularnewline
57 & 9893 & 9989.63257554619 & -47.300641112937 & 9843.66806556675 & 96.6325755461912 \tabularnewline
58 & 9994 & 9615.54519313482 & 519.33615291561 & 9853.11865394957 & -378.454806865182 \tabularnewline
59 & 10433 & 10614.2914669223 & 389.139290745291 & 9862.5692423324 & 181.291466922312 \tabularnewline
60 & 10073 & 10111.7158882826 & 155.781667904092 & 9878.50244381331 & 38.715888282597 \tabularnewline
61 & 10112 & 10112.9046297524 & 216.659724953351 & 9894.43564529423 & 0.904629752423716 \tabularnewline
62 & 9266 & 9136.50938088752 & -524.326278586285 & 9919.81689769877 & -129.490619112481 \tabularnewline
63 & 9820 & 9869.25650675704 & -174.454656860345 & 9945.1981501033 & 49.2565067570413 \tabularnewline
64 & 10097 & 10071.7159847449 & 148.134258167626 & 9974.14975708747 & -25.2840152550962 \tabularnewline
65 & 9115 & 8965.52149730003 & -738.622861371664 & 10003.1013640716 & -149.478502699973 \tabularnewline
66 & 10411 & 10567.8772587978 & 217.654813785794 & 10036.4679274164 & 156.877258797795 \tabularnewline
67 & 9678 & 9453.06599973651 & -166.900490497699 & 10069.8344907612 & -224.934000263487 \tabularnewline
68 & 10408 & 10720.2986443903 & 4.89909322630898 & 10090.8022623834 & 312.29864439033 \tabularnewline
69 & 10153 & 10241.5306071074 & -47.300641112937 & 10111.7700340055 & 88.5306071074046 \tabularnewline
70 & 10368 & 10087.1032512669 & 519.33615291561 & 10129.5605958175 & -280.896748733074 \tabularnewline
71 & 10581 & 10625.5095516253 & 389.139290745291 & 10147.3511576294 & 44.5095516253132 \tabularnewline
72 & 10597 & 10873.4076819219 & 155.781667904092 & 10164.8106501740 & 276.407681921863 \tabularnewline
73 & 10680 & 10961.0701323280 & 216.659724953351 & 10182.2701427187 & 281.070132327954 \tabularnewline
74 & 9738 & 9801.4948913326 & -524.326278586285 & 10198.8313872537 & 63.4948913326098 \tabularnewline
75 & 9556 & 9071.0620250717 & -174.454656860345 & 10215.3926317887 & -484.937974928309 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=103442&T=2

[TABLE]
[ROW][C]Seasonal Decomposition by Loess - Time Series Components[/C][/ROW]
[ROW][C]t[/C][C]Observed[/C][C]Fitted[/C][C]Seasonal[/C][C]Trend[/C][C]Remainder[/C][/ROW]
[ROW][C]1[/C][C]9700[/C][C]9665.38145341098[/C][C]216.659724953351[/C][C]9517.95882163567[/C][C]-34.6185465890176[/C][/ROW]
[ROW][C]2[/C][C]9081[/C][C]9165.77198053844[/C][C]-524.326278586285[/C][C]9520.55429804784[/C][C]84.7719805384404[/C][/ROW]
[ROW][C]3[/C][C]9084[/C][C]8819.30488240033[/C][C]-174.454656860345[/C][C]9523.14977446002[/C][C]-264.695117599675[/C][/ROW]
[ROW][C]4[/C][C]9743[/C][C]9815.13667288808[/C][C]148.134258167626[/C][C]9522.72906894429[/C][C]72.1366728880839[/C][/ROW]
[ROW][C]5[/C][C]8587[/C][C]8390.3144979431[/C][C]-738.622861371664[/C][C]9522.30836342856[/C][C]-196.685502056896[/C][/ROW]
[ROW][C]6[/C][C]9731[/C][C]9725.13807465836[/C][C]217.654813785794[/C][C]9519.20711155585[/C][C]-5.86192534164002[/C][/ROW]
[ROW][C]7[/C][C]9563[/C][C]9776.79463081457[/C][C]-166.900490497699[/C][C]9516.10585968313[/C][C]213.794630814569[/C][/ROW]
[ROW][C]8[/C][C]9998[/C][C]10477.3915983949[/C][C]4.89909322630898[/C][C]9513.70930837882[/C][C]479.391598394866[/C][/ROW]
[ROW][C]9[/C][C]9437[/C][C]9409.98788403842[/C][C]-47.300641112937[/C][C]9511.31275707452[/C][C]-27.0121159615828[/C][/ROW]
[ROW][C]10[/C][C]10038[/C][C]10051.5200681786[/C][C]519.33615291561[/C][C]9505.14377890576[/C][C]13.5200681786337[/C][/ROW]
[ROW][C]11[/C][C]9918[/C][C]9947.88590851772[/C][C]389.139290745291[/C][C]9498.9748007370[/C][C]29.8859085177173[/C][/ROW]
[ROW][C]12[/C][C]9252[/C][C]8874.86319978722[/C][C]155.781667904092[/C][C]9473.35513230869[/C][C]-377.136800212778[/C][/ROW]
[ROW][C]13[/C][C]9737[/C][C]9809.60481116627[/C][C]216.659724953351[/C][C]9447.73546388038[/C][C]72.6048111662658[/C][/ROW]
[ROW][C]14[/C][C]9035[/C][C]9183.97766975102[/C][C]-524.326278586285[/C][C]9410.34860883526[/C][C]148.977669751022[/C][/ROW]
[ROW][C]15[/C][C]9133[/C][C]9067.49290307021[/C][C]-174.454656860345[/C][C]9372.96175379014[/C][C]-65.5070969297922[/C][/ROW]
[ROW][C]16[/C][C]9487[/C][C]9479.52410990384[/C][C]148.134258167626[/C][C]9346.34163192853[/C][C]-7.47589009615695[/C][/ROW]
[ROW][C]17[/C][C]8700[/C][C]8818.90135130474[/C][C]-738.622861371664[/C][C]9319.72151006693[/C][C]118.901351304739[/C][/ROW]
[ROW][C]18[/C][C]9627[/C][C]9732.83020877482[/C][C]217.654813785794[/C][C]9303.51497743939[/C][C]105.830208774820[/C][/ROW]
[ROW][C]19[/C][C]8947[/C][C]8773.59204568585[/C][C]-166.900490497699[/C][C]9287.30844481185[/C][C]-173.407954314149[/C][/ROW]
[ROW][C]20[/C][C]9283[/C][C]9285.24500345376[/C][C]4.89909322630898[/C][C]9275.85590331993[/C][C]2.24500345375964[/C][/ROW]
[ROW][C]21[/C][C]8829[/C][C]8440.89727928493[/C][C]-47.300641112937[/C][C]9264.40336182801[/C][C]-388.102720715075[/C][/ROW]
[ROW][C]22[/C][C]9947[/C][C]10115.1181643594[/C][C]519.33615291561[/C][C]9259.54568272501[/C][C]168.118164359381[/C][/ROW]
[ROW][C]23[/C][C]9628[/C][C]9612.1727056327[/C][C]389.139290745291[/C][C]9254.688003622[/C][C]-15.8272943672982[/C][/ROW]
[ROW][C]24[/C][C]9318[/C][C]9223.30241590875[/C][C]155.781667904092[/C][C]9256.91591618715[/C][C]-94.6975840912455[/C][/ROW]
[ROW][C]25[/C][C]9605[/C][C]9734.19644629435[/C][C]216.659724953351[/C][C]9259.1438287523[/C][C]129.196446294351[/C][/ROW]
[ROW][C]26[/C][C]8640[/C][C]8534.35586053478[/C][C]-524.326278586285[/C][C]9269.9704180515[/C][C]-105.644139465216[/C][/ROW]
[ROW][C]27[/C][C]9214[/C][C]9321.65764950964[/C][C]-174.454656860345[/C][C]9280.7970073507[/C][C]107.657649509643[/C][/ROW]
[ROW][C]28[/C][C]9567[/C][C]9693.8923956418[/C][C]148.134258167626[/C][C]9291.97334619057[/C][C]126.892395641804[/C][/ROW]
[ROW][C]29[/C][C]8547[/C][C]8529.47317634123[/C][C]-738.622861371664[/C][C]9303.14968503044[/C][C]-17.5268236587726[/C][/ROW]
[ROW][C]30[/C][C]9185[/C][C]8843.67047554607[/C][C]217.654813785794[/C][C]9308.67471066814[/C][C]-341.329524453933[/C][/ROW]
[ROW][C]31[/C][C]9470[/C][C]9792.70075419186[/C][C]-166.900490497699[/C][C]9314.19973630584[/C][C]322.700754191857[/C][/ROW]
[ROW][C]32[/C][C]9123[/C][C]8918.07357542626[/C][C]4.89909322630898[/C][C]9323.02733134744[/C][C]-204.926424573745[/C][/ROW]
[ROW][C]33[/C][C]9278[/C][C]9271.4457147239[/C][C]-47.300641112937[/C][C]9331.85492638903[/C][C]-6.55428527609365[/C][/ROW]
[ROW][C]34[/C][C]10170[/C][C]10468.1371071333[/C][C]519.33615291561[/C][C]9352.52673995109[/C][C]298.137107133301[/C][/ROW]
[ROW][C]35[/C][C]9434[/C][C]9105.66215574156[/C][C]389.139290745291[/C][C]9373.19855351315[/C][C]-328.33784425844[/C][/ROW]
[ROW][C]36[/C][C]9655[/C][C]9760.51674400656[/C][C]155.781667904092[/C][C]9393.70158808935[/C][C]105.516744006556[/C][/ROW]
[ROW][C]37[/C][C]9429[/C][C]9227.1356523811[/C][C]216.659724953351[/C][C]9414.20462266556[/C][C]-201.864347618908[/C][/ROW]
[ROW][C]38[/C][C]8739[/C][C]8573.70419384917[/C][C]-524.326278586285[/C][C]9428.62208473712[/C][C]-165.295806150831[/C][/ROW]
[ROW][C]39[/C][C]9552[/C][C]9835.41511005167[/C][C]-174.454656860345[/C][C]9443.03954680867[/C][C]283.415110051672[/C][/ROW]
[ROW][C]40[/C][C]9687[/C][C]9758.56511370315[/C][C]148.134258167626[/C][C]9467.30062812922[/C][C]71.5651137031527[/C][/ROW]
[ROW][C]41[/C][C]9019[/C][C]9285.0611519219[/C][C]-738.622861371664[/C][C]9491.56170944977[/C][C]266.061151921896[/C][/ROW]
[ROW][C]42[/C][C]9672[/C][C]9605.97213280895[/C][C]217.654813785794[/C][C]9520.37305340526[/C][C]-66.0278671910492[/C][/ROW]
[ROW][C]43[/C][C]9206[/C][C]9029.71609313695[/C][C]-166.900490497699[/C][C]9549.18439736074[/C][C]-176.283906863046[/C][/ROW]
[ROW][C]44[/C][C]9069[/C][C]8558.39427184335[/C][C]4.89909322630898[/C][C]9574.70663493034[/C][C]-510.605728156652[/C][/ROW]
[ROW][C]45[/C][C]9788[/C][C]10023.071768613[/C][C]-47.300641112937[/C][C]9600.22887249994[/C][C]235.071768612997[/C][/ROW]
[ROW][C]46[/C][C]10312[/C][C]10480.8282002468[/C][C]519.33615291561[/C][C]9623.8356468376[/C][C]168.828200246793[/C][/ROW]
[ROW][C]47[/C][C]10105[/C][C]10173.4182880795[/C][C]389.139290745291[/C][C]9647.44242117525[/C][C]68.4182880794542[/C][/ROW]
[ROW][C]48[/C][C]9863[/C][C]9890.35914461412[/C][C]155.781667904092[/C][C]9679.85918748179[/C][C]27.3591446141218[/C][/ROW]
[ROW][C]49[/C][C]9656[/C][C]9383.06432125833[/C][C]216.659724953351[/C][C]9712.27595378832[/C][C]-272.935678741667[/C][/ROW]
[ROW][C]50[/C][C]9295[/C][C]9374.16734837944[/C][C]-524.326278586285[/C][C]9740.15893020684[/C][C]79.1673483794402[/C][/ROW]
[ROW][C]51[/C][C]9946[/C][C]10298.4127502350[/C][C]-174.454656860345[/C][C]9768.04190662537[/C][C]352.412750234975[/C][/ROW]
[ROW][C]52[/C][C]9701[/C][C]9472.4536957728[/C][C]148.134258167626[/C][C]9781.41204605957[/C][C]-228.546304227195[/C][/ROW]
[ROW][C]53[/C][C]9049[/C][C]9041.8406758779[/C][C]-738.622861371664[/C][C]9794.78218549377[/C][C]-7.15932412210532[/C][/ROW]
[ROW][C]54[/C][C]10190[/C][C]10354.4579532181[/C][C]217.654813785794[/C][C]9807.88723299606[/C][C]164.457953218149[/C][/ROW]
[ROW][C]55[/C][C]9706[/C][C]9757.90820999935[/C][C]-166.900490497699[/C][C]9820.99228049835[/C][C]51.908209999352[/C][/ROW]
[ROW][C]56[/C][C]9765[/C][C]9692.77073374114[/C][C]4.89909322630898[/C][C]9832.33017303255[/C][C]-72.229266258857[/C][/ROW]
[ROW][C]57[/C][C]9893[/C][C]9989.63257554619[/C][C]-47.300641112937[/C][C]9843.66806556675[/C][C]96.6325755461912[/C][/ROW]
[ROW][C]58[/C][C]9994[/C][C]9615.54519313482[/C][C]519.33615291561[/C][C]9853.11865394957[/C][C]-378.454806865182[/C][/ROW]
[ROW][C]59[/C][C]10433[/C][C]10614.2914669223[/C][C]389.139290745291[/C][C]9862.5692423324[/C][C]181.291466922312[/C][/ROW]
[ROW][C]60[/C][C]10073[/C][C]10111.7158882826[/C][C]155.781667904092[/C][C]9878.50244381331[/C][C]38.715888282597[/C][/ROW]
[ROW][C]61[/C][C]10112[/C][C]10112.9046297524[/C][C]216.659724953351[/C][C]9894.43564529423[/C][C]0.904629752423716[/C][/ROW]
[ROW][C]62[/C][C]9266[/C][C]9136.50938088752[/C][C]-524.326278586285[/C][C]9919.81689769877[/C][C]-129.490619112481[/C][/ROW]
[ROW][C]63[/C][C]9820[/C][C]9869.25650675704[/C][C]-174.454656860345[/C][C]9945.1981501033[/C][C]49.2565067570413[/C][/ROW]
[ROW][C]64[/C][C]10097[/C][C]10071.7159847449[/C][C]148.134258167626[/C][C]9974.14975708747[/C][C]-25.2840152550962[/C][/ROW]
[ROW][C]65[/C][C]9115[/C][C]8965.52149730003[/C][C]-738.622861371664[/C][C]10003.1013640716[/C][C]-149.478502699973[/C][/ROW]
[ROW][C]66[/C][C]10411[/C][C]10567.8772587978[/C][C]217.654813785794[/C][C]10036.4679274164[/C][C]156.877258797795[/C][/ROW]
[ROW][C]67[/C][C]9678[/C][C]9453.06599973651[/C][C]-166.900490497699[/C][C]10069.8344907612[/C][C]-224.934000263487[/C][/ROW]
[ROW][C]68[/C][C]10408[/C][C]10720.2986443903[/C][C]4.89909322630898[/C][C]10090.8022623834[/C][C]312.29864439033[/C][/ROW]
[ROW][C]69[/C][C]10153[/C][C]10241.5306071074[/C][C]-47.300641112937[/C][C]10111.7700340055[/C][C]88.5306071074046[/C][/ROW]
[ROW][C]70[/C][C]10368[/C][C]10087.1032512669[/C][C]519.33615291561[/C][C]10129.5605958175[/C][C]-280.896748733074[/C][/ROW]
[ROW][C]71[/C][C]10581[/C][C]10625.5095516253[/C][C]389.139290745291[/C][C]10147.3511576294[/C][C]44.5095516253132[/C][/ROW]
[ROW][C]72[/C][C]10597[/C][C]10873.4076819219[/C][C]155.781667904092[/C][C]10164.8106501740[/C][C]276.407681921863[/C][/ROW]
[ROW][C]73[/C][C]10680[/C][C]10961.0701323280[/C][C]216.659724953351[/C][C]10182.2701427187[/C][C]281.070132327954[/C][/ROW]
[ROW][C]74[/C][C]9738[/C][C]9801.4948913326[/C][C]-524.326278586285[/C][C]10198.8313872537[/C][C]63.4948913326098[/C][/ROW]
[ROW][C]75[/C][C]9556[/C][C]9071.0620250717[/C][C]-174.454656860345[/C][C]10215.3926317887[/C][C]-484.937974928309[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=103442&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=103442&T=2

As an alternative you can also use a QR Code:

The GUIDs for individual cells are displayed in the table below:

Seasonal Decomposition by Loess - Time Series Components
t	Observed	Fitted	Seasonal	Trend	Remainder
1	9700	9665.38145341098	216.659724953351	9517.95882163567	-34.6185465890176
2	9081	9165.77198053844	-524.326278586285	9520.55429804784	84.7719805384404
3	9084	8819.30488240033	-174.454656860345	9523.14977446002	-264.695117599675
4	9743	9815.13667288808	148.134258167626	9522.72906894429	72.1366728880839
5	8587	8390.3144979431	-738.622861371664	9522.30836342856	-196.685502056896
6	9731	9725.13807465836	217.654813785794	9519.20711155585	-5.86192534164002
7	9563	9776.79463081457	-166.900490497699	9516.10585968313	213.794630814569
8	9998	10477.3915983949	4.89909322630898	9513.70930837882	479.391598394866
9	9437	9409.98788403842	-47.300641112937	9511.31275707452	-27.0121159615828
10	10038	10051.5200681786	519.33615291561	9505.14377890576	13.5200681786337
11	9918	9947.88590851772	389.139290745291	9498.9748007370	29.8859085177173
12	9252	8874.86319978722	155.781667904092	9473.35513230869	-377.136800212778
13	9737	9809.60481116627	216.659724953351	9447.73546388038	72.6048111662658
14	9035	9183.97766975102	-524.326278586285	9410.34860883526	148.977669751022
15	9133	9067.49290307021	-174.454656860345	9372.96175379014	-65.5070969297922
16	9487	9479.52410990384	148.134258167626	9346.34163192853	-7.47589009615695
17	8700	8818.90135130474	-738.622861371664	9319.72151006693	118.901351304739
18	9627	9732.83020877482	217.654813785794	9303.51497743939	105.830208774820
19	8947	8773.59204568585	-166.900490497699	9287.30844481185	-173.407954314149
20	9283	9285.24500345376	4.89909322630898	9275.85590331993	2.24500345375964
21	8829	8440.89727928493	-47.300641112937	9264.40336182801	-388.102720715075
22	9947	10115.1181643594	519.33615291561	9259.54568272501	168.118164359381
23	9628	9612.1727056327	389.139290745291	9254.688003622	-15.8272943672982
24	9318	9223.30241590875	155.781667904092	9256.91591618715	-94.6975840912455
25	9605	9734.19644629435	216.659724953351	9259.1438287523	129.196446294351
26	8640	8534.35586053478	-524.326278586285	9269.9704180515	-105.644139465216
27	9214	9321.65764950964	-174.454656860345	9280.7970073507	107.657649509643
28	9567	9693.8923956418	148.134258167626	9291.97334619057	126.892395641804
29	8547	8529.47317634123	-738.622861371664	9303.14968503044	-17.5268236587726
30	9185	8843.67047554607	217.654813785794	9308.67471066814	-341.329524453933
31	9470	9792.70075419186	-166.900490497699	9314.19973630584	322.700754191857
32	9123	8918.07357542626	4.89909322630898	9323.02733134744	-204.926424573745
33	9278	9271.4457147239	-47.300641112937	9331.85492638903	-6.55428527609365
34	10170	10468.1371071333	519.33615291561	9352.52673995109	298.137107133301
35	9434	9105.66215574156	389.139290745291	9373.19855351315	-328.33784425844
36	9655	9760.51674400656	155.781667904092	9393.70158808935	105.516744006556
37	9429	9227.1356523811	216.659724953351	9414.20462266556	-201.864347618908
38	8739	8573.70419384917	-524.326278586285	9428.62208473712	-165.295806150831
39	9552	9835.41511005167	-174.454656860345	9443.03954680867	283.415110051672
40	9687	9758.56511370315	148.134258167626	9467.30062812922	71.5651137031527
41	9019	9285.0611519219	-738.622861371664	9491.56170944977	266.061151921896
42	9672	9605.97213280895	217.654813785794	9520.37305340526	-66.0278671910492
43	9206	9029.71609313695	-166.900490497699	9549.18439736074	-176.283906863046
44	9069	8558.39427184335	4.89909322630898	9574.70663493034	-510.605728156652
45	9788	10023.071768613	-47.300641112937	9600.22887249994	235.071768612997
46	10312	10480.8282002468	519.33615291561	9623.8356468376	168.828200246793
47	10105	10173.4182880795	389.139290745291	9647.44242117525	68.4182880794542
48	9863	9890.35914461412	155.781667904092	9679.85918748179	27.3591446141218
49	9656	9383.06432125833	216.659724953351	9712.27595378832	-272.935678741667
50	9295	9374.16734837944	-524.326278586285	9740.15893020684	79.1673483794402
51	9946	10298.4127502350	-174.454656860345	9768.04190662537	352.412750234975
52	9701	9472.4536957728	148.134258167626	9781.41204605957	-228.546304227195
53	9049	9041.8406758779	-738.622861371664	9794.78218549377	-7.15932412210532
54	10190	10354.4579532181	217.654813785794	9807.88723299606	164.457953218149
55	9706	9757.90820999935	-166.900490497699	9820.99228049835	51.908209999352
56	9765	9692.77073374114	4.89909322630898	9832.33017303255	-72.229266258857
57	9893	9989.63257554619	-47.300641112937	9843.66806556675	96.6325755461912
58	9994	9615.54519313482	519.33615291561	9853.11865394957	-378.454806865182
59	10433	10614.2914669223	389.139290745291	9862.5692423324	181.291466922312
60	10073	10111.7158882826	155.781667904092	9878.50244381331	38.715888282597
61	10112	10112.9046297524	216.659724953351	9894.43564529423	0.904629752423716
62	9266	9136.50938088752	-524.326278586285	9919.81689769877	-129.490619112481
63	9820	9869.25650675704	-174.454656860345	9945.1981501033	49.2565067570413
64	10097	10071.7159847449	148.134258167626	9974.14975708747	-25.2840152550962
65	9115	8965.52149730003	-738.622861371664	10003.1013640716	-149.478502699973
66	10411	10567.8772587978	217.654813785794	10036.4679274164	156.877258797795
67	9678	9453.06599973651	-166.900490497699	10069.8344907612	-224.934000263487
68	10408	10720.2986443903	4.89909322630898	10090.8022623834	312.29864439033
69	10153	10241.5306071074	-47.300641112937	10111.7700340055	88.5306071074046
70	10368	10087.1032512669	519.33615291561	10129.5605958175	-280.896748733074
71	10581	10625.5095516253	389.139290745291	10147.3511576294	44.5095516253132
72	10597	10873.4076819219	155.781667904092	10164.8106501740	276.407681921863
73	10680	10961.0701323280	216.659724953351	10182.2701427187	281.070132327954
74	9738	9801.4948913326	-524.326278586285	10198.8313872537	63.4948913326098
75	9556	9071.0620250717	-174.454656860345	10215.3926317887	-484.937974928309

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 = 12 ; par2 = periodic ; par3 = 0 ; par5 = 1 ; par7 = 1 ; par8 = FALSE ;

Parameters (R input):

par1 = 12 ; par2 = periodic ; par3 = 0 ; par4 = ; par5 = 1 ; par6 = ; par7 = 1 ; par8 = FALSE ;

R code (references can be found in the software module):

par1 <- as.numeric(par1) #seasonal period
if (par2 != 'periodic') par2 <- as.numeric(par2) #s.window
par3 <- as.numeric(par3) #s.degree
if (par4 == '') par4 <- NULL else par4 <- as.numeric(par4)#t.window
par5 <- as.numeric(par5)#t.degree
if (par6 != '') par6 <- as.numeric(par6)#l.window
par7 <- as.numeric(par7)#l.degree
if (par8 == 'FALSE') par8 <- FALSE else par9 <- TRUE #robust
nx <- length(x)
x <- ts(x,frequency=par1)
if (par6 != '') {
m <- stl(x,s.window=par2, s.degree=par3, t.window=par4, t.degre=par5, l.window=par6, l.degree=par7, robust=par8)
} else {
m <- stl(x,s.window=par2, s.degree=par3, t.window=par4, t.degre=par5, l.degree=par7, robust=par8)
}
m$time.series
m$win
m$deg
m$jump
m$inner
m$outer
bitmap(file='test1.png')
plot(m,main=main)
dev.off()
mylagmax <- nx/2
bitmap(file='test2.png')
op <- par(mfrow = c(2,2))
acf(as.numeric(x),lag.max = mylagmax,main='Observed')
acf(as.numeric(m$time.series[,'trend']),na.action=na.pass,lag.max = mylagmax,main='Trend')
acf(as.numeric(m$time.series[,'seasonal']),na.action=na.pass,lag.max = mylagmax,main='Seasonal')
acf(as.numeric(m$time.series[,'remainder']),na.action=na.pass,lag.max = mylagmax,main='Remainder')
par(op)
dev.off()
bitmap(file='test3.png')
op <- par(mfrow = c(2,2))
spectrum(as.numeric(x),main='Observed')
spectrum(as.numeric(m$time.series[!is.na(m$time.series[,'trend']),'trend']),main='Trend')
spectrum(as.numeric(m$time.series[!is.na(m$time.series[,'seasonal']),'seasonal']),main='Seasonal')
spectrum(as.numeric(m$time.series[!is.na(m$time.series[,'remainder']),'remainder']),main='Remainder')
par(op)
dev.off()
bitmap(file='test4.png')
op <- par(mfrow = c(2,2))
cpgram(as.numeric(x),main='Observed')
cpgram(as.numeric(m$time.series[!is.na(m$time.series[,'trend']),'trend']),main='Trend')
cpgram(as.numeric(m$time.series[!is.na(m$time.series[,'seasonal']),'seasonal']),main='Seasonal')
cpgram(as.numeric(m$time.series[!is.na(m$time.series[,'remainder']),'remainder']),main='Remainder')
par(op)
dev.off()
load(file='createtable')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Seasonal Decomposition by Loess - Parameters',4,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Component',header=TRUE)
a<-table.element(a,'Window',header=TRUE)
a<-table.element(a,'Degree',header=TRUE)
a<-table.element(a,'Jump',header=TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Seasonal',header=TRUE)
a<-table.element(a,m$win['s'])
a<-table.element(a,m$deg['s'])
a<-table.element(a,m$jump['s'])
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Trend',header=TRUE)
a<-table.element(a,m$win['t'])
a<-table.element(a,m$deg['t'])
a<-table.element(a,m$jump['t'])
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Low-pass',header=TRUE)
a<-table.element(a,m$win['l'])
a<-table.element(a,m$deg['l'])
a<-table.element(a,m$jump['l'])
a<-table.row.end(a)
a<-table.end(a)
table.save(a,file='mytable.tab')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Seasonal Decomposition by Loess - Time Series Components',6,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'t',header=TRUE)
a<-table.element(a,'Observed',header=TRUE)
a<-table.element(a,'Fitted',header=TRUE)
a<-table.element(a,'Seasonal',header=TRUE)
a<-table.element(a,'Trend',header=TRUE)
a<-table.element(a,'Remainder',header=TRUE)
a<-table.row.end(a)
for (i in 1:nx) {
a<-table.row.start(a)
a<-table.element(a,i,header=TRUE)
a<-table.element(a,x[i])
a<-table.element(a,x[i]+m$time.series[i,'remainder'])
a<-table.element(a,m$time.series[i,'seasonal'])
a<-table.element(a,m$time.series[i,'trend'])
a<-table.element(a,m$time.series[i,'remainder'])
a<-table.row.end(a)
}
a<-table.end(a)
table.save(a,file='mytable1.tab')

Free Statistics

Description of Statistical Computation

Tree of Dependent Computations

Dataset

Tables (Output of Computation)

Figures (Output of Computation)

Input Parameters & R Code