shw-ws9

*The author of this computation has been verified*

R Software Module: /rwasp_decompose.wasp (opens new window with default values)

Title produced by software: Classical Decomposition

Date of computation: Fri, 04 Dec 2009 06:37:30 -0700

Cite this page as follows:

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL http://www.freestatistics.org/blog/date/2009/Dec/04/t12599339058jp37bon1odx174.htm/, Retrieved Fri, 04 Dec 2009 14:38:30 +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/2009/Dec/04/t12599339058jp37bon1odx174.htm/}, year = {2009}, } @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 = {2009}, 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:

Workshop 9 - Populaire technieken 1

Dataseries X:

» Textbox « » Textfile « » CSV «

1178 2141 2238 2685 4341 5376 4478 6404 4617 3024 1897 2075 1351 2211 2453 3042 4765 4992 4601 6266 4812 3159 1916 2237 1595 2453 2226 3597 4706 4974 5756 5493 5004 3225 2006 2291 1588 2105 2191 3591 4668 4885 5822 5599 5340 3082 2010 2301 1514 1979 2480 3499 4676 5585 5610 5796 6199 3030 1930 2552

Output produced by software:

Summary of computational transaction Raw Input view raw input (R code) Raw Output view raw output of R engine Computing time 2 seconds R Server 'Gwilym Jenkins' @ 72.249.127.135 Classical Decomposition by Moving Averages t Observations Fit Trend Seasonal Random 1 1178 NA NA 0.424259949027869 NA 2 2141 NA NA 0.613554786370274 NA 3 2238 NA NA 0.653872748010061 NA 4 2685 NA NA 0.95446001479855 NA 5 4341 NA NA 1.30971983361023 NA 6 5376 NA NA 1.4188127052466 NA 7 4478 4950.17061981218 3378.375 1.46525196871637 0.904615283779836 8 6404 5732.85731800846 3388.5 1.69185696267034 1.11706948991793 9 4617 4773.69957207458 3400.375 1.40387444681089 0.967174395935755 10 3024 3029.1050536394 3424.20833333333 0.88461470762519 0.998314666032045 11 1897 1909.89655703624 3456.75 0.552512202802124 0.993247510191727 12 2075 2169.15239113342 3458.41666666667 0.627209674311489 0.956594847130944 13 1351 1462.65385177145 3447.54166666667 0.424259949027869 0.923663516397794 14 2211 2114.87221905280 3446.91666666667 0.613554786370274 1.04545323357184 15 2453 2255.39782077153 3449.29166666667 0.653872748010061 1.08761300441483 16 3042 3305.33480041466 3463.04166666667 0.95446001479855 0.920330370048557 17 4765 4544.01839105098 3469.45833333333 1.30971983361023 1.04863131922710 18 4992 4933.21177614243 3477 1.4188127052466 1.01191682549326 19 4601 5119.46827436428 3493.91666666667 1.46525196871637 0.89872614760394 20 6266 5945.46734298403 3514.16666666667 1.69185696267034 1.05391210455377 21 4812 4934.32620669719 3514.79166666667 1.40387444681089 0.975209136653519 22 3159 3121.32613690933 3528.45833333333 0.88461470762519 1.01206982591315 23 1916 1960.93487177009 3549.125 0.552512202802124 0.977084974918352 24 2237 2224.03323763568 3545.91666666667 0.627209674311489 1.00583029162734 25 1595 1524.48973934227 3593.29166666667 0.424259949027869 1.04625171218808 26 2453 2214.44704792415 3609.20833333333 0.613554786370274 1.10772574232447 27 2226 2344.13380161607 3585 0.653872748010061 0.949604497177327 28 3597 3431.99959821189 3595.75 0.95446001479855 1.04807704577649 29 4706 4717.93827062247 3602.25 1.30971983361023 0.997469600080017 30 4974 5119.43094370605 3608.25 1.4188127052466 0.971592361474307 31 5756 5289.86486789293 3610.20833333333 1.46525196871637 1.08811853303405 32 5493 6082.930721201 3595.41666666667 1.69185696267034 0.903018668428214 33 5004 5025.11008759096 3579.45833333333 1.40387444681089 0.99579907957776 34 3225 3164.93027020602 3577.75 0.88461470762519 1.01897979565599 35 2006 1975.73759453683 3575.91666666667 0.552512202802124 1.01531701656478 36 2291 2239.53054333846 3570.625 0.627209674311489 1.02298225260407 37 1588 1514.46659804648 3569.66666666667 0.424259949027869 1.04855399389354 38 2105 2194.58321171541 3576.83333333333 0.613554786370274 0.95917985190209 39 2191 2350.83599728317 3595.25 0.653872748010061 0.93200886941161 40 3591 3439.19781749016 3603.29166666667 0.95446001479855 1.04413883427637 41 4668 4711.71710141282 3597.5 1.30971983361023 0.990721620065069 42 4885 5105.00634786937 3598.08333333333 1.4188127052466 0.956903805230096 43 5822 5268.191349189 3595.41666666667 1.46525196871637 1.10512310850217 44 5599 6068.83191317875 3587.08333333333 1.69185696267034 0.922582810020082 45 5340 5045.34927753248 3593.875 1.40387444681089 1.05840046075296 46 3082 3186.45589475823 3602.08333333333 0.88461470762519 0.967218785318803 47 2010 1988.26120446701 3598.58333333333 0.552512202802124 1.01093357124514 48 2301 2275.56896587494 3628.08333333333 0.627209674311489 1.01117568155764 49 1514 1547.87706903243 3648.41666666667 0.424259949027869 0.978113850440588 50 1979 2238.12003676493 3647.79166666667 0.613554786370274 0.8842242451216 51 2480 2413.96196216397 3691.79166666667 0.653872748010061 1.02735670191623 52 3499 3555.76124679743 3725.41666666667 0.95446001479855 0.984036822818586 53 4676 4872.04863771061 3719.91666666667 1.30971983361023 0.959760533547808 54 5585 5287.97406965013 3727.04166666667 1.4188127052466 1.05617008072234 55 5610 NA NA 1.46525196871637 NA 56 5796 NA NA 1.69185696267034 NA 57 6199 NA NA 1.40387444681089 NA 58 3030 NA NA 0.88461470762519 NA 59 1930 NA NA 0.552512202802124 NA 60 2552 NA NA 0.627209674311489 NA

Charts produced by software:

http://www.freestatistics.org/blog/date/2009/Dec/04/t12599339058jp37bon1odx174/1puvn1259933847.png (open in new window) http://www.freestatistics.org/blog/date/2009/Dec/04/t12599339058jp37bon1odx174/1puvn1259933847.ps (open in new window) http://www.freestatistics.org/blog/date/2009/Dec/04/t12599339058jp37bon1odx174/223ch1259933847.png (open in new window) http://www.freestatistics.org/blog/date/2009/Dec/04/t12599339058jp37bon1odx174/223ch1259933847.ps (open in new window) http://www.freestatistics.org/blog/date/2009/Dec/04/t12599339058jp37bon1odx174/3q1yq1259933847.png (open in new window) http://www.freestatistics.org/blog/date/2009/Dec/04/t12599339058jp37bon1odx174/3q1yq1259933847.ps (open in new window) http://www.freestatistics.org/blog/date/2009/Dec/04/t12599339058jp37bon1odx174/4d9fn1259933847.png (open in new window) http://www.freestatistics.org/blog/date/2009/Dec/04/t12599339058jp37bon1odx174/4d9fn1259933847.ps (open in new window)

Parameters (Session):

par1 = 0.01 ; par2 = 0.99 ; par3 = 0.005 ;

Parameters (R input):

par1 = multiplicative ; par2 = 12 ; par3 = 0.005 ;

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

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