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

Title produced by software

Structural Time Series Models

Date of computation

Fri, 04 Dec 2009 07:33:52 -0700

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/2009/Dec/04/t1259937318effs7bkxqokib2s.htm/, Retrieved Sat, 27 Apr 2024 20:44:12 +0000

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

100

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

-     [Univariate Data Series] [data set] [2008-12-01 19:54:57] [b98453cac15ba1066b407e146608df68]
- RMP   [Structural Time Series Models] [] [2009-11-27 15:02:30] [b98453cac15ba1066b407e146608df68]
-    D      [Structural Time Series Models] [] [2009-12-04 14:33:52] [91df150cd527c563f0151b3a845ecd72] [Current]
-             [Structural Time Series Models] [] [2009-12-04 19:52:00] [8d2349dc1d6314bc274adc9ad027c980] 

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	'Gwilym Jenkins' @ 72.249.127.135

\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 & 'Gwilym Jenkins' @ 72.249.127.135 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=63615&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]'Gwilym Jenkins' @ 72.249.127.135[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=63615&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=63615&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	'Gwilym Jenkins' @ 72.249.127.135

Structural Time Series Model
t	Observed	Level	Slope	Seasonal	Stand. Residuals
1	5560	5560	0	0	0
2	3922	4714.52536816824	-74.8634167326895	-89.9284610409174	-2.64728315184995
3	3759	4251.25320949742	-98.5977753216762	-102.876743216874	-1.39053745032720
4	4138	4188.74279278889	-97.0069197894164	-90.2626406011074	0.137511978806211
5	4634	4380.81362343875	-87.0091017883324	-76.2344691943839	1.13290461723728
6	3996	4201.35777485845	-89.7106788592938	-97.9182549126208	-0.367345084406422
7	4308	4238.67637505286	-86.3952112705153	-79.8413625465993	0.508426254575097
8	4143	4187.54215009020	-85.5422029361742	-86.1848467018173	0.141690422389103
9	4429	4285.76819498042	-81.3255527105868	-74.5169003009558	0.740123624362006
10	5219	4692.91651253572	-70.547019462021	-53.8980840992694	1.97003266688826
11	4929	4793.51145861073	-66.8859877586515	-67.9896015787631	0.690838602016055
12	5755	5214.38773771925	-56.7225666989548	-39.8752155933868	1.97015700851266
13	5592	5103.99086011032	-51.4016152985969	561.767991861081	-0.291046803469919
14	4163	4639.17502904271	-66.4555273969757	-93.6842778615573	-1.39183123962552
15	4962	4780.64246390558	-60.7121546520551	-40.0207282144515	0.779006773947029
16	5208	4968.63601110879	-55.64365659185	-43.2199308134834	0.977524372560877
17	4755	4864.98092556559	-56.4226911816121	-54.0020853803743	-0.192305125451883
18	4491	4697.80001516939	-57.9616464948569	-76.1980432749851	-0.44726681858055
19	5732	5140.71339328842	-51.6659919258776	-2.50621263754336	2.03044740077155
20	5731	5402.4316535147	-47.9698406767004	-43.9732834442245	1.2728758015702
21	5040	5244.57404946423	-49.2138586451292	-73.7482507358397	-0.446799765869881
22	6102	5607.40780423478	-44.6757425391048	3.61344654374845	1.67636959726186
23	4904	5305.69961264877	-47.4493417860724	-95.2663634307702	-1.04609018511708
24	5369	5316.26047711632	-46.8725599245558	-16.5047300099843	0.236197409956976
25	5578	5190.95106719817	-43.3708694523649	487.488997458091	-0.369495435030959
26	4619	4940.27152490031	-48.0404573935925	-108.026538709054	-0.758011313040461
27	4731	4833.81936967272	-49.1228078632079	-38.5477608553221	-0.225524952249835
28	5011	4897.7796499059	-47.5652056304162	-16.5996154998335	0.45062433377211
29	5299	5064.96142435806	-45.2109195561946	-16.8562202740689	0.866840707514142
30	4146	4682.33196206863	-48.3802891034652	-139.080584198232	-1.36962201276624
31	4625	4630.15616070899	-48.4126010086433	-0.671334903417502	-0.0154467698685278
32	4736	4665.29227494143	-47.7432752249101	-28.1963504070519	0.340469035235951
33	4219	4487.00660858808	-48.7506075698078	-113.320023689104	-0.532344429826461
34	5116	4724.32664662977	-46.5947785298817	52.5057737805362	1.16703873175352
35	4205	4520.63978480779	-47.7541620852386	-129.319074725491	-0.64102463004397
36	4121	4322.45584247464	-48.6630819708016	-22.7167990088788	-0.614191306034067
37	5103	4375.38349007507	-51.4588144426713	601.116149513449	0.455041151048605
38	4300	4363.20855680689	-50.8410477668242	-105.452504150362	0.149202273962471
39	4578	4452.50165860099	-48.846116918933	-30.5041847336747	0.548586931057211
40	3809	4162.49598431055	-51.4345106351338	-76.3579461194893	-0.96694442769165
41	5526	4716.95404162376	-46.2668391848404	103.009240550941	2.45436570254497
42	4247	4560.84837304883	-47.067647194155	-185.071471102264	-0.446916100740273
43	3830	4219.38359932978	-49.0117038349573	-43.2350544981382	-1.20033228477782
44	4394	4268.43168519634	-48.4018917925477	10.1047778128082	0.400226999998593
45	4826	4540.35518764070	-46.4798995198423	-91.8186119070737	1.30810653137723
46	4409	4437.28757644325	-46.8120342414527	38.4224059681007	-0.231157256891856
47	4569	4516.67373846962	-46.0934944827857	-96.5020132658425	0.515622131797038
48	4106	4329.46848593743	-46.6531423624850	-56.6796654507778	-0.577006050046973
49	4794	4263.10149939684	-46.2791764892355	555.031501887875	-0.0859867005905898
50	3914	4133.08375826453	-47.2578845637882	-126.904658667729	-0.325073995661583
51	3793	3959.75336934837	-48.7324425406275	-25.6541132832324	-0.497573358930957
52	4405	4175.79066231665	-46.3469022758127	-74.6660195986305	1.06523695834722
53	4022	4040.99819793884	-46.9800267750368	83.7232868883203	-0.358975354620323
54	4100	4105.32382236895	-46.3012438720444	-135.278629679864	0.453493531451737
55	4788	4395.02809415939	-44.4489142184709	-0.299451394203821	1.37142306411808
56	3163	3857.74409924823	-47.0069640074485	-117.208703688729	-2.01329649051822
57	3585	3739.52766194971	-47.363889049679	-71.0265917147828	-0.291034305330591
58	3903	3768.21924941065	-46.9911342439941	45.5643283671117	0.31092234596646
59	4178	3954.63528394172	-45.9023364173876	-50.5506899572823	0.954387983747836
60	3863	3918.67657334485	-45.8756445812152	-67.3752713736452	0.0406995181224796
61	4187	3774.58962180998	-44.5205207416207	531.193417256676	-0.421350377293246

\begin{tabular}{lllllllll}
\hline
Structural Time Series Model \tabularnewline
t & Observed & Level & Slope & Seasonal & Stand. Residuals \tabularnewline
1 & 5560 & 5560 & 0 & 0 & 0 \tabularnewline
2 & 3922 & 4714.52536816824 & -74.8634167326895 & -89.9284610409174 & -2.64728315184995 \tabularnewline
3 & 3759 & 4251.25320949742 & -98.5977753216762 & -102.876743216874 & -1.39053745032720 \tabularnewline
4 & 4138 & 4188.74279278889 & -97.0069197894164 & -90.2626406011074 & 0.137511978806211 \tabularnewline
5 & 4634 & 4380.81362343875 & -87.0091017883324 & -76.2344691943839 & 1.13290461723728 \tabularnewline
6 & 3996 & 4201.35777485845 & -89.7106788592938 & -97.9182549126208 & -0.367345084406422 \tabularnewline
7 & 4308 & 4238.67637505286 & -86.3952112705153 & -79.8413625465993 & 0.508426254575097 \tabularnewline
8 & 4143 & 4187.54215009020 & -85.5422029361742 & -86.1848467018173 & 0.141690422389103 \tabularnewline
9 & 4429 & 4285.76819498042 & -81.3255527105868 & -74.5169003009558 & 0.740123624362006 \tabularnewline
10 & 5219 & 4692.91651253572 & -70.547019462021 & -53.8980840992694 & 1.97003266688826 \tabularnewline
11 & 4929 & 4793.51145861073 & -66.8859877586515 & -67.9896015787631 & 0.690838602016055 \tabularnewline
12 & 5755 & 5214.38773771925 & -56.7225666989548 & -39.8752155933868 & 1.97015700851266 \tabularnewline
13 & 5592 & 5103.99086011032 & -51.4016152985969 & 561.767991861081 & -0.291046803469919 \tabularnewline
14 & 4163 & 4639.17502904271 & -66.4555273969757 & -93.6842778615573 & -1.39183123962552 \tabularnewline
15 & 4962 & 4780.64246390558 & -60.7121546520551 & -40.0207282144515 & 0.779006773947029 \tabularnewline
16 & 5208 & 4968.63601110879 & -55.64365659185 & -43.2199308134834 & 0.977524372560877 \tabularnewline
17 & 4755 & 4864.98092556559 & -56.4226911816121 & -54.0020853803743 & -0.192305125451883 \tabularnewline
18 & 4491 & 4697.80001516939 & -57.9616464948569 & -76.1980432749851 & -0.44726681858055 \tabularnewline
19 & 5732 & 5140.71339328842 & -51.6659919258776 & -2.50621263754336 & 2.03044740077155 \tabularnewline
20 & 5731 & 5402.4316535147 & -47.9698406767004 & -43.9732834442245 & 1.2728758015702 \tabularnewline
21 & 5040 & 5244.57404946423 & -49.2138586451292 & -73.7482507358397 & -0.446799765869881 \tabularnewline
22 & 6102 & 5607.40780423478 & -44.6757425391048 & 3.61344654374845 & 1.67636959726186 \tabularnewline
23 & 4904 & 5305.69961264877 & -47.4493417860724 & -95.2663634307702 & -1.04609018511708 \tabularnewline
24 & 5369 & 5316.26047711632 & -46.8725599245558 & -16.5047300099843 & 0.236197409956976 \tabularnewline
25 & 5578 & 5190.95106719817 & -43.3708694523649 & 487.488997458091 & -0.369495435030959 \tabularnewline
26 & 4619 & 4940.27152490031 & -48.0404573935925 & -108.026538709054 & -0.758011313040461 \tabularnewline
27 & 4731 & 4833.81936967272 & -49.1228078632079 & -38.5477608553221 & -0.225524952249835 \tabularnewline
28 & 5011 & 4897.7796499059 & -47.5652056304162 & -16.5996154998335 & 0.45062433377211 \tabularnewline
29 & 5299 & 5064.96142435806 & -45.2109195561946 & -16.8562202740689 & 0.866840707514142 \tabularnewline
30 & 4146 & 4682.33196206863 & -48.3802891034652 & -139.080584198232 & -1.36962201276624 \tabularnewline
31 & 4625 & 4630.15616070899 & -48.4126010086433 & -0.671334903417502 & -0.0154467698685278 \tabularnewline
32 & 4736 & 4665.29227494143 & -47.7432752249101 & -28.1963504070519 & 0.340469035235951 \tabularnewline
33 & 4219 & 4487.00660858808 & -48.7506075698078 & -113.320023689104 & -0.532344429826461 \tabularnewline
34 & 5116 & 4724.32664662977 & -46.5947785298817 & 52.5057737805362 & 1.16703873175352 \tabularnewline
35 & 4205 & 4520.63978480779 & -47.7541620852386 & -129.319074725491 & -0.64102463004397 \tabularnewline
36 & 4121 & 4322.45584247464 & -48.6630819708016 & -22.7167990088788 & -0.614191306034067 \tabularnewline
37 & 5103 & 4375.38349007507 & -51.4588144426713 & 601.116149513449 & 0.455041151048605 \tabularnewline
38 & 4300 & 4363.20855680689 & -50.8410477668242 & -105.452504150362 & 0.149202273962471 \tabularnewline
39 & 4578 & 4452.50165860099 & -48.846116918933 & -30.5041847336747 & 0.548586931057211 \tabularnewline
40 & 3809 & 4162.49598431055 & -51.4345106351338 & -76.3579461194893 & -0.96694442769165 \tabularnewline
41 & 5526 & 4716.95404162376 & -46.2668391848404 & 103.009240550941 & 2.45436570254497 \tabularnewline
42 & 4247 & 4560.84837304883 & -47.067647194155 & -185.071471102264 & -0.446916100740273 \tabularnewline
43 & 3830 & 4219.38359932978 & -49.0117038349573 & -43.2350544981382 & -1.20033228477782 \tabularnewline
44 & 4394 & 4268.43168519634 & -48.4018917925477 & 10.1047778128082 & 0.400226999998593 \tabularnewline
45 & 4826 & 4540.35518764070 & -46.4798995198423 & -91.8186119070737 & 1.30810653137723 \tabularnewline
46 & 4409 & 4437.28757644325 & -46.8120342414527 & 38.4224059681007 & -0.231157256891856 \tabularnewline
47 & 4569 & 4516.67373846962 & -46.0934944827857 & -96.5020132658425 & 0.515622131797038 \tabularnewline
48 & 4106 & 4329.46848593743 & -46.6531423624850 & -56.6796654507778 & -0.577006050046973 \tabularnewline
49 & 4794 & 4263.10149939684 & -46.2791764892355 & 555.031501887875 & -0.0859867005905898 \tabularnewline
50 & 3914 & 4133.08375826453 & -47.2578845637882 & -126.904658667729 & -0.325073995661583 \tabularnewline
51 & 3793 & 3959.75336934837 & -48.7324425406275 & -25.6541132832324 & -0.497573358930957 \tabularnewline
52 & 4405 & 4175.79066231665 & -46.3469022758127 & -74.6660195986305 & 1.06523695834722 \tabularnewline
53 & 4022 & 4040.99819793884 & -46.9800267750368 & 83.7232868883203 & -0.358975354620323 \tabularnewline
54 & 4100 & 4105.32382236895 & -46.3012438720444 & -135.278629679864 & 0.453493531451737 \tabularnewline
55 & 4788 & 4395.02809415939 & -44.4489142184709 & -0.299451394203821 & 1.37142306411808 \tabularnewline
56 & 3163 & 3857.74409924823 & -47.0069640074485 & -117.208703688729 & -2.01329649051822 \tabularnewline
57 & 3585 & 3739.52766194971 & -47.363889049679 & -71.0265917147828 & -0.291034305330591 \tabularnewline
58 & 3903 & 3768.21924941065 & -46.9911342439941 & 45.5643283671117 & 0.31092234596646 \tabularnewline
59 & 4178 & 3954.63528394172 & -45.9023364173876 & -50.5506899572823 & 0.954387983747836 \tabularnewline
60 & 3863 & 3918.67657334485 & -45.8756445812152 & -67.3752713736452 & 0.0406995181224796 \tabularnewline
61 & 4187 & 3774.58962180998 & -44.5205207416207 & 531.193417256676 & -0.421350377293246 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=63615&T=1

[TABLE]
[ROW][C]Structural Time Series Model[/C][/ROW]
[ROW][C]t[/C][C]Observed[/C][C]Level[/C][C]Slope[/C][C]Seasonal[/C][C]Stand. Residuals[/C][/ROW]
[ROW][C]1[/C][C]5560[/C][C]5560[/C][C]0[/C][C]0[/C][C]0[/C][/ROW]
[ROW][C]2[/C][C]3922[/C][C]4714.52536816824[/C][C]-74.8634167326895[/C][C]-89.9284610409174[/C][C]-2.64728315184995[/C][/ROW]
[ROW][C]3[/C][C]3759[/C][C]4251.25320949742[/C][C]-98.5977753216762[/C][C]-102.876743216874[/C][C]-1.39053745032720[/C][/ROW]
[ROW][C]4[/C][C]4138[/C][C]4188.74279278889[/C][C]-97.0069197894164[/C][C]-90.2626406011074[/C][C]0.137511978806211[/C][/ROW]
[ROW][C]5[/C][C]4634[/C][C]4380.81362343875[/C][C]-87.0091017883324[/C][C]-76.2344691943839[/C][C]1.13290461723728[/C][/ROW]
[ROW][C]6[/C][C]3996[/C][C]4201.35777485845[/C][C]-89.7106788592938[/C][C]-97.9182549126208[/C][C]-0.367345084406422[/C][/ROW]
[ROW][C]7[/C][C]4308[/C][C]4238.67637505286[/C][C]-86.3952112705153[/C][C]-79.8413625465993[/C][C]0.508426254575097[/C][/ROW]
[ROW][C]8[/C][C]4143[/C][C]4187.54215009020[/C][C]-85.5422029361742[/C][C]-86.1848467018173[/C][C]0.141690422389103[/C][/ROW]
[ROW][C]9[/C][C]4429[/C][C]4285.76819498042[/C][C]-81.3255527105868[/C][C]-74.5169003009558[/C][C]0.740123624362006[/C][/ROW]
[ROW][C]10[/C][C]5219[/C][C]4692.91651253572[/C][C]-70.547019462021[/C][C]-53.8980840992694[/C][C]1.97003266688826[/C][/ROW]
[ROW][C]11[/C][C]4929[/C][C]4793.51145861073[/C][C]-66.8859877586515[/C][C]-67.9896015787631[/C][C]0.690838602016055[/C][/ROW]
[ROW][C]12[/C][C]5755[/C][C]5214.38773771925[/C][C]-56.7225666989548[/C][C]-39.8752155933868[/C][C]1.97015700851266[/C][/ROW]
[ROW][C]13[/C][C]5592[/C][C]5103.99086011032[/C][C]-51.4016152985969[/C][C]561.767991861081[/C][C]-0.291046803469919[/C][/ROW]
[ROW][C]14[/C][C]4163[/C][C]4639.17502904271[/C][C]-66.4555273969757[/C][C]-93.6842778615573[/C][C]-1.39183123962552[/C][/ROW]
[ROW][C]15[/C][C]4962[/C][C]4780.64246390558[/C][C]-60.7121546520551[/C][C]-40.0207282144515[/C][C]0.779006773947029[/C][/ROW]
[ROW][C]16[/C][C]5208[/C][C]4968.63601110879[/C][C]-55.64365659185[/C][C]-43.2199308134834[/C][C]0.977524372560877[/C][/ROW]
[ROW][C]17[/C][C]4755[/C][C]4864.98092556559[/C][C]-56.4226911816121[/C][C]-54.0020853803743[/C][C]-0.192305125451883[/C][/ROW]
[ROW][C]18[/C][C]4491[/C][C]4697.80001516939[/C][C]-57.9616464948569[/C][C]-76.1980432749851[/C][C]-0.44726681858055[/C][/ROW]
[ROW][C]19[/C][C]5732[/C][C]5140.71339328842[/C][C]-51.6659919258776[/C][C]-2.50621263754336[/C][C]2.03044740077155[/C][/ROW]
[ROW][C]20[/C][C]5731[/C][C]5402.4316535147[/C][C]-47.9698406767004[/C][C]-43.9732834442245[/C][C]1.2728758015702[/C][/ROW]
[ROW][C]21[/C][C]5040[/C][C]5244.57404946423[/C][C]-49.2138586451292[/C][C]-73.7482507358397[/C][C]-0.446799765869881[/C][/ROW]
[ROW][C]22[/C][C]6102[/C][C]5607.40780423478[/C][C]-44.6757425391048[/C][C]3.61344654374845[/C][C]1.67636959726186[/C][/ROW]
[ROW][C]23[/C][C]4904[/C][C]5305.69961264877[/C][C]-47.4493417860724[/C][C]-95.2663634307702[/C][C]-1.04609018511708[/C][/ROW]
[ROW][C]24[/C][C]5369[/C][C]5316.26047711632[/C][C]-46.8725599245558[/C][C]-16.5047300099843[/C][C]0.236197409956976[/C][/ROW]
[ROW][C]25[/C][C]5578[/C][C]5190.95106719817[/C][C]-43.3708694523649[/C][C]487.488997458091[/C][C]-0.369495435030959[/C][/ROW]
[ROW][C]26[/C][C]4619[/C][C]4940.27152490031[/C][C]-48.0404573935925[/C][C]-108.026538709054[/C][C]-0.758011313040461[/C][/ROW]
[ROW][C]27[/C][C]4731[/C][C]4833.81936967272[/C][C]-49.1228078632079[/C][C]-38.5477608553221[/C][C]-0.225524952249835[/C][/ROW]
[ROW][C]28[/C][C]5011[/C][C]4897.7796499059[/C][C]-47.5652056304162[/C][C]-16.5996154998335[/C][C]0.45062433377211[/C][/ROW]
[ROW][C]29[/C][C]5299[/C][C]5064.96142435806[/C][C]-45.2109195561946[/C][C]-16.8562202740689[/C][C]0.866840707514142[/C][/ROW]
[ROW][C]30[/C][C]4146[/C][C]4682.33196206863[/C][C]-48.3802891034652[/C][C]-139.080584198232[/C][C]-1.36962201276624[/C][/ROW]
[ROW][C]31[/C][C]4625[/C][C]4630.15616070899[/C][C]-48.4126010086433[/C][C]-0.671334903417502[/C][C]-0.0154467698685278[/C][/ROW]
[ROW][C]32[/C][C]4736[/C][C]4665.29227494143[/C][C]-47.7432752249101[/C][C]-28.1963504070519[/C][C]0.340469035235951[/C][/ROW]
[ROW][C]33[/C][C]4219[/C][C]4487.00660858808[/C][C]-48.7506075698078[/C][C]-113.320023689104[/C][C]-0.532344429826461[/C][/ROW]
[ROW][C]34[/C][C]5116[/C][C]4724.32664662977[/C][C]-46.5947785298817[/C][C]52.5057737805362[/C][C]1.16703873175352[/C][/ROW]
[ROW][C]35[/C][C]4205[/C][C]4520.63978480779[/C][C]-47.7541620852386[/C][C]-129.319074725491[/C][C]-0.64102463004397[/C][/ROW]
[ROW][C]36[/C][C]4121[/C][C]4322.45584247464[/C][C]-48.6630819708016[/C][C]-22.7167990088788[/C][C]-0.614191306034067[/C][/ROW]
[ROW][C]37[/C][C]5103[/C][C]4375.38349007507[/C][C]-51.4588144426713[/C][C]601.116149513449[/C][C]0.455041151048605[/C][/ROW]
[ROW][C]38[/C][C]4300[/C][C]4363.20855680689[/C][C]-50.8410477668242[/C][C]-105.452504150362[/C][C]0.149202273962471[/C][/ROW]
[ROW][C]39[/C][C]4578[/C][C]4452.50165860099[/C][C]-48.846116918933[/C][C]-30.5041847336747[/C][C]0.548586931057211[/C][/ROW]
[ROW][C]40[/C][C]3809[/C][C]4162.49598431055[/C][C]-51.4345106351338[/C][C]-76.3579461194893[/C][C]-0.96694442769165[/C][/ROW]
[ROW][C]41[/C][C]5526[/C][C]4716.95404162376[/C][C]-46.2668391848404[/C][C]103.009240550941[/C][C]2.45436570254497[/C][/ROW]
[ROW][C]42[/C][C]4247[/C][C]4560.84837304883[/C][C]-47.067647194155[/C][C]-185.071471102264[/C][C]-0.446916100740273[/C][/ROW]
[ROW][C]43[/C][C]3830[/C][C]4219.38359932978[/C][C]-49.0117038349573[/C][C]-43.2350544981382[/C][C]-1.20033228477782[/C][/ROW]
[ROW][C]44[/C][C]4394[/C][C]4268.43168519634[/C][C]-48.4018917925477[/C][C]10.1047778128082[/C][C]0.400226999998593[/C][/ROW]
[ROW][C]45[/C][C]4826[/C][C]4540.35518764070[/C][C]-46.4798995198423[/C][C]-91.8186119070737[/C][C]1.30810653137723[/C][/ROW]
[ROW][C]46[/C][C]4409[/C][C]4437.28757644325[/C][C]-46.8120342414527[/C][C]38.4224059681007[/C][C]-0.231157256891856[/C][/ROW]
[ROW][C]47[/C][C]4569[/C][C]4516.67373846962[/C][C]-46.0934944827857[/C][C]-96.5020132658425[/C][C]0.515622131797038[/C][/ROW]
[ROW][C]48[/C][C]4106[/C][C]4329.46848593743[/C][C]-46.6531423624850[/C][C]-56.6796654507778[/C][C]-0.577006050046973[/C][/ROW]
[ROW][C]49[/C][C]4794[/C][C]4263.10149939684[/C][C]-46.2791764892355[/C][C]555.031501887875[/C][C]-0.0859867005905898[/C][/ROW]
[ROW][C]50[/C][C]3914[/C][C]4133.08375826453[/C][C]-47.2578845637882[/C][C]-126.904658667729[/C][C]-0.325073995661583[/C][/ROW]
[ROW][C]51[/C][C]3793[/C][C]3959.75336934837[/C][C]-48.7324425406275[/C][C]-25.6541132832324[/C][C]-0.497573358930957[/C][/ROW]
[ROW][C]52[/C][C]4405[/C][C]4175.79066231665[/C][C]-46.3469022758127[/C][C]-74.6660195986305[/C][C]1.06523695834722[/C][/ROW]
[ROW][C]53[/C][C]4022[/C][C]4040.99819793884[/C][C]-46.9800267750368[/C][C]83.7232868883203[/C][C]-0.358975354620323[/C][/ROW]
[ROW][C]54[/C][C]4100[/C][C]4105.32382236895[/C][C]-46.3012438720444[/C][C]-135.278629679864[/C][C]0.453493531451737[/C][/ROW]
[ROW][C]55[/C][C]4788[/C][C]4395.02809415939[/C][C]-44.4489142184709[/C][C]-0.299451394203821[/C][C]1.37142306411808[/C][/ROW]
[ROW][C]56[/C][C]3163[/C][C]3857.74409924823[/C][C]-47.0069640074485[/C][C]-117.208703688729[/C][C]-2.01329649051822[/C][/ROW]
[ROW][C]57[/C][C]3585[/C][C]3739.52766194971[/C][C]-47.363889049679[/C][C]-71.0265917147828[/C][C]-0.291034305330591[/C][/ROW]
[ROW][C]58[/C][C]3903[/C][C]3768.21924941065[/C][C]-46.9911342439941[/C][C]45.5643283671117[/C][C]0.31092234596646[/C][/ROW]
[ROW][C]59[/C][C]4178[/C][C]3954.63528394172[/C][C]-45.9023364173876[/C][C]-50.5506899572823[/C][C]0.954387983747836[/C][/ROW]
[ROW][C]60[/C][C]3863[/C][C]3918.67657334485[/C][C]-45.8756445812152[/C][C]-67.3752713736452[/C][C]0.0406995181224796[/C][/ROW]
[ROW][C]61[/C][C]4187[/C][C]3774.58962180998[/C][C]-44.5205207416207[/C][C]531.193417256676[/C][C]-0.421350377293246[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=63615&T=1

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

As an alternative you can also use a QR Code:

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

Structural Time Series Model
t	Observed	Level	Slope	Seasonal	Stand. Residuals
1	5560	5560	0	0	0
2	3922	4714.52536816824	-74.8634167326895	-89.9284610409174	-2.64728315184995
3	3759	4251.25320949742	-98.5977753216762	-102.876743216874	-1.39053745032720
4	4138	4188.74279278889	-97.0069197894164	-90.2626406011074	0.137511978806211
5	4634	4380.81362343875	-87.0091017883324	-76.2344691943839	1.13290461723728
6	3996	4201.35777485845	-89.7106788592938	-97.9182549126208	-0.367345084406422
7	4308	4238.67637505286	-86.3952112705153	-79.8413625465993	0.508426254575097
8	4143	4187.54215009020	-85.5422029361742	-86.1848467018173	0.141690422389103
9	4429	4285.76819498042	-81.3255527105868	-74.5169003009558	0.740123624362006
10	5219	4692.91651253572	-70.547019462021	-53.8980840992694	1.97003266688826
11	4929	4793.51145861073	-66.8859877586515	-67.9896015787631	0.690838602016055
12	5755	5214.38773771925	-56.7225666989548	-39.8752155933868	1.97015700851266
13	5592	5103.99086011032	-51.4016152985969	561.767991861081	-0.291046803469919
14	4163	4639.17502904271	-66.4555273969757	-93.6842778615573	-1.39183123962552
15	4962	4780.64246390558	-60.7121546520551	-40.0207282144515	0.779006773947029
16	5208	4968.63601110879	-55.64365659185	-43.2199308134834	0.977524372560877
17	4755	4864.98092556559	-56.4226911816121	-54.0020853803743	-0.192305125451883
18	4491	4697.80001516939	-57.9616464948569	-76.1980432749851	-0.44726681858055
19	5732	5140.71339328842	-51.6659919258776	-2.50621263754336	2.03044740077155
20	5731	5402.4316535147	-47.9698406767004	-43.9732834442245	1.2728758015702
21	5040	5244.57404946423	-49.2138586451292	-73.7482507358397	-0.446799765869881
22	6102	5607.40780423478	-44.6757425391048	3.61344654374845	1.67636959726186
23	4904	5305.69961264877	-47.4493417860724	-95.2663634307702	-1.04609018511708
24	5369	5316.26047711632	-46.8725599245558	-16.5047300099843	0.236197409956976
25	5578	5190.95106719817	-43.3708694523649	487.488997458091	-0.369495435030959
26	4619	4940.27152490031	-48.0404573935925	-108.026538709054	-0.758011313040461
27	4731	4833.81936967272	-49.1228078632079	-38.5477608553221	-0.225524952249835
28	5011	4897.7796499059	-47.5652056304162	-16.5996154998335	0.45062433377211
29	5299	5064.96142435806	-45.2109195561946	-16.8562202740689	0.866840707514142
30	4146	4682.33196206863	-48.3802891034652	-139.080584198232	-1.36962201276624
31	4625	4630.15616070899	-48.4126010086433	-0.671334903417502	-0.0154467698685278
32	4736	4665.29227494143	-47.7432752249101	-28.1963504070519	0.340469035235951
33	4219	4487.00660858808	-48.7506075698078	-113.320023689104	-0.532344429826461
34	5116	4724.32664662977	-46.5947785298817	52.5057737805362	1.16703873175352
35	4205	4520.63978480779	-47.7541620852386	-129.319074725491	-0.64102463004397
36	4121	4322.45584247464	-48.6630819708016	-22.7167990088788	-0.614191306034067
37	5103	4375.38349007507	-51.4588144426713	601.116149513449	0.455041151048605
38	4300	4363.20855680689	-50.8410477668242	-105.452504150362	0.149202273962471
39	4578	4452.50165860099	-48.846116918933	-30.5041847336747	0.548586931057211
40	3809	4162.49598431055	-51.4345106351338	-76.3579461194893	-0.96694442769165
41	5526	4716.95404162376	-46.2668391848404	103.009240550941	2.45436570254497
42	4247	4560.84837304883	-47.067647194155	-185.071471102264	-0.446916100740273
43	3830	4219.38359932978	-49.0117038349573	-43.2350544981382	-1.20033228477782
44	4394	4268.43168519634	-48.4018917925477	10.1047778128082	0.400226999998593
45	4826	4540.35518764070	-46.4798995198423	-91.8186119070737	1.30810653137723
46	4409	4437.28757644325	-46.8120342414527	38.4224059681007	-0.231157256891856
47	4569	4516.67373846962	-46.0934944827857	-96.5020132658425	0.515622131797038
48	4106	4329.46848593743	-46.6531423624850	-56.6796654507778	-0.577006050046973
49	4794	4263.10149939684	-46.2791764892355	555.031501887875	-0.0859867005905898
50	3914	4133.08375826453	-47.2578845637882	-126.904658667729	-0.325073995661583
51	3793	3959.75336934837	-48.7324425406275	-25.6541132832324	-0.497573358930957
52	4405	4175.79066231665	-46.3469022758127	-74.6660195986305	1.06523695834722
53	4022	4040.99819793884	-46.9800267750368	83.7232868883203	-0.358975354620323
54	4100	4105.32382236895	-46.3012438720444	-135.278629679864	0.453493531451737
55	4788	4395.02809415939	-44.4489142184709	-0.299451394203821	1.37142306411808
56	3163	3857.74409924823	-47.0069640074485	-117.208703688729	-2.01329649051822
57	3585	3739.52766194971	-47.363889049679	-71.0265917147828	-0.291034305330591
58	3903	3768.21924941065	-46.9911342439941	45.5643283671117	0.31092234596646
59	4178	3954.63528394172	-45.9023364173876	-50.5506899572823	0.954387983747836
60	3863	3918.67657334485	-45.8756445812152	-67.3752713736452	0.0406995181224796
61	4187	3774.58962180998	-44.5205207416207	531.193417256676	-0.421350377293246

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

Figure 5

PNG link

Postscript link

PDF link

Parameters (Session):

par1 = 12 ;

Parameters (R input):

par1 = 12 ;

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

par1 <- as.numeric(par1)
nx <- length(x)
x <- ts(x,frequency=par1)
m <- StructTS(x,type='BSM')
m$coef
m$fitted
m$resid
mylevel <- as.numeric(m$fitted[,'level'])
myslope <- as.numeric(m$fitted[,'slope'])
myseas <- as.numeric(m$fitted[,'sea'])
myresid <- as.numeric(m$resid)
myfit <- mylevel+myseas
mylagmax <- nx/2
bitmap(file='test2.png')
op <- par(mfrow = c(2,2))
acf(as.numeric(x),lag.max = mylagmax,main='Observed')
acf(mylevel,na.action=na.pass,lag.max = mylagmax,main='Level')
acf(myseas,na.action=na.pass,lag.max = mylagmax,main='Seasonal')
acf(myresid,na.action=na.pass,lag.max = mylagmax,main='Standardized Residals')
par(op)
dev.off()
bitmap(file='test3.png')
op <- par(mfrow = c(2,2))
spectrum(as.numeric(x),main='Observed')
spectrum(mylevel,main='Level')
spectrum(myseas,main='Seasonal')
spectrum(myresid,main='Standardized Residals')
par(op)
dev.off()
bitmap(file='test4.png')
op <- par(mfrow = c(2,2))
cpgram(as.numeric(x),main='Observed')
cpgram(mylevel,main='Level')
cpgram(myseas,main='Seasonal')
cpgram(myresid,main='Standardized Residals')
par(op)
dev.off()
bitmap(file='test1.png')
plot(as.numeric(m$resid),main='Standardized Residuals',ylab='Residuals',xlab='time',type='b')
grid()
dev.off()
bitmap(file='test5.png')
op <- par(mfrow = c(2,2))
hist(m$resid,main='Residual Histogram')
plot(density(m$resid),main='Residual Kernel Density')
qqnorm(m$resid,main='Residual Normal QQ Plot')
qqline(m$resid)
plot(m$resid^2, myfit^2,main='Sq.Resid vs. Sq.Fit',xlab='Squared residuals',ylab='Squared Fit')
par(op)
dev.off()
load(file='createtable')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Structural Time Series Model',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,'Level',header=TRUE)
a<-table.element(a,'Slope',header=TRUE)
a<-table.element(a,'Seasonal',header=TRUE)
a<-table.element(a,'Stand. Residuals',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,mylevel[i])
a<-table.element(a,myslope[i])
a<-table.element(a,myseas[i])
a<-table.element(a,myresid[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