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, 07 Dec 2010 09:56:13 +0000

Cite this page as follows

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2010/Dec/07/t1291715692blrs0kzyf92vw5o.htm/, Retrieved Fri, 03 May 2024 20:04:23 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=106099, Retrieved Fri, 03 May 2024 20:04:23 +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

127

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] [WS09 - Local leve...] [2009-12-02 20:43:12] [df6326eec97a6ca984a853b142930499]
- R PD        [Structural Time Series Models] [] [2010-12-07 09:56:13] [44163a3390d803b6e1dc8c2f0815c192] [Current]

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

Summary of computational transaction
Raw Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	4 seconds
R Server	'Sir Ronald Aylmer Fisher' @ 193.190.124.24

\begin{tabular}{lllllllll}
\hline
Summary of computational transaction \tabularnewline
Raw Input & view raw input (R code)  \tabularnewline
Raw Output & view raw output of R engine  \tabularnewline
Computing time & 4 seconds \tabularnewline
R Server & 'Sir Ronald Aylmer Fisher' @ 193.190.124.24 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=106099&T=0

[TABLE]
[ROW][C]Summary of computational transaction[/C][/ROW]
[ROW][C]Raw Input[/C][C]view raw input (R code) [/C][/ROW]
[ROW][C]Raw Output[/C][C]view raw output of R engine [/C][/ROW]
[ROW][C]Computing time[/C][C]4 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'Sir Ronald Aylmer Fisher' @ 193.190.124.24[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=106099&T=0

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

As an alternative you can also use a QR Code:

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

Summary of computational transaction
Raw Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	4 seconds
R Server	'Sir Ronald Aylmer Fisher' @ 193.190.124.24

Structural Time Series Model
t	Observed	Level	Slope	Seasonal	Stand. Residuals
1	46	46	0	0	0
2	62	48.0597721845123	0.438809647807576	3.54588131669584	1.57354753017656
3	66	52.6075402792847	1.21254641887133	3.23398221008467	1.69784159753678
4	59	55.196897804194	1.42576222524469	0.757802304723039	0.518056104064447
5	58	56.7474657807925	1.44205635486036	0.974649914617405	0.0471245700968842
6	61	58.5123192353288	1.47843238398802	1.74015611823267	0.125792982206389
7	41	55.5229329157744	1.03572082198720	-3.65481966413236	-1.81350760115556
8	27	49.6182155640278	0.422091070104714	-4.86177924259477	-2.93940161834491
9	58	50.8872940012819	0.489705041541521	4.83917127273958	0.373688244996032
10	70	55.0707456051864	0.758568568079706	4.56725852046717	1.69258734286791
11	49	54.7479114478633	0.686198814276719	-2.59132078952599	-0.512856998388462
12	59	55.8619648560587	0.712711230136431	1.84410451993083	0.209260503745663
13	44	56.2102932789977	0.724336651337164	-10.1672209657321	-0.330330369268821
14	36	52.9978655845587	0.550595808963865	-5.21233157658326	-1.99983014108562
15	72	55.9513481574925	0.679545079453177	9.7601272797712	1.09667763768074
16	45	54.8177833072999	0.58393566045628	-4.97509991511472	-0.845724481363
17	56	55.2100671607486	0.57440008249081	1.32727511458341	-0.0933827996623771
18	54	54.844192057275	0.530571469084065	1.9163361892134	-0.477263984019083
19	53	54.9588864543482	0.51238082511351	-0.689924797490876	-0.218436954150590
20	35	52.9973496699936	0.410448802847295	-10.2063903347090	-1.33642346160890
21	61	53.7916442489172	0.425406155891318	5.96765487376864	0.212218423268656
22	52	53.167550891779	0.386629854743144	2.30019097290813	-0.591716224831296
23	47	52.8558009355291	0.36232564533282	-3.4990023275797	-0.401116083199345
24	51	52.3907511456306	0.337225517451316	1.50411936837785	-0.489986388477468
25	52	53.1331519391485	0.339054207920607	-2.82688702533649	0.286110773472820
26	63	55.8107031764728	0.392831392870773	-1.04624331380961	1.41538539512040
27	74	57.6332490985803	0.436800349321582	11.7324351466442	0.807281734840497
28	45	57.0703406621145	0.404417354131301	-8.87141218919692	-0.559501095878015
29	51	56.0681686025309	0.359638497420152	-0.510231058219521	-0.796994854466369
30	64	56.9495348335839	0.375604084600534	5.32792319320188	0.300736105834529
31	36	54.1030393876645	0.281393320613122	-7.2681865324244	-1.88836276403969
32	30	51.8779910994564	0.211399010945687	-13.3115959268030	-1.49061077732025
33	55	51.0991219646514	0.184976775222993	7.33378245168349	-0.596482511333149
34	64	52.4738256890102	0.215185757443916	7.34699369109719	0.725080347463454
35	39	51.3760692641207	0.184192139087732	-7.69268005990597	-0.810889291688109
36	40	49.7130745531784	0.147642570274642	-2.9387304010156	-1.16850670005281
37	63	51.8405964223862	0.167191446733645	3.38177882730635	1.3376441979419
38	45	51.5779860201348	0.160131530081514	-4.99493046061466	-0.274098748821633
39	59	50.895108502376	0.142190360730116	11.0615153520207	-0.515707765343614
40	55	52.5346372207714	0.176807223093539	-2.70325631829123	0.90460011278997
41	40	51.1462397448066	0.140270282058093	-5.73373085676533	-0.948006943457502
42	64	51.6259562999033	0.148031833012400	11.1900650557176	0.207289558900143
43	27	49.0650355969983	0.0881076514158906	-12.5172993555984	-1.67021700097748
44	28	47.58222884341	0.0546667273702632	-13.9882077766203	-0.977654965159655
45	45	46.0953522544883	0.0232256090199660	4.44812177250886	-0.967850638149091
46	57	46.1237958841759	0.0233265332720753	10.8572520970193	0.00330500071976019
47	45	46.8224365275428	0.0353458485571801	-4.30527936745036	0.432263225001445
48	69	50.4697307328244	0.0897151812255462	4.99454079739819	2.35094343313774
49	60	51.7856112804661	0.102837887569286	3.48101976194119	0.820339889895021
50	56	53.2653076605075	0.121261940597883	-2.43386972899106	0.898329857720658
51	58	52.89516576079	0.113245087746417	6.89674204132185	-0.312747898662718
52	50	52.7090692759089	0.107906503517759	-1.63188193443569	-0.188475617741982
53	51	53.213240835909	0.115155321105339	-3.63669026764013	0.249291393763048
54	53	51.4209294827991	0.0805087726444711	8.45857807320653	-1.20484683301625
55	37	50.71522883305	0.0665610586463731	-10.8615549477149	-0.499572656763515
56	22	48.5097972250097	0.0275639274452978	-18.2044626383856	-1.45305366354837
57	55	48.5333845576781	0.0274984448370330	6.48125901181083	-0.00256000560218153
58	70	50.1573161653137	0.0523744088965303	13.9175367652720	1.03485707997136
59	62	53.0477739825201	0.0930402180971634	-1.68144798393238	1.85489353670178
60	58	53.7658116416095	0.100827122248203	1.86244623340146	0.413073638120074
61	39	51.8077017429776	0.0795282592978184	-4.88575862293053	-1.37785229209219
62	49	51.4544558027878	0.0745312288340987	-0.811612224101413	-0.286117634131379
63	58	51.3138679537037	0.0716640859417043	7.48854516362709	-0.140089812690450
64	47	50.9147085318999	0.0648480367139138	-2.17594801076229	-0.304099694632655
65	42	49.9005241499484	0.0487102047337609	-3.92637963360346	-0.695636940269711
66	62	50.0847680013577	0.0507407846279815	11.4151670815977	0.0875473461718351
67	39	49.867890016197	0.0467970781302325	-9.87647960925	-0.173532429737553
68	40	51.0594151431041	0.0631894214363188	-15.3217537401326	0.745742192752294
69	72	53.4561576308915	0.0953074992742823	9.80596740754347	1.52788565374017
70	70	54.5697932795816	0.108582624677618	11.5934161465255	0.670388347514449
71	54	54.9852558253818	0.112283011449092	-2.14985901041551	0.203296282712907
72	65	55.928543696999	0.121253337694937	5.89095897658286	0.554615216213689

\begin{tabular}{lllllllll}
\hline
Structural Time Series Model \tabularnewline
t & Observed & Level & Slope & Seasonal & Stand. Residuals \tabularnewline
1 & 46 & 46 & 0 & 0 & 0 \tabularnewline
2 & 62 & 48.0597721845123 & 0.438809647807576 & 3.54588131669584 & 1.57354753017656 \tabularnewline
3 & 66 & 52.6075402792847 & 1.21254641887133 & 3.23398221008467 & 1.69784159753678 \tabularnewline
4 & 59 & 55.196897804194 & 1.42576222524469 & 0.757802304723039 & 0.518056104064447 \tabularnewline
5 & 58 & 56.7474657807925 & 1.44205635486036 & 0.974649914617405 & 0.0471245700968842 \tabularnewline
6 & 61 & 58.5123192353288 & 1.47843238398802 & 1.74015611823267 & 0.125792982206389 \tabularnewline
7 & 41 & 55.5229329157744 & 1.03572082198720 & -3.65481966413236 & -1.81350760115556 \tabularnewline
8 & 27 & 49.6182155640278 & 0.422091070104714 & -4.86177924259477 & -2.93940161834491 \tabularnewline
9 & 58 & 50.8872940012819 & 0.489705041541521 & 4.83917127273958 & 0.373688244996032 \tabularnewline
10 & 70 & 55.0707456051864 & 0.758568568079706 & 4.56725852046717 & 1.69258734286791 \tabularnewline
11 & 49 & 54.7479114478633 & 0.686198814276719 & -2.59132078952599 & -0.512856998388462 \tabularnewline
12 & 59 & 55.8619648560587 & 0.712711230136431 & 1.84410451993083 & 0.209260503745663 \tabularnewline
13 & 44 & 56.2102932789977 & 0.724336651337164 & -10.1672209657321 & -0.330330369268821 \tabularnewline
14 & 36 & 52.9978655845587 & 0.550595808963865 & -5.21233157658326 & -1.99983014108562 \tabularnewline
15 & 72 & 55.9513481574925 & 0.679545079453177 & 9.7601272797712 & 1.09667763768074 \tabularnewline
16 & 45 & 54.8177833072999 & 0.58393566045628 & -4.97509991511472 & -0.845724481363 \tabularnewline
17 & 56 & 55.2100671607486 & 0.57440008249081 & 1.32727511458341 & -0.0933827996623771 \tabularnewline
18 & 54 & 54.844192057275 & 0.530571469084065 & 1.9163361892134 & -0.477263984019083 \tabularnewline
19 & 53 & 54.9588864543482 & 0.51238082511351 & -0.689924797490876 & -0.218436954150590 \tabularnewline
20 & 35 & 52.9973496699936 & 0.410448802847295 & -10.2063903347090 & -1.33642346160890 \tabularnewline
21 & 61 & 53.7916442489172 & 0.425406155891318 & 5.96765487376864 & 0.212218423268656 \tabularnewline
22 & 52 & 53.167550891779 & 0.386629854743144 & 2.30019097290813 & -0.591716224831296 \tabularnewline
23 & 47 & 52.8558009355291 & 0.36232564533282 & -3.4990023275797 & -0.401116083199345 \tabularnewline
24 & 51 & 52.3907511456306 & 0.337225517451316 & 1.50411936837785 & -0.489986388477468 \tabularnewline
25 & 52 & 53.1331519391485 & 0.339054207920607 & -2.82688702533649 & 0.286110773472820 \tabularnewline
26 & 63 & 55.8107031764728 & 0.392831392870773 & -1.04624331380961 & 1.41538539512040 \tabularnewline
27 & 74 & 57.6332490985803 & 0.436800349321582 & 11.7324351466442 & 0.807281734840497 \tabularnewline
28 & 45 & 57.0703406621145 & 0.404417354131301 & -8.87141218919692 & -0.559501095878015 \tabularnewline
29 & 51 & 56.0681686025309 & 0.359638497420152 & -0.510231058219521 & -0.796994854466369 \tabularnewline
30 & 64 & 56.9495348335839 & 0.375604084600534 & 5.32792319320188 & 0.300736105834529 \tabularnewline
31 & 36 & 54.1030393876645 & 0.281393320613122 & -7.2681865324244 & -1.88836276403969 \tabularnewline
32 & 30 & 51.8779910994564 & 0.211399010945687 & -13.3115959268030 & -1.49061077732025 \tabularnewline
33 & 55 & 51.0991219646514 & 0.184976775222993 & 7.33378245168349 & -0.596482511333149 \tabularnewline
34 & 64 & 52.4738256890102 & 0.215185757443916 & 7.34699369109719 & 0.725080347463454 \tabularnewline
35 & 39 & 51.3760692641207 & 0.184192139087732 & -7.69268005990597 & -0.810889291688109 \tabularnewline
36 & 40 & 49.7130745531784 & 0.147642570274642 & -2.9387304010156 & -1.16850670005281 \tabularnewline
37 & 63 & 51.8405964223862 & 0.167191446733645 & 3.38177882730635 & 1.3376441979419 \tabularnewline
38 & 45 & 51.5779860201348 & 0.160131530081514 & -4.99493046061466 & -0.274098748821633 \tabularnewline
39 & 59 & 50.895108502376 & 0.142190360730116 & 11.0615153520207 & -0.515707765343614 \tabularnewline
40 & 55 & 52.5346372207714 & 0.176807223093539 & -2.70325631829123 & 0.90460011278997 \tabularnewline
41 & 40 & 51.1462397448066 & 0.140270282058093 & -5.73373085676533 & -0.948006943457502 \tabularnewline
42 & 64 & 51.6259562999033 & 0.148031833012400 & 11.1900650557176 & 0.207289558900143 \tabularnewline
43 & 27 & 49.0650355969983 & 0.0881076514158906 & -12.5172993555984 & -1.67021700097748 \tabularnewline
44 & 28 & 47.58222884341 & 0.0546667273702632 & -13.9882077766203 & -0.977654965159655 \tabularnewline
45 & 45 & 46.0953522544883 & 0.0232256090199660 & 4.44812177250886 & -0.967850638149091 \tabularnewline
46 & 57 & 46.1237958841759 & 0.0233265332720753 & 10.8572520970193 & 0.00330500071976019 \tabularnewline
47 & 45 & 46.8224365275428 & 0.0353458485571801 & -4.30527936745036 & 0.432263225001445 \tabularnewline
48 & 69 & 50.4697307328244 & 0.0897151812255462 & 4.99454079739819 & 2.35094343313774 \tabularnewline
49 & 60 & 51.7856112804661 & 0.102837887569286 & 3.48101976194119 & 0.820339889895021 \tabularnewline
50 & 56 & 53.2653076605075 & 0.121261940597883 & -2.43386972899106 & 0.898329857720658 \tabularnewline
51 & 58 & 52.89516576079 & 0.113245087746417 & 6.89674204132185 & -0.312747898662718 \tabularnewline
52 & 50 & 52.7090692759089 & 0.107906503517759 & -1.63188193443569 & -0.188475617741982 \tabularnewline
53 & 51 & 53.213240835909 & 0.115155321105339 & -3.63669026764013 & 0.249291393763048 \tabularnewline
54 & 53 & 51.4209294827991 & 0.0805087726444711 & 8.45857807320653 & -1.20484683301625 \tabularnewline
55 & 37 & 50.71522883305 & 0.0665610586463731 & -10.8615549477149 & -0.499572656763515 \tabularnewline
56 & 22 & 48.5097972250097 & 0.0275639274452978 & -18.2044626383856 & -1.45305366354837 \tabularnewline
57 & 55 & 48.5333845576781 & 0.0274984448370330 & 6.48125901181083 & -0.00256000560218153 \tabularnewline
58 & 70 & 50.1573161653137 & 0.0523744088965303 & 13.9175367652720 & 1.03485707997136 \tabularnewline
59 & 62 & 53.0477739825201 & 0.0930402180971634 & -1.68144798393238 & 1.85489353670178 \tabularnewline
60 & 58 & 53.7658116416095 & 0.100827122248203 & 1.86244623340146 & 0.413073638120074 \tabularnewline
61 & 39 & 51.8077017429776 & 0.0795282592978184 & -4.88575862293053 & -1.37785229209219 \tabularnewline
62 & 49 & 51.4544558027878 & 0.0745312288340987 & -0.811612224101413 & -0.286117634131379 \tabularnewline
63 & 58 & 51.3138679537037 & 0.0716640859417043 & 7.48854516362709 & -0.140089812690450 \tabularnewline
64 & 47 & 50.9147085318999 & 0.0648480367139138 & -2.17594801076229 & -0.304099694632655 \tabularnewline
65 & 42 & 49.9005241499484 & 0.0487102047337609 & -3.92637963360346 & -0.695636940269711 \tabularnewline
66 & 62 & 50.0847680013577 & 0.0507407846279815 & 11.4151670815977 & 0.0875473461718351 \tabularnewline
67 & 39 & 49.867890016197 & 0.0467970781302325 & -9.87647960925 & -0.173532429737553 \tabularnewline
68 & 40 & 51.0594151431041 & 0.0631894214363188 & -15.3217537401326 & 0.745742192752294 \tabularnewline
69 & 72 & 53.4561576308915 & 0.0953074992742823 & 9.80596740754347 & 1.52788565374017 \tabularnewline
70 & 70 & 54.5697932795816 & 0.108582624677618 & 11.5934161465255 & 0.670388347514449 \tabularnewline
71 & 54 & 54.9852558253818 & 0.112283011449092 & -2.14985901041551 & 0.203296282712907 \tabularnewline
72 & 65 & 55.928543696999 & 0.121253337694937 & 5.89095897658286 & 0.554615216213689 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=106099&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]46[/C][C]46[/C][C]0[/C][C]0[/C][C]0[/C][/ROW]
[ROW][C]2[/C][C]62[/C][C]48.0597721845123[/C][C]0.438809647807576[/C][C]3.54588131669584[/C][C]1.57354753017656[/C][/ROW]
[ROW][C]3[/C][C]66[/C][C]52.6075402792847[/C][C]1.21254641887133[/C][C]3.23398221008467[/C][C]1.69784159753678[/C][/ROW]
[ROW][C]4[/C][C]59[/C][C]55.196897804194[/C][C]1.42576222524469[/C][C]0.757802304723039[/C][C]0.518056104064447[/C][/ROW]
[ROW][C]5[/C][C]58[/C][C]56.7474657807925[/C][C]1.44205635486036[/C][C]0.974649914617405[/C][C]0.0471245700968842[/C][/ROW]
[ROW][C]6[/C][C]61[/C][C]58.5123192353288[/C][C]1.47843238398802[/C][C]1.74015611823267[/C][C]0.125792982206389[/C][/ROW]
[ROW][C]7[/C][C]41[/C][C]55.5229329157744[/C][C]1.03572082198720[/C][C]-3.65481966413236[/C][C]-1.81350760115556[/C][/ROW]
[ROW][C]8[/C][C]27[/C][C]49.6182155640278[/C][C]0.422091070104714[/C][C]-4.86177924259477[/C][C]-2.93940161834491[/C][/ROW]
[ROW][C]9[/C][C]58[/C][C]50.8872940012819[/C][C]0.489705041541521[/C][C]4.83917127273958[/C][C]0.373688244996032[/C][/ROW]
[ROW][C]10[/C][C]70[/C][C]55.0707456051864[/C][C]0.758568568079706[/C][C]4.56725852046717[/C][C]1.69258734286791[/C][/ROW]
[ROW][C]11[/C][C]49[/C][C]54.7479114478633[/C][C]0.686198814276719[/C][C]-2.59132078952599[/C][C]-0.512856998388462[/C][/ROW]
[ROW][C]12[/C][C]59[/C][C]55.8619648560587[/C][C]0.712711230136431[/C][C]1.84410451993083[/C][C]0.209260503745663[/C][/ROW]
[ROW][C]13[/C][C]44[/C][C]56.2102932789977[/C][C]0.724336651337164[/C][C]-10.1672209657321[/C][C]-0.330330369268821[/C][/ROW]
[ROW][C]14[/C][C]36[/C][C]52.9978655845587[/C][C]0.550595808963865[/C][C]-5.21233157658326[/C][C]-1.99983014108562[/C][/ROW]
[ROW][C]15[/C][C]72[/C][C]55.9513481574925[/C][C]0.679545079453177[/C][C]9.7601272797712[/C][C]1.09667763768074[/C][/ROW]
[ROW][C]16[/C][C]45[/C][C]54.8177833072999[/C][C]0.58393566045628[/C][C]-4.97509991511472[/C][C]-0.845724481363[/C][/ROW]
[ROW][C]17[/C][C]56[/C][C]55.2100671607486[/C][C]0.57440008249081[/C][C]1.32727511458341[/C][C]-0.0933827996623771[/C][/ROW]
[ROW][C]18[/C][C]54[/C][C]54.844192057275[/C][C]0.530571469084065[/C][C]1.9163361892134[/C][C]-0.477263984019083[/C][/ROW]
[ROW][C]19[/C][C]53[/C][C]54.9588864543482[/C][C]0.51238082511351[/C][C]-0.689924797490876[/C][C]-0.218436954150590[/C][/ROW]
[ROW][C]20[/C][C]35[/C][C]52.9973496699936[/C][C]0.410448802847295[/C][C]-10.2063903347090[/C][C]-1.33642346160890[/C][/ROW]
[ROW][C]21[/C][C]61[/C][C]53.7916442489172[/C][C]0.425406155891318[/C][C]5.96765487376864[/C][C]0.212218423268656[/C][/ROW]
[ROW][C]22[/C][C]52[/C][C]53.167550891779[/C][C]0.386629854743144[/C][C]2.30019097290813[/C][C]-0.591716224831296[/C][/ROW]
[ROW][C]23[/C][C]47[/C][C]52.8558009355291[/C][C]0.36232564533282[/C][C]-3.4990023275797[/C][C]-0.401116083199345[/C][/ROW]
[ROW][C]24[/C][C]51[/C][C]52.3907511456306[/C][C]0.337225517451316[/C][C]1.50411936837785[/C][C]-0.489986388477468[/C][/ROW]
[ROW][C]25[/C][C]52[/C][C]53.1331519391485[/C][C]0.339054207920607[/C][C]-2.82688702533649[/C][C]0.286110773472820[/C][/ROW]
[ROW][C]26[/C][C]63[/C][C]55.8107031764728[/C][C]0.392831392870773[/C][C]-1.04624331380961[/C][C]1.41538539512040[/C][/ROW]
[ROW][C]27[/C][C]74[/C][C]57.6332490985803[/C][C]0.436800349321582[/C][C]11.7324351466442[/C][C]0.807281734840497[/C][/ROW]
[ROW][C]28[/C][C]45[/C][C]57.0703406621145[/C][C]0.404417354131301[/C][C]-8.87141218919692[/C][C]-0.559501095878015[/C][/ROW]
[ROW][C]29[/C][C]51[/C][C]56.0681686025309[/C][C]0.359638497420152[/C][C]-0.510231058219521[/C][C]-0.796994854466369[/C][/ROW]
[ROW][C]30[/C][C]64[/C][C]56.9495348335839[/C][C]0.375604084600534[/C][C]5.32792319320188[/C][C]0.300736105834529[/C][/ROW]
[ROW][C]31[/C][C]36[/C][C]54.1030393876645[/C][C]0.281393320613122[/C][C]-7.2681865324244[/C][C]-1.88836276403969[/C][/ROW]
[ROW][C]32[/C][C]30[/C][C]51.8779910994564[/C][C]0.211399010945687[/C][C]-13.3115959268030[/C][C]-1.49061077732025[/C][/ROW]
[ROW][C]33[/C][C]55[/C][C]51.0991219646514[/C][C]0.184976775222993[/C][C]7.33378245168349[/C][C]-0.596482511333149[/C][/ROW]
[ROW][C]34[/C][C]64[/C][C]52.4738256890102[/C][C]0.215185757443916[/C][C]7.34699369109719[/C][C]0.725080347463454[/C][/ROW]
[ROW][C]35[/C][C]39[/C][C]51.3760692641207[/C][C]0.184192139087732[/C][C]-7.69268005990597[/C][C]-0.810889291688109[/C][/ROW]
[ROW][C]36[/C][C]40[/C][C]49.7130745531784[/C][C]0.147642570274642[/C][C]-2.9387304010156[/C][C]-1.16850670005281[/C][/ROW]
[ROW][C]37[/C][C]63[/C][C]51.8405964223862[/C][C]0.167191446733645[/C][C]3.38177882730635[/C][C]1.3376441979419[/C][/ROW]
[ROW][C]38[/C][C]45[/C][C]51.5779860201348[/C][C]0.160131530081514[/C][C]-4.99493046061466[/C][C]-0.274098748821633[/C][/ROW]
[ROW][C]39[/C][C]59[/C][C]50.895108502376[/C][C]0.142190360730116[/C][C]11.0615153520207[/C][C]-0.515707765343614[/C][/ROW]
[ROW][C]40[/C][C]55[/C][C]52.5346372207714[/C][C]0.176807223093539[/C][C]-2.70325631829123[/C][C]0.90460011278997[/C][/ROW]
[ROW][C]41[/C][C]40[/C][C]51.1462397448066[/C][C]0.140270282058093[/C][C]-5.73373085676533[/C][C]-0.948006943457502[/C][/ROW]
[ROW][C]42[/C][C]64[/C][C]51.6259562999033[/C][C]0.148031833012400[/C][C]11.1900650557176[/C][C]0.207289558900143[/C][/ROW]
[ROW][C]43[/C][C]27[/C][C]49.0650355969983[/C][C]0.0881076514158906[/C][C]-12.5172993555984[/C][C]-1.67021700097748[/C][/ROW]
[ROW][C]44[/C][C]28[/C][C]47.58222884341[/C][C]0.0546667273702632[/C][C]-13.9882077766203[/C][C]-0.977654965159655[/C][/ROW]
[ROW][C]45[/C][C]45[/C][C]46.0953522544883[/C][C]0.0232256090199660[/C][C]4.44812177250886[/C][C]-0.967850638149091[/C][/ROW]
[ROW][C]46[/C][C]57[/C][C]46.1237958841759[/C][C]0.0233265332720753[/C][C]10.8572520970193[/C][C]0.00330500071976019[/C][/ROW]
[ROW][C]47[/C][C]45[/C][C]46.8224365275428[/C][C]0.0353458485571801[/C][C]-4.30527936745036[/C][C]0.432263225001445[/C][/ROW]
[ROW][C]48[/C][C]69[/C][C]50.4697307328244[/C][C]0.0897151812255462[/C][C]4.99454079739819[/C][C]2.35094343313774[/C][/ROW]
[ROW][C]49[/C][C]60[/C][C]51.7856112804661[/C][C]0.102837887569286[/C][C]3.48101976194119[/C][C]0.820339889895021[/C][/ROW]
[ROW][C]50[/C][C]56[/C][C]53.2653076605075[/C][C]0.121261940597883[/C][C]-2.43386972899106[/C][C]0.898329857720658[/C][/ROW]
[ROW][C]51[/C][C]58[/C][C]52.89516576079[/C][C]0.113245087746417[/C][C]6.89674204132185[/C][C]-0.312747898662718[/C][/ROW]
[ROW][C]52[/C][C]50[/C][C]52.7090692759089[/C][C]0.107906503517759[/C][C]-1.63188193443569[/C][C]-0.188475617741982[/C][/ROW]
[ROW][C]53[/C][C]51[/C][C]53.213240835909[/C][C]0.115155321105339[/C][C]-3.63669026764013[/C][C]0.249291393763048[/C][/ROW]
[ROW][C]54[/C][C]53[/C][C]51.4209294827991[/C][C]0.0805087726444711[/C][C]8.45857807320653[/C][C]-1.20484683301625[/C][/ROW]
[ROW][C]55[/C][C]37[/C][C]50.71522883305[/C][C]0.0665610586463731[/C][C]-10.8615549477149[/C][C]-0.499572656763515[/C][/ROW]
[ROW][C]56[/C][C]22[/C][C]48.5097972250097[/C][C]0.0275639274452978[/C][C]-18.2044626383856[/C][C]-1.45305366354837[/C][/ROW]
[ROW][C]57[/C][C]55[/C][C]48.5333845576781[/C][C]0.0274984448370330[/C][C]6.48125901181083[/C][C]-0.00256000560218153[/C][/ROW]
[ROW][C]58[/C][C]70[/C][C]50.1573161653137[/C][C]0.0523744088965303[/C][C]13.9175367652720[/C][C]1.03485707997136[/C][/ROW]
[ROW][C]59[/C][C]62[/C][C]53.0477739825201[/C][C]0.0930402180971634[/C][C]-1.68144798393238[/C][C]1.85489353670178[/C][/ROW]
[ROW][C]60[/C][C]58[/C][C]53.7658116416095[/C][C]0.100827122248203[/C][C]1.86244623340146[/C][C]0.413073638120074[/C][/ROW]
[ROW][C]61[/C][C]39[/C][C]51.8077017429776[/C][C]0.0795282592978184[/C][C]-4.88575862293053[/C][C]-1.37785229209219[/C][/ROW]
[ROW][C]62[/C][C]49[/C][C]51.4544558027878[/C][C]0.0745312288340987[/C][C]-0.811612224101413[/C][C]-0.286117634131379[/C][/ROW]
[ROW][C]63[/C][C]58[/C][C]51.3138679537037[/C][C]0.0716640859417043[/C][C]7.48854516362709[/C][C]-0.140089812690450[/C][/ROW]
[ROW][C]64[/C][C]47[/C][C]50.9147085318999[/C][C]0.0648480367139138[/C][C]-2.17594801076229[/C][C]-0.304099694632655[/C][/ROW]
[ROW][C]65[/C][C]42[/C][C]49.9005241499484[/C][C]0.0487102047337609[/C][C]-3.92637963360346[/C][C]-0.695636940269711[/C][/ROW]
[ROW][C]66[/C][C]62[/C][C]50.0847680013577[/C][C]0.0507407846279815[/C][C]11.4151670815977[/C][C]0.0875473461718351[/C][/ROW]
[ROW][C]67[/C][C]39[/C][C]49.867890016197[/C][C]0.0467970781302325[/C][C]-9.87647960925[/C][C]-0.173532429737553[/C][/ROW]
[ROW][C]68[/C][C]40[/C][C]51.0594151431041[/C][C]0.0631894214363188[/C][C]-15.3217537401326[/C][C]0.745742192752294[/C][/ROW]
[ROW][C]69[/C][C]72[/C][C]53.4561576308915[/C][C]0.0953074992742823[/C][C]9.80596740754347[/C][C]1.52788565374017[/C][/ROW]
[ROW][C]70[/C][C]70[/C][C]54.5697932795816[/C][C]0.108582624677618[/C][C]11.5934161465255[/C][C]0.670388347514449[/C][/ROW]
[ROW][C]71[/C][C]54[/C][C]54.9852558253818[/C][C]0.112283011449092[/C][C]-2.14985901041551[/C][C]0.203296282712907[/C][/ROW]
[ROW][C]72[/C][C]65[/C][C]55.928543696999[/C][C]0.121253337694937[/C][C]5.89095897658286[/C][C]0.554615216213689[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=106099&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=106099&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	46	46	0	0	0
2	62	48.0597721845123	0.438809647807576	3.54588131669584	1.57354753017656
3	66	52.6075402792847	1.21254641887133	3.23398221008467	1.69784159753678
4	59	55.196897804194	1.42576222524469	0.757802304723039	0.518056104064447
5	58	56.7474657807925	1.44205635486036	0.974649914617405	0.0471245700968842
6	61	58.5123192353288	1.47843238398802	1.74015611823267	0.125792982206389
7	41	55.5229329157744	1.03572082198720	-3.65481966413236	-1.81350760115556
8	27	49.6182155640278	0.422091070104714	-4.86177924259477	-2.93940161834491
9	58	50.8872940012819	0.489705041541521	4.83917127273958	0.373688244996032
10	70	55.0707456051864	0.758568568079706	4.56725852046717	1.69258734286791
11	49	54.7479114478633	0.686198814276719	-2.59132078952599	-0.512856998388462
12	59	55.8619648560587	0.712711230136431	1.84410451993083	0.209260503745663
13	44	56.2102932789977	0.724336651337164	-10.1672209657321	-0.330330369268821
14	36	52.9978655845587	0.550595808963865	-5.21233157658326	-1.99983014108562
15	72	55.9513481574925	0.679545079453177	9.7601272797712	1.09667763768074
16	45	54.8177833072999	0.58393566045628	-4.97509991511472	-0.845724481363
17	56	55.2100671607486	0.57440008249081	1.32727511458341	-0.0933827996623771
18	54	54.844192057275	0.530571469084065	1.9163361892134	-0.477263984019083
19	53	54.9588864543482	0.51238082511351	-0.689924797490876	-0.218436954150590
20	35	52.9973496699936	0.410448802847295	-10.2063903347090	-1.33642346160890
21	61	53.7916442489172	0.425406155891318	5.96765487376864	0.212218423268656
22	52	53.167550891779	0.386629854743144	2.30019097290813	-0.591716224831296
23	47	52.8558009355291	0.36232564533282	-3.4990023275797	-0.401116083199345
24	51	52.3907511456306	0.337225517451316	1.50411936837785	-0.489986388477468
25	52	53.1331519391485	0.339054207920607	-2.82688702533649	0.286110773472820
26	63	55.8107031764728	0.392831392870773	-1.04624331380961	1.41538539512040
27	74	57.6332490985803	0.436800349321582	11.7324351466442	0.807281734840497
28	45	57.0703406621145	0.404417354131301	-8.87141218919692	-0.559501095878015
29	51	56.0681686025309	0.359638497420152	-0.510231058219521	-0.796994854466369
30	64	56.9495348335839	0.375604084600534	5.32792319320188	0.300736105834529
31	36	54.1030393876645	0.281393320613122	-7.2681865324244	-1.88836276403969
32	30	51.8779910994564	0.211399010945687	-13.3115959268030	-1.49061077732025
33	55	51.0991219646514	0.184976775222993	7.33378245168349	-0.596482511333149
34	64	52.4738256890102	0.215185757443916	7.34699369109719	0.725080347463454
35	39	51.3760692641207	0.184192139087732	-7.69268005990597	-0.810889291688109
36	40	49.7130745531784	0.147642570274642	-2.9387304010156	-1.16850670005281
37	63	51.8405964223862	0.167191446733645	3.38177882730635	1.3376441979419
38	45	51.5779860201348	0.160131530081514	-4.99493046061466	-0.274098748821633
39	59	50.895108502376	0.142190360730116	11.0615153520207	-0.515707765343614
40	55	52.5346372207714	0.176807223093539	-2.70325631829123	0.90460011278997
41	40	51.1462397448066	0.140270282058093	-5.73373085676533	-0.948006943457502
42	64	51.6259562999033	0.148031833012400	11.1900650557176	0.207289558900143
43	27	49.0650355969983	0.0881076514158906	-12.5172993555984	-1.67021700097748
44	28	47.58222884341	0.0546667273702632	-13.9882077766203	-0.977654965159655
45	45	46.0953522544883	0.0232256090199660	4.44812177250886	-0.967850638149091
46	57	46.1237958841759	0.0233265332720753	10.8572520970193	0.00330500071976019
47	45	46.8224365275428	0.0353458485571801	-4.30527936745036	0.432263225001445
48	69	50.4697307328244	0.0897151812255462	4.99454079739819	2.35094343313774
49	60	51.7856112804661	0.102837887569286	3.48101976194119	0.820339889895021
50	56	53.2653076605075	0.121261940597883	-2.43386972899106	0.898329857720658
51	58	52.89516576079	0.113245087746417	6.89674204132185	-0.312747898662718
52	50	52.7090692759089	0.107906503517759	-1.63188193443569	-0.188475617741982
53	51	53.213240835909	0.115155321105339	-3.63669026764013	0.249291393763048
54	53	51.4209294827991	0.0805087726444711	8.45857807320653	-1.20484683301625
55	37	50.71522883305	0.0665610586463731	-10.8615549477149	-0.499572656763515
56	22	48.5097972250097	0.0275639274452978	-18.2044626383856	-1.45305366354837
57	55	48.5333845576781	0.0274984448370330	6.48125901181083	-0.00256000560218153
58	70	50.1573161653137	0.0523744088965303	13.9175367652720	1.03485707997136
59	62	53.0477739825201	0.0930402180971634	-1.68144798393238	1.85489353670178
60	58	53.7658116416095	0.100827122248203	1.86244623340146	0.413073638120074
61	39	51.8077017429776	0.0795282592978184	-4.88575862293053	-1.37785229209219
62	49	51.4544558027878	0.0745312288340987	-0.811612224101413	-0.286117634131379
63	58	51.3138679537037	0.0716640859417043	7.48854516362709	-0.140089812690450
64	47	50.9147085318999	0.0648480367139138	-2.17594801076229	-0.304099694632655
65	42	49.9005241499484	0.0487102047337609	-3.92637963360346	-0.695636940269711
66	62	50.0847680013577	0.0507407846279815	11.4151670815977	0.0875473461718351
67	39	49.867890016197	0.0467970781302325	-9.87647960925	-0.173532429737553
68	40	51.0594151431041	0.0631894214363188	-15.3217537401326	0.745742192752294
69	72	53.4561576308915	0.0953074992742823	9.80596740754347	1.52788565374017
70	70	54.5697932795816	0.108582624677618	11.5934161465255	0.670388347514449
71	54	54.9852558253818	0.112283011449092	-2.14985901041551	0.203296282712907
72	65	55.928543696999	0.121253337694937	5.89095897658286	0.554615216213689

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 = 1 ; par2 = 1 ; par3 = 1 ; par4 = 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