Home » date » 2010 » Jan » 12 »

Classical Deomposition gemiddelde consumptieprijs cola-limonade

*Unverified author*
R Software Module: /rwasp_decompose.wasp (opens new window with default values)
Title produced by software: Classical Decomposition
Date of computation: Tue, 12 Jan 2010 14:27:23 -0700
 
Cite this page as follows:
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL http://www.freestatistics.org/blog/date/2010/Jan/12/t1263331912qqqbeajai4krvhv.htm/, Retrieved Tue, 12 Jan 2010 22:31:59 +0100
 
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/2010/Jan/12/t1263331912qqqbeajai4krvhv.htm/},
    year = {2010},
}
@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 = {2010},
    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:
KDGP2W52
 
Dataseries X:
» Textbox « » Textfile « » CSV «
1,14 1,15 1,15 1,14 1,14 1,14 1,15 1,14 1,14 1,15 1,15 1,14 1,15 1,17 1,17 1,17 1,17 1,17 1,17 1,17 1,17 1,17 1,17 1,17 1,17 1,18 1,19 1,19 1,19 1,19 1,18 1,19 1,19 1,2 1,21 1,21 1,2 1,21 1,21 1,21 1,21 1,21 1,21 1,2 1,21 1,22 1,22 1,23 1,22 1,23 1,23 1,23 1,23 1,23 1,22 1,22 1,23 1,24 1,24 1,25 1,25 1,25 1,26 1,26 1,26 1,26 1,27 1,27 1,29 1,31 1,32 1,32 1,33 1,33 1,32 1,32 1,31 1,3 1,31 1,29 1,3 1,3 1,32 1,31 1,35 1,35 1,36 1,37 1,37 1,37 1,32 1,32 1,31 1,31 1,34 1,31 1,26 1,27 1,24 1,25 1,27 1,25 1,26 1,27 1,26 1,26 1,28 1,27 1,28 1,27 1,26 1,27 1,27 1,28 1,27 1,26 1,3 1,31 1,28 1,29 1,31 1,29 1,29 1,32 1,3 1,29 1,31 1,29 1,33 1,35 1,32 1,33
 
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'Gwilym Jenkins' @ 72.249.127.135


Classical Decomposition by Moving Averages
tObservationsFitTrendSeasonalRandom
11.14NANA1.00158510866783NA
21.15NANA1.00320363896428NA
31.15NANA1.00054259510927NA
41.14NANA1.00384190243488NA
51.14NANA1.00187288851855NA
61.14NANA0.998338825906253NA
71.151.139297316261511.144583333333330.9953817106034311.00939410949690
81.141.136600395089601.145833333333330.991942162987291.00299102914717
91.141.143473656521351.14750.9964912039401770.996962189289152
101.151.150783780418341.149583333333331.001044245380220.999318916001706
111.151.157334183448721.152083333333331.004557699919320.993662864578264
121.141.155966544450981.154583333333331.001198017568510.986187710598008
131.151.158500109025791.156666666666671.001585108667830.992662832778727
141.171.162462216649861.158751.003203638964281.00648432546209
151.171.161880088570641.161251.000542595109271.00698859676591
161.171.167802746499241.163333333333331.003841902434881.00188152794412
171.171.167181915124111.1651.001872888518551.00241443500741
181.171.165144604734761.167083333333330.9983388259062531.00416720400671
191.171.163767116647181.169166666666670.9953817106034311.00535578232420
201.171.160985639929711.170416666666670.991942162987291.00776440272839
211.171.167555527283241.171666666666670.9964912039401771.00209366720437
221.171.174558581246121.173333333333331.001044245380220.996118898351342
231.171.180355297405201.1751.004557699919320.991226965789058
241.171.178076334005621.176666666666671.001198017568510.99314447309356
251.171.179783792584981.177916666666671.001585108667830.99170713087731
261.181.182944290945381.179166666666671.003203638964280.997511048518584
271.191.181474047724861.180833333333331.000542595109271.00721636864691
281.191.187461317088591.182916666666671.003841902434881.00213790788371
291.191.188054266968241.185833333333331.001872888518551.00163774760620
301.191.187191253806851.189166666666670.9983388259062531.00236587507206
311.181.186577947515171.192083333333330.9953817106034310.994456371341682
321.191.184957575535231.194583333333330.991942162987291.00425536286604
331.191.192467807381741.196666666666670.9964912039401770.997930503979673
341.21.199584687380621.198333333333331.001044245380221.00034621367190
351.211.205469239903191.21.004557699919321.00375850328390
361.211.203106284444831.201666666666671.001198017568511.00572993063398
371.21.205658074558901.203751.001585108667830.995307065346064
381.211.209278386468191.205416666666671.003203638964281.00059673069483
391.211.207321398098511.206666666666671.000542595109271.00221863201108
401.211.212975632108811.208333333333331.003841902434880.99754683273922
411.211.211848748070561.209583333333331.001872888518550.99847443992206
421.211.208821928368151.210833333333330.9983388259062531.00097456176481
431.211.206900324106661.21250.9953817106034311.00256829485536
441.21.204383109560401.214166666666670.991942162987290.996360701569451
451.211.211567222123931.215833333333330.9964912039401770.99870645054165
461.221.218771368750411.21751.001044245380221.00100809001679
471.221.224723262484971.219166666666671.004557699919320.99614340428597
481.231.222295913114891.220833333333331.001198017568511.00630296379334
491.221.224020468217811.222083333333331.001585108667830.99671535867071
501.231.227252451666301.223333333333331.003203638964281.00223878007330
511.231.225664679008851.2251.000542595109271.00353711832069
521.231.231379400320121.226666666666671.003841902434880.998879792597017
531.231.230633864730281.228333333333331.001872888518550.999484928256529
541.231.227956755864691.230.9983388259062531.00166393818475
551.221.226393215939311.232083333333330.9953817106034310.994786977083517
561.221.224221952820151.234166666666670.991942162987290.996551317503805
571.231.231912250871041.236250.9964912039401770.998447737759169
581.241.240043558964741.238751.001044245380220.999964873036575
591.241.246907245024861.241251.004557699919320.99446049812252
601.251.245240034350841.243751.001198017568511.00382252860321
611.251.249060095934501.247083333333331.001585108667831.00075248906643
621.251.255258553254061.251251.003203638964280.995810780782633
631.261.256514742358051.255833333333331.000542595109271.00277374990078
641.261.266095599445991.261251.003841902434880.995185514072824
651.261.269873886197261.26751.001872888518550.992224514335966
661.261.271634079498091.273750.9983388259062530.990851079185703
671.271.274088589572391.280.9953817106034310.996790969163483
681.271.276298916376981.286666666666670.991942162987290.995064701304565
691.291.287964881092681.29250.9964912039401771.00158010434694
701.311.298854908380831.29751.001044245380221.00858070562559
711.321.308017838436621.302083333333331.004557699919321.00916054904703
721.321.307397744608211.305833333333331.001198017568511.00963919009633
731.331.311241838097631.309166666666671.001585108667831.01430564626399
741.331.315868773108151.311666666666671.003203638964281.01073908521932
751.321.313629048828871.312916666666671.000542595109271.00484988602894
761.321.317960764405131.312916666666671.003841902434881.00154726578359
771.311.314958166180591.31251.001872888518550.99622941146866
781.31.309903734491161.312083333333330.9983388259062530.992439341739102
791.311.306438495167001.31250.9953817106034311.00272611749131
801.291.303577325859131.314166666666670.991942162987290.989584564268036
811.31.312046751854571.316666666666670.9964912039401770.990818351680275
821.31.321795505670791.320416666666671.001044245380220.983510682569819
831.321.33103895239311.3251.004557699919320.991706514393697
841.311.332010529206771.330416666666671.001198017568510.98347570929497
851.351.335864138685711.333751.001585108667831.01058181060852
861.351.339694859533551.335416666666671.003203638964281.00769215496582
871.361.337808828210681.337083333333331.000542595109271.01658770021648
881.371.3430568119661.337916666666671.003841902434881.02006109331634
891.371.341674776541091.339166666666671.001872888518551.02111184018227
901.371.337774026714381.340.9983388259062531.02408925023367
911.321.330078810793831.336250.9953817106034310.992422395791856
921.321.318456458303941.329166666666670.991942162987291.00117071874944
931.311.316198798537651.320833333333330.9964912039401770.995290378212974
941.311.31220216498591.310833333333331.001044245380220.998321779185662
951.341.307599272728321.301666666666671.004557699919321.02477878960890
961.311.29404843770731.29251.001198017568511.01232686646642
971.261.287036864638161.2851.001585108667830.978992936891705
981.271.284518659390511.280416666666671.003203638964280.988697198530846
991.241.27694248700821.276251.000542595109270.97106957644212
1001.251.276970553389041.272083333333331.003841902434880.978879267562233
1011.271.269873886197261.26751.001872888518551.00009931206879
1021.251.261234716728231.263333333333330.9983388259062530.991092287122118
1031.261.256669409636831.26250.9953817106034311.00265033137405
1041.271.253153599240611.263333333333330.991942162987291.01344320502259
1051.261.259730963647711.264166666666670.9964912039401771.00021356651544
1061.261.267155173943791.265833333333331.001044245380220.994353356170642
1071.281.272439753231141.266666666666671.004557699919321.00594153613141
1081.271.269435653108741.267916666666671.001198017568511.00044456518129
1091.281.271595760879531.269583333333331.001585108667831.00660920661977
1101.271.273650619968401.269583333333331.003203638964280.997133735177319
1111.261.271522881284691.270833333333331.000542595109270.990937731869166
1121.271.279480158145121.274583333333331.003841902434880.992590617302837
1131.271.279057721008681.276666666666671.001872888518550.992918442334616
1141.281.275377850095241.27750.9983388259062531.00362414158629
1151.271.273673847192971.279583333333330.9953817106034310.99711555104859
1161.261.271339205562041.281666666666670.991942162987290.99108089681146
1171.31.279245583058201.283750.9964912039401771.01622395044131
1181.311.288427364158121.287083333333331.001044245380221.01674338534092
1191.281.296297998604221.290416666666671.004557699919320.987427274730214
1201.291.293631271866651.292083333333331.001198017568510.997192962209852
1211.311.296218061467611.294166666666671.001585108667831.01063242284773
1221.291.301238720039921.297083333333331.003203638964280.991363060546204
1231.291.300288480894081.299583333333331.000542595109270.99208753976886
1241.321.307504077921431.30251.003841902434881.00955708076906
1251.31.308279013590471.305833333333331.001872888518550.993671828788457
1261.291.306991912915601.309166666666670.9983388259062530.986999221075747
1271.31NANA0.995381710603431NA
1281.29NANA0.99194216298729NA
1291.33NANA0.996491203940177NA
1301.35NANA1.00104424538022NA
1311.32NANA1.00455769991932NA
1321.33NANA1.00119801756851NA
 
Charts produced by software:
http://www.freestatistics.org/blog/date/2010/Jan/12/t1263331912qqqbeajai4krvhv/1wm281263331640.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Jan/12/t1263331912qqqbeajai4krvhv/1wm281263331640.ps (open in new window)


http://www.freestatistics.org/blog/date/2010/Jan/12/t1263331912qqqbeajai4krvhv/2td371263331640.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Jan/12/t1263331912qqqbeajai4krvhv/2td371263331640.ps (open in new window)


http://www.freestatistics.org/blog/date/2010/Jan/12/t1263331912qqqbeajai4krvhv/3rwfj1263331640.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Jan/12/t1263331912qqqbeajai4krvhv/3rwfj1263331640.ps (open in new window)


http://www.freestatistics.org/blog/date/2010/Jan/12/t1263331912qqqbeajai4krvhv/4l2b41263331640.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Jan/12/t1263331912qqqbeajai4krvhv/4l2b41263331640.ps (open in new window)


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