AClassical deposition - werkloosheid - Tim Vervaet

*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: Mon, 01 Jun 2009 13:40:50 -0600

Cite this page as follows:

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL http://www.freestatistics.org/blog/date/2009/Jun/01/t1243886225l28a4okyf062hxd.htm/, Retrieved Mon, 01 Jun 2009 21:57:09 +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/2009/Jun/01/t1243886225l28a4okyf062hxd.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:

Dataseries X:

» Textbox « » Textfile « » CSV «

517 510 509 501 507 569 580 578 565 547 555 562 561 555 544 537 543 594 611 613 611 594 595 591 589 584 573 567 569 621 629 628 612 595 597 593 590 580 574 573 573 620 626 620 588 566 557 561 549 532 526 511 499 555 565 542 527 510 514 517 508 493 490 469 478 528 534 518 506 502 516 528

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 517 NA NA -4.63333333333338 NA 2 510 NA NA -14.3500000000000 NA 3 509 NA NA -20.7583333333333 NA 4 501 NA NA -29.8916666666666 NA 5 507 NA NA -28.1916666666666 NA 6 569 NA NA 23.6166666666667 NA 7 580 578.908333333333 543.5 35.4083333333333 1.09166666666670 8 578 576.833333333333 547.208333333333 29.6250000000000 1.16666666666674 9 565 564.866666666667 550.541666666667 14.325 0.133333333333326 10 547 550.05 553.5 -3.45000000000002 -3.04999999999995 11 555 554.758333333333 556.5 -1.74166666666665 0.241666666666788 12 562 559.083333333333 559.041666666667 0.0416666666666332 2.91666666666674 13 561 556.741666666667 561.375 -4.63333333333338 4.25833333333344 14 555 549.775 564.125 -14.3500000000000 5.22500000000002 15 544 546.741666666667 567.5 -20.7583333333333 -2.74166666666656 16 537 541.483333333333 571.375 -29.8916666666666 -4.48333333333323 17 543 546.808333333333 575 -28.1916666666666 -3.80833333333328 18 594 601.491666666667 577.875 23.6166666666667 -7.49166666666656 19 611 615.658333333333 580.25 35.4083333333333 -4.6583333333333 20 613 612.25 582.625 29.6250000000000 0.749999999999886 21 611 599.366666666667 585.041666666667 14.325 11.6333333333333 22 594 584.05 587.5 -3.45000000000002 9.95000000000005 23 595 588.091666666667 589.833333333333 -1.74166666666665 6.90833333333342 24 591 592.083333333333 592.041666666667 0.0416666666666332 -1.08333333333326 25 589 589.283333333333 593.916666666667 -4.63333333333338 -0.283333333333417 26 584 580.941666666666 595.291666666667 -14.3500000000000 3.05833333333351 27 573 575.2 595.958333333333 -20.7583333333333 -2.20000000000005 28 567 566.15 596.041666666667 -29.8916666666666 0.850000000000023 29 569 567.975 596.166666666667 -28.1916666666666 1.02499999999998 30 621 619.95 596.333333333333 23.6166666666667 1.04999999999995 31 629 631.866666666667 596.458333333333 35.4083333333333 -2.86666666666656 32 628 625.958333333333 596.333333333333 29.6250000000000 2.04166666666663 33 612 610.533333333333 596.208333333333 14.325 1.46666666666670 34 595 593.05 596.5 -3.45000000000002 1.95000000000016 35 597 595.175 596.916666666667 -1.74166666666665 1.82500000000005 36 593 597.083333333333 597.041666666667 0.0416666666666332 -4.08333333333326 37 590 592.241666666667 596.875 -4.63333333333338 -2.24166666666667 38 580 582.066666666667 596.416666666667 -14.3500000000000 -2.06666666666661 39 574 574.325 595.083333333333 -20.7583333333333 -0.325000000000045 40 573 562.983333333333 592.875 -29.8916666666666 10.0166666666668 41 573 561.808333333333 590 -28.1916666666666 11.1916666666667 42 620 610.616666666667 587 23.6166666666667 9.38333333333333 43 626 619.366666666667 583.958333333333 35.4083333333333 6.63333333333333 44 620 609.875 580.25 29.6250000000000 10.125 45 588 590.575 576.25 14.325 -2.57500000000005 46 566 568.216666666667 571.666666666667 -3.45000000000002 -2.21666666666670 47 557 564.258333333333 566 -1.74166666666665 -7.25833333333333 48 561 560.25 560.208333333333 0.0416666666666332 0.75 49 549 550.325 554.958333333333 -4.63333333333338 -1.32500000000005 50 532 534.816666666667 549.166666666667 -14.3500000000000 -2.81666666666661 51 526 522.616666666667 543.375 -20.7583333333333 3.38333333333344 52 511 508.608333333333 538.5 -29.8916666666666 2.39166666666677 53 499 506.183333333333 534.375 -28.1916666666666 -7.18333333333328 54 555 554.366666666667 530.75 23.6166666666667 0.63333333333344 55 565 562.616666666667 527.208333333333 35.4083333333333 2.38333333333344 56 542 553.5 523.875 29.6250000000000 -11.4999999999999 57 527 535.075 520.75 14.325 -8.07499999999993 58 510 514.05 517.5 -3.45000000000002 -4.04999999999984 59 514 513.133333333333 514.875 -1.74166666666665 0.866666666666788 60 517 512.916666666667 512.875 0.0416666666666332 4.08333333333337 61 508 505.825 510.458333333333 -4.63333333333338 2.17500000000001 62 493 493.816666666667 508.166666666667 -14.3500000000000 -0.816666666666606 63 490 485.533333333333 506.291666666667 -20.7583333333333 4.46666666666681 64 469 475.191666666667 505.083333333333 -29.8916666666666 -6.1916666666666 65 478 476.641666666667 504.833333333333 -28.1916666666666 1.35833333333335 66 528 528.991666666667 505.375 23.6166666666667 -0.99166666666656 67 534 NA NA 35.4083333333333 NA 68 518 NA NA 29.6250000000000 NA 69 506 NA NA 14.325 NA 70 502 NA NA -3.45000000000002 NA 71 516 NA NA -1.74166666666665 NA 72 528 NA NA 0.0416666666666332 NA

Charts produced by software:

http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2009/Jun/01/t1243886225l28a4okyf062hxd/1zxdd1243885248.png (open in new window) http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2009/Jun/01/t1243886225l28a4okyf062hxd/1zxdd1243885248.ps (open in new window) http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2009/Jun/01/t1243886225l28a4okyf062hxd/2kc0q1243885248.png (open in new window) http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2009/Jun/01/t1243886225l28a4okyf062hxd/2kc0q1243885248.ps (open in new window) http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2009/Jun/01/t1243886225l28a4okyf062hxd/3j33h1243885248.png (open in new window) http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2009/Jun/01/t1243886225l28a4okyf062hxd/3j33h1243885248.ps (open in new window) http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2009/Jun/01/t1243886225l28a4okyf062hxd/430cj1243885248.png (open in new window) http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2009/Jun/01/t1243886225l28a4okyf062hxd/430cj1243885248.ps (open in new window)

Parameters (Session):

par1 = additive ; par2 = 12 ;

Parameters (R input):

par1 = additive ; 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

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