Free Statistics

of Irreproducible Research!

Author's title

Author*The author of this computation has been verified*
R Software Modulerwasp_structuraltimeseries.wasp
Title produced by softwareStructural Time Series Models
Date of computationFri, 04 Dec 2009 08:49:46 -0700
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2009/Dec/04/t1259941823ois2kazam6sa337.htm/, Retrieved Sat, 27 Apr 2024 22:49:30 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=63799, Retrieved Sat, 27 Apr 2024 22:49:30 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact109
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] [SHW WS9] [2009-12-03 18:46:26] [253127ae8da904b75450fbd69fe4eb21]
-   PD        [Structural Time Series Models] [Structural Time S...] [2009-12-04 15:49:46] [244731fa3e7e6c85774b8c0902c58f85] [Current]
-   PD          [Structural Time Series Models] [Structural Time S...] [2009-12-06 20:06:51] [ba905ddf7cdf9ecb063c35348c4dab2e]
-   PD          [Structural Time Series Models] [] [2009-12-06 20:06:51] [ba905ddf7cdf9ecb063c35348c4dab2e]
Feedback Forum

Post a new message
Dataseries X:
6,3
6,2
6,1
6,3
6,5
6,6
6,5
6,2
6,2
5,9
6,1
6,1
6,1
6,1
6,1
6,4
6,7
6,9
7
7
6,8
6,4
5,9
5,5
5,5
5,6
5,8
5,9
6,1
6,1
6
6
5,9
5,5
5,6
5,4
5,2
5,2
5,2
5,5
5,8
5,8
5,5
5,3
5,1
5,2
5,8
5,8
5,5
5
4,9
5,3
6,1
6,5
6,8
6,6
6,4
6,4




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time2 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=63799&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=63799&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=63799&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 Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time2 seconds
R Server'Gwilym Jenkins' @ 72.249.127.135







Structural Time Series Model
tObservedLevelSlopeSeasonalStand. Residuals
16.36.3000
26.26.20029716796157-0.0997273913760922-0.000297167961573839-0.408489295620644
36.16.09979513470036-0.1004952433609230.000204865299644-0.00315455903164451
46.36.29775427128150.1945004423025070.002245728718502391.20650272869622
56.56.500562445984510.202713665487683-0.000562445984512170.0335939443753683
66.66.600852426945270.101453906892288-0.000852426945274272-0.414174750832066
76.56.50139486682477-0.0971738506217298-0.00139486682476845-0.812431313242722
86.26.20122037797162-0.297867060449616-0.00122037797162428-0.820879468979458
96.26.19739745601969-0.007165187783229050.002602543980308831.18903474146113
105.95.90282639286309-0.291304249880994-0.00282639286308901-1.16219139953108
116.16.095772781450590.1874421291645290.004227218549411761.95817822504077
126.16.102375588359890.00865832620058987-0.00237558835988872-0.731265165183998
136.16.0996405840477-0.002604700689821780.000359415952302765-0.0460731379892089
146.16.09809831207916-0.00155420588619360.001901687920838570.00430205186249085
156.16.10291534583540.00469486711094491-0.002915345835404030.0256578394536613
166.46.394244991097690.2852705138232400.005755008902313381.14739140623323
176.76.701308362131410.306606247633500-0.001308362131412720.087268661388703
186.96.902126502384120.203034133338359-0.00212650238411872-0.423632791071569
1976.997768332370550.09789201132337350.00223166762944939-0.430054457912472
2077.008315921668690.0123777493686246-0.008315921668692-0.349772182215832
216.86.79326621756893-0.2102843930652060.00673378243107212-0.910737246152639
226.46.41134286161733-0.378326971685546-0.0113428616173301-0.687331190051569
235.95.89519003324078-0.5132650426942110.00480996675922306-0.551926460204372
245.55.50019451632248-0.397473728734047-0.0001945163224806950.473612059831032
255.55.49465719433266-0.01377775659092320.005342805667344391.56957820207638
265.65.593730902963720.09672713804489150.00626909703628230.452416955990329
275.85.806746684078270.209852074922257-0.006746684078267320.464098493181313
285.95.898523290045530.09511718872022560.00147670995447078-0.469164425465421
296.16.097778847980910.1963158443092890.002221152019088220.413933193440927
306.16.104330513064650.0119001181821761-0.00433051306465253-0.754300675425817
3165.99991446133558-0.1011371116626638.55386644210451e-05-0.462347213530348
3266.002964331323930.000112641777257588-0.002964331323926590.41413381032798
335.95.89434647535882-0.1055525778987100.00565352464118018-0.432194041436554
345.55.51269607604272-0.37386678661241-0.0126960760427209-1.09746426305425
355.65.583337427623850.05811087063866140.01666257237614481.76688394868857
365.45.41302376348706-0.163873367966327-0.0130237634870574-0.90796494281159
375.25.19590335095372-0.2156152324306460.00409664904628482-0.211663423911762
385.25.19428115474978-0.007619954309600110.005718845250216970.851278105927362
395.25.201775041330490.00699657067112295-0.001775041330490060.0599187143655675
405.55.498503499783260.2870710012236960.001496500216735891.14524853621215
415.85.795351814713610.2965218904004010.004648185286385150.0386572323901912
425.85.805395053104330.0195907458893417-0.00539505310432997-1.13270845750806
435.55.5105019898551-0.284411449862545-0.0105019898550986-1.24343619640577
445.35.30200129586594-0.211031054021123-0.002001295865940920.300141992402568
455.15.07887731723402-0.2227208817975130.0211226827659831-0.0478139726638196
465.25.2212632362850.130215902004513-0.02126323628499811.44358925216182
475.85.770430161413820.5352033868830250.02956983858618101.65648848171649
485.85.820969596514870.0666979291113927-0.0209695965148683-1.91629208716602
495.55.50899350181228-0.299324133513849-0.00899350181227969-1.49734206190159
5054.991928494597-0.5098345194133330.00807150540300206-0.861346783766708
514.94.89890080864346-0.1083733118634570.001099191356543511.64473864820553
525.35.292973221718020.3755653390474560.0070267782819811.97894098427504
536.16.084119311104820.7757757080551150.01588068889518141.63698665582911
546.56.504601919868840.433598337150142-0.00460191986883882-1.39958013388923
556.86.81673879530260.316620496813262-0.0167387953025987-0.47846525350062
566.66.60588419853379-0.191380760373913-0.00588419853378606-2.07783711048498
576.46.38068298955593-0.2239525718843540.0193170104440707-0.133225890815008
586.46.435975401213380.0449831725585313-0.03597540121338281.10000648024379

\begin{tabular}{lllllllll}
\hline
Structural Time Series Model \tabularnewline
t & Observed & Level & Slope & Seasonal & Stand. Residuals \tabularnewline
1 & 6.3 & 6.3 & 0 & 0 & 0 \tabularnewline
2 & 6.2 & 6.20029716796157 & -0.0997273913760922 & -0.000297167961573839 & -0.408489295620644 \tabularnewline
3 & 6.1 & 6.09979513470036 & -0.100495243360923 & 0.000204865299644 & -0.00315455903164451 \tabularnewline
4 & 6.3 & 6.2977542712815 & 0.194500442302507 & 0.00224572871850239 & 1.20650272869622 \tabularnewline
5 & 6.5 & 6.50056244598451 & 0.202713665487683 & -0.00056244598451217 & 0.0335939443753683 \tabularnewline
6 & 6.6 & 6.60085242694527 & 0.101453906892288 & -0.000852426945274272 & -0.414174750832066 \tabularnewline
7 & 6.5 & 6.50139486682477 & -0.0971738506217298 & -0.00139486682476845 & -0.812431313242722 \tabularnewline
8 & 6.2 & 6.20122037797162 & -0.297867060449616 & -0.00122037797162428 & -0.820879468979458 \tabularnewline
9 & 6.2 & 6.19739745601969 & -0.00716518778322905 & 0.00260254398030883 & 1.18903474146113 \tabularnewline
10 & 5.9 & 5.90282639286309 & -0.291304249880994 & -0.00282639286308901 & -1.16219139953108 \tabularnewline
11 & 6.1 & 6.09577278145059 & 0.187442129164529 & 0.00422721854941176 & 1.95817822504077 \tabularnewline
12 & 6.1 & 6.10237558835989 & 0.00865832620058987 & -0.00237558835988872 & -0.731265165183998 \tabularnewline
13 & 6.1 & 6.0996405840477 & -0.00260470068982178 & 0.000359415952302765 & -0.0460731379892089 \tabularnewline
14 & 6.1 & 6.09809831207916 & -0.0015542058861936 & 0.00190168792083857 & 0.00430205186249085 \tabularnewline
15 & 6.1 & 6.1029153458354 & 0.00469486711094491 & -0.00291534583540403 & 0.0256578394536613 \tabularnewline
16 & 6.4 & 6.39424499109769 & 0.285270513823240 & 0.00575500890231338 & 1.14739140623323 \tabularnewline
17 & 6.7 & 6.70130836213141 & 0.306606247633500 & -0.00130836213141272 & 0.087268661388703 \tabularnewline
18 & 6.9 & 6.90212650238412 & 0.203034133338359 & -0.00212650238411872 & -0.423632791071569 \tabularnewline
19 & 7 & 6.99776833237055 & 0.0978920113233735 & 0.00223166762944939 & -0.430054457912472 \tabularnewline
20 & 7 & 7.00831592166869 & 0.0123777493686246 & -0.008315921668692 & -0.349772182215832 \tabularnewline
21 & 6.8 & 6.79326621756893 & -0.210284393065206 & 0.00673378243107212 & -0.910737246152639 \tabularnewline
22 & 6.4 & 6.41134286161733 & -0.378326971685546 & -0.0113428616173301 & -0.687331190051569 \tabularnewline
23 & 5.9 & 5.89519003324078 & -0.513265042694211 & 0.00480996675922306 & -0.551926460204372 \tabularnewline
24 & 5.5 & 5.50019451632248 & -0.397473728734047 & -0.000194516322480695 & 0.473612059831032 \tabularnewline
25 & 5.5 & 5.49465719433266 & -0.0137777565909232 & 0.00534280566734439 & 1.56957820207638 \tabularnewline
26 & 5.6 & 5.59373090296372 & 0.0967271380448915 & 0.0062690970362823 & 0.452416955990329 \tabularnewline
27 & 5.8 & 5.80674668407827 & 0.209852074922257 & -0.00674668407826732 & 0.464098493181313 \tabularnewline
28 & 5.9 & 5.89852329004553 & 0.0951171887202256 & 0.00147670995447078 & -0.469164425465421 \tabularnewline
29 & 6.1 & 6.09777884798091 & 0.196315844309289 & 0.00222115201908822 & 0.413933193440927 \tabularnewline
30 & 6.1 & 6.10433051306465 & 0.0119001181821761 & -0.00433051306465253 & -0.754300675425817 \tabularnewline
31 & 6 & 5.99991446133558 & -0.101137111662663 & 8.55386644210451e-05 & -0.462347213530348 \tabularnewline
32 & 6 & 6.00296433132393 & 0.000112641777257588 & -0.00296433132392659 & 0.41413381032798 \tabularnewline
33 & 5.9 & 5.89434647535882 & -0.105552577898710 & 0.00565352464118018 & -0.432194041436554 \tabularnewline
34 & 5.5 & 5.51269607604272 & -0.37386678661241 & -0.0126960760427209 & -1.09746426305425 \tabularnewline
35 & 5.6 & 5.58333742762385 & 0.0581108706386614 & 0.0166625723761448 & 1.76688394868857 \tabularnewline
36 & 5.4 & 5.41302376348706 & -0.163873367966327 & -0.0130237634870574 & -0.90796494281159 \tabularnewline
37 & 5.2 & 5.19590335095372 & -0.215615232430646 & 0.00409664904628482 & -0.211663423911762 \tabularnewline
38 & 5.2 & 5.19428115474978 & -0.00761995430960011 & 0.00571884525021697 & 0.851278105927362 \tabularnewline
39 & 5.2 & 5.20177504133049 & 0.00699657067112295 & -0.00177504133049006 & 0.0599187143655675 \tabularnewline
40 & 5.5 & 5.49850349978326 & 0.287071001223696 & 0.00149650021673589 & 1.14524853621215 \tabularnewline
41 & 5.8 & 5.79535181471361 & 0.296521890400401 & 0.00464818528638515 & 0.0386572323901912 \tabularnewline
42 & 5.8 & 5.80539505310433 & 0.0195907458893417 & -0.00539505310432997 & -1.13270845750806 \tabularnewline
43 & 5.5 & 5.5105019898551 & -0.284411449862545 & -0.0105019898550986 & -1.24343619640577 \tabularnewline
44 & 5.3 & 5.30200129586594 & -0.211031054021123 & -0.00200129586594092 & 0.300141992402568 \tabularnewline
45 & 5.1 & 5.07887731723402 & -0.222720881797513 & 0.0211226827659831 & -0.0478139726638196 \tabularnewline
46 & 5.2 & 5.221263236285 & 0.130215902004513 & -0.0212632362849981 & 1.44358925216182 \tabularnewline
47 & 5.8 & 5.77043016141382 & 0.535203386883025 & 0.0295698385861810 & 1.65648848171649 \tabularnewline
48 & 5.8 & 5.82096959651487 & 0.0666979291113927 & -0.0209695965148683 & -1.91629208716602 \tabularnewline
49 & 5.5 & 5.50899350181228 & -0.299324133513849 & -0.00899350181227969 & -1.49734206190159 \tabularnewline
50 & 5 & 4.991928494597 & -0.509834519413333 & 0.00807150540300206 & -0.861346783766708 \tabularnewline
51 & 4.9 & 4.89890080864346 & -0.108373311863457 & 0.00109919135654351 & 1.64473864820553 \tabularnewline
52 & 5.3 & 5.29297322171802 & 0.375565339047456 & 0.007026778281981 & 1.97894098427504 \tabularnewline
53 & 6.1 & 6.08411931110482 & 0.775775708055115 & 0.0158806888951814 & 1.63698665582911 \tabularnewline
54 & 6.5 & 6.50460191986884 & 0.433598337150142 & -0.00460191986883882 & -1.39958013388923 \tabularnewline
55 & 6.8 & 6.8167387953026 & 0.316620496813262 & -0.0167387953025987 & -0.47846525350062 \tabularnewline
56 & 6.6 & 6.60588419853379 & -0.191380760373913 & -0.00588419853378606 & -2.07783711048498 \tabularnewline
57 & 6.4 & 6.38068298955593 & -0.223952571884354 & 0.0193170104440707 & -0.133225890815008 \tabularnewline
58 & 6.4 & 6.43597540121338 & 0.0449831725585313 & -0.0359754012133828 & 1.10000648024379 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=63799&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]6.3[/C][C]6.3[/C][C]0[/C][C]0[/C][C]0[/C][/ROW]
[ROW][C]2[/C][C]6.2[/C][C]6.20029716796157[/C][C]-0.0997273913760922[/C][C]-0.000297167961573839[/C][C]-0.408489295620644[/C][/ROW]
[ROW][C]3[/C][C]6.1[/C][C]6.09979513470036[/C][C]-0.100495243360923[/C][C]0.000204865299644[/C][C]-0.00315455903164451[/C][/ROW]
[ROW][C]4[/C][C]6.3[/C][C]6.2977542712815[/C][C]0.194500442302507[/C][C]0.00224572871850239[/C][C]1.20650272869622[/C][/ROW]
[ROW][C]5[/C][C]6.5[/C][C]6.50056244598451[/C][C]0.202713665487683[/C][C]-0.00056244598451217[/C][C]0.0335939443753683[/C][/ROW]
[ROW][C]6[/C][C]6.6[/C][C]6.60085242694527[/C][C]0.101453906892288[/C][C]-0.000852426945274272[/C][C]-0.414174750832066[/C][/ROW]
[ROW][C]7[/C][C]6.5[/C][C]6.50139486682477[/C][C]-0.0971738506217298[/C][C]-0.00139486682476845[/C][C]-0.812431313242722[/C][/ROW]
[ROW][C]8[/C][C]6.2[/C][C]6.20122037797162[/C][C]-0.297867060449616[/C][C]-0.00122037797162428[/C][C]-0.820879468979458[/C][/ROW]
[ROW][C]9[/C][C]6.2[/C][C]6.19739745601969[/C][C]-0.00716518778322905[/C][C]0.00260254398030883[/C][C]1.18903474146113[/C][/ROW]
[ROW][C]10[/C][C]5.9[/C][C]5.90282639286309[/C][C]-0.291304249880994[/C][C]-0.00282639286308901[/C][C]-1.16219139953108[/C][/ROW]
[ROW][C]11[/C][C]6.1[/C][C]6.09577278145059[/C][C]0.187442129164529[/C][C]0.00422721854941176[/C][C]1.95817822504077[/C][/ROW]
[ROW][C]12[/C][C]6.1[/C][C]6.10237558835989[/C][C]0.00865832620058987[/C][C]-0.00237558835988872[/C][C]-0.731265165183998[/C][/ROW]
[ROW][C]13[/C][C]6.1[/C][C]6.0996405840477[/C][C]-0.00260470068982178[/C][C]0.000359415952302765[/C][C]-0.0460731379892089[/C][/ROW]
[ROW][C]14[/C][C]6.1[/C][C]6.09809831207916[/C][C]-0.0015542058861936[/C][C]0.00190168792083857[/C][C]0.00430205186249085[/C][/ROW]
[ROW][C]15[/C][C]6.1[/C][C]6.1029153458354[/C][C]0.00469486711094491[/C][C]-0.00291534583540403[/C][C]0.0256578394536613[/C][/ROW]
[ROW][C]16[/C][C]6.4[/C][C]6.39424499109769[/C][C]0.285270513823240[/C][C]0.00575500890231338[/C][C]1.14739140623323[/C][/ROW]
[ROW][C]17[/C][C]6.7[/C][C]6.70130836213141[/C][C]0.306606247633500[/C][C]-0.00130836213141272[/C][C]0.087268661388703[/C][/ROW]
[ROW][C]18[/C][C]6.9[/C][C]6.90212650238412[/C][C]0.203034133338359[/C][C]-0.00212650238411872[/C][C]-0.423632791071569[/C][/ROW]
[ROW][C]19[/C][C]7[/C][C]6.99776833237055[/C][C]0.0978920113233735[/C][C]0.00223166762944939[/C][C]-0.430054457912472[/C][/ROW]
[ROW][C]20[/C][C]7[/C][C]7.00831592166869[/C][C]0.0123777493686246[/C][C]-0.008315921668692[/C][C]-0.349772182215832[/C][/ROW]
[ROW][C]21[/C][C]6.8[/C][C]6.79326621756893[/C][C]-0.210284393065206[/C][C]0.00673378243107212[/C][C]-0.910737246152639[/C][/ROW]
[ROW][C]22[/C][C]6.4[/C][C]6.41134286161733[/C][C]-0.378326971685546[/C][C]-0.0113428616173301[/C][C]-0.687331190051569[/C][/ROW]
[ROW][C]23[/C][C]5.9[/C][C]5.89519003324078[/C][C]-0.513265042694211[/C][C]0.00480996675922306[/C][C]-0.551926460204372[/C][/ROW]
[ROW][C]24[/C][C]5.5[/C][C]5.50019451632248[/C][C]-0.397473728734047[/C][C]-0.000194516322480695[/C][C]0.473612059831032[/C][/ROW]
[ROW][C]25[/C][C]5.5[/C][C]5.49465719433266[/C][C]-0.0137777565909232[/C][C]0.00534280566734439[/C][C]1.56957820207638[/C][/ROW]
[ROW][C]26[/C][C]5.6[/C][C]5.59373090296372[/C][C]0.0967271380448915[/C][C]0.0062690970362823[/C][C]0.452416955990329[/C][/ROW]
[ROW][C]27[/C][C]5.8[/C][C]5.80674668407827[/C][C]0.209852074922257[/C][C]-0.00674668407826732[/C][C]0.464098493181313[/C][/ROW]
[ROW][C]28[/C][C]5.9[/C][C]5.89852329004553[/C][C]0.0951171887202256[/C][C]0.00147670995447078[/C][C]-0.469164425465421[/C][/ROW]
[ROW][C]29[/C][C]6.1[/C][C]6.09777884798091[/C][C]0.196315844309289[/C][C]0.00222115201908822[/C][C]0.413933193440927[/C][/ROW]
[ROW][C]30[/C][C]6.1[/C][C]6.10433051306465[/C][C]0.0119001181821761[/C][C]-0.00433051306465253[/C][C]-0.754300675425817[/C][/ROW]
[ROW][C]31[/C][C]6[/C][C]5.99991446133558[/C][C]-0.101137111662663[/C][C]8.55386644210451e-05[/C][C]-0.462347213530348[/C][/ROW]
[ROW][C]32[/C][C]6[/C][C]6.00296433132393[/C][C]0.000112641777257588[/C][C]-0.00296433132392659[/C][C]0.41413381032798[/C][/ROW]
[ROW][C]33[/C][C]5.9[/C][C]5.89434647535882[/C][C]-0.105552577898710[/C][C]0.00565352464118018[/C][C]-0.432194041436554[/C][/ROW]
[ROW][C]34[/C][C]5.5[/C][C]5.51269607604272[/C][C]-0.37386678661241[/C][C]-0.0126960760427209[/C][C]-1.09746426305425[/C][/ROW]
[ROW][C]35[/C][C]5.6[/C][C]5.58333742762385[/C][C]0.0581108706386614[/C][C]0.0166625723761448[/C][C]1.76688394868857[/C][/ROW]
[ROW][C]36[/C][C]5.4[/C][C]5.41302376348706[/C][C]-0.163873367966327[/C][C]-0.0130237634870574[/C][C]-0.90796494281159[/C][/ROW]
[ROW][C]37[/C][C]5.2[/C][C]5.19590335095372[/C][C]-0.215615232430646[/C][C]0.00409664904628482[/C][C]-0.211663423911762[/C][/ROW]
[ROW][C]38[/C][C]5.2[/C][C]5.19428115474978[/C][C]-0.00761995430960011[/C][C]0.00571884525021697[/C][C]0.851278105927362[/C][/ROW]
[ROW][C]39[/C][C]5.2[/C][C]5.20177504133049[/C][C]0.00699657067112295[/C][C]-0.00177504133049006[/C][C]0.0599187143655675[/C][/ROW]
[ROW][C]40[/C][C]5.5[/C][C]5.49850349978326[/C][C]0.287071001223696[/C][C]0.00149650021673589[/C][C]1.14524853621215[/C][/ROW]
[ROW][C]41[/C][C]5.8[/C][C]5.79535181471361[/C][C]0.296521890400401[/C][C]0.00464818528638515[/C][C]0.0386572323901912[/C][/ROW]
[ROW][C]42[/C][C]5.8[/C][C]5.80539505310433[/C][C]0.0195907458893417[/C][C]-0.00539505310432997[/C][C]-1.13270845750806[/C][/ROW]
[ROW][C]43[/C][C]5.5[/C][C]5.5105019898551[/C][C]-0.284411449862545[/C][C]-0.0105019898550986[/C][C]-1.24343619640577[/C][/ROW]
[ROW][C]44[/C][C]5.3[/C][C]5.30200129586594[/C][C]-0.211031054021123[/C][C]-0.00200129586594092[/C][C]0.300141992402568[/C][/ROW]
[ROW][C]45[/C][C]5.1[/C][C]5.07887731723402[/C][C]-0.222720881797513[/C][C]0.0211226827659831[/C][C]-0.0478139726638196[/C][/ROW]
[ROW][C]46[/C][C]5.2[/C][C]5.221263236285[/C][C]0.130215902004513[/C][C]-0.0212632362849981[/C][C]1.44358925216182[/C][/ROW]
[ROW][C]47[/C][C]5.8[/C][C]5.77043016141382[/C][C]0.535203386883025[/C][C]0.0295698385861810[/C][C]1.65648848171649[/C][/ROW]
[ROW][C]48[/C][C]5.8[/C][C]5.82096959651487[/C][C]0.0666979291113927[/C][C]-0.0209695965148683[/C][C]-1.91629208716602[/C][/ROW]
[ROW][C]49[/C][C]5.5[/C][C]5.50899350181228[/C][C]-0.299324133513849[/C][C]-0.00899350181227969[/C][C]-1.49734206190159[/C][/ROW]
[ROW][C]50[/C][C]5[/C][C]4.991928494597[/C][C]-0.509834519413333[/C][C]0.00807150540300206[/C][C]-0.861346783766708[/C][/ROW]
[ROW][C]51[/C][C]4.9[/C][C]4.89890080864346[/C][C]-0.108373311863457[/C][C]0.00109919135654351[/C][C]1.64473864820553[/C][/ROW]
[ROW][C]52[/C][C]5.3[/C][C]5.29297322171802[/C][C]0.375565339047456[/C][C]0.007026778281981[/C][C]1.97894098427504[/C][/ROW]
[ROW][C]53[/C][C]6.1[/C][C]6.08411931110482[/C][C]0.775775708055115[/C][C]0.0158806888951814[/C][C]1.63698665582911[/C][/ROW]
[ROW][C]54[/C][C]6.5[/C][C]6.50460191986884[/C][C]0.433598337150142[/C][C]-0.00460191986883882[/C][C]-1.39958013388923[/C][/ROW]
[ROW][C]55[/C][C]6.8[/C][C]6.8167387953026[/C][C]0.316620496813262[/C][C]-0.0167387953025987[/C][C]-0.47846525350062[/C][/ROW]
[ROW][C]56[/C][C]6.6[/C][C]6.60588419853379[/C][C]-0.191380760373913[/C][C]-0.00588419853378606[/C][C]-2.07783711048498[/C][/ROW]
[ROW][C]57[/C][C]6.4[/C][C]6.38068298955593[/C][C]-0.223952571884354[/C][C]0.0193170104440707[/C][C]-0.133225890815008[/C][/ROW]
[ROW][C]58[/C][C]6.4[/C][C]6.43597540121338[/C][C]0.0449831725585313[/C][C]-0.0359754012133828[/C][C]1.10000648024379[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=63799&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=63799&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
tObservedLevelSlopeSeasonalStand. Residuals
16.36.3000
26.26.20029716796157-0.0997273913760922-0.000297167961573839-0.408489295620644
36.16.09979513470036-0.1004952433609230.000204865299644-0.00315455903164451
46.36.29775427128150.1945004423025070.002245728718502391.20650272869622
56.56.500562445984510.202713665487683-0.000562445984512170.0335939443753683
66.66.600852426945270.101453906892288-0.000852426945274272-0.414174750832066
76.56.50139486682477-0.0971738506217298-0.00139486682476845-0.812431313242722
86.26.20122037797162-0.297867060449616-0.00122037797162428-0.820879468979458
96.26.19739745601969-0.007165187783229050.002602543980308831.18903474146113
105.95.90282639286309-0.291304249880994-0.00282639286308901-1.16219139953108
116.16.095772781450590.1874421291645290.004227218549411761.95817822504077
126.16.102375588359890.00865832620058987-0.00237558835988872-0.731265165183998
136.16.0996405840477-0.002604700689821780.000359415952302765-0.0460731379892089
146.16.09809831207916-0.00155420588619360.001901687920838570.00430205186249085
156.16.10291534583540.00469486711094491-0.002915345835404030.0256578394536613
166.46.394244991097690.2852705138232400.005755008902313381.14739140623323
176.76.701308362131410.306606247633500-0.001308362131412720.087268661388703
186.96.902126502384120.203034133338359-0.00212650238411872-0.423632791071569
1976.997768332370550.09789201132337350.00223166762944939-0.430054457912472
2077.008315921668690.0123777493686246-0.008315921668692-0.349772182215832
216.86.79326621756893-0.2102843930652060.00673378243107212-0.910737246152639
226.46.41134286161733-0.378326971685546-0.0113428616173301-0.687331190051569
235.95.89519003324078-0.5132650426942110.00480996675922306-0.551926460204372
245.55.50019451632248-0.397473728734047-0.0001945163224806950.473612059831032
255.55.49465719433266-0.01377775659092320.005342805667344391.56957820207638
265.65.593730902963720.09672713804489150.00626909703628230.452416955990329
275.85.806746684078270.209852074922257-0.006746684078267320.464098493181313
285.95.898523290045530.09511718872022560.00147670995447078-0.469164425465421
296.16.097778847980910.1963158443092890.002221152019088220.413933193440927
306.16.104330513064650.0119001181821761-0.00433051306465253-0.754300675425817
3165.99991446133558-0.1011371116626638.55386644210451e-05-0.462347213530348
3266.002964331323930.000112641777257588-0.002964331323926590.41413381032798
335.95.89434647535882-0.1055525778987100.00565352464118018-0.432194041436554
345.55.51269607604272-0.37386678661241-0.0126960760427209-1.09746426305425
355.65.583337427623850.05811087063866140.01666257237614481.76688394868857
365.45.41302376348706-0.163873367966327-0.0130237634870574-0.90796494281159
375.25.19590335095372-0.2156152324306460.00409664904628482-0.211663423911762
385.25.19428115474978-0.007619954309600110.005718845250216970.851278105927362
395.25.201775041330490.00699657067112295-0.001775041330490060.0599187143655675
405.55.498503499783260.2870710012236960.001496500216735891.14524853621215
415.85.795351814713610.2965218904004010.004648185286385150.0386572323901912
425.85.805395053104330.0195907458893417-0.00539505310432997-1.13270845750806
435.55.5105019898551-0.284411449862545-0.0105019898550986-1.24343619640577
445.35.30200129586594-0.211031054021123-0.002001295865940920.300141992402568
455.15.07887731723402-0.2227208817975130.0211226827659831-0.0478139726638196
465.25.2212632362850.130215902004513-0.02126323628499811.44358925216182
475.85.770430161413820.5352033868830250.02956983858618101.65648848171649
485.85.820969596514870.0666979291113927-0.0209695965148683-1.91629208716602
495.55.50899350181228-0.299324133513849-0.00899350181227969-1.49734206190159
5054.991928494597-0.5098345194133330.00807150540300206-0.861346783766708
514.94.89890080864346-0.1083733118634570.001099191356543511.64473864820553
525.35.292973221718020.3755653390474560.0070267782819811.97894098427504
536.16.084119311104820.7757757080551150.01588068889518141.63698665582911
546.56.504601919868840.433598337150142-0.00460191986883882-1.39958013388923
556.86.81673879530260.316620496813262-0.0167387953025987-0.47846525350062
566.66.60588419853379-0.191380760373913-0.00588419853378606-2.07783711048498
576.46.38068298955593-0.2239525718843540.0193170104440707-0.133225890815008
586.46.435975401213380.0449831725585313-0.03597540121338281.10000648024379



Parameters (Session):
par1 = multiplicative ; par2 = 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')