Correctie decompositiemodel Nathalie Wouters

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

Title produced by software: Classical Decomposition

Date of computation: Sun, 01 Jun 2008 10:35:20 -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/Jun/01/t1212338167kj387tkzj9003b0.htm/, Retrieved Sun, 01 Jun 2008 16:36:07 +0000

IsPrivate?

No (this computation is public)

User-defined keywords:

Dataseries X:

» Textbox « » Textfile « » CSV «

7840 8292 8534 8441 8602 8468 8832 9006 8749 8714 8193 8251 8192 9056 9407 9068 9431 9907 10044 10838 10871 11127 11303 11349 11493 12694 13227 12253 12234 12491 13248 14042 14392 14834 15542 15518 16197 17325 24016 23671 24998 25329 25904 26548 26752 26967 27034 27056 27476 28497 29085 28720 29067 29249 29672 29761 30066 30315 30571 30757 30742 31310 31381 31470 31226 31081 31061 31114 30828 30418 30195 29877 29192 29876 29409 28458 28340 28164 28438 28053

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 3 seconds R Server 'Sir Ronald Aylmer Fisher' @ 193.190.124.24 Classical Decomposition by Moving Averages t Observations Fit Trend Seasonal Random 1 7840 NA NA -997.262152777776 NA 2 8292 NA NA -377.043402777779 NA 3 8534 NA NA 1225.45659722222 NA 4 8441 NA NA 272.644097222221 NA 5 8602 NA NA 319.029513888887 NA 6 8468 NA NA 162.987847222224 NA 7 8832 8674.82118055556 8508.16666666667 166.65451388889 157.178819444443 8 9006 8834.86284722222 8554.66666666667 280.196180555555 171.137152777779 9 8749 8665.36284722222 8622.875 42.4878472222218 83.6371527777774 10 8714 8556.11284722222 8685.375 -129.262152777778 157.887152777777 11 8193 8458.14409722222 8746.04166666667 -287.897569444443 -265.144097222223 12 8251 8162.55034722222 8840.54166666667 -677.991319444442 88.4496527777756 13 8192 7953.73784722222 8951 -997.262152777776 238.262152777776 14 9056 8700.78993055555 9077.83333333333 -377.043402777779 355.210069444445 15 9407 10468.0399305556 9242.58333333333 1225.45659722222 -1061.03993055555 16 9068 9704.18576388889 9431.54166666667 272.644097222221 -636.185763888889 17 9431 9980.69618055555 9661.66666666667 319.029513888887 -549.696180555555 18 9907 10083.3211805556 9920.33333333333 162.987847222224 -176.321180555557 19 10044 10353.6128472222 10186.9583333333 166.65451388889 -309.612847222223 20 10838 10756.2795138889 10476.0833333333 280.196180555555 81.7204861111131 21 10871 10829.3211805556 10786.8333333333 42.4878472222218 41.6788194444434 22 11127 10949.4461805556 11078.7083333333 -129.262152777778 177.553819444443 23 11303 11040.3107638889 11328.2083333333 -287.897569444443 262.689236111109 24 11349 10874.6753472222 11552.6666666667 -677.991319444442 474.324652777776 25 11493 10796.5711805556 11793.8333333333 -997.262152777776 696.428819444443 26 12694 11683.7899305556 12060.8333333333 -377.043402777779 1010.21006944445 27 13227 13566.4982638889 12341.0416666667 1225.45659722222 -339.498263888885 28 12253 12914.8524305556 12642.2083333333 272.644097222221 -661.852430555553 29 12234 13292.3211805556 12973.2916666667 319.029513888887 -1058.32118055555 30 12491 13486.6128472222 13323.625 162.987847222224 -995.612847222224 31 13248 13859.9878472222 13693.3333333333 166.65451388889 -611.987847222224 32 14042 14362.4878472222 14082.2916666667 280.196180555555 -320.487847222221 33 14392 14767.2795138889 14724.7916666667 42.4878472222218 -375.279513888889 34 14834 15520.8211805556 15650.0833333333 -129.262152777778 -686.821180555553 35 15542 16369.7690972222 16657.6666666667 -287.897569444443 -827.76909722222 36 15518 17046.4253472222 17724.4166666667 -677.991319444442 -1528.42534722222 37 16197 17789.4045138889 18786.6666666667 -997.262152777776 -1592.40451388889 38 17325 19458.0399305556 19835.0833333333 -377.043402777779 -2133.03993055555 39 24016 22096.6232638889 20871.1666666667 1225.45659722222 1919.37673611111 40 23671 22164.3524305556 21891.7083333333 272.644097222221 1506.64756944445 41 24998 23195.1128472222 22876.0833333333 319.029513888887 1802.88715277778 42 25329 23998.6545138889 23835.6666666667 162.987847222224 1330.34548611112 43 25904 24953.0295138889 24786.375 166.65451388889 950.970486111113 44 26548 26002.0295138889 25721.8333333333 280.196180555555 545.970486111113 45 26752 26441.0295138889 26398.5416666667 42.4878472222218 310.970486111113 46 26967 26690.8628472222 26820.125 -129.262152777778 276.137152777777 47 27034 26912.1440972222 27200.0416666667 -287.897569444443 121.855902777781 48 27056 26854.9253472222 27532.9166666667 -677.991319444442 201.074652777777 49 27476 26855.9878472222 27853.25 -997.262152777776 620.012152777785 50 28497 27767.0815972222 28144.125 -377.043402777779 729.918402777777 51 29085 29641.5399305556 28416.0833333333 1225.45659722222 -556.539930555555 52 28720 28966.3107638889 28693.6666666667 272.644097222221 -246.310763888891 53 29067 29299.5711805556 28980.5416666667 319.029513888887 -232.571180555555 54 29249 29445.1128472222 29282.125 162.987847222224 -196.112847222219 55 29672 29739.0711805556 29572.4166666667 166.65451388889 -67.0711805555511 56 29761 30105.9045138889 29825.7083333333 280.196180555555 -344.904513888887 57 30066 30081.0711805556 30038.5833333333 42.4878472222218 -15.0711805555547 58 30315 30119.5711805556 30248.8333333333 -129.262152777778 195.428819444445 59 30571 30165.4774305556 30453.375 -287.897569444443 405.522569444445 60 30757 29941.6753472222 30619.6666666667 -677.991319444442 815.324652777781 61 30742 29756.6128472222 30753.875 -997.262152777776 985.387152777785 62 31310 30491.0815972222 30868.125 -377.043402777779 818.918402777781 63 31381 32181.7065972222 30956.25 1225.45659722222 -800.706597222215 64 31470 31264.9357638889 30992.2916666667 272.644097222221 205.064236111117 65 31226 31299.9461805556 30980.9166666667 319.029513888887 -73.9461805555511 66 31081 31091.5711805556 30928.5833333333 162.987847222224 -10.5711805555547 67 31061 30993.9878472222 30827.3333333333 166.65451388889 67.0121527777737 68 31114 30983.1961805556 30703 280.196180555555 130.803819444449 69 30828 30603.5711805556 30561.0833333333 42.4878472222218 224.428819444445 70 30418 30224.1545138889 30353.4166666667 -129.262152777778 193.845486111113 71 30195 29819.7690972222 30107.6666666667 -287.897569444443 375.230902777777 72 29877 29187.8836805556 29865.875 -677.991319444442 689.116319444442 73 29192 NA 29635.0416666667 NA NA 74 29876 NA 29398.2083333333 NA NA 75 29409 NA NA NA NA 76 28458 NA NA NA NA 77 28340 NA NA NA NA 78 28164 NA NA NA NA 79 28438 NA NA NA NA 80 28053 NA NA NA NA

Charts produced by software:

http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/Jun/01/t1212338167kj387tkzj9003b0/1ymv21212338115.png (open in new window) http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/Jun/01/t1212338167kj387tkzj9003b0/1ymv21212338115.ps (open in new window) http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/Jun/01/t1212338167kj387tkzj9003b0/2erlq1212338115.png (open in new window) http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/Jun/01/t1212338167kj387tkzj9003b0/2erlq1212338115.ps (open in new window) http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/Jun/01/t1212338167kj387tkzj9003b0/34kek1212338115.png (open in new window) http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/Jun/01/t1212338167kj387tkzj9003b0/34kek1212338115.ps (open in new window) http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/Jun/01/t1212338167kj387tkzj9003b0/4t4p81212338115.png (open in new window) http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/Jun/01/t1212338167kj387tkzj9003b0/4t4p81212338115.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