Home » date » 2008 » May » 31 »

Classical Decomposition inschrijvingen personenwagens_Jan De Cleermaecker

R Software Module: rwasp_decompose.wasp (opens new window with default values)
Title produced by software: Classical Decomposition
Date of computation: Sat, 31 May 2008 07:34:28 -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/31/t12122409756kh8f8h7a1jbkc7.htm/, Retrieved Sat, 31 May 2008 13:36:20 +0000
 
User-defined keywords:
 
Dataseries X:
» Textbox « » Textfile « » CSV «
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
 
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 time18 seconds
R Server'George Udny Yule' @ 72.249.76.132


Classical Decomposition by Moving Averages
tObservationsFitTrendSeasonalRandom
141086NANA1.06339773298970NA
239690NANA1.10417243691564NA
34312939289.686969889539800.3750.9871687633568641.09771808650583
43786331983.939161924537839.1250.8452610667377891.18381290710665
53595336384.1534342427342151.063397732989700.988149966577566
62913333073.553046043529953.251.104172436915640.880854861872336
72469325881.097053308626217.50.9871687633568640.95409402272008
82220520452.253743687624196.3750.8452610667377891.08569941866937
92172525086.482994243523590.8751.063397732989700.866004214500102
102719224412.1484077679221091.104172436915641.11387164889377
112179022692.171759379722987.1250.9871687633568640.960243040245509
121325321453.359819605125380.750.8452610667377890.617758715252086
133770228849.581721860827129.6251.063397732989701.30684737004111
143036433789.746892937930601.8751.104172436915640.89861578709683
153260931347.17389211131754.6250.9871687633568641.04025326532567
163021225810.8919339051305360.8452610667377891.17051359857555
172996531301.245195268629435.1251.063397732989700.957310158527797
182835230487.3051556778276111.104172436915640.929960842889384
192581425127.270306390225453.8750.9871687633568641.02733005556259
202241420563.722546863624328.250.8452610667377891.08997774838285
212050625454.285685141323936.751.063397732989700.805601078484406
222880624770.038298883222433.1251.104172436915641.16293724104975
232222823119.615833913223420.1250.9871687633568640.961434660492701
241397122212.6155728024262790.8452610667377890.628966901903548
253684530513.932098706328694.751.063397732989701.20748122139140
263533836321.476269230832894.751.104172436915640.972923009463028
273502233811.270521545134250.750.9871687633568641.03580845853407
283477726697.5707929131315850.8452610667377891.30262787838479
292688730449.064836993928633.751.063397732989700.883015624418579
302397027521.774033231624925.251.104172436915640.870946762772524
312278021775.832354793722058.8750.9871687633568641.04611385819129
321735118126.306603291921444.6250.8452610667377890.95722754666684
332138222168.78546435320847.1251.063397732989700.964509311273812
342456121471.875229816219446.1251.104172436915641.14386842029960
351740919726.5933981602199830.9871687633568640.882514261262344
361151418226.575697333621563.250.8452610667377890.63171493050581
373151424866.093814081423383.6251.063397732989701.26734823071222
382707129497.000501319126714.1251.104172436915640.917754332302005
392946227046.819966737627398.3750.9871687633568641.08929626611308
402610521854.436195772225855.250.8452610667377891.19449432445437
412239726034.236223770624482.1251.063397732989700.860290265767444
422384324855.473641189622510.51.104172436915640.959265566377631
432170521031.013522840921304.3750.9871687633568641.03204726564543
441808917990.853517347121284.3750.8452610667377891.00545535444209
452076422297.72243947820968.3751.063397732989700.931216183911118
462531622249.764711623320150.6251.104172436915641.13780978487269
471770420474.990716880120741.1250.9871687633568640.864664616692809
481554818728.977743875922157.6250.8452610667377890.830157428377743
492802926593.184657173325007.751.063397732989701.05399185397825
502938332473.987412798329410.251.104172436915640.904816511335467
513643830407.01904110930802.250.9871687633568641.19834173651608
523203424935.624099298129500.50.8452610667377891.28466806655550
532267928247.299830838826563.251.063397732989700.802873199768297
542431924785.220669890822446.8751.104172436915640.981189569538222
551800420084.565470972520345.6250.9871687633568640.896409734431174
561753716790.582802579519864.3750.8452610667377891.04445451394968
572036621074.283347673319817.8751.063397732989700.966391106355152
582278221528.326045653519497.251.104172436915641.05823369414268
591916919943.893922194220203.1250.9871687633568640.961146307475501
601380718364.458908845221726.3750.8452610667377890.751832660495642
612974324796.707112003823318.3751.063397732989701.19947377954881
622559128867.070126058726143.6251.104172436915640.88651185895373
632909626466.734922170126810.750.9871687633568641.09934225304186
642648222040.287972821226075.1250.8452610667377891.20152695067578
652240526442.448028522248661.063397732989700.84731186673159
662704424850.780908332722506.251.104172436915641.08825554012799
671797020925.139672970921197.1250.9871687633568640.858775629737466
681873016862.641308518919949.6250.8452610667377891.110739394696
691968420317.144161784719105.8751.063397732989700.968836950865586
701978520057.844402791118165.51.104172436915640.986397122377062
7118479NANA0.987168763356864NA
7210698NANA0.845261066737789NA
 
Charts produced by software:
http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/May/31/t12122409756kh8f8h7a1jbkc7/16lg81212240850.png (open in new window)
http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/May/31/t12122409756kh8f8h7a1jbkc7/16lg81212240850.ps (open in new window)


http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/May/31/t12122409756kh8f8h7a1jbkc7/2ev311212240850.png (open in new window)
http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/May/31/t12122409756kh8f8h7a1jbkc7/2ev311212240850.ps (open in new window)


http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/May/31/t12122409756kh8f8h7a1jbkc7/3x0md1212240850.png (open in new window)
http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/May/31/t12122409756kh8f8h7a1jbkc7/3x0md1212240850.ps (open in new window)


http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/May/31/t12122409756kh8f8h7a1jbkc7/43bpp1212240850.png (open in new window)
http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/May/31/t12122409756kh8f8h7a1jbkc7/43bpp1212240850.ps (open in new window)


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