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

Title produced by software: Classical Decomposition

Date of computation: Wed, 07 May 2008 07:30:53 -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/07/t1210167516xvn8dssdvfjn9zw.htm/, Retrieved Wed, 07 May 2008 15:38:36 +0200

User-defined keywords:

Dataseries X:

» Textbox « » Textfile « » CSV «

56421 53152 53536 52408 41454 38271 35306 26414 31917 38030 27534 18387 50556 43901 48572 43899 37532 40357 35489 29027 34485 42598 30306 26451 47460 50104 61465 53726 39477 43895 31481 29896 33842 39120 33702 25094 51442 45594 52518 48564 41745 49585 32747 33379 35645 37034 35681 20972 58552 54955 65540 51570 51145 46641 35704 33253 35193 41668 34865 21210 56126 49231 59723 48103 47472 50497 40059 34149 36860 46356 36577

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 4 seconds R Server 'Herman Ole Andreas Wold' @ 193.190.124.10:1001 Classical Decomposition by Moving Averages t Observations Fit Trend Seasonal Random 1 56421 NA NA 451.448 NA 2 53152 NA NA -1247.04200000000 NA 3 53536 NA NA -86.4519999999959 NA 4 52408 NA NA -2089.272 NA 5 41454 NA NA 367.648 NA 6 38271 39156.678 41246.55 -2089.872 -885.678000000007 7 35306 41765.518 38063.95 3701.568 -6459.518 8 26414 35678.958 36176.7 -497.741999999998 -9264.958 9 31917 38687.718 35602.35 3085.36800000000 -6770.718 10 38030 33937.248 35532.9 -1595.652 4092.752 11 27534 36621.648 36170.2 451.448 -9087.648 12 18387 35315.858 36562.9 -1247.04200000000 -16928.858 13 50556 37284.898 37371.35 -86.4519999999959 13271.102 14 43901 36157.828 38247.1 -2089.272 7743.172 15 48572 38343.198 37975.55 367.648 10228.802 16 43899 35783.078 37872.95 -2089.872 8115.922 17 37532 43132.618 39431.05 3701.568 -5600.618 18 40357 39131.358 39629.1 -497.741999999998 1225.64199999999 19 35489 40829.468 37744.1 3085.36800000000 -5340.468 20 29027 35220.348 36816 -1595.652 -6193.348 21 34485 37522.098 37070.65 451.448 -3037.098 22 42598 37330.508 38577.55 -1247.04200000000 5267.492 23 30306 40356.198 40442.65 -86.4519999999959 -10050.198 24 26451 39221.228 41310.5 -2089.272 -12770.228 25 47460 42620.948 42253.3 367.648 4839.052 26 50104 40756.628 42846.5 -2089.872 9347.372 27 61465 45762.768 42061.2 3701.568 15702.232 28 53726 41105.158 41602.9 -497.741999999998 12620.842 29 39477 45498.518 42413.15 3085.36800000000 -6021.518 30 43895 40763.048 42358.7 -1595.652 3131.952 31 31481 40871.748 40420.3 451.448 -9390.748 32 29896 37421.608 38668.65 -1247.04200000000 -7525.608 33 33842 37674.448 37760.9 -86.4519999999959 -3832.44800000000 34 39120 35917.078 38006.35 -2089.272 3202.922 35 33702 39259.498 38891.85 367.648 -5557.49800000001 36 25094 37548.628 39638.5 -2089.872 -12454.628 37 51442 44837.718 41136.15 3701.568 6604.28199999999 38 45594 41568.108 42065.85 -497.741999999998 4025.892 39 52518 44809.418 41724.05 3085.36800000000 7708.582 40 48564 39938.498 41534.15 -1595.652 8625.502 41 41745 42679.748 42228.3 451.448 -934.748 42 49585 40790.208 42037.25 -1247.04200000000 8794.792 43 32747 39931.648 40018.1 -86.4519999999959 -7184.648 44 33379 36999.428 39088.7 -2089.272 -3620.42800000001 45 35645 40077.598 39709.95 367.648 -4432.598 46 37034 39129.378 41219.25 -2089.872 -2095.37800000000 47 35681 46209.818 42508.25 3701.568 -10528.818 48 20972 43029.658 43527.4 -497.741999999998 -22057.658 49 58552 48195.768 45110.4 3085.36800000000 10356.232 50 54955 44180.798 45776.45 -1595.652 10774.202 51 65540 46041.798 45590.35 451.448 19498.202 52 51570 44129.858 45376.9 -1247.04200000000 7440.142 53 51145 46300.848 46387.3 -86.4519999999959 4844.152 54 46641 44148.478 46237.75 -2089.272 2492.52200000000 55 35704 43733.798 43366.15 367.648 -8029.798 56 33253 39118.328 41208.2 -2089.872 -5865.328 57 35193 44322.118 40620.55 3701.568 -9129.118 58 41668 40434.758 40932.5 -497.741999999998 1233.24200000001 59 34865 44519.868 41434.5 3085.36800000000 -9654.868 60 21210 40500.348 42096 -1595.652 -19290.348 61 56126 43998.048 43546.6 451.448 12127.952 62 49231 43405.058 44652.1 -1247.04200000000 5825.942 63 59723 44432.998 44519.45 -86.4519999999959 15290.002 64 48103 42153.978 44243.25 -2089.272 5949.022 65 47472 45967.948 45600.3 367.648 1504.05200000000 66 50497 43790.278 45880.15 -2089.872 6706.722 67 40059 NA NA 3701.568 NA 68 34149 NA NA -497.741999999998 NA 69 36860 NA NA 3085.36800000000 NA 70 46356 NA NA -1595.652 NA 71 36577 NA NA NA NA

Charts produced by software:

http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/May/07/t1210167516xvn8dssdvfjn9zw/1l8a51210167047.png (open in new window) http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/May/07/t1210167516xvn8dssdvfjn9zw/1l8a51210167047.ps (open in new window) http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/May/07/t1210167516xvn8dssdvfjn9zw/2n1y01210167047.png (open in new window) http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/May/07/t1210167516xvn8dssdvfjn9zw/2n1y01210167047.ps (open in new window) http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/May/07/t1210167516xvn8dssdvfjn9zw/3hfgl1210167047.png (open in new window) http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/May/07/t1210167516xvn8dssdvfjn9zw/3hfgl1210167047.ps (open in new window) http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/May/07/t1210167516xvn8dssdvfjn9zw/4eimi1210167047.png (open in new window) http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/May/07/t1210167516xvn8dssdvfjn9zw/4eimi1210167047.ps (open in new window)

Parameters (Session):

par1 = additive ; par2 = 10 ;

Parameters (R input):

par1 = additive ; par2 = 10 ;

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