Home » date » 2008 » May » 17 » attachments

Opgave 9 eigen reeks - Jesse De Meyer

R Software Module: rwasp_decompose.wasp (opens new window with default values)
Title produced by software: Classical Decomposition
Date of computation: Sat, 17 May 2008 04:17:18 -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/17/t1211019579cdmbdf18wke6eai.htm/, Retrieved Sat, 17 May 2008 12:19:39 +0200
 
User-defined keywords:
 
Dataseries X:
» Textbox « » Textfile « » CSV «
36409 33163 34122 35225 28249 30374 26311 22069 23651 28628 23187 14727 43080 32519 39657 33614 28671 34243 27336 22916 24537 26128 22602 15744 41086 39690 43129 37863 35953 29133 24693 22205 21725 27192 21790 13253 37702 30364 32609 30212 29965 28352 25814 22414 20506 28806 22228 13971 36845 35338 35022 34777 26887 23970 22780 17351 21382 24561 17409 11514 31514 27071 29462 26105 22397 23843 21705 18089 20764 25316 17704 15548 28029 29383 36438 32034 22679 24319 18004 17537 20366 22782 19169 13807 29743 25591 29096 26482 22405 27044 17970 18730 19684 19785 18479 10698 31956 29506 34506 27165 26736 23691 18157 17328 18205 20995 17382 9367
 
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'Sir Ronald Aylmer Fisher' @ 193.190.124.24


Classical Decomposition by Moving Averages
tObservationsFitTrendSeasonalRandom
136409NANA1.35125292021761NA
233163NANA1.20328720996259NA
334122NANA1.34594840132253NA
435225NANA1.21740255465719NA
528249NANA1.03812329870049NA
630374NANA1.05876451532526NA
72631124806.073916456728287.54166666670.8769257579455031.06066764489261
82206922150.801786197228538.66666666670.7761680685688620.996307050779164
92365124022.306258453228742.45833333330.8357777187970720.98454327180503
102862828310.932687235228905.95833333330.9794151212965671.01119946545978
112318722603.014645178628856.41666666670.7832924963025071.02583661356632
121472715494.404813406229035.20833333330.5336419369038270.95047213347994
134308039509.453040857729239.1251.351252920217611.09037196631019
143251935276.921545374429317.1251.203287209962590.921820798852103
153965739556.526215934829389.33333333331.345948401322531.00254000524507
163361435696.779157870929322.08333333331.217402554657190.941653583124133
172867130306.495775750329193.54166666671.038123298700490.946034810891633
183424330928.14375461229211.54166666671.058764515325261.10717928213502
192733625580.655130735329170.83333333330.8769257579455031.06862001228247
202291622808.895287335129386.54166666670.7761680685688621.00469574310004
212453724931.2493517166298300.8357777187970720.98418653850215
222612829531.039074590430151.70833333330.9794151212965670.884763991338236
232260223993.946295487830632.16666666670.7832924963025070.941987604775562
241574416394.903346850730722.66666666670.5336419369038270.960298433416767
254108641077.582054770230399.6251.351252920217611.00020492796335
263969036411.320562566630259.8751.203287209962591.09004560633278
274312940530.65637139230113.08333333331.345948401322531.06410810633805
283786336571.077092540530040.251.217402554657191.03532635651366
293595331196.383718423830050.751.038123298700491.15247332269371
302913331670.955292488929913.1251.058764515325260.919864896115374
312469326016.925695313229668.33333333330.8769257579455030.949112907850152
322220522616.567308010929138.750.7761680685688620.981802397224748
332172523662.399478296228311.83333333330.8357777187970720.918123287535854
342719226987.498004583227554.70833333330.9794151212965671.00757765671283
352179021138.257677092926986.41666666670.7832924963025071.03083235774978
361325314250.574398806126704.3750.5336419369038270.92999760073603
373770236103.507451039226718.54166666671.351252920217611.04427527023873
383036432216.761622571226773.95833333331.203287209962590.942490755455906
393260935979.724420603626731.8751.345948401322530.906316002279512
403021232563.489332821926748.33333333331.217402554657190.92778755038233
412996527856.827576779326833.83333333331.038123298700491.07567884093801
422835228461.7077009737268821.058764515325260.996145428021176
432581423568.439363409626876.20833333330.8769257579455031.09527829153069
442241420993.599876633427047.750.7761680685688621.06765872131094
452050622863.152210624927355.54166666670.8357777187970720.896901696279243
462880627077.196106108627646.29166666670.9794151212965671.06384722727998
472222821703.664310673927708.250.7832924963025071.02415885547346
481397114620.410496161227397.41666666670.5336419369038270.95558192457512
493684536603.302124904727088.41666666671.351252920217611.00660317132784
503533832189.186290676226751.04166666671.203287209962591.09782209717541
513502235770.709850114926576.58333333331.345948401322530.979069192273451
523477732183.507560449626436.20833333331.217402554657191.08058451785217
532688727051.979234324226058.54166666671.038123298700490.993901398751818
542397027268.877128895325755.3751.058764515325260.879024093537034
552278022300.989334592325430.8750.8769257579455031.02147934597075
561735119298.869239249524864.29166666670.7761680685688620.899068219225611
572138220299.508530429724288.16666666670.8357777187970721.05332599397407
582456123207.404534975723695.16666666670.9794151212965671.05832601672386
591740918130.675588790123146.750.7832924963025070.96019587989119
601151412249.417135416822954.3750.5336419369038270.93996309152617
613151430949.491000099222904.29166666671.351252920217611.01823968607106
622707127543.545057846122890.251.203287209962590.982843709593167
632946230815.825135379622895.251.345948401322530.956067211264602
642610527879.685179097822900.95833333331.217402554657190.93634486301774
652239723819.436302720722944.70833333331.038123298700490.940282537141392
662384324484.017647272923125.08333333331.058764515325260.973818935417067
672170520299.040906349223147.95833333330.8769257579455031.06926234102080
681808917928.770896544523099.08333333330.7761680685688621.00893698203742
692076419629.145151811323486.08333333330.8357777187970721.05781478711436
702531623529.264829211824023.79166666670.9794151212965671.07593671896497
711770419020.365315840324282.58333333330.7832924963025070.93079179637291
721554812975.058994202524314.16666666670.5336419369038271.19829898322213
732802932673.014099836724179.79166666671.351252920217610.857863921410913
742938328882.001531061224002.58333333331.203287209962591.01734639022161
753643832252.9615408917239631.345948401322531.12975671873736
763203429023.891405156223840.83333333331.217402554657191.10371140633158
772267924703.484801839123796.29166666671.038123298700490.918048614676082
782431925182.493421070623784.79166666671.058764515325260.965710566994604
791800420856.509918389923783.66666666670.8769257579455030.86323167540727
801753718392.919401548723697.08333333330.7761680685688620.953464733745496
812036619417.763037098823233.16666666670.8357777187970721.04883348102917
822278222228.723975020122695.91666666670.9794151212965671.02489013879526
831916917587.396968229622453.16666666670.7832924963025071.08992820453348
841380712036.449532430822555.29166666670.5336419369038271.14709906462024
852974330629.412964622622667.41666666671.351252920217610.971060073346935
862559127333.521302740522715.70833333331.203287209962590.936249659038046
872909630602.8288008703227371.345948401322530.950761780530974
882648227493.464218632822583.70833333331.217402554657190.963210739447404
892240523285.192100127022430.08333333331.038123298700490.962199491576359
902704423580.582709383522271.79166666671.058764515325261.14687581444874
911797019497.969226466022234.45833333330.8769257579455030.921634442606874
921873017455.858160432822489.79166666670.7761680685688621.07299222002476
931968419121.201243212322878.33333333330.8357777187970721.02943323223416
941978522656.034630649123132.20833333330.9794151212965670.873277266853874
951847918282.928067758923341.1250.7832924963025071.01072431787263
961069812477.549063443223381.8750.5336419369038270.857379918572557
973195631416.574092854423249.95833333331.351252920217611.01717010599409
982950627915.461079658723199.33333333331.203287209962591.05697698905286
993450631063.535722406323079.29166666671.345948401322531.11082010458683
1002716528083.143581044823068.08333333331.217402554657190.96730623911831
1012673623952.402595229323072.79166666671.038123298700491.11621370314330
1022369124321.541409358622971.6251.058764515325260.97407477598784
10318157NANA0.876925757945503NA
10417328NANA0.776168068568862NA
10518205NANA0.835777718797072NA
10620995NANA0.979415121296567NA
10717382NANA0.783292496302507NA
1089367NANA0.533641936903827NA
 
Charts produced by software:
http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/May/17/t1211019579cdmbdf18wke6eai/1qmjc1211019433.png (open in new window)
http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/May/17/t1211019579cdmbdf18wke6eai/1qmjc1211019433.ps (open in new window)


http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/May/17/t1211019579cdmbdf18wke6eai/26zwv1211019433.png (open in new window)
http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/May/17/t1211019579cdmbdf18wke6eai/26zwv1211019433.ps (open in new window)


http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/May/17/t1211019579cdmbdf18wke6eai/367hm1211019433.png (open in new window)
http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/May/17/t1211019579cdmbdf18wke6eai/367hm1211019433.ps (open in new window)


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