Home » date » 2009 » Aug » 06 »

Classical decomposition prijs roze zalm - Kenis Lotte

*Unverified author*
R Software Module: rwasp_decompose.wasp (opens new window with default values)
Title produced by software: Classical Decomposition
Date of computation: Thu, 06 Aug 2009 06:26:35 -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/06/t1249565860wormor4ys93a3mf.htm/, Retrieved Thu, 06 Aug 2009 15:37:46 +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/06/t1249565860wormor4ys93a3mf.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 «
11,73 11,74 11,65 11,38 11,53 11,75 11,82 11,83 11,63 11,55 11,4 11,4 11,63 11,46 11,35 11,7 11,52 11,64 11,9 11,73 11,7 11,54 11,97 11,64 11,98 11,79 11,66 11,96 11,83 12,36 12,53 12,55 12,53 12,24 12,34 12,05 12,22 12,23 11,92 12,13 12,1 12,15 12,23 12,08 12,02 11,93 12,16 11,87 11,93 11,79 11,43 11,63 11,93 11,89 11,83 11,59 12,04 11,81 11,9 11,72 11,91 11,94 11,91 11,84 12,01 11,89 11,8 11,7 11,5 11,76 11,61 11,27 11,64 11,39 11,54 11,62 11,59 11,44 11,31 11,56 11,4 11,51 11,5 11,24 11,8
 
Output produced by software:


Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time6 seconds
R Server'George Udny Yule' @ 72.249.76.132


Classical Decomposition by Moving Averages
tObservationsFitTrendSeasonalRandom
111.73NANA0.0494907407407408NA
211.74NANA-0.0634259259259256NA
311.65NANA-0.19162037037037NA
411.38NANA-0.0114120370370364NA
511.53NANA0.00483796296296278NA
611.75NANA0.0702546296296298NA
711.8211.721851851851911.61333333333330.1085185185185180.0981481481481463
811.8311.663379629629611.59750.06587962962962930.166620370370369
911.6311.666018518518511.57333333333330.092685185185185-0.0360185185185209
1011.5511.551782407407411.5741666666667-0.0223842592592598-0.00178240740740598
1111.411.667962962963011.58708333333330.0808796296296293-0.267962962962962
1211.411.398379629629611.5820833333333-0.1837037037037030.00162037037036988
1311.6311.630324074074111.58083333333330.0494907407407408-0.000324074074072200
1411.4611.516574074074111.58-0.0634259259259256-0.0565740740740708
1511.3511.387129629629611.57875-0.19162037037037-0.0371296296296286
1611.711.569837962963011.58125-0.01141203703703640.130162037037039
1711.5211.609421296296311.60458333333330.00483796296296278-0.089421296296294
1811.6411.708587962963011.63833333333330.0702546296296298-0.0685879629629618
1911.911.771435185185211.66291666666670.1085185185185180.128564814814816
2011.7311.757129629629611.691250.0658796296296293-0.0271296296296288
2111.711.810601851851911.71791666666670.092685185185185-0.110601851851852
2211.5411.719282407407411.7416666666667-0.0223842592592598-0.179282407407408
2311.9711.846296296296311.76541666666670.08087962962962930.123703703703702
2411.6411.624629629629611.8083333333333-0.1837037037037030.0153703703703734
2511.9811.914074074074111.86458333333330.04949074074074080.0659259259259279
2611.7911.861574074074111.925-0.0634259259259256-0.0715740740740749
2711.6611.802129629629611.99375-0.19162037037037-0.142129629629631
2811.9612.046087962963012.0575-0.0114120370370364-0.0860879629629636
2911.8312.106921296296312.10208333333330.00483796296296278-0.276921296296296
3012.3612.204837962963012.13458333333330.07025462962962980.155162037037037
3112.5312.270185185185212.16166666666670.1085185185185180.259814814814813
3212.5512.255879629629612.190.06587962962962930.294120370370370
3312.5312.311851851851912.21916666666670.0926851851851850.218148148148149
3412.2412.214699074074112.2370833333333-0.02238425925925980.0253009259259276
3512.3412.336296296296312.25541666666670.08087962962962930.00370370370370665
3612.0512.074212962963012.2579166666667-0.183703703703703-0.0242129629629630
3712.2212.286157407407412.23666666666670.0494907407407408-0.066157407407406
3812.2312.141157407407412.2045833333333-0.06342592592592560.0888425925925933
3911.9211.972129629629612.16375-0.19162037037037-0.0521296296296292
4012.1312.118171296296312.1295833333333-0.01141203703703640.0118287037037064
4112.112.114004629629612.10916666666670.00483796296296278-0.0140046296296283
4212.1512.164421296296312.09416666666670.0702546296296298-0.0144212962962982
4312.2312.183101851851912.07458333333330.1085185185185180.0468981481481485
4412.0812.110046296296312.04416666666670.0658796296296293-0.0300462962962946
4512.0212.098101851851912.00541666666670.092685185185185-0.0781018518518515
4611.9311.941782407407411.9641666666667-0.0223842592592598-0.0117824074074058
4712.1612.017129629629611.936250.08087962962962930.142870370370371
4811.8711.734629629629611.9183333333333-0.1837037037037030.135370370370369
4911.9311.940324074074111.89083333333330.0494907407407408-0.0103240740740738
5011.7911.790324074074111.85375-0.0634259259259256-0.000324074074075753
5111.4311.642546296296311.8341666666667-0.19162037037037-0.212546296296296
5211.6311.818587962963011.83-0.0114120370370364-0.188587962962961
5311.9311.819004629629611.81416666666670.004837962962962780.11099537037037
5411.8911.867337962963011.79708333333330.07025462962962980.0226620370370370
5511.8311.898518518518511.790.108518518518518-0.0685185185185215
5611.5911.861296296296311.79541666666670.0658796296296293-0.271296296296294
5712.0411.914351851851911.82166666666670.0926851851851850.125648148148148
5811.8111.828032407407411.8504166666667-0.0223842592592598-0.0180324074074054
5911.911.943379629629611.86250.0808796296296293-0.04337962962963
6011.7211.682129629629611.8658333333333-0.1837037037037030.0378703703703707
6111.9111.914074074074111.86458333333330.0494907407407408-0.00407407407407234
6211.9411.804490740740711.8679166666667-0.06342592592592560.135509259259258
6311.9111.658379629629611.85-0.191620370370370.25162037037037
6411.8411.814004629629611.8254166666667-0.01141203703703640.0259953703703708
6512.0111.816087962963011.811250.004837962962962780.193912037037038
6611.8911.850671296296311.78041666666670.07025462962962980.0393287037037044
6711.811.858935185185211.75041666666670.108518518518518-0.0589351851851827
6811.711.782129629629611.716250.0658796296296293-0.0821296296296286
6911.511.770601851851911.67791666666670.092685185185185-0.270601851851850
7011.7611.630949074074111.6533333333333-0.02238425925925980.129050925925927
7111.6111.707546296296311.62666666666670.0808796296296293-0.0975462962962972
7211.2711.406712962963011.5904166666667-0.183703703703703-0.136712962962964
7311.6411.600740740740711.551250.04949074074074080.0392592592592589
7411.3911.461574074074111.525-0.0634259259259256-0.0715740740740749
7511.5411.323379629629611.515-0.191620370370370.21662037037037
7611.6211.489004629629611.5004166666667-0.01141203703703640.130995370370369
7711.5911.490254629629611.48541666666670.004837962962962780.0997453703703695
7811.4411.549837962963011.47958333333330.0702546296296298-0.109837962962963
7911.3111.593518518518511.4850.108518518518518-0.283518518518518
8011.56NANA0.0658796296296293NA
8111.4NANA0.092685185185185NA
8211.51NANA-0.0223842592592598NA
8311.5NANA0.0808796296296293NA
8411.24NANA-0.183703703703703NA
8511.8NANANANA
 
Charts produced by software:
http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2009/Aug/06/t1249565860wormor4ys93a3mf/12gvn1249561587.png (open in new window)
http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2009/Aug/06/t1249565860wormor4ys93a3mf/12gvn1249561587.ps (open in new window)


http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2009/Aug/06/t1249565860wormor4ys93a3mf/2482k1249561587.png (open in new window)
http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2009/Aug/06/t1249565860wormor4ys93a3mf/2482k1249561587.ps (open in new window)


http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2009/Aug/06/t1249565860wormor4ys93a3mf/3c9co1249561587.png (open in new window)
http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2009/Aug/06/t1249565860wormor4ys93a3mf/3c9co1249561587.ps (open in new window)


http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2009/Aug/06/t1249565860wormor4ys93a3mf/4a5n31249561587.png (open in new window)
http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2009/Aug/06/t1249565860wormor4ys93a3mf/4a5n31249561587.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