Home » date » 2009 » Aug » 20 »

Additief model - Hotelkamers

*Unverified author*
R Software Module: rwasp_decompose.wasp (opens new window with default values)
Title produced by software: Classical Decomposition
Date of computation: Thu, 20 Aug 2009 00:34:16 -0600
 
Cite this page as follows:
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL http://www.freestatistics.org/blog/date/2009/Aug/20/t1250750140whwocmd2br7o1y2.htm/, Retrieved Thu, 20 Aug 2009 08:35:40 +0200
 
BibTeX entries for LaTeX users:
@Manual{KEY,
    author = {{YOUR NAME}},
    publisher = {Office for Research Development and Education},
    title = {Statistical Computations at FreeStatistics.org, URL http://www.freestatistics.org/blog/date/2009/Aug/20/t1250750140whwocmd2br7o1y2.htm/},
    year = {2009},
}
@Manual{R,
    title = {R: A Language and Environment for Statistical Computing},
    author = {{R Development Core Team}},
    organization = {R Foundation for Statistical Computing},
    address = {Vienna, Austria},
    year = {2009},
    note = {{ISBN} 3-900051-07-0},
    url = {http://www.R-project.org},
}
 
Original text written by user:
 
IsPrivate?
No (this computation is public)
 
User-defined keywords:
 
Dataseries X:
» Textbox « » Textfile « » CSV «
613,20 614,70 618,40 628,20 629,00 629,70 630,40 630,40 639,30 639,40 640,90 640,80 642,10 645,30 647,60 648,40 648,80 648,90 648,90 648,90 650,30 650,30 650,00 650,00 650,50 658,40 666,00 675,50 680,70 690,60 690,60 691,10 692,90 693,80 692,80 697,50 699,00 702,10 704,80 715,50 721,80 726,40 727,70 727,40 731,30 734,40 733,40 733,40 738,10 742,60 747,20 751,10 752,60 758,90 759,10 764,30 765,60 767,60 767,60 765,60 768,20 770,90 775,10 777,60 778,60 778,90 779,40 779,90 781,70 789,10 788,70 788,80 790,80 794,10 795,10 797,30 803,80 805,60 804,60 804,50 805,80 806,80 805,20 814,90 816,60 819,50 823,00 824,00 831,40 831,70 831,10 832,10 833,30 838,80 838,00 837,30 994,20 994,20 994,20 994,20 994,20 1092,60 1100,00 1100,00 1092,60 1000,70 1000,70 1000,50 1000,50 1000,50 1000,50 1000,50 1000,50 1087,70 1113,20 1116,00 1085,20 1031,30 1028,70 1027,50 1027,50 1027,50 1027,50 1027,50 1027,50 etc...
 
Output produced by software:


Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time3 seconds
R Server'Sir Ronald Aylmer Fisher' @ 193.190.124.24


Classical Decomposition by Moving Averages
tObservationsFitTrendSeasonalRandom
1613.2NANA-2.09850694444447NA
2614.7NANA-3.70725694444444NA
3618.4NANA-5.30142361111111NA
4628.2NANA-6.07684027777776NA
5629NANA-6.88559027777778NA
6629.7NANA22.8810763888889NA
7630.4646.153993055556630.737515.4164930555556-15.7539930555556
8630.4646.146909722222633.21666666666712.9302430555555-15.7469097222222
9639.3643.553993055555635.7083333333337.84565972222223-4.2539930555555
10639.4629.663993055555637.766666666666-8.102673611111129.73600694444463
11640.9627.386493055556639.433333333333-12.046840277777813.5135069444444
12640.8626.203993055555641.058333333333-14.854340277777814.5960069444446
13642.1640.530659722222642.629166666666-2.098506944444471.56934027777800
14645.3640.463576388889644.170833333333-3.707256944444444.83642361111117
15647.6640.098576388889645.4-5.301423611111117.50142361111125
16648.4640.235659722222646.3125-6.076840277777768.16434027777791
17648.8640.260243055556647.145833333333-6.885590277777788.53975694444443
18648.9670.789409722222647.90833333333322.8810763888889-21.8894097222222
19648.9664.058159722222648.64166666666715.4164930555556-15.1581597222222
20648.9662.467743055556649.537512.9302430555555-13.5677430555555
21650.3658.695659722222650.857.84565972222223-8.39565972222215
22650.3644.643159722222652.745833333333-8.102673611111125.65684027777763
23650643.157326388889655.204166666667-12.04684027777786.84267361111097
24650643.416493055556658.270833333333-14.85434027777786.58350694444448
25650.5659.647326388889661.745833333333-2.09850694444447-9.14732638888881
26658.4661.534409722222665.241666666667-3.70725694444444-3.13440972222224
27666663.473576388889668.775-5.301423611111112.52642361111123
28675.5666.285659722222672.3625-6.076840277777769.21434027777786
29680.7669.072743055556675.958333333333-6.8855902777777811.6272569444444
30690.6702.601909722222679.72083333333322.8810763888889-12.0019097222223
31690.6699.137326388889683.72083333333315.4164930555556-8.5373263888888
32691.1700.492743055556687.562512.9302430555555-9.39274305555557
33692.9698.8456597222226917.84565972222223-5.94565972222222
34693.8686.180659722222694.283333333333-8.102673611111127.61934027777772
35692.8685.615659722222697.6625-12.04684027777787.18434027777789
36697.5686.012326388889700.866666666667-14.854340277777811.4876736111113
37699701.805659722222703.904166666667-2.09850694444447-2.80565972222223
38702.1703.255243055556706.9625-3.70725694444444-1.15524305555550
39704.8704.773576388889710.075-5.301423611111110.0264236111111131
40715.5707.289826388889713.366666666667-6.076840277777768.21017361111126
41721.8709.864409722222716.75-6.8855902777777811.9355902777777
42726.4742.818576388889719.937522.8810763888889-16.4185763888888
43727.7738.478993055555723.062515.4164930555556-10.7789930555554
44727.4739.309409722222726.37916666666712.9302430555555-11.9094097222223
45731.3737.678993055555729.8333333333337.84565972222223-6.3789930555555
46734.4724.980659722222733.083333333333-8.102673611111129.4193402777778
47733.4723.803159722222735.85-12.04684027777789.59684027777769
48733.4723.633159722222738.4875-14.85434027777789.76684027777776
49738.1739.051493055556741.15-2.09850694444447-0.951493055555602
50742.6740.288576388889743.995833333333-3.707256944444442.31142361111119
51747.2741.661076388889746.9625-5.301423611111115.53892361111116
52751.1743.698159722222749.775-6.076840277777767.40184027777786
53752.6745.697743055556752.583333333333-6.885590277777786.9022569444445
54758.9778.231076388889755.3522.8810763888889-19.3310763888888
55759.1773.362326388889757.94583333333315.4164930555556-14.2623263888889
56764.3773.309409722222760.37916666666712.9302430555555-9.00940972222236
57765.6770.566493055556762.7208333333337.84565972222223-4.96649305555559
58767.6756.884826388889764.9875-8.1026736111111210.7151736111110
59767.6755.128159722222767.175-12.046840277777812.4718402777778
60765.6754.237326388889769.091666666666-14.854340277777811.3626736111114
61768.2768.672326388889770.770833333333-2.09850694444447-0.47232638888886
62770.9768.559409722222772.266666666667-3.707256944444442.34059027777789
63775.1768.286076388889773.5875-5.301423611111116.81392361111114
64777.6769.077326388889775.154166666667-6.076840277777768.52267361111126
65778.6770.043576388889776.929166666667-6.885590277777788.5564236111112
66778.9801.656076388889778.77522.8810763888889-22.7560763888888
67779.4796.099826388889780.68333333333315.4164930555556-16.6998263888888
68779.9795.521909722222782.59166666666712.9302430555555-15.6219097222222
69781.7792.237326388889784.3916666666677.84565972222223-10.5373263888887
70789.1777.943159722222786.045833333333-8.1026736111111211.1568402777780
71788.7775.869826388889787.916666666667-12.046840277777812.8301736111113
72788.8775.224826388889790.079166666667-14.854340277777813.5751736111112
73790.8790.143159722222792.241666666667-2.098506944444470.656840277777746
74794.1790.609409722222794.316666666666-3.707256944444443.49059027777798
75795.1791.044409722222796.345833333333-5.301423611111114.05559027777781
76797.3792.010659722222798.0875-6.076840277777765.28934027777791
77803.8792.626909722222799.5125-6.8855902777777811.1730902777778
78805.6824.168576388889801.287522.8810763888889-18.5685763888887
79804.6818.866493055555803.4515.4164930555556-14.2664930555554
80804.5818.513576388889805.58333333333312.9302430555555-14.0135763888889
81805.8815.649826388889807.8041666666677.84565972222223-9.8498263888888
82806.8801.976493055555810.079166666667-8.102673611111124.82350694444449
83805.2800.294826388889812.341666666667-12.04684027777784.90517361111119
84814.9799.724826388889814.579166666667-14.854340277777815.1751736111112
85816.6814.672326388889816.770833333333-2.098506944444471.92767361111123
86819.5815.317743055556819.025-3.707256944444444.18225694444448
87823816.019409722222821.320833333333-5.301423611111116.98059027777776
88824817.723159722222823.8-6.076840277777766.27684027777798
89831.4819.614409722222826.5-6.8855902777777811.7855902777778
90831.7851.681076388889828.822.8810763888889-19.9810763888888
91831.1852.549826388889837.13333333333315.4164930555556-21.4498263888887
92832.1864.742743055555851.812512.9302430555555-32.6427430555555
93833.3874.070659722222866.2257.84565972222223-40.7706597222221
94838.8872.347326388889880.45-8.10267361111112-33.5473263888889
95838882.278159722222894.325-12.0468402777778-44.2781597222223
96837.3897.124826388889911.979166666667-14.8543402777778-59.8248263888888
97994.2931.955659722222934.054166666667-2.0985069444444762.244340277778
98994.2952.713576388889956.420833333333-3.7072569444444441.4864236111111
99994.2973.086076388889978.3875-5.3014236111111121.1139236111111
100994.2989.860659722222995.9375-6.076840277777764.33934027777775
101994.21002.576909722221009.4625-6.88559027777778-8.3769097222222
1021092.61045.922743055561023.0416666666722.881076388888946.6772569444443
10311001045.520659722221030.1041666666715.416493055555654.479340277778
10411001043.559409722221030.6291666666712.930243055555556.4405902777778
1051092.61038.999826388891031.154166666677.8456597222222353.6001736111111
1061000.71023.576493055561031.67916666667-8.10267361111112-22.8764930555554
1071000.71020.157326388891032.20416666667-12.0468402777778-19.4573263888886
1081000.51017.408159722221032.2625-14.8543402777778-16.9081597222220
1091000.51030.509826388891032.60833333333-2.09850694444447-30.0098263888887
1101000.51030.117743055561033.825-3.70725694444444-29.6177430555554
1111000.51028.881909722221034.18333333333-5.30142361111111-28.3819097222223
1121000.51029.073159722221035.15-6.07684027777776-28.5731597222223
1131000.51030.706076388891037.59166666667-6.88559027777778-30.2060763888890
1141087.71062.764409722221039.8833333333322.881076388888924.9355902777779
1151113.21057.549826388891042.1333333333315.416493055555655.6501736111113
11611161057.313576388891044.3833333333312.930243055555558.6864236111112
1171085.21054.478993055561046.633333333337.8456597222222330.7210069444445
1181031.31040.780659722221048.88333333333-8.10267361111112-9.4806597222223
1191028.71039.086493055561051.13333333333-12.0468402777778-10.3864930555555
1201027.51040.091493055561054.94583333333-14.8543402777778-12.5914930555557
1211027.51057.288993055561059.3875-2.09850694444447-29.7889930555557
1221027.51059.017743055561062.725-3.70725694444444-31.5177430555557
1231027.51060.452743055561065.75416666667-5.30142361111111-32.9527430555554
1241027.51063.123159722221069.2-6.07684027777776-35.623159722222
1251027.51066.214409722221073.1-6.88559027777778-38.7144097222222
1261152.21099.643576388891076.762522.881076388888952.5564236111113
1271155.3NANA15.4164930555556NA
1281154NANA12.9302430555555NA
1291119.9NANA7.84565972222223NA
1301079.3NANA-8.10267361111112NA
1311074.3NANA-12.0468402777778NA
1321069.8NANA-14.8543402777778NA
 
Charts produced by software:
http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2009/Aug/20/t1250750140whwocmd2br7o1y2/1y7wl1250750051.png (open in new window)
http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2009/Aug/20/t1250750140whwocmd2br7o1y2/1y7wl1250750051.ps (open in new window)


http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2009/Aug/20/t1250750140whwocmd2br7o1y2/2v1sj1250750051.png (open in new window)
http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2009/Aug/20/t1250750140whwocmd2br7o1y2/2v1sj1250750051.ps (open in new window)


http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2009/Aug/20/t1250750140whwocmd2br7o1y2/3sogj1250750051.png (open in new window)
http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2009/Aug/20/t1250750140whwocmd2br7o1y2/3sogj1250750051.ps (open in new window)


http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2009/Aug/20/t1250750140whwocmd2br7o1y2/4ifw01250750051.png (open in new window)
http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2009/Aug/20/t1250750140whwocmd2br7o1y2/4ifw01250750051.ps (open in new window)


 
Parameters (Session):
par1 = additive ; par2 = 12 ;
 
Parameters (R input):
par1 = additive ; par2 = 12 ;
 
R code (references can be found in the software module):
par2 <- as.numeric(par2)
x <- ts(x,freq=par2)
m <- decompose(x,type=par1)
m$figure
bitmap(file='test1.png')
plot(m)
dev.off()
mylagmax <- length(x)/2
bitmap(file='test2.png')
op <- par(mfrow = c(2,2))
acf(as.numeric(x),lag.max = mylagmax,main='Observed')
acf(as.numeric(m$trend),na.action=na.pass,lag.max = mylagmax,main='Trend')
acf(as.numeric(m$seasonal),na.action=na.pass,lag.max = mylagmax,main='Seasonal')
acf(as.numeric(m$random),na.action=na.pass,lag.max = mylagmax,main='Random')
par(op)
dev.off()
bitmap(file='test3.png')
op <- par(mfrow = c(2,2))
spectrum(as.numeric(x),main='Observed')
spectrum(as.numeric(m$trend[!is.na(m$trend)]),main='Trend')
spectrum(as.numeric(m$seasonal[!is.na(m$seasonal)]),main='Seasonal')
spectrum(as.numeric(m$random[!is.na(m$random)]),main='Random')
par(op)
dev.off()
bitmap(file='test4.png')
op <- par(mfrow = c(2,2))
cpgram(as.numeric(x),main='Observed')
cpgram(as.numeric(m$trend[!is.na(m$trend)]),main='Trend')
cpgram(as.numeric(m$seasonal[!is.na(m$seasonal)]),main='Seasonal')
cpgram(as.numeric(m$random[!is.na(m$random)]),main='Random')
par(op)
dev.off()
load(file='createtable')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Classical Decomposition by Moving Averages',6,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'t',header=TRUE)
a<-table.element(a,'Observations',header=TRUE)
a<-table.element(a,'Fit',header=TRUE)
a<-table.element(a,'Trend',header=TRUE)
a<-table.element(a,'Seasonal',header=TRUE)
a<-table.element(a,'Random',header=TRUE)
a<-table.row.end(a)
for (i in 1:length(m$trend)) {
a<-table.row.start(a)
a<-table.element(a,i,header=TRUE)
a<-table.element(a,x[i])
if (par1 == 'additive') a<-table.element(a,m$trend[i]+m$seasonal[i]) else a<-table.element(a,m$trend[i]*m$seasonal[i])
a<-table.element(a,m$trend[i])
a<-table.element(a,m$seasonal[i])
a<-table.element(a,m$random[i])
a<-table.row.end(a)
}
a<-table.end(a)
table.save(a,file='mytable.tab')
 





Copyright

Creative Commons License

This work is licensed under a Creative Commons Attribution-Noncommercial-Share Alike 3.0 License.

Software written by Ed van Stee & Patrick Wessa


Disclaimer

Information provided on this web site is provided "AS IS" without warranty of any kind, either express or implied, including, without limitation, warranties of merchantability, fitness for a particular purpose, and noninfringement. We use reasonable efforts to include accurate and timely information and periodically update the information, and software without notice. However, we make no warranties or representations as to the accuracy or completeness of such information (or software), and we assume no liability or responsibility for errors or omissions in the content of this web site, or any software bugs in online applications. Your use of this web site is AT YOUR OWN RISK. Under no circumstances and under no legal theory shall we be liable to you or any other person for any direct, indirect, special, incidental, exemplary, or consequential damages arising from your access to, or use of, this web site.


Privacy Policy

We may request personal information to be submitted to our servers in order to be able to:

  • personalize online software applications according to your needs
  • enforce strict security rules with respect to the data that you upload (e.g. statistical data)
  • manage user sessions of online applications
  • alert you about important changes or upgrades in resources or applications

We NEVER allow other companies to directly offer registered users information about their products and services. Banner references and hyperlinks of third parties NEVER contain any personal data of the visitor.

We do NOT sell, nor transmit by any means, personal information, nor statistical data series uploaded by you to third parties.

We carefully protect your data from loss, misuse, alteration, and destruction. However, at any time, and under any circumstance you are solely responsible for managing your passwords, and keeping them secret.

We store a unique ANONYMOUS USER ID in the form of a small 'Cookie' on your computer. This allows us to track your progress when using this website which is necessary to create state-dependent features. The cookie is used for NO OTHER PURPOSE. At any time you may opt to disallow cookies from this website - this will not affect other features of this website.

We examine cookies that are used by third-parties (banner and online ads) very closely: abuse from third-parties automatically results in termination of the advertising contract without refund. We have very good reason to believe that the cookies that are produced by third parties (banner ads) do NOT cause any privacy or security risk.

FreeStatistics.org is safe. There is no need to download any software to use the applications and services contained in this website. Hence, your system's security is not compromised by their use, and your personal data - other than data you submit in the account application form, and the user-agent information that is transmitted by your browser - is never transmitted to our servers.

As a general rule, we do not log on-line behavior of individuals (other than normal logging of webserver 'hits'). However, in cases of abuse, hacking, unauthorized access, Denial of Service attacks, illegal copying, hotlinking, non-compliance with international webstandards (such as robots.txt), or any other harmful behavior, our system engineers are empowered to log, track, identify, publish, and ban misbehaving individuals - even if this leads to ban entire blocks of IP addresses, or disclosing user's identity.


FreeStatistics.org is powered by