Jan-pieter Onzea-decompositie-werkloosheid

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

Title produced by software: Classical Decomposition

Date of computation: Mon, 19 May 2008 08:43:51 -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/19/t12112082795tmmraqe0dt2ifm.htm/, Retrieved Mon, 19 May 2008 16:44:44 +0200

User-defined keywords:

Dataseries X:

» Textbox « » Textfile « » CSV «

476 475 470 461 455 456 517 525 523 519 509 512 519 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

Text written by user:

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 476 NA NA -1.01302083333332 NA 2 475 NA NA -5.13802083333335 NA 3 470 NA NA -14.2005208333333 NA 4 461 NA NA -23.1796875000000 NA 5 455 NA NA -29.9921875000000 NA 6 456 NA NA -27.5546875000000 NA 7 517 517.830729166667 493.291666666667 24.5390625 -0.830729166666629 8 525 531.1015625 496.833333333333 34.2682291666667 -6.1015625 9 523 532.205729166667 500.25 31.9557291666666 -9.20572916666663 10 519 519.716145833333 503.916666666667 15.7994791666667 -0.716145833333314 11 509 504.8515625 507.833333333333 -2.98177083333335 4.14843750000011 12 512 509.372395833333 511.875 -2.50260416666664 2.62760416666663 13 519 515.153645833333 516.166666666667 -1.01302083333332 3.84635416666674 14 517 515.486979166667 520.625 -5.13802083333335 1.51302083333337 15 510 511.0078125 525.208333333333 -14.2005208333333 -1.0078125 16 509 506.236979166667 529.416666666667 -23.1796875000000 2.76302083333326 17 501 502.924479166667 532.916666666667 -29.9921875000000 -1.92447916666663 18 507 508.736979166667 536.291666666667 -27.5546875000000 -1.73697916666663 19 569 564.4140625 539.875 24.5390625 4.5859375 20 580 577.768229166667 543.5 34.2682291666667 2.23177083333337 21 578 579.1640625 547.208333333333 31.9557291666666 -1.16406249999989 22 565 566.341145833333 550.541666666667 15.7994791666667 -1.34114583333326 23 547 550.518229166667 553.5 -2.98177083333335 -3.51822916666663 24 555 553.997395833333 556.5 -2.50260416666664 1.00260416666674 25 562 558.028645833333 559.041666666667 -1.01302083333332 3.97135416666674 26 561 556.236979166667 561.375 -5.13802083333335 4.76302083333348 27 555 549.924479166667 564.125 -14.2005208333333 5.07552083333337 28 544 544.3203125 567.5 -23.1796875000000 -0.320312499999886 29 537 541.3828125 571.375 -29.9921875000000 -4.38281249999989 30 543 547.4453125 575 -27.5546875000000 -4.44531249999989 31 594 602.4140625 577.875 24.5390625 -8.41406249999989 32 611 614.518229166667 580.25 34.2682291666667 -3.51822916666663 33 613 614.580729166667 582.625 31.9557291666666 -1.58072916666674 34 611 600.841145833333 585.041666666667 15.7994791666667 10.1588541666667 35 594 584.518229166667 587.5 -2.98177083333335 9.48177083333337 36 595 587.330729166667 589.833333333333 -2.50260416666664 7.66927083333337 37 591 591.028645833333 592.041666666667 -1.01302083333332 -0.0286458333332575 38 589 588.778645833333 593.916666666667 -5.13802083333335 0.221354166666629 39 584 581.091145833333 595.291666666667 -14.2005208333333 2.90885416666686 40 573 572.778645833333 595.958333333333 -23.1796875000000 0.221354166666629 41 567 566.049479166667 596.041666666667 -29.9921875000000 0.950520833333371 42 569 568.611979166667 596.166666666667 -27.5546875000000 0.388020833333371 43 621 620.872395833333 596.333333333333 24.5390625 0.127604166666629 44 629 630.7265625 596.458333333333 34.2682291666667 -1.72656249999989 45 628 628.2890625 596.333333333333 31.9557291666666 -0.2890625 46 612 612.0078125 596.208333333333 15.7994791666667 -0.00781249999988631 47 595 593.518229166667 596.5 -2.98177083333335 1.48177083333348 48 597 594.4140625 596.916666666667 -2.50260416666664 2.5859375 49 593 596.028645833333 597.041666666667 -1.01302083333332 -3.02864583333326 50 590 591.736979166667 596.875 -5.13802083333335 -1.73697916666663 51 580 582.216145833333 596.416666666667 -14.2005208333333 -2.21614583333326 52 574 571.903645833333 595.083333333333 -23.1796875000000 2.09635416666663 53 573 562.8828125 592.875 -29.9921875000000 10.1171875000001 54 573 562.4453125 590 -27.5546875000000 10.5546875000001 55 620 611.5390625 587 24.5390625 8.4609375 56 626 618.2265625 583.958333333333 34.2682291666667 7.7734375 57 620 612.205729166667 580.25 31.9557291666666 7.79427083333337 58 588 592.049479166667 576.25 15.7994791666667 -4.04947916666663 59 566 568.684895833333 571.666666666667 -2.98177083333335 -2.68489583333337 60 557 563.497395833333 566 -2.50260416666664 -6.49739583333337 61 561 559.1953125 560.208333333333 -1.01302083333332 1.8046875 62 549 549.8203125 554.958333333333 -5.13802083333335 -0.8203125 63 532 534.966145833333 549.166666666667 -14.2005208333333 -2.96614583333326 64 526 520.1953125 543.375 -23.1796875000000 5.80468750000011 65 511 508.5078125 538.5 -29.9921875000000 2.49218750000011 66 499 506.8203125 534.375 -27.5546875000000 -7.82031249999989 67 555 NA NA 24.5390625 NA 68 565 NA NA 34.2682291666667 NA 69 542 NA NA 31.9557291666666 NA 70 527 NA NA 15.7994791666667 NA 71 510 NA NA -2.98177083333335 NA 72 514 NA NA -2.50260416666664 NA

Charts produced by software:

http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/May/19/t12112082795tmmraqe0dt2ifm/1oq411211208229.png (open in new window) http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/May/19/t12112082795tmmraqe0dt2ifm/1oq411211208229.ps (open in new window) http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/May/19/t12112082795tmmraqe0dt2ifm/2xbmi1211208229.png (open in new window) http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/May/19/t12112082795tmmraqe0dt2ifm/2xbmi1211208229.ps (open in new window) http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/May/19/t12112082795tmmraqe0dt2ifm/3ncyy1211208229.png (open in new window) http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/May/19/t12112082795tmmraqe0dt2ifm/3ncyy1211208229.ps (open in new window) http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/May/19/t12112082795tmmraqe0dt2ifm/4j0xw1211208229.png (open in new window) http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/May/19/t12112082795tmmraqe0dt2ifm/4j0xw1211208229.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