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

Tue, 01 Dec 2009 13:04:49 -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/01/t1259697938rib4tswsrficcb9.htm/, Retrieved Sat, 27 Apr 2024 03:11:37 +0000

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

159

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] [SHWWS9klasmeth3] [2009-12-01 20:04:49] [db49399df1e4a3dbe31268849cebfd7f] [Current]
-   PD        [Structural Time Series Models] [WS9-StructuralTime] [2009-12-04 13:55:02] [a94022e7c2399c0f4d62eea578db3411] 
-    D          [Structural Time Series Models] [] [2010-12-07 09:55:06] [fb3a7008aea9486db3846dc25434607b] 

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=62232&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=62232&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=62232&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	161	161	0	0	0
2	149	150.652804954134	-7.54703501666725	-1.65280495413439	-1.63771582823087
3	139	138.982655708135	-10.5000705669800	0.0173442918654433	-0.526939710259491
4	135	133.864161340926	-6.58052551882916	1.13583865907379	0.668550281526714
5	130	129.954139671962	-4.65587222479019	0.0458603280378227	0.332322471049674
6	127	126.988868997811	-3.43357963074273	0.0111310021894042	0.211954297131278
7	122	122.480802464784	-4.21141819954527	-0.480802464784292	-0.134828025796281
8	117	117.299039632372	-4.91378274889712	-0.299039632372054	-0.121747720423399
9	112	112.158059721224	-5.0782043812403	-0.158059721223623	-0.0285009187671397
10	113	112.152979939957	-1.40695357739817	0.84702006004321	0.636375230284341
11	149	143.070980811444	21.9860350450926	5.92901918855637	4.05494630235283
12	157	160.047813503295	18.3609133248431	-3.04781350329533	-0.628379465082242
13	157	159.903599811193	5.10296396137905	-2.90359981119305	-2.38883808065303
14	147	149.560806664401	-5.5817287150919	-2.56080666440074	-1.81943303091513
15	137	138.245352406242	-9.49329810512953	-1.24535240624249	-0.687055826502149
16	132	130.547108147196	-8.23855085620497	1.45289185280430	0.217680474947628
17	125	124.929951269511	-6.41506099135959	0.0700487304888313	0.314266683881632
18	123	122.311131554423	-3.77713230927587	0.68886844557734	0.457086040563384
19	117	117.442464820216	-4.53720670332106	-0.442464820216143	-0.131772894658241
20	114	112.644613186522	-4.7188049990728	1.35538681347791	-0.0314766363061678
21	111	110.204986216342	-3.1308828302234	0.795013783657597	0.275251575401009
22	112	116.883620972700	3.70319077371009	-4.88362097269987	1.18467504374390
23	144	135.559334884308	14.1277381158775	8.44066511569167	1.80694466832398
24	150	150.249132854924	14.5182840473446	-0.249132854923828	0.0678343163534942
25	149	151.241416944591	5.09798096032244	-2.24141694459116	-1.64794338283718
26	134	138.216390052434	-7.37162961885366	-4.21639005243418	-2.14798335074383
27	123	125.000778753994	-11.3489070289402	-2.00077875399352	-0.692409525363189
28	116	114.706233550882	-10.6226325870103	1.29376644911757	0.126377475930886
29	117	115.506657540663	-2.75215508903027	1.49334245933688	1.35936480510199
30	111	110.708874214596	-4.15790634141863	0.291125785404126	-0.243353609475447
31	105	104.903816307861	-5.29123277787877	0.0961836921393925	-0.196488507873823
32	102	99.9516012637417	-5.0577121332045	2.04839873625832	0.0404777932819462
33	95	95.9994195843924	-4.29603794845461	-0.999419584392443	0.132029390768921
34	93	100.575947362725	1.81514406999319	-7.57594736272543	1.05934968470607
35	124	114.716730869536	10.2949290478122	9.28326913046433	1.47009361589350
36	130	127.458922979255	11.9773660584991	2.54107702074514	0.292347366832890
37	124	124.778545006160	1.88230592681973	-0.778545006160475	-1.75505818445573
38	115	118.497472376771	-3.70343843832279	-3.4974723767715	-0.965125704944754
39	106	109.174032358363	-7.52463032938233	-3.1740323583633	-0.663538604465324
40	105	105.755526274766	-4.71574222647919	-0.755526274765991	0.488514565709078
41	105	102.742947895194	-3.54856038586611	2.25705210480565	0.201972304211223
42	101	99.8632794521701	-3.09119351949751	1.13672054782987	0.0791583705697196
43	95	94.6588556491954	-4.53655741085967	0.341144350804620	-0.250532278129223
44	93	90.2396448656509	-4.45620607426935	2.76035513434908	0.0139285858809953
45	84	86.9085081809692	-3.68554823403002	-2.90850818096915	0.133585736338728
46	87	95.858702493427	4.96625720967545	-8.85870249342702	1.49970820122581
47	116	107.161890545002	9.30092899023232	8.83810945499783	0.751662415942542
48	120	114.589597038435	8.01944986891799	5.41040296156527	-0.222564300568298
49	117	116.777751253016	4.02677612580734	0.222248746983824	-0.69282149433411
50	109	112.572077361047	-1.58619846105863	-3.57207736104712	-0.971012714933745
51	105	109.467059550568	-2.61781299630844	-4.46705955056778	-0.178979442183705
52	107	108.081673612220	-1.77786881547401	-1.08167361222045	0.145955639649442
53	109	106.789387532202	-1.44627945369066	2.21061246779847	0.0574403511461303
54	109	106.601581858759	-0.588191073262772	2.39841814124124	0.148539974470227
55	108	106.71782747458	-0.108014553164348	1.28217252542003	0.0832118945730557
56	107	104.475962916450	-1.56378235106117	2.5240370835505	-0.252350865505948
57	99	104.861227371625	-0.233559643920123	-5.86122737162458	0.230580814859165
58	103	112.418024398797	5.08136494623352	-9.4180243987968	0.921317388795852
59	131	121.528368754438	7.8284185439313	9.4716312455623	0.476423357856821
60	137	130.136884001081	8.3605269039473	6.86311599891946	0.0923648662541242

\begin{tabular}{lllllllll}
\hline
Structural Time Series Model \tabularnewline
t & Observed & Level & Slope & Seasonal & Stand. Residuals \tabularnewline
1 & 161 & 161 & 0 & 0 & 0 \tabularnewline
2 & 149 & 150.652804954134 & -7.54703501666725 & -1.65280495413439 & -1.63771582823087 \tabularnewline
3 & 139 & 138.982655708135 & -10.5000705669800 & 0.0173442918654433 & -0.526939710259491 \tabularnewline
4 & 135 & 133.864161340926 & -6.58052551882916 & 1.13583865907379 & 0.668550281526714 \tabularnewline
5 & 130 & 129.954139671962 & -4.65587222479019 & 0.0458603280378227 & 0.332322471049674 \tabularnewline
6 & 127 & 126.988868997811 & -3.43357963074273 & 0.0111310021894042 & 0.211954297131278 \tabularnewline
7 & 122 & 122.480802464784 & -4.21141819954527 & -0.480802464784292 & -0.134828025796281 \tabularnewline
8 & 117 & 117.299039632372 & -4.91378274889712 & -0.299039632372054 & -0.121747720423399 \tabularnewline
9 & 112 & 112.158059721224 & -5.0782043812403 & -0.158059721223623 & -0.0285009187671397 \tabularnewline
10 & 113 & 112.152979939957 & -1.40695357739817 & 0.84702006004321 & 0.636375230284341 \tabularnewline
11 & 149 & 143.070980811444 & 21.9860350450926 & 5.92901918855637 & 4.05494630235283 \tabularnewline
12 & 157 & 160.047813503295 & 18.3609133248431 & -3.04781350329533 & -0.628379465082242 \tabularnewline
13 & 157 & 159.903599811193 & 5.10296396137905 & -2.90359981119305 & -2.38883808065303 \tabularnewline
14 & 147 & 149.560806664401 & -5.5817287150919 & -2.56080666440074 & -1.81943303091513 \tabularnewline
15 & 137 & 138.245352406242 & -9.49329810512953 & -1.24535240624249 & -0.687055826502149 \tabularnewline
16 & 132 & 130.547108147196 & -8.23855085620497 & 1.45289185280430 & 0.217680474947628 \tabularnewline
17 & 125 & 124.929951269511 & -6.41506099135959 & 0.0700487304888313 & 0.314266683881632 \tabularnewline
18 & 123 & 122.311131554423 & -3.77713230927587 & 0.68886844557734 & 0.457086040563384 \tabularnewline
19 & 117 & 117.442464820216 & -4.53720670332106 & -0.442464820216143 & -0.131772894658241 \tabularnewline
20 & 114 & 112.644613186522 & -4.7188049990728 & 1.35538681347791 & -0.0314766363061678 \tabularnewline
21 & 111 & 110.204986216342 & -3.1308828302234 & 0.795013783657597 & 0.275251575401009 \tabularnewline
22 & 112 & 116.883620972700 & 3.70319077371009 & -4.88362097269987 & 1.18467504374390 \tabularnewline
23 & 144 & 135.559334884308 & 14.1277381158775 & 8.44066511569167 & 1.80694466832398 \tabularnewline
24 & 150 & 150.249132854924 & 14.5182840473446 & -0.249132854923828 & 0.0678343163534942 \tabularnewline
25 & 149 & 151.241416944591 & 5.09798096032244 & -2.24141694459116 & -1.64794338283718 \tabularnewline
26 & 134 & 138.216390052434 & -7.37162961885366 & -4.21639005243418 & -2.14798335074383 \tabularnewline
27 & 123 & 125.000778753994 & -11.3489070289402 & -2.00077875399352 & -0.692409525363189 \tabularnewline
28 & 116 & 114.706233550882 & -10.6226325870103 & 1.29376644911757 & 0.126377475930886 \tabularnewline
29 & 117 & 115.506657540663 & -2.75215508903027 & 1.49334245933688 & 1.35936480510199 \tabularnewline
30 & 111 & 110.708874214596 & -4.15790634141863 & 0.291125785404126 & -0.243353609475447 \tabularnewline
31 & 105 & 104.903816307861 & -5.29123277787877 & 0.0961836921393925 & -0.196488507873823 \tabularnewline
32 & 102 & 99.9516012637417 & -5.0577121332045 & 2.04839873625832 & 0.0404777932819462 \tabularnewline
33 & 95 & 95.9994195843924 & -4.29603794845461 & -0.999419584392443 & 0.132029390768921 \tabularnewline
34 & 93 & 100.575947362725 & 1.81514406999319 & -7.57594736272543 & 1.05934968470607 \tabularnewline
35 & 124 & 114.716730869536 & 10.2949290478122 & 9.28326913046433 & 1.47009361589350 \tabularnewline
36 & 130 & 127.458922979255 & 11.9773660584991 & 2.54107702074514 & 0.292347366832890 \tabularnewline
37 & 124 & 124.778545006160 & 1.88230592681973 & -0.778545006160475 & -1.75505818445573 \tabularnewline
38 & 115 & 118.497472376771 & -3.70343843832279 & -3.4974723767715 & -0.965125704944754 \tabularnewline
39 & 106 & 109.174032358363 & -7.52463032938233 & -3.1740323583633 & -0.663538604465324 \tabularnewline
40 & 105 & 105.755526274766 & -4.71574222647919 & -0.755526274765991 & 0.488514565709078 \tabularnewline
41 & 105 & 102.742947895194 & -3.54856038586611 & 2.25705210480565 & 0.201972304211223 \tabularnewline
42 & 101 & 99.8632794521701 & -3.09119351949751 & 1.13672054782987 & 0.0791583705697196 \tabularnewline
43 & 95 & 94.6588556491954 & -4.53655741085967 & 0.341144350804620 & -0.250532278129223 \tabularnewline
44 & 93 & 90.2396448656509 & -4.45620607426935 & 2.76035513434908 & 0.0139285858809953 \tabularnewline
45 & 84 & 86.9085081809692 & -3.68554823403002 & -2.90850818096915 & 0.133585736338728 \tabularnewline
46 & 87 & 95.858702493427 & 4.96625720967545 & -8.85870249342702 & 1.49970820122581 \tabularnewline
47 & 116 & 107.161890545002 & 9.30092899023232 & 8.83810945499783 & 0.751662415942542 \tabularnewline
48 & 120 & 114.589597038435 & 8.01944986891799 & 5.41040296156527 & -0.222564300568298 \tabularnewline
49 & 117 & 116.777751253016 & 4.02677612580734 & 0.222248746983824 & -0.69282149433411 \tabularnewline
50 & 109 & 112.572077361047 & -1.58619846105863 & -3.57207736104712 & -0.971012714933745 \tabularnewline
51 & 105 & 109.467059550568 & -2.61781299630844 & -4.46705955056778 & -0.178979442183705 \tabularnewline
52 & 107 & 108.081673612220 & -1.77786881547401 & -1.08167361222045 & 0.145955639649442 \tabularnewline
53 & 109 & 106.789387532202 & -1.44627945369066 & 2.21061246779847 & 0.0574403511461303 \tabularnewline
54 & 109 & 106.601581858759 & -0.588191073262772 & 2.39841814124124 & 0.148539974470227 \tabularnewline
55 & 108 & 106.71782747458 & -0.108014553164348 & 1.28217252542003 & 0.0832118945730557 \tabularnewline
56 & 107 & 104.475962916450 & -1.56378235106117 & 2.5240370835505 & -0.252350865505948 \tabularnewline
57 & 99 & 104.861227371625 & -0.233559643920123 & -5.86122737162458 & 0.230580814859165 \tabularnewline
58 & 103 & 112.418024398797 & 5.08136494623352 & -9.4180243987968 & 0.921317388795852 \tabularnewline
59 & 131 & 121.528368754438 & 7.8284185439313 & 9.4716312455623 & 0.476423357856821 \tabularnewline
60 & 137 & 130.136884001081 & 8.3605269039473 & 6.86311599891946 & 0.0923648662541242 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=62232&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]161[/C][C]161[/C][C]0[/C][C]0[/C][C]0[/C][/ROW]
[ROW][C]2[/C][C]149[/C][C]150.652804954134[/C][C]-7.54703501666725[/C][C]-1.65280495413439[/C][C]-1.63771582823087[/C][/ROW]
[ROW][C]3[/C][C]139[/C][C]138.982655708135[/C][C]-10.5000705669800[/C][C]0.0173442918654433[/C][C]-0.526939710259491[/C][/ROW]
[ROW][C]4[/C][C]135[/C][C]133.864161340926[/C][C]-6.58052551882916[/C][C]1.13583865907379[/C][C]0.668550281526714[/C][/ROW]
[ROW][C]5[/C][C]130[/C][C]129.954139671962[/C][C]-4.65587222479019[/C][C]0.0458603280378227[/C][C]0.332322471049674[/C][/ROW]
[ROW][C]6[/C][C]127[/C][C]126.988868997811[/C][C]-3.43357963074273[/C][C]0.0111310021894042[/C][C]0.211954297131278[/C][/ROW]
[ROW][C]7[/C][C]122[/C][C]122.480802464784[/C][C]-4.21141819954527[/C][C]-0.480802464784292[/C][C]-0.134828025796281[/C][/ROW]
[ROW][C]8[/C][C]117[/C][C]117.299039632372[/C][C]-4.91378274889712[/C][C]-0.299039632372054[/C][C]-0.121747720423399[/C][/ROW]
[ROW][C]9[/C][C]112[/C][C]112.158059721224[/C][C]-5.0782043812403[/C][C]-0.158059721223623[/C][C]-0.0285009187671397[/C][/ROW]
[ROW][C]10[/C][C]113[/C][C]112.152979939957[/C][C]-1.40695357739817[/C][C]0.84702006004321[/C][C]0.636375230284341[/C][/ROW]
[ROW][C]11[/C][C]149[/C][C]143.070980811444[/C][C]21.9860350450926[/C][C]5.92901918855637[/C][C]4.05494630235283[/C][/ROW]
[ROW][C]12[/C][C]157[/C][C]160.047813503295[/C][C]18.3609133248431[/C][C]-3.04781350329533[/C][C]-0.628379465082242[/C][/ROW]
[ROW][C]13[/C][C]157[/C][C]159.903599811193[/C][C]5.10296396137905[/C][C]-2.90359981119305[/C][C]-2.38883808065303[/C][/ROW]
[ROW][C]14[/C][C]147[/C][C]149.560806664401[/C][C]-5.5817287150919[/C][C]-2.56080666440074[/C][C]-1.81943303091513[/C][/ROW]
[ROW][C]15[/C][C]137[/C][C]138.245352406242[/C][C]-9.49329810512953[/C][C]-1.24535240624249[/C][C]-0.687055826502149[/C][/ROW]
[ROW][C]16[/C][C]132[/C][C]130.547108147196[/C][C]-8.23855085620497[/C][C]1.45289185280430[/C][C]0.217680474947628[/C][/ROW]
[ROW][C]17[/C][C]125[/C][C]124.929951269511[/C][C]-6.41506099135959[/C][C]0.0700487304888313[/C][C]0.314266683881632[/C][/ROW]
[ROW][C]18[/C][C]123[/C][C]122.311131554423[/C][C]-3.77713230927587[/C][C]0.68886844557734[/C][C]0.457086040563384[/C][/ROW]
[ROW][C]19[/C][C]117[/C][C]117.442464820216[/C][C]-4.53720670332106[/C][C]-0.442464820216143[/C][C]-0.131772894658241[/C][/ROW]
[ROW][C]20[/C][C]114[/C][C]112.644613186522[/C][C]-4.7188049990728[/C][C]1.35538681347791[/C][C]-0.0314766363061678[/C][/ROW]
[ROW][C]21[/C][C]111[/C][C]110.204986216342[/C][C]-3.1308828302234[/C][C]0.795013783657597[/C][C]0.275251575401009[/C][/ROW]
[ROW][C]22[/C][C]112[/C][C]116.883620972700[/C][C]3.70319077371009[/C][C]-4.88362097269987[/C][C]1.18467504374390[/C][/ROW]
[ROW][C]23[/C][C]144[/C][C]135.559334884308[/C][C]14.1277381158775[/C][C]8.44066511569167[/C][C]1.80694466832398[/C][/ROW]
[ROW][C]24[/C][C]150[/C][C]150.249132854924[/C][C]14.5182840473446[/C][C]-0.249132854923828[/C][C]0.0678343163534942[/C][/ROW]
[ROW][C]25[/C][C]149[/C][C]151.241416944591[/C][C]5.09798096032244[/C][C]-2.24141694459116[/C][C]-1.64794338283718[/C][/ROW]
[ROW][C]26[/C][C]134[/C][C]138.216390052434[/C][C]-7.37162961885366[/C][C]-4.21639005243418[/C][C]-2.14798335074383[/C][/ROW]
[ROW][C]27[/C][C]123[/C][C]125.000778753994[/C][C]-11.3489070289402[/C][C]-2.00077875399352[/C][C]-0.692409525363189[/C][/ROW]
[ROW][C]28[/C][C]116[/C][C]114.706233550882[/C][C]-10.6226325870103[/C][C]1.29376644911757[/C][C]0.126377475930886[/C][/ROW]
[ROW][C]29[/C][C]117[/C][C]115.506657540663[/C][C]-2.75215508903027[/C][C]1.49334245933688[/C][C]1.35936480510199[/C][/ROW]
[ROW][C]30[/C][C]111[/C][C]110.708874214596[/C][C]-4.15790634141863[/C][C]0.291125785404126[/C][C]-0.243353609475447[/C][/ROW]
[ROW][C]31[/C][C]105[/C][C]104.903816307861[/C][C]-5.29123277787877[/C][C]0.0961836921393925[/C][C]-0.196488507873823[/C][/ROW]
[ROW][C]32[/C][C]102[/C][C]99.9516012637417[/C][C]-5.0577121332045[/C][C]2.04839873625832[/C][C]0.0404777932819462[/C][/ROW]
[ROW][C]33[/C][C]95[/C][C]95.9994195843924[/C][C]-4.29603794845461[/C][C]-0.999419584392443[/C][C]0.132029390768921[/C][/ROW]
[ROW][C]34[/C][C]93[/C][C]100.575947362725[/C][C]1.81514406999319[/C][C]-7.57594736272543[/C][C]1.05934968470607[/C][/ROW]
[ROW][C]35[/C][C]124[/C][C]114.716730869536[/C][C]10.2949290478122[/C][C]9.28326913046433[/C][C]1.47009361589350[/C][/ROW]
[ROW][C]36[/C][C]130[/C][C]127.458922979255[/C][C]11.9773660584991[/C][C]2.54107702074514[/C][C]0.292347366832890[/C][/ROW]
[ROW][C]37[/C][C]124[/C][C]124.778545006160[/C][C]1.88230592681973[/C][C]-0.778545006160475[/C][C]-1.75505818445573[/C][/ROW]
[ROW][C]38[/C][C]115[/C][C]118.497472376771[/C][C]-3.70343843832279[/C][C]-3.4974723767715[/C][C]-0.965125704944754[/C][/ROW]
[ROW][C]39[/C][C]106[/C][C]109.174032358363[/C][C]-7.52463032938233[/C][C]-3.1740323583633[/C][C]-0.663538604465324[/C][/ROW]
[ROW][C]40[/C][C]105[/C][C]105.755526274766[/C][C]-4.71574222647919[/C][C]-0.755526274765991[/C][C]0.488514565709078[/C][/ROW]
[ROW][C]41[/C][C]105[/C][C]102.742947895194[/C][C]-3.54856038586611[/C][C]2.25705210480565[/C][C]0.201972304211223[/C][/ROW]
[ROW][C]42[/C][C]101[/C][C]99.8632794521701[/C][C]-3.09119351949751[/C][C]1.13672054782987[/C][C]0.0791583705697196[/C][/ROW]
[ROW][C]43[/C][C]95[/C][C]94.6588556491954[/C][C]-4.53655741085967[/C][C]0.341144350804620[/C][C]-0.250532278129223[/C][/ROW]
[ROW][C]44[/C][C]93[/C][C]90.2396448656509[/C][C]-4.45620607426935[/C][C]2.76035513434908[/C][C]0.0139285858809953[/C][/ROW]
[ROW][C]45[/C][C]84[/C][C]86.9085081809692[/C][C]-3.68554823403002[/C][C]-2.90850818096915[/C][C]0.133585736338728[/C][/ROW]
[ROW][C]46[/C][C]87[/C][C]95.858702493427[/C][C]4.96625720967545[/C][C]-8.85870249342702[/C][C]1.49970820122581[/C][/ROW]
[ROW][C]47[/C][C]116[/C][C]107.161890545002[/C][C]9.30092899023232[/C][C]8.83810945499783[/C][C]0.751662415942542[/C][/ROW]
[ROW][C]48[/C][C]120[/C][C]114.589597038435[/C][C]8.01944986891799[/C][C]5.41040296156527[/C][C]-0.222564300568298[/C][/ROW]
[ROW][C]49[/C][C]117[/C][C]116.777751253016[/C][C]4.02677612580734[/C][C]0.222248746983824[/C][C]-0.69282149433411[/C][/ROW]
[ROW][C]50[/C][C]109[/C][C]112.572077361047[/C][C]-1.58619846105863[/C][C]-3.57207736104712[/C][C]-0.971012714933745[/C][/ROW]
[ROW][C]51[/C][C]105[/C][C]109.467059550568[/C][C]-2.61781299630844[/C][C]-4.46705955056778[/C][C]-0.178979442183705[/C][/ROW]
[ROW][C]52[/C][C]107[/C][C]108.081673612220[/C][C]-1.77786881547401[/C][C]-1.08167361222045[/C][C]0.145955639649442[/C][/ROW]
[ROW][C]53[/C][C]109[/C][C]106.789387532202[/C][C]-1.44627945369066[/C][C]2.21061246779847[/C][C]0.0574403511461303[/C][/ROW]
[ROW][C]54[/C][C]109[/C][C]106.601581858759[/C][C]-0.588191073262772[/C][C]2.39841814124124[/C][C]0.148539974470227[/C][/ROW]
[ROW][C]55[/C][C]108[/C][C]106.71782747458[/C][C]-0.108014553164348[/C][C]1.28217252542003[/C][C]0.0832118945730557[/C][/ROW]
[ROW][C]56[/C][C]107[/C][C]104.475962916450[/C][C]-1.56378235106117[/C][C]2.5240370835505[/C][C]-0.252350865505948[/C][/ROW]
[ROW][C]57[/C][C]99[/C][C]104.861227371625[/C][C]-0.233559643920123[/C][C]-5.86122737162458[/C][C]0.230580814859165[/C][/ROW]
[ROW][C]58[/C][C]103[/C][C]112.418024398797[/C][C]5.08136494623352[/C][C]-9.4180243987968[/C][C]0.921317388795852[/C][/ROW]
[ROW][C]59[/C][C]131[/C][C]121.528368754438[/C][C]7.8284185439313[/C][C]9.4716312455623[/C][C]0.476423357856821[/C][/ROW]
[ROW][C]60[/C][C]137[/C][C]130.136884001081[/C][C]8.3605269039473[/C][C]6.86311599891946[/C][C]0.0923648662541242[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=62232&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=62232&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	161	161	0	0	0
2	149	150.652804954134	-7.54703501666725	-1.65280495413439	-1.63771582823087
3	139	138.982655708135	-10.5000705669800	0.0173442918654433	-0.526939710259491
4	135	133.864161340926	-6.58052551882916	1.13583865907379	0.668550281526714
5	130	129.954139671962	-4.65587222479019	0.0458603280378227	0.332322471049674
6	127	126.988868997811	-3.43357963074273	0.0111310021894042	0.211954297131278
7	122	122.480802464784	-4.21141819954527	-0.480802464784292	-0.134828025796281
8	117	117.299039632372	-4.91378274889712	-0.299039632372054	-0.121747720423399
9	112	112.158059721224	-5.0782043812403	-0.158059721223623	-0.0285009187671397
10	113	112.152979939957	-1.40695357739817	0.84702006004321	0.636375230284341
11	149	143.070980811444	21.9860350450926	5.92901918855637	4.05494630235283
12	157	160.047813503295	18.3609133248431	-3.04781350329533	-0.628379465082242
13	157	159.903599811193	5.10296396137905	-2.90359981119305	-2.38883808065303
14	147	149.560806664401	-5.5817287150919	-2.56080666440074	-1.81943303091513
15	137	138.245352406242	-9.49329810512953	-1.24535240624249	-0.687055826502149
16	132	130.547108147196	-8.23855085620497	1.45289185280430	0.217680474947628
17	125	124.929951269511	-6.41506099135959	0.0700487304888313	0.314266683881632
18	123	122.311131554423	-3.77713230927587	0.68886844557734	0.457086040563384
19	117	117.442464820216	-4.53720670332106	-0.442464820216143	-0.131772894658241
20	114	112.644613186522	-4.7188049990728	1.35538681347791	-0.0314766363061678
21	111	110.204986216342	-3.1308828302234	0.795013783657597	0.275251575401009
22	112	116.883620972700	3.70319077371009	-4.88362097269987	1.18467504374390
23	144	135.559334884308	14.1277381158775	8.44066511569167	1.80694466832398
24	150	150.249132854924	14.5182840473446	-0.249132854923828	0.0678343163534942
25	149	151.241416944591	5.09798096032244	-2.24141694459116	-1.64794338283718
26	134	138.216390052434	-7.37162961885366	-4.21639005243418	-2.14798335074383
27	123	125.000778753994	-11.3489070289402	-2.00077875399352	-0.692409525363189
28	116	114.706233550882	-10.6226325870103	1.29376644911757	0.126377475930886
29	117	115.506657540663	-2.75215508903027	1.49334245933688	1.35936480510199
30	111	110.708874214596	-4.15790634141863	0.291125785404126	-0.243353609475447
31	105	104.903816307861	-5.29123277787877	0.0961836921393925	-0.196488507873823
32	102	99.9516012637417	-5.0577121332045	2.04839873625832	0.0404777932819462
33	95	95.9994195843924	-4.29603794845461	-0.999419584392443	0.132029390768921
34	93	100.575947362725	1.81514406999319	-7.57594736272543	1.05934968470607
35	124	114.716730869536	10.2949290478122	9.28326913046433	1.47009361589350
36	130	127.458922979255	11.9773660584991	2.54107702074514	0.292347366832890
37	124	124.778545006160	1.88230592681973	-0.778545006160475	-1.75505818445573
38	115	118.497472376771	-3.70343843832279	-3.4974723767715	-0.965125704944754
39	106	109.174032358363	-7.52463032938233	-3.1740323583633	-0.663538604465324
40	105	105.755526274766	-4.71574222647919	-0.755526274765991	0.488514565709078
41	105	102.742947895194	-3.54856038586611	2.25705210480565	0.201972304211223
42	101	99.8632794521701	-3.09119351949751	1.13672054782987	0.0791583705697196
43	95	94.6588556491954	-4.53655741085967	0.341144350804620	-0.250532278129223
44	93	90.2396448656509	-4.45620607426935	2.76035513434908	0.0139285858809953
45	84	86.9085081809692	-3.68554823403002	-2.90850818096915	0.133585736338728
46	87	95.858702493427	4.96625720967545	-8.85870249342702	1.49970820122581
47	116	107.161890545002	9.30092899023232	8.83810945499783	0.751662415942542
48	120	114.589597038435	8.01944986891799	5.41040296156527	-0.222564300568298
49	117	116.777751253016	4.02677612580734	0.222248746983824	-0.69282149433411
50	109	112.572077361047	-1.58619846105863	-3.57207736104712	-0.971012714933745
51	105	109.467059550568	-2.61781299630844	-4.46705955056778	-0.178979442183705
52	107	108.081673612220	-1.77786881547401	-1.08167361222045	0.145955639649442
53	109	106.789387532202	-1.44627945369066	2.21061246779847	0.0574403511461303
54	109	106.601581858759	-0.588191073262772	2.39841814124124	0.148539974470227
55	108	106.71782747458	-0.108014553164348	1.28217252542003	0.0832118945730557
56	107	104.475962916450	-1.56378235106117	2.5240370835505	-0.252350865505948
57	99	104.861227371625	-0.233559643920123	-5.86122737162458	0.230580814859165
58	103	112.418024398797	5.08136494623352	-9.4180243987968	0.921317388795852
59	131	121.528368754438	7.8284185439313	9.4716312455623	0.476423357856821
60	137	130.136884001081	8.3605269039473	6.86311599891946	0.0923648662541242

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