Home » date » 2010 » May » 31 »

Decompositie - Verkoop witte wijn - Innes De Jonghe

*Unverified author*
R Software Module: /rwasp_decompose.wasp (opens new window with default values)
Title produced by software: Classical Decomposition
Date of computation: Mon, 31 May 2010 07:25:06 +0000
 
Cite this page as follows:
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL http://www.freestatistics.org/blog/date/2010/May/31/t1275290758qwx06mjtofsqvup.htm/, Retrieved Mon, 31 May 2010 09:26:04 +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/2010/May/31/t1275290758qwx06mjtofsqvup.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 «
1954 2302 3054 2414 2226 2725 2589 3470 2400 3180 4009 3924 2072 2434 2956 2828 2687 2629 3150 4119 3030 3055 3821 4001 2529 2472 3134 2789 2758 2993 3282 3437 2804 3076 3782 3889 2271 2452 3084 2522 2769 3438 2839 3746 2632 2851 3871 3618 2389 2344 2678 2492 2858 2246 2800 3869 3007 3023 3907 4209 2353 2570 2903 2910 3782 2759 2931 3641 2794 3070 3576 4106 2452 2206 2488 2416 2534 2521 3093 3903 2907 3025 3812 4209 2138 2419 2622 2912 2708 2798 3254 2895 3263 3736 4077 4097 2175 3138 2823 2498 2822 2738 4137 3515 3785 3632 4504 4451 2550 2867 3458 2961 3163 2880 3331 3062 3534 3622 4464 5411 2564 2820 3508 3088 3299 2939 3320 3418 3604 3495 4163 4882 2211 3260 2992 2425 2707 3244 3965 3315 3333 3583 4021 4904 2252 2952 3573 3048 3059 2731 3563 3092 3478 3478 4308 5029 2075 3264 3308 3688 3136 2824 3644 4694 2914 3686 4358 5587 2265 3685 3754 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'George Udny Yule' @ 72.249.76.132


Classical Decomposition by Moving Averages
tObservationsFitTrendSeasonalRandom
11954NANA0.727849062918752NA
22302NANA0.845612360350542NA
33054NANA0.949371252973556NA
42414NANA0.878048978354551NA
52226NANA0.919751317229796NA
62725NANA0.882197405271869NA
725892957.479253743112858.833333333331.034505656296780.87540766236086
834703213.490563199022869.251.119975799668561.07982268245581
924002810.233985913072870.666666666670.9789482068902920.854021413174328
1031802971.405149539872883.833333333331.030366462303601.07020074340668
1140093656.534572343542920.291666666671.25211279889631.09639329826726
1239244054.690781460662935.51.381260698845400.96776800291203
1320722150.702999792052954.8750.7278490629187520.963405918995018
1424342541.311779791813005.291666666670.8456123603505420.957773075840145
1529562903.73109149073058.583333333330.9493712529735561.01800060228114
1628282704.061584965143079.6250.8780489783545511.04583416876449
1726872820.494060228273066.583333333330.9197513172297960.952669972927556
1826292701.251696717243061.958333333330.8821974052718690.973252512231626
1931503190.6309660313084.208333333331.034505656296780.987265538865642
2041193477.33819533763104.833333333331.119975799668561.18452671802896
2130303048.281558221893113.833333333330.9789482068902920.994002667446326
2230553214.356974963883119.6251.030366462303600.950423373568934
2338213907.791873988733120.958333333331.25211279889630.977790046965796
2440014335.892438733943139.083333333331.381260698845400.922762742972535
2525292299.821076557533159.750.7278490629187521.09965076230431
2624722652.545039026263136.833333333330.8456123603505420.93193516552219
2731342942.1015129650530990.9493712529735561.06522497139861
2827892713.573782230643090.458333333330.8780489783545511.02779589715351
2927582841.763309439213089.708333333330.9197513172297960.97052417801265
3029932720.182182705373083.416666666670.8821974052718691.10029395054095
3132823173.8633535185230681.034505656296781.03407098366777
3234373423.112700370313056.416666666671.119975799668561.00405692153466
3328042989.218349739513053.50.9789482068902920.93803786539861
3430763132.614568954463040.291666666671.030366462303600.981927374814785
3537823793.432238356203029.6251.25211279889630.996986307481491
3638894210.945898017553048.6251.381260698845400.92354546797452
3722712218.999503529263048.708333333330.7278490629187521.02343420824928
3824522573.304114091743043.1250.8456123603505420.952860560309422
3930842894.474721774213048.833333333330.9493712529735561.06547829794472
4025222662.500599989693032.291666666670.8780489783545510.947229833491782
4127692783.742330510633026.6250.9197513172297960.994704132509301
4234382663.390724740993019.041666666670.8821974052718691.29083576362396
4328393116.620707203443012.666666666671.034505656296780.910922523693123
4437463374.580415718013013.083333333331.119975799668561.11006393048214
4526322928.686718946792991.666666666670.9789482068902920.89869632793859
4628513063.794675659762973.51.030366462303600.93054538629814
4738713726.235518148772975.958333333331.25211279889631.03885006225349
4836184047.0938476170129301.381260698845400.893974821495758
4923892095.265162833072878.708333333330.7278490629187521.14018981577003
5023442437.2309917722882.208333333330.8456123603505420.961747166318356
5126782755.985190246692902.958333333330.9493712529735560.971703334791973
5224922568.951798420832925.750.8780489783545510.970045448704747
5328582698.933594467742934.416666666670.9197513172297961.05893676148917
5422462611.782176532592960.541666666670.8821974052718690.859949202571632
5528003086.620043170832983.666666666671.034505656296780.907141131994857
5638693350.500936025142991.583333333331.119975799668561.15475269933516
5730072947.001208317363010.3750.9789482068902921.02035926945442
5830233129.394673759763037.166666666671.030366462303600.966001516314997
5939073872.88922971953093.083333333331.25211279889631.00880757704577
6042094355.057430930423152.958333333331.381260698845400.966462570644169
6123532314.408384860193179.791666666670.7278490629187521.01667450541238
6225702685.453453383233175.750.8456123603505420.957007836707138
6329032997.521059857383157.3750.9493712529735560.968466923844773
6429102766.256720931923150.458333333330.8780489783545511.05196310160962
6537822886.754478040373138.6250.9197513172297961.3101218093779
6627592752.933761376093120.541666666670.8821974052718691.0022035541534
6729313228.045587267073120.3751.034505656296780.907979742157683
6836413482.378086436113109.333333333331.119975799668561.04554988276021
6927943012.101264075573076.8750.9789482068902920.92759165613826
7030703131.2836789406530391.030366462303600.980428576512308
7135763714.288275192632966.416666666671.25211279889630.962768566964431
7241064011.871699796452904.51.381260698845401.02346244028899
7324522111.732747881612901.333333333330.7278490629187521.16113177790122
7422062468.3424798632329190.8456123603505420.89371714743662
7524882786.048613257522934.6250.9493712529735560.893021029195527
7624162579.232288542402937.458333333330.8780489783545510.936712839216725
7725342709.050858957262945.416666666670.9197513172297960.935382955850212
7825212610.899979127322959.541666666670.8821974052718690.96556743657512
7930933052.567565317732950.751.034505656296781.01324538566866
8039033300.055359381732946.541666666671.119975799668561.18270743213569
8129072898.6656406021629610.9789482068902921.00287524000047
8230253077.962214516442987.251.030366462303600.982793091394478
8338123775.328774138833015.166666666671.25211279889631.00971338605325
8442094190.687407767823033.958333333331.381260698845401.00436983016157
8521382221.546975249473052.208333333330.7278490629187520.962392433659842
8624192551.142023480893016.916666666670.8456123603505420.948202796134184
8726222838.382703577692989.750.9493712529735560.92376549388321
8829122664.18352719823034.208333333330.8780489783545511.09301779335841
8927082828.120331566973074.8750.9197513172297960.957526442483296
9027982718.270754993953081.250.8821974052718691.02933086958302
9132543184.337723288533078.1251.034505656296781.02187653533166
9228953482.704746044353109.6251.119975799668560.831250482340813
9332633081.688165782023147.958333333330.9789482068902921.05883523071257
9437363234.406189042873139.083333333331.030366462303601.15508064900951
9540773914.835008482523126.583333333331.25211279889631.04142319948762
9640974321.734516570773128.833333333331.381260698845400.947999000005883
9721752302.277567144883163.1250.7278490629187520.944716671455598
9831382727.734071400763225.750.8456123603505421.15040539798242
9928233107.608568066773273.333333333330.9493712529735560.908415567201301
10024982889.439675520243290.750.8780489783545510.864527479553709
10128223039.0499669853304.208333333330.9197513172297960.928579664914054
10227382943.672192040913336.750.8821974052718690.93013074193621
10341373483.30985795833367.1251.034505656296781.18766350646303
10435153775.951742924233371.458333333331.119975799668560.93089113402648
10537853315.330471159843386.6250.9789482068902921.14166597656729
10636323536.604086049333432.3751.030366462303601.02697387426740
10745044339.666446874713465.8751.25211279889631.03786778434173
10844514815.0747961750534861.381260698845400.92438854813548
10925502517.144675927353458.333333333330.7278490629187521.01305261647726
11028672880.04999780893405.8750.8456123603505420.995468829423506
11134583205.591592800753376.541666666670.9493712529735561.07874003905117
11229612955.220178148643365.666666666670.8780489783545511.00195580075356
11331633093.660201445523363.583333333330.9197513172297961.02241351474932
11428803001.162056284463401.916666666670.8821974052718690.95962828597318
11533313561.285721801673442.51.034505656296780.935336353274916
11630623853.976723634473441.1251.119975799668560.79450402002231
11735343368.805516961223441.250.9789482068902921.04903651522982
11836223553.347541061763448.6251.030366462303601.01932050218700
11944644331.788570514993459.583333333331.25211279889631.03052121019593
12054114789.809235892013467.708333333331.381260698845401.12969008440945
12125642525.423959018053469.708333333330.7278490629187521.01527507523804
12228202946.183931157983484.083333333330.8456123603505420.957170382397548
12335083324.539899371233501.833333333330.9493712529735561.05518360620772
12430883072.695814377653499.458333333330.8780489783545511.00498070311768
12532993202.229179850193481.6250.9197513172297961.03021982959831
12629393040.971214197353447.041666666670.8821974052718690.966467550326922
12733203527.966018788443410.291666666671.034505656296780.941052147985297
12834183823.504048751833413.916666666671.119975799668560.8939443914322
12936043338.947596651063410.750.9789482068902921.07938201953657
13034953463.705658841353361.6251.030366462303601.00903493086336
13141634143.658622480823309.333333333331.25211279889631.00466770534963
13248824554.534496855343297.3751.381260698845401.07189878644475
13322112428.801995915593336.958333333330.7278490629187520.910325338878239
13432602840.869958445993359.541666666670.8456123603505421.14753580687772
13529923174.657912808033343.958333333330.9493712529735560.942463749536256
13624252929.464074783573336.333333333330.8780489783545510.827796463139478
13727073066.527537587243334.083333333330.9197513172297960.882757440401099
13832442936.908678600493329.083333333330.8821974052718691.10456277501480
13939653446.671115964463331.708333333331.034505656296781.1503853621643
14033153718.972974116093320.583333333331.119975799668560.891375125087563
14133333261.814635849833331.958333333330.9789482068902921.02182385331398
14235833484.828171318573382.1251.030366462303601.02817121070399
14340214285.669082422313422.751.25211279889630.938243229392616
14449044718.444099784993416.041666666671.381260698845401.03932565402724
14522522458.613480450973377.916666666670.7278490629187520.915963415114331
14629522834.386930349973351.8750.8456123603505421.04149506490827
14735733179.088311988573348.6250.9493712529735561.12390712347498
14830482941.720175106433350.291666666670.8780489783545511.03612846177313
14930593088.4099543433357.8750.9197513172297960.990477315260027
15027312977.453001017783375.041666666670.8821974052718690.917226904695546
15135633489.258265482013372.8751.034505656296781.02113392844763
15230923783.838239180233378.51.119975799668560.817159668186525
15334783309.293623884013380.458333333330.9789482068902921.05097957307215
15434783499.210369854893396.083333333331.030366462303600.993938526806615
15543084289.686277652103425.958333333331.25211279889631.0042692451528
15650294741.925531665373433.041666666671.381260698845401.06053964078888
15720752504.013065750533440.291666666670.7278490629187520.828669797446949
15832642968.451723313883510.416666666670.8456123603505421.09956310704497
15933083373.748975983693553.666666666670.9493712529735560.980511598091106
16036883107.268992900363538.833333333330.8780489783545511.18689434626565
16131363264.733946450263549.583333333330.9197513172297960.960568319329593
16228243153.782207396493574.916666666670.8821974052718690.895432789676135
16336443730.513605410883606.083333333331.034505656296780.976809197187915
16446944067.23878215473631.541666666671.119975799668561.15409993152978
16529143590.455706804633667.666666666670.9789482068902920.811596142093437
16636863799.047010385243687.083333333331.030366462303600.970243324160978
16743584621.5483407262436911.25211279889630.942974016217944
16855875142.376029272293722.958333333331.381260698845401.08646274955327
1692265NA3762.70833333333NANA
1703685NANANANA
1713754NANANANA
1723708NANANANA
1733210NANANANA
1743517NANANANA
1753905NANANANA
 
Charts produced by software:
http://www.freestatistics.org/blog/date/2010/May/31/t1275290758qwx06mjtofsqvup/1w04h1275290702.png (open in new window)
http://www.freestatistics.org/blog/date/2010/May/31/t1275290758qwx06mjtofsqvup/1w04h1275290702.ps (open in new window)


http://www.freestatistics.org/blog/date/2010/May/31/t1275290758qwx06mjtofsqvup/2w04h1275290702.png (open in new window)
http://www.freestatistics.org/blog/date/2010/May/31/t1275290758qwx06mjtofsqvup/2w04h1275290702.ps (open in new window)


http://www.freestatistics.org/blog/date/2010/May/31/t1275290758qwx06mjtofsqvup/3p9mj1275290702.png (open in new window)
http://www.freestatistics.org/blog/date/2010/May/31/t1275290758qwx06mjtofsqvup/3p9mj1275290702.ps (open in new window)


http://www.freestatistics.org/blog/date/2010/May/31/t1275290758qwx06mjtofsqvup/4hjlm1275290702.png (open in new window)
http://www.freestatistics.org/blog/date/2010/May/31/t1275290758qwx06mjtofsqvup/4hjlm1275290702.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