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 03:34:55 -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/t1259922972tabg9dq2p9xqcw0.htm/, Retrieved Sat, 27 Apr 2024 22:04:11 +0000

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

105

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]
-   PD    [Structural Time Series Models] [workshop 9 bereke...] [2009-12-03 17:57:55] [eaf42bcf5162b5692bb3c7f9d4636222]
-   PD        [Structural Time Series Models] [review workshop 9] [2009-12-04 10:34:55] [78d370e6d5f4594e9982a5085e7604c6] [Current]

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

Summary of computational transaction
Raw Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	2 seconds
R Server	'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=63260&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=63260&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=63260&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	12.61	12.61	0	0	0
2	10.862	11.0828672821044	-1.50860320952407	-0.0225668352436757	-0.126249350958434
3	52.929	48.9962941638756	31.254059042574	0.495565418558109	2.61768314566366
4	56.902	59.1770706445519	13.5654349839527	-0.470055612996635	-1.38565518532504
5	81.776	80.930886941939	20.4465498450878	0.148663854785963	0.536640806069929
6	87.876	89.1506096700705	10.1692317691120	-0.234551734047299	-0.801484967089568
7	82.103	83.6431853937394	-3.00797803737493	-0.206685486847060	-1.02762168396522
8	72.846	73.5290833399343	-8.98095349870496	-0.0786365665032419	-0.465799844794899
9	60.632	60.9963124177665	-11.9663702759644	-0.0621974291080388	-0.232816402140239
10	33.521	34.9369457985559	-23.8119867850775	-0.217205883664445	-0.923775137241195
11	15.342	14.9534962175302	-20.5939759365642	0.062850994727716	0.250955144966296
12	7.758	6.60583897758652	-10.3005420976656	0.110497217428470	0.802728860414777
13	8.668	5.81753934396635	-2.40329492652601	2.05128337504693	0.655939473832896
14	13.082	13.1927333175983	4.91449237379882	-0.729585148294846	0.55055321953142
15	38.157	35.4359290678053	19.4053780784435	1.29951168771893	1.11850226653469
16	58.263	58.7089275138791	22.6174029869981	-0.762077660144641	0.249127121446530
17	81.153	81.0068917260313	22.3517924376205	0.172491883545345	-0.0207112969486771
18	88.476	89.9615598180455	11.2032456055016	-0.377804598686632	-0.869407601067636
19	72.329	75.1937589627086	-10.408916149691	-0.717300929099647	-1.68540782114614
20	75.845	74.7667046529652	-2.10286220575664	0.252971581914754	0.647743891629529
21	61.108	62.127771647823	-10.8699442672395	-0.148638090802777	-0.683696992849525
22	37.665	39.1285789952223	-20.9628440466694	-0.460706676125451	-0.787090383584229
23	12.755	13.3070745919578	-25.0058676937989	-0.150342838160140	-0.315293717848813
24	2.793	1.38282202815692	-14.1239582107167	0.328923549006731	0.848655876966169
25	12.935	7.98920170616936	3.02867928960908	3.23726767315701	1.38744458928601
26	19.533	20.0460373536991	10.0015744010874	-1.13510616084411	0.532305073145996
27	33.404	32.1564818237447	11.7469119362485	1.07716399100241	0.135594974026667
28	52.074	52.2312017404647	18.61362923975	-0.82476759888906	0.532919493011592
29	70.735	70.6305892079625	18.4368745433025	0.121727151209290	-0.0137819842439173
30	69.702	71.2552918134755	3.72942122460838	-0.111807667879856	-1.14694751302606
31	61.656	64.0487712462596	-5.30062778902171	-1.50773575256292	-0.704200211894905
32	82.993	80.1520691814166	12.3719912426615	1.10881922022661	1.37819121236529
33	53.99	58.0198592363724	-16.1167299054657	-1.23764956756872	-2.22168025573951
34	32.283	33.2094940674372	-23.2949205662593	-0.222951907601569	-0.559788502309544
35	15.686	15.3473496634560	-18.8091536847213	-0.101005135953088	0.349821393694377
36	2.713	2.38804177159773	-13.9821878787040	-0.148109919508397	0.376506474288897
37	12.842	7.43368471734079	1.69611469712785	3.86547677596848	1.25103833942915
38	19.244	19.3666479898614	9.73308075203045	-0.85829455097543	0.618024387825977
39	48.488	45.9750292643889	23.5956491276656	1.16731101091209	1.08064952470948
40	54.464	57.2217129639625	13.4655842784501	-1.78106470243455	-0.786573031994737
41	84.192	81.9622265592937	22.714855802951	1.33231820310880	0.721129083752896
42	84.458	86.1492161864319	7.50275594221478	-0.214293812565613	-1.18630835891614
43	85.793	89.2173086236319	3.86146239141382	-3.07078581640771	-0.283962168235679
44	75.163	74.8612724240297	-11.0959683068120	1.75392237783798	-1.16644825758991
45	68.212	68.3246823303404	-7.35255475970011	-0.476125075254182	0.291928465650611
46	49.233	50.7861797365409	-15.7159178817256	-0.741191925467494	-0.65221512970741
47	24.302	25.3875584005483	-23.6657057564914	-0.313724952226912	-0.619960619289993
48	5.402	5.61400868144263	-20.4728880593442	-0.521970669325929	0.249106809088507
49	15.058	8.61641382626614	-1.20267889081468	4.56234399931606	1.52525779754397
50	33.559	32.7949892205042	18.9140962374953	-1.10358250841922	1.55360079554271
51	70.358	66.7656614776629	31.2178664026203	2.40348466478285	0.960782167067227
52	85.934	89.6965366649136	24.4442224290110	-3.11283650254278	-0.526226607251592
53	94.452	94.6032092116905	8.4812608069871	1.38772780784158	-1.24444063475967
54	129.305	126.500437011467	27.6296193408603	0.957045553653579	1.49328823388129
55	113.882	120.186806291249	-0.130873913536771	-3.62642713734118	-2.16486342413476
56	107.256	107.242542759777	-10.6097213538877	1.02449179706736	-0.817187590701938
57	94.274	94.5040688242742	-12.3506039190539	-0.0621022736215493	-0.135762018448798
58	57.842	60.4446207871977	-30.1046833984037	-0.889639641589453	-1.38455256413862
59	26.611	26.7291040877191	-33.057360256343	0.166777849533818	-0.230261871505932
60	14.521	13.3173635829197	-17.0074905021727	-0.344857265854788	1.25257362106019

\begin{tabular}{lllllllll}
\hline
Structural Time Series Model \tabularnewline
t & Observed & Level & Slope & Seasonal & Stand. Residuals \tabularnewline
1 & 12.61 & 12.61 & 0 & 0 & 0 \tabularnewline
2 & 10.862 & 11.0828672821044 & -1.50860320952407 & -0.0225668352436757 & -0.126249350958434 \tabularnewline
3 & 52.929 & 48.9962941638756 & 31.254059042574 & 0.495565418558109 & 2.61768314566366 \tabularnewline
4 & 56.902 & 59.1770706445519 & 13.5654349839527 & -0.470055612996635 & -1.38565518532504 \tabularnewline
5 & 81.776 & 80.930886941939 & 20.4465498450878 & 0.148663854785963 & 0.536640806069929 \tabularnewline
6 & 87.876 & 89.1506096700705 & 10.1692317691120 & -0.234551734047299 & -0.801484967089568 \tabularnewline
7 & 82.103 & 83.6431853937394 & -3.00797803737493 & -0.206685486847060 & -1.02762168396522 \tabularnewline
8 & 72.846 & 73.5290833399343 & -8.98095349870496 & -0.0786365665032419 & -0.465799844794899 \tabularnewline
9 & 60.632 & 60.9963124177665 & -11.9663702759644 & -0.0621974291080388 & -0.232816402140239 \tabularnewline
10 & 33.521 & 34.9369457985559 & -23.8119867850775 & -0.217205883664445 & -0.923775137241195 \tabularnewline
11 & 15.342 & 14.9534962175302 & -20.5939759365642 & 0.062850994727716 & 0.250955144966296 \tabularnewline
12 & 7.758 & 6.60583897758652 & -10.3005420976656 & 0.110497217428470 & 0.802728860414777 \tabularnewline
13 & 8.668 & 5.81753934396635 & -2.40329492652601 & 2.05128337504693 & 0.655939473832896 \tabularnewline
14 & 13.082 & 13.1927333175983 & 4.91449237379882 & -0.729585148294846 & 0.55055321953142 \tabularnewline
15 & 38.157 & 35.4359290678053 & 19.4053780784435 & 1.29951168771893 & 1.11850226653469 \tabularnewline
16 & 58.263 & 58.7089275138791 & 22.6174029869981 & -0.762077660144641 & 0.249127121446530 \tabularnewline
17 & 81.153 & 81.0068917260313 & 22.3517924376205 & 0.172491883545345 & -0.0207112969486771 \tabularnewline
18 & 88.476 & 89.9615598180455 & 11.2032456055016 & -0.377804598686632 & -0.869407601067636 \tabularnewline
19 & 72.329 & 75.1937589627086 & -10.408916149691 & -0.717300929099647 & -1.68540782114614 \tabularnewline
20 & 75.845 & 74.7667046529652 & -2.10286220575664 & 0.252971581914754 & 0.647743891629529 \tabularnewline
21 & 61.108 & 62.127771647823 & -10.8699442672395 & -0.148638090802777 & -0.683696992849525 \tabularnewline
22 & 37.665 & 39.1285789952223 & -20.9628440466694 & -0.460706676125451 & -0.787090383584229 \tabularnewline
23 & 12.755 & 13.3070745919578 & -25.0058676937989 & -0.150342838160140 & -0.315293717848813 \tabularnewline
24 & 2.793 & 1.38282202815692 & -14.1239582107167 & 0.328923549006731 & 0.848655876966169 \tabularnewline
25 & 12.935 & 7.98920170616936 & 3.02867928960908 & 3.23726767315701 & 1.38744458928601 \tabularnewline
26 & 19.533 & 20.0460373536991 & 10.0015744010874 & -1.13510616084411 & 0.532305073145996 \tabularnewline
27 & 33.404 & 32.1564818237447 & 11.7469119362485 & 1.07716399100241 & 0.135594974026667 \tabularnewline
28 & 52.074 & 52.2312017404647 & 18.61362923975 & -0.82476759888906 & 0.532919493011592 \tabularnewline
29 & 70.735 & 70.6305892079625 & 18.4368745433025 & 0.121727151209290 & -0.0137819842439173 \tabularnewline
30 & 69.702 & 71.2552918134755 & 3.72942122460838 & -0.111807667879856 & -1.14694751302606 \tabularnewline
31 & 61.656 & 64.0487712462596 & -5.30062778902171 & -1.50773575256292 & -0.704200211894905 \tabularnewline
32 & 82.993 & 80.1520691814166 & 12.3719912426615 & 1.10881922022661 & 1.37819121236529 \tabularnewline
33 & 53.99 & 58.0198592363724 & -16.1167299054657 & -1.23764956756872 & -2.22168025573951 \tabularnewline
34 & 32.283 & 33.2094940674372 & -23.2949205662593 & -0.222951907601569 & -0.559788502309544 \tabularnewline
35 & 15.686 & 15.3473496634560 & -18.8091536847213 & -0.101005135953088 & 0.349821393694377 \tabularnewline
36 & 2.713 & 2.38804177159773 & -13.9821878787040 & -0.148109919508397 & 0.376506474288897 \tabularnewline
37 & 12.842 & 7.43368471734079 & 1.69611469712785 & 3.86547677596848 & 1.25103833942915 \tabularnewline
38 & 19.244 & 19.3666479898614 & 9.73308075203045 & -0.85829455097543 & 0.618024387825977 \tabularnewline
39 & 48.488 & 45.9750292643889 & 23.5956491276656 & 1.16731101091209 & 1.08064952470948 \tabularnewline
40 & 54.464 & 57.2217129639625 & 13.4655842784501 & -1.78106470243455 & -0.786573031994737 \tabularnewline
41 & 84.192 & 81.9622265592937 & 22.714855802951 & 1.33231820310880 & 0.721129083752896 \tabularnewline
42 & 84.458 & 86.1492161864319 & 7.50275594221478 & -0.214293812565613 & -1.18630835891614 \tabularnewline
43 & 85.793 & 89.2173086236319 & 3.86146239141382 & -3.07078581640771 & -0.283962168235679 \tabularnewline
44 & 75.163 & 74.8612724240297 & -11.0959683068120 & 1.75392237783798 & -1.16644825758991 \tabularnewline
45 & 68.212 & 68.3246823303404 & -7.35255475970011 & -0.476125075254182 & 0.291928465650611 \tabularnewline
46 & 49.233 & 50.7861797365409 & -15.7159178817256 & -0.741191925467494 & -0.65221512970741 \tabularnewline
47 & 24.302 & 25.3875584005483 & -23.6657057564914 & -0.313724952226912 & -0.619960619289993 \tabularnewline
48 & 5.402 & 5.61400868144263 & -20.4728880593442 & -0.521970669325929 & 0.249106809088507 \tabularnewline
49 & 15.058 & 8.61641382626614 & -1.20267889081468 & 4.56234399931606 & 1.52525779754397 \tabularnewline
50 & 33.559 & 32.7949892205042 & 18.9140962374953 & -1.10358250841922 & 1.55360079554271 \tabularnewline
51 & 70.358 & 66.7656614776629 & 31.2178664026203 & 2.40348466478285 & 0.960782167067227 \tabularnewline
52 & 85.934 & 89.6965366649136 & 24.4442224290110 & -3.11283650254278 & -0.526226607251592 \tabularnewline
53 & 94.452 & 94.6032092116905 & 8.4812608069871 & 1.38772780784158 & -1.24444063475967 \tabularnewline
54 & 129.305 & 126.500437011467 & 27.6296193408603 & 0.957045553653579 & 1.49328823388129 \tabularnewline
55 & 113.882 & 120.186806291249 & -0.130873913536771 & -3.62642713734118 & -2.16486342413476 \tabularnewline
56 & 107.256 & 107.242542759777 & -10.6097213538877 & 1.02449179706736 & -0.817187590701938 \tabularnewline
57 & 94.274 & 94.5040688242742 & -12.3506039190539 & -0.0621022736215493 & -0.135762018448798 \tabularnewline
58 & 57.842 & 60.4446207871977 & -30.1046833984037 & -0.889639641589453 & -1.38455256413862 \tabularnewline
59 & 26.611 & 26.7291040877191 & -33.057360256343 & 0.166777849533818 & -0.230261871505932 \tabularnewline
60 & 14.521 & 13.3173635829197 & -17.0074905021727 & -0.344857265854788 & 1.25257362106019 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=63260&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]12.61[/C][C]12.61[/C][C]0[/C][C]0[/C][C]0[/C][/ROW]
[ROW][C]2[/C][C]10.862[/C][C]11.0828672821044[/C][C]-1.50860320952407[/C][C]-0.0225668352436757[/C][C]-0.126249350958434[/C][/ROW]
[ROW][C]3[/C][C]52.929[/C][C]48.9962941638756[/C][C]31.254059042574[/C][C]0.495565418558109[/C][C]2.61768314566366[/C][/ROW]
[ROW][C]4[/C][C]56.902[/C][C]59.1770706445519[/C][C]13.5654349839527[/C][C]-0.470055612996635[/C][C]-1.38565518532504[/C][/ROW]
[ROW][C]5[/C][C]81.776[/C][C]80.930886941939[/C][C]20.4465498450878[/C][C]0.148663854785963[/C][C]0.536640806069929[/C][/ROW]
[ROW][C]6[/C][C]87.876[/C][C]89.1506096700705[/C][C]10.1692317691120[/C][C]-0.234551734047299[/C][C]-0.801484967089568[/C][/ROW]
[ROW][C]7[/C][C]82.103[/C][C]83.6431853937394[/C][C]-3.00797803737493[/C][C]-0.206685486847060[/C][C]-1.02762168396522[/C][/ROW]
[ROW][C]8[/C][C]72.846[/C][C]73.5290833399343[/C][C]-8.98095349870496[/C][C]-0.0786365665032419[/C][C]-0.465799844794899[/C][/ROW]
[ROW][C]9[/C][C]60.632[/C][C]60.9963124177665[/C][C]-11.9663702759644[/C][C]-0.0621974291080388[/C][C]-0.232816402140239[/C][/ROW]
[ROW][C]10[/C][C]33.521[/C][C]34.9369457985559[/C][C]-23.8119867850775[/C][C]-0.217205883664445[/C][C]-0.923775137241195[/C][/ROW]
[ROW][C]11[/C][C]15.342[/C][C]14.9534962175302[/C][C]-20.5939759365642[/C][C]0.062850994727716[/C][C]0.250955144966296[/C][/ROW]
[ROW][C]12[/C][C]7.758[/C][C]6.60583897758652[/C][C]-10.3005420976656[/C][C]0.110497217428470[/C][C]0.802728860414777[/C][/ROW]
[ROW][C]13[/C][C]8.668[/C][C]5.81753934396635[/C][C]-2.40329492652601[/C][C]2.05128337504693[/C][C]0.655939473832896[/C][/ROW]
[ROW][C]14[/C][C]13.082[/C][C]13.1927333175983[/C][C]4.91449237379882[/C][C]-0.729585148294846[/C][C]0.55055321953142[/C][/ROW]
[ROW][C]15[/C][C]38.157[/C][C]35.4359290678053[/C][C]19.4053780784435[/C][C]1.29951168771893[/C][C]1.11850226653469[/C][/ROW]
[ROW][C]16[/C][C]58.263[/C][C]58.7089275138791[/C][C]22.6174029869981[/C][C]-0.762077660144641[/C][C]0.249127121446530[/C][/ROW]
[ROW][C]17[/C][C]81.153[/C][C]81.0068917260313[/C][C]22.3517924376205[/C][C]0.172491883545345[/C][C]-0.0207112969486771[/C][/ROW]
[ROW][C]18[/C][C]88.476[/C][C]89.9615598180455[/C][C]11.2032456055016[/C][C]-0.377804598686632[/C][C]-0.869407601067636[/C][/ROW]
[ROW][C]19[/C][C]72.329[/C][C]75.1937589627086[/C][C]-10.408916149691[/C][C]-0.717300929099647[/C][C]-1.68540782114614[/C][/ROW]
[ROW][C]20[/C][C]75.845[/C][C]74.7667046529652[/C][C]-2.10286220575664[/C][C]0.252971581914754[/C][C]0.647743891629529[/C][/ROW]
[ROW][C]21[/C][C]61.108[/C][C]62.127771647823[/C][C]-10.8699442672395[/C][C]-0.148638090802777[/C][C]-0.683696992849525[/C][/ROW]
[ROW][C]22[/C][C]37.665[/C][C]39.1285789952223[/C][C]-20.9628440466694[/C][C]-0.460706676125451[/C][C]-0.787090383584229[/C][/ROW]
[ROW][C]23[/C][C]12.755[/C][C]13.3070745919578[/C][C]-25.0058676937989[/C][C]-0.150342838160140[/C][C]-0.315293717848813[/C][/ROW]
[ROW][C]24[/C][C]2.793[/C][C]1.38282202815692[/C][C]-14.1239582107167[/C][C]0.328923549006731[/C][C]0.848655876966169[/C][/ROW]
[ROW][C]25[/C][C]12.935[/C][C]7.98920170616936[/C][C]3.02867928960908[/C][C]3.23726767315701[/C][C]1.38744458928601[/C][/ROW]
[ROW][C]26[/C][C]19.533[/C][C]20.0460373536991[/C][C]10.0015744010874[/C][C]-1.13510616084411[/C][C]0.532305073145996[/C][/ROW]
[ROW][C]27[/C][C]33.404[/C][C]32.1564818237447[/C][C]11.7469119362485[/C][C]1.07716399100241[/C][C]0.135594974026667[/C][/ROW]
[ROW][C]28[/C][C]52.074[/C][C]52.2312017404647[/C][C]18.61362923975[/C][C]-0.82476759888906[/C][C]0.532919493011592[/C][/ROW]
[ROW][C]29[/C][C]70.735[/C][C]70.6305892079625[/C][C]18.4368745433025[/C][C]0.121727151209290[/C][C]-0.0137819842439173[/C][/ROW]
[ROW][C]30[/C][C]69.702[/C][C]71.2552918134755[/C][C]3.72942122460838[/C][C]-0.111807667879856[/C][C]-1.14694751302606[/C][/ROW]
[ROW][C]31[/C][C]61.656[/C][C]64.0487712462596[/C][C]-5.30062778902171[/C][C]-1.50773575256292[/C][C]-0.704200211894905[/C][/ROW]
[ROW][C]32[/C][C]82.993[/C][C]80.1520691814166[/C][C]12.3719912426615[/C][C]1.10881922022661[/C][C]1.37819121236529[/C][/ROW]
[ROW][C]33[/C][C]53.99[/C][C]58.0198592363724[/C][C]-16.1167299054657[/C][C]-1.23764956756872[/C][C]-2.22168025573951[/C][/ROW]
[ROW][C]34[/C][C]32.283[/C][C]33.2094940674372[/C][C]-23.2949205662593[/C][C]-0.222951907601569[/C][C]-0.559788502309544[/C][/ROW]
[ROW][C]35[/C][C]15.686[/C][C]15.3473496634560[/C][C]-18.8091536847213[/C][C]-0.101005135953088[/C][C]0.349821393694377[/C][/ROW]
[ROW][C]36[/C][C]2.713[/C][C]2.38804177159773[/C][C]-13.9821878787040[/C][C]-0.148109919508397[/C][C]0.376506474288897[/C][/ROW]
[ROW][C]37[/C][C]12.842[/C][C]7.43368471734079[/C][C]1.69611469712785[/C][C]3.86547677596848[/C][C]1.25103833942915[/C][/ROW]
[ROW][C]38[/C][C]19.244[/C][C]19.3666479898614[/C][C]9.73308075203045[/C][C]-0.85829455097543[/C][C]0.618024387825977[/C][/ROW]
[ROW][C]39[/C][C]48.488[/C][C]45.9750292643889[/C][C]23.5956491276656[/C][C]1.16731101091209[/C][C]1.08064952470948[/C][/ROW]
[ROW][C]40[/C][C]54.464[/C][C]57.2217129639625[/C][C]13.4655842784501[/C][C]-1.78106470243455[/C][C]-0.786573031994737[/C][/ROW]
[ROW][C]41[/C][C]84.192[/C][C]81.9622265592937[/C][C]22.714855802951[/C][C]1.33231820310880[/C][C]0.721129083752896[/C][/ROW]
[ROW][C]42[/C][C]84.458[/C][C]86.1492161864319[/C][C]7.50275594221478[/C][C]-0.214293812565613[/C][C]-1.18630835891614[/C][/ROW]
[ROW][C]43[/C][C]85.793[/C][C]89.2173086236319[/C][C]3.86146239141382[/C][C]-3.07078581640771[/C][C]-0.283962168235679[/C][/ROW]
[ROW][C]44[/C][C]75.163[/C][C]74.8612724240297[/C][C]-11.0959683068120[/C][C]1.75392237783798[/C][C]-1.16644825758991[/C][/ROW]
[ROW][C]45[/C][C]68.212[/C][C]68.3246823303404[/C][C]-7.35255475970011[/C][C]-0.476125075254182[/C][C]0.291928465650611[/C][/ROW]
[ROW][C]46[/C][C]49.233[/C][C]50.7861797365409[/C][C]-15.7159178817256[/C][C]-0.741191925467494[/C][C]-0.65221512970741[/C][/ROW]
[ROW][C]47[/C][C]24.302[/C][C]25.3875584005483[/C][C]-23.6657057564914[/C][C]-0.313724952226912[/C][C]-0.619960619289993[/C][/ROW]
[ROW][C]48[/C][C]5.402[/C][C]5.61400868144263[/C][C]-20.4728880593442[/C][C]-0.521970669325929[/C][C]0.249106809088507[/C][/ROW]
[ROW][C]49[/C][C]15.058[/C][C]8.61641382626614[/C][C]-1.20267889081468[/C][C]4.56234399931606[/C][C]1.52525779754397[/C][/ROW]
[ROW][C]50[/C][C]33.559[/C][C]32.7949892205042[/C][C]18.9140962374953[/C][C]-1.10358250841922[/C][C]1.55360079554271[/C][/ROW]
[ROW][C]51[/C][C]70.358[/C][C]66.7656614776629[/C][C]31.2178664026203[/C][C]2.40348466478285[/C][C]0.960782167067227[/C][/ROW]
[ROW][C]52[/C][C]85.934[/C][C]89.6965366649136[/C][C]24.4442224290110[/C][C]-3.11283650254278[/C][C]-0.526226607251592[/C][/ROW]
[ROW][C]53[/C][C]94.452[/C][C]94.6032092116905[/C][C]8.4812608069871[/C][C]1.38772780784158[/C][C]-1.24444063475967[/C][/ROW]
[ROW][C]54[/C][C]129.305[/C][C]126.500437011467[/C][C]27.6296193408603[/C][C]0.957045553653579[/C][C]1.49328823388129[/C][/ROW]
[ROW][C]55[/C][C]113.882[/C][C]120.186806291249[/C][C]-0.130873913536771[/C][C]-3.62642713734118[/C][C]-2.16486342413476[/C][/ROW]
[ROW][C]56[/C][C]107.256[/C][C]107.242542759777[/C][C]-10.6097213538877[/C][C]1.02449179706736[/C][C]-0.817187590701938[/C][/ROW]
[ROW][C]57[/C][C]94.274[/C][C]94.5040688242742[/C][C]-12.3506039190539[/C][C]-0.0621022736215493[/C][C]-0.135762018448798[/C][/ROW]
[ROW][C]58[/C][C]57.842[/C][C]60.4446207871977[/C][C]-30.1046833984037[/C][C]-0.889639641589453[/C][C]-1.38455256413862[/C][/ROW]
[ROW][C]59[/C][C]26.611[/C][C]26.7291040877191[/C][C]-33.057360256343[/C][C]0.166777849533818[/C][C]-0.230261871505932[/C][/ROW]
[ROW][C]60[/C][C]14.521[/C][C]13.3173635829197[/C][C]-17.0074905021727[/C][C]-0.344857265854788[/C][C]1.25257362106019[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=63260&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=63260&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	12.61	12.61	0	0	0
2	10.862	11.0828672821044	-1.50860320952407	-0.0225668352436757	-0.126249350958434
3	52.929	48.9962941638756	31.254059042574	0.495565418558109	2.61768314566366
4	56.902	59.1770706445519	13.5654349839527	-0.470055612996635	-1.38565518532504
5	81.776	80.930886941939	20.4465498450878	0.148663854785963	0.536640806069929
6	87.876	89.1506096700705	10.1692317691120	-0.234551734047299	-0.801484967089568
7	82.103	83.6431853937394	-3.00797803737493	-0.206685486847060	-1.02762168396522
8	72.846	73.5290833399343	-8.98095349870496	-0.0786365665032419	-0.465799844794899
9	60.632	60.9963124177665	-11.9663702759644	-0.0621974291080388	-0.232816402140239
10	33.521	34.9369457985559	-23.8119867850775	-0.217205883664445	-0.923775137241195
11	15.342	14.9534962175302	-20.5939759365642	0.062850994727716	0.250955144966296
12	7.758	6.60583897758652	-10.3005420976656	0.110497217428470	0.802728860414777
13	8.668	5.81753934396635	-2.40329492652601	2.05128337504693	0.655939473832896
14	13.082	13.1927333175983	4.91449237379882	-0.729585148294846	0.55055321953142
15	38.157	35.4359290678053	19.4053780784435	1.29951168771893	1.11850226653469
16	58.263	58.7089275138791	22.6174029869981	-0.762077660144641	0.249127121446530
17	81.153	81.0068917260313	22.3517924376205	0.172491883545345	-0.0207112969486771
18	88.476	89.9615598180455	11.2032456055016	-0.377804598686632	-0.869407601067636
19	72.329	75.1937589627086	-10.408916149691	-0.717300929099647	-1.68540782114614
20	75.845	74.7667046529652	-2.10286220575664	0.252971581914754	0.647743891629529
21	61.108	62.127771647823	-10.8699442672395	-0.148638090802777	-0.683696992849525
22	37.665	39.1285789952223	-20.9628440466694	-0.460706676125451	-0.787090383584229
23	12.755	13.3070745919578	-25.0058676937989	-0.150342838160140	-0.315293717848813
24	2.793	1.38282202815692	-14.1239582107167	0.328923549006731	0.848655876966169
25	12.935	7.98920170616936	3.02867928960908	3.23726767315701	1.38744458928601
26	19.533	20.0460373536991	10.0015744010874	-1.13510616084411	0.532305073145996
27	33.404	32.1564818237447	11.7469119362485	1.07716399100241	0.135594974026667
28	52.074	52.2312017404647	18.61362923975	-0.82476759888906	0.532919493011592
29	70.735	70.6305892079625	18.4368745433025	0.121727151209290	-0.0137819842439173
30	69.702	71.2552918134755	3.72942122460838	-0.111807667879856	-1.14694751302606
31	61.656	64.0487712462596	-5.30062778902171	-1.50773575256292	-0.704200211894905
32	82.993	80.1520691814166	12.3719912426615	1.10881922022661	1.37819121236529
33	53.99	58.0198592363724	-16.1167299054657	-1.23764956756872	-2.22168025573951
34	32.283	33.2094940674372	-23.2949205662593	-0.222951907601569	-0.559788502309544
35	15.686	15.3473496634560	-18.8091536847213	-0.101005135953088	0.349821393694377
36	2.713	2.38804177159773	-13.9821878787040	-0.148109919508397	0.376506474288897
37	12.842	7.43368471734079	1.69611469712785	3.86547677596848	1.25103833942915
38	19.244	19.3666479898614	9.73308075203045	-0.85829455097543	0.618024387825977
39	48.488	45.9750292643889	23.5956491276656	1.16731101091209	1.08064952470948
40	54.464	57.2217129639625	13.4655842784501	-1.78106470243455	-0.786573031994737
41	84.192	81.9622265592937	22.714855802951	1.33231820310880	0.721129083752896
42	84.458	86.1492161864319	7.50275594221478	-0.214293812565613	-1.18630835891614
43	85.793	89.2173086236319	3.86146239141382	-3.07078581640771	-0.283962168235679
44	75.163	74.8612724240297	-11.0959683068120	1.75392237783798	-1.16644825758991
45	68.212	68.3246823303404	-7.35255475970011	-0.476125075254182	0.291928465650611
46	49.233	50.7861797365409	-15.7159178817256	-0.741191925467494	-0.65221512970741
47	24.302	25.3875584005483	-23.6657057564914	-0.313724952226912	-0.619960619289993
48	5.402	5.61400868144263	-20.4728880593442	-0.521970669325929	0.249106809088507
49	15.058	8.61641382626614	-1.20267889081468	4.56234399931606	1.52525779754397
50	33.559	32.7949892205042	18.9140962374953	-1.10358250841922	1.55360079554271
51	70.358	66.7656614776629	31.2178664026203	2.40348466478285	0.960782167067227
52	85.934	89.6965366649136	24.4442224290110	-3.11283650254278	-0.526226607251592
53	94.452	94.6032092116905	8.4812608069871	1.38772780784158	-1.24444063475967
54	129.305	126.500437011467	27.6296193408603	0.957045553653579	1.49328823388129
55	113.882	120.186806291249	-0.130873913536771	-3.62642713734118	-2.16486342413476
56	107.256	107.242542759777	-10.6097213538877	1.02449179706736	-0.817187590701938
57	94.274	94.5040688242742	-12.3506039190539	-0.0621022736215493	-0.135762018448798
58	57.842	60.4446207871977	-30.1046833984037	-0.889639641589453	-1.38455256413862
59	26.611	26.7291040877191	-33.057360256343	0.166777849533818	-0.230261871505932
60	14.521	13.3173635829197	-17.0074905021727	-0.344857265854788	1.25257362106019

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