Home » date » 2010 » Dec » 09 »

*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: Thu, 09 Dec 2010 18:56:23 +0000
 
Cite this page as follows:
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL http://www.freestatistics.org/blog/date/2010/Dec/09/t1291920865j5t8gervp45tvms.htm/, Retrieved Thu, 09 Dec 2010 19:54:25 +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/2010/Dec/09/t1291920865j5t8gervp45tvms.htm/},
    year = {2010},
}
@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 = {2010},
    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 «
9700 9081 9084 9743 8587 9731 9563 9998 9437 10038 9918 9252 9737 9035 9133 9487 8700 9627 8947 9283 8829 9947 9628 9318 9605 8640 9214 9567 8547 9185 9470 9123 9278 10170 9434 9655 9429 8739 9552 9687 9019 9672 9206 9069 9788 10312 10105 9863 9656 9295 9946 9701 9049 10190 9706 9765 9893 9994 10433 10073 10112 9266 9820 10097 9115 10411 9678 10408 10153 10368 10581 10597 10680
 
Output produced by software:


Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time7 seconds
R Server'Sir Ronald Aylmer Fisher' @ 193.190.124.24


Classical Decomposition by Moving Averages
tObservationsFitTrendSeasonalRandom
19700NANA160.816666666666NA
29081NANA-556.358333333333NA
39084NANA-27.7416666666676NA
49743NANA138.341666666667NA
58587NANA-691.733333333333NA
69731NANA222.533333333333NA
795639300.408333333339512.54166666667-212.133333333334262.591666666667
899989366.508333333349512.16666666667-145.658333333333631.491666666665
994379555.658333333339512.2916666666743.3666666666671-118.658333333335
101003899519503.66666666667447.33333333333386.9999999999982
1199189893.8259497.70833333333396.11666666666724.1750000000011
1292529723.29498.08333333333225.116666666666-471.200000000001
1397379628.99468.08333333333160.816666666666108.100000000000
1490358856.266666666679412.625-556.358333333333178.733333333334
1591339329.758333333349357.5-27.7416666666676-196.758333333335
1694879466.716666666679328.375138.34166666666720.2833333333328
1787008620.766666666679312.5-691.73333333333379.2333333333336
1896279525.79303.16666666667222.533333333333101.300000000001
1989479088.283333333339300.41666666667-212.133333333334-141.283333333333
2092839132.89278.45833333333-145.658333333333150.200000000001
2188299308.741666666669265.37543.3666666666671-479.741666666665
2299479719.416666666679272.08333333333447.333333333333227.583333333334
2396289665.158333333339269.04166666667396.116666666667-37.1583333333328
2493189469.366666666679244.25225.116666666666-151.366666666667
2596059408.441666666679247.625160.816666666666196.558333333334
2686408706.391666666669262.75-556.358333333333-66.3916666666646
2792149247.059274.79166666667-27.7416666666676-33.0499999999993
2895679441.133333333349302.79166666667138.341666666667125.866666666665
2985478612.266666666669304-691.733333333333-65.2666666666646
3091859532.491666666679309.95833333333222.533333333333-347.491666666667
3194709104.533333333339316.66666666667-212.133333333334365.466666666665
3291239167.89313.45833333333-145.658333333333-44.8000000000011
3392789375.033333333339331.6666666666743.3666666666671-97.0333333333328
34101709798.083333333339350.75447.333333333333371.916666666666
3594349771.533333333339375.41666666667396.116666666667-337.533333333333
3696559640.491666666679415.375225.11666666666614.5083333333332
3794299585.483333333339424.66666666667160.816666666666-156.483333333332
3887398855.058333333339411.41666666667-556.358333333333-116.058333333332
3995529402.6759430.41666666667-27.7416666666676149.325000000001
4096879595.9259457.58333333333138.34166666666791.0750000000007
4190198799.7259491.45833333333-691.733333333333219.275000000000
4296729750.616666666669528.08333333333222.533333333333-78.616666666665
4392069334.0759546.20833333333-212.133333333334-128.074999999999
4490699433.1759578.83333333333-145.658333333333-364.174999999999
4597889661.783333333339618.4166666666743.3666666666671126.216666666667
461031210082.759635.41666666667447.333333333333229.25
471010510033.36666666679637.25396.11666666666771.633333333335
4898639885.29660.08333333333225.116666666666-22.1999999999989
4996569863.316666666679702.5160.816666666666-207.316666666666
5092959195.9759752.33333333333-556.35833333333399.0250000000015
5199469757.966666666679785.70833333333-27.7416666666676188.033333333333
5297019915.1759776.83333333333138.341666666667-214.174999999999
5390499085.516666666669777.25-691.733333333333-36.5166666666646
541019010022.29799.66666666667222.533333333333167.800000000001
5597069615.283333333339827.41666666667-212.13333333333490.7166666666653
5697659699.559845.20833333333-145.65833333333365.4500000000007
5798939882.116666666669838.7543.366666666667110.8833333333350
58999410297.33333333339850447.333333333333-303.333333333334
591043310265.36666666679869.25396.116666666667167.633333333335
601007310106.3259881.20833333334225.116666666666-33.3250000000025
611011210050.06666666679889.25160.81666666666661.9333333333343
6292669358.516666666679914.875-556.358333333333-92.5166666666664
6398209924.758333333349952.5-27.7416666666676-104.758333333335
641009710117.25833333339978.91666666667138.341666666667-20.2583333333332
6591159308.9333333333310000.6666666667-691.733333333333-193.933333333332
661041110251.210028.6666666667222.533333333333159.800000000001
6796789862.0333333333310074.1666666667-212.133333333334-184.033333333333
6810408NANA-145.658333333333NA
6910153NANA43.3666666666671NA
7010368NANA447.333333333333NA
7110581NANA396.116666666667NA
7210597NANA225.116666666666NA
7310680NANANANA
 
Charts produced by software:
http://www.freestatistics.org/blog/date/2010/Dec/09/t1291920865j5t8gervp45tvms/1vh4e1291920974.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Dec/09/t1291920865j5t8gervp45tvms/1vh4e1291920974.ps (open in new window)


http://www.freestatistics.org/blog/date/2010/Dec/09/t1291920865j5t8gervp45tvms/2vh4e1291920974.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Dec/09/t1291920865j5t8gervp45tvms/2vh4e1291920974.ps (open in new window)


http://www.freestatistics.org/blog/date/2010/Dec/09/t1291920865j5t8gervp45tvms/3o8mh1291920974.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Dec/09/t1291920865j5t8gervp45tvms/3o8mh1291920974.ps (open in new window)


http://www.freestatistics.org/blog/date/2010/Dec/09/t1291920865j5t8gervp45tvms/4gh311291920974.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Dec/09/t1291920865j5t8gervp45tvms/4gh311291920974.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])
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

Creative Commons License

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