Home » date » 2008 » May » 22 »

classical decomposition van gemiddelde consumptieprijzen van mineraalwater volgens additief model - Rebecca De Cauwer

R Software Module: rwasp_decompose.wasp (opens new window with default values)
Title produced by software: Classical Decomposition
Date of computation: Thu, 22 May 2008 10:27:41 -0600
 
Cite this page as follows:
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL http://www.freestatistics.org/blog/date/2008/May/22/t12114737140om1yw5p9m4a5sm.htm/, Retrieved Thu, 22 May 2008 18:28:39 +0200
 
User-defined keywords:
 
Dataseries X:
» Textbox « » Textfile « » CSV «
1,12 1,12 1,12 1,13 1,13 1,13 1,14 1,14 1,14 1,14 1,14 1,15 1,15 1,17 1,17 1,18 1,18 1,18 1,18 1,18 1,18 1,19 1,19 1,19 1,19 1,19 1,2 1,21 1,21 1,21 1,21 1,21 1,23 1,24 1,24 1,24 1,27 1,28 1,29 1,29 1,3 1,31 1,31 1,31 1,32 1,32 1,33 1,33 1,34 1,35 1,36 1,37 1,37 1,37 1,37 1,37 1,38 1,38 1,39 1,39 1,39 1,41 1,42 1,42 1,42 1,43 1,43 1,44 1,46 1,46 1,47 1,47 1,47 1,48 1,49 1,49 1,5 1,5 1,51 1,52 1,53 1,53 1,53 1,54
 
Text written by user:
 
Output produced by software:


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


Classical Decomposition by Moving Averages
tObservationsFitTrendSeasonalRandom
11.12NANA-0.00384722222222226NA
21.12NANA0.00323611111111115NA
31.12NANA0.00606944444444453NA
41.13NANA0.00673611111111121NA
51.13NANA0.0033194444444445NA
61.13NANA0.00190277777777783NA
71.141.131152777777781.13458333333333-0.003430555555555530.00884722222222245
81.141.131236111111111.13791666666667-0.006680555555555550.00876388888888902
91.141.142152777777781.142083333333336.94444444443036e-05-0.00215277777777745
101.141.145069444444441.14625-0.00118055555555567-0.00506944444444435
111.141.149986111111111.15041666666667-0.000430555555555597-0.00998611111111125
121.151.148819444444441.15458333333333-0.005763888888888920.00118055555555552
131.151.154486111111111.15833333333333-0.00384722222222226-0.00448611111111097
141.171.164902777777781.161666666666670.003236111111111150.00509722222222209
151.171.171069444444441.1650.00606944444444453-0.00106944444444457
161.181.175486111111111.168750.006736111111111210.00451388888888848
171.181.176236111111111.172916666666670.00331944444444450.00376388888888868
181.181.178569444444441.176666666666670.001902777777777830.00143055555555538
191.181.176569444444441.18-0.003430555555555530.0034305555555556
201.181.175819444444441.1825-0.006680555555555550.00418055555555541
211.181.184652777777781.184583333333336.94444444443036e-05-0.00465277777777784
221.191.185902777777781.18708333333333-0.001180555555555670.00409722222222242
231.191.189152777777781.18958333333333-0.0004305555555555970.000847222222222221
241.191.186319444444441.19208333333333-0.005763888888888920.00368055555555569
251.191.190736111111111.19458333333333-0.00384722222222226-0.000736111111110826
261.191.200319444444441.197083333333330.00323611111111115-0.0103194444444443
271.21.206486111111111.200416666666670.00606944444444453-0.00648611111111097
281.211.211319444444441.204583333333330.00673611111111121-0.00131944444444443
291.211.212069444444441.208750.0033194444444445-0.00206944444444446
301.211.214819444444441.212916666666670.00190277777777783-0.00481944444444449
311.211.214902777777781.21833333333333-0.00343055555555553-0.0049027777777777
321.211.218736111111111.22541666666667-0.00668055555555555-0.00873611111111106
331.231.232986111111111.232916666666676.94444444443036e-05-0.00298611111111091
341.241.238819444444441.24-0.001180555555555670.00118055555555552
351.241.246652777777781.24708333333333-0.000430555555555597-0.00665277777777784
361.241.249236111111111.255-0.00576388888888892-0.009236111111111
371.271.259486111111111.26333333333333-0.003847222222222260.0105138888888892
381.281.274902777777781.271666666666670.003236111111111150.00509722222222231
391.291.285652777777781.279583333333330.006069444444444530.00434722222222228
401.291.293402777777781.286666666666670.00673611111111121-0.00340277777777787
411.31.297069444444441.293750.00331944444444450.00293055555555566
421.311.303152777777781.301250.001902777777777830.00684722222222223
431.311.304486111111111.30791666666667-0.003430555555555530.00551388888888904
441.311.307069444444441.31375-0.006680555555555550.00293055555555588
451.321.319652777777781.319583333333336.94444444443036e-050.000347222222222499
461.321.324652777777781.32583333333333-0.00118055555555567-0.0046527777777774
471.331.331652777777781.33208333333333-0.000430555555555597-0.00165277777777773
481.331.331736111111111.3375-0.00576388888888892-0.00173611111111116
491.341.338652777777781.3425-0.003847222222222260.00134722222222217
501.351.350736111111111.34750.00323611111111115-0.00073611111111127
511.361.358569444444441.35250.006069444444444530.00143055555555560
521.371.364236111111111.35750.006736111111111210.00576388888888912
531.371.365819444444441.36250.00331944444444450.00418055555555585
541.371.369402777777781.36750.001902777777777830.000597222222222582
551.371.368652777777781.37208333333333-0.003430555555555530.00134722222222239
561.371.369986111111111.37666666666667-0.006680555555555551.38888888892019e-05
571.381.381736111111111.381666666666676.94444444443036e-05-0.00173611111111116
581.381.385069444444441.38625-0.00118055555555567-0.00506944444444457
591.391.389986111111111.39041666666667-0.0004305555555555971.38888888885358e-05
601.391.389236111111111.395-0.005763888888888920.000763888888888786
611.391.396152777777781.4-0.00384722222222226-0.0061527777777779
621.411.408652777777781.405416666666670.003236111111111150.00134722222222217
631.421.417736111111111.411666666666670.006069444444444530.00226388888888929
641.421.425069444444441.418333333333330.00673611111111121-0.00506944444444435
651.421.428319444444441.4250.0033194444444445-0.0083194444444441
661.431.433569444444441.431666666666670.00190277777777783-0.00356944444444429
671.431.434902777777781.43833333333333-0.00343055555555553-0.0049027777777777
681.441.437902777777781.44458333333333-0.006680555555555550.00209722222222197
691.461.450486111111111.450416666666676.94444444443036e-050.00951388888888904
701.461.455069444444441.45625-0.001180555555555670.00493055555555566
711.471.462069444444441.4625-0.0004305555555555970.00793055555555555
721.471.462986111111111.46875-0.005763888888888920.00701388888888888
731.471.471152777777781.475-0.00384722222222226-0.00115277777777778
741.481.484902777777781.481666666666670.00323611111111115-0.00490277777777792
751.491.493986111111111.487916666666670.00606944444444453-0.00398611111111102
761.491.500486111111111.493750.00673611111111121-0.0104861111111114
771.51.502486111111111.499166666666670.0033194444444445-0.00248611111111119
781.51.506486111111111.504583333333330.00190277777777783-0.00648611111111119
791.51NANA-0.00343055555555553NA
801.52NANA-0.00668055555555555NA
811.53NANA6.94444444443036e-05NA
821.53NANA-0.00118055555555567NA
831.53NANA-0.000430555555555597NA
841.54NANA-0.00576388888888892NA
 
Charts produced by software:
http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/May/22/t12114737140om1yw5p9m4a5sm/17m9o1211473659.png (open in new window)
http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/May/22/t12114737140om1yw5p9m4a5sm/17m9o1211473659.ps (open in new window)


http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/May/22/t12114737140om1yw5p9m4a5sm/2192q1211473659.png (open in new window)
http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/May/22/t12114737140om1yw5p9m4a5sm/2192q1211473659.ps (open in new window)


http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/May/22/t12114737140om1yw5p9m4a5sm/32re41211473659.png (open in new window)
http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/May/22/t12114737140om1yw5p9m4a5sm/32re41211473659.ps (open in new window)


http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/May/22/t12114737140om1yw5p9m4a5sm/4i6561211473659.png (open in new window)
http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/May/22/t12114737140om1yw5p9m4a5sm/4i6561211473659.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