Home » date » 2010 » Aug » 16 »

Klassieke Decompositie

*Unverified author*
R Software Module: /rwasp_decompose.wasp (opens new window with default values)
Title produced by software: Classical Decomposition
Date of computation: Mon, 16 Aug 2010 16:47:47 +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/Aug/16/t1281977269b5udm3gz1jd7zs4.htm/, Retrieved Mon, 16 Aug 2010 18:47:54 +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/2010/Aug/16/t1281977269b5udm3gz1jd7zs4.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 «
257 256 255 253 251 250 251 253 254 254 255 257 260 251 255 252 245 239 240 247 251 255 259 260 259 266 261 243 232 225 229 238 240 241 239 246 242 251 246 219 203 192 197 203 208 207 208 212 208 215 200 170 162 150 148 152 155 150 146 147 142 146 130 102 98 90 86 104 108 94 88 92 93 95 81 50 49 34 27 45 47 42 32
 
Output produced by software:


Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'George Udny Yule' @ 72.249.76.132


Classical Decomposition by Moving Averages
tObservationsFitTrendSeasonalRandom
1257NANA10.6402777777778NA
2256NANA16.8569444444445NA
3255NANA11.9152777777778NA
4253NANA-6.73472222222221NA
5251NANA-13.2097222222222NA
6250NANA-19.2430555555556NA
7251238.281944444444253.958333333333-15.676388888888912.7180555555555
8253249.690277777778253.875-4.184722222222233.30972222222223
9254255.831944444444253.6666666666672.16527777777777-1.83194444444445
10254255.923611111111253.6252.29861111111110-1.92361111111106
11255257.548611111111253.3333333333334.21527777777777-2.54861111111109
12257263.581944444444252.62510.9569444444444-6.58194444444436
13260262.348611111111251.70833333333310.6402777777778-2.34861111111110
14251267.85694444444425116.8569444444445-16.8569444444444
15255262.540277777778250.62511.9152777777778-7.54027777777776
16252243.806944444444250.541666666667-6.734722222222218.19305555555559
17245237.540277777778250.75-13.20972222222227.4597222222223
18239231.798611111111251.041666666667-19.24305555555567.20138888888891
19240235.448611111111251.125-15.67638888888894.55138888888894
20247247.523611111111251.708333333333-4.18472222222223-0.52361111111108
21251254.748611111111252.5833333333332.16527777777777-3.7486111111111
22255254.756944444444252.4583333333332.298611111111100.2430555555556
23259255.756944444444251.5416666666674.215277777777773.24305555555557
24260261.373611111111250.41666666666710.9569444444444-1.37361111111110
25259260.015277777778249.37510.6402777777778-1.01527777777778
26266265.398611111111248.54166666666716.85694444444450.601388888888891
27261259.623611111111247.70833333333311.91527777777781.37638888888887
28243239.931944444444246.666666666667-6.734722222222213.06805555555556
29232232.040277777778245.25-13.2097222222222-0.0402777777777601
30225224.590277777778243.833333333333-19.24305555555560.4097222222222
31229226.865277777778242.541666666667-15.67638888888892.13472222222222
32238237.023611111111241.208333333333-4.184722222222230.976388888888891
33240242.123611111111239.9583333333332.16527777777777-2.12361111111113
34241240.631944444444238.3333333333332.298611111111100.368055555555543
35239240.340277777778236.1254.21527777777777-1.34027777777777
36246244.498611111111233.54166666666710.95694444444441.50138888888890
37242241.473611111111230.83333333333310.64027777777780.526388888888903
38251244.898611111111228.04166666666716.85694444444456.10138888888892
39246237.165277777778225.2511.91527777777788.83472222222224
40219215.765277777778222.5-6.734722222222213.23472222222227
41203206.581944444444219.791666666667-13.2097222222222-3.58194444444445
42192197.840277777778217.083333333333-19.2430555555556-5.84027777777774
43197198.573611111111214.25-15.6763888888889-1.57361111111109
44203207.148611111111211.333333333333-4.18472222222223-4.14861111111108
45208210.081944444444207.9166666666672.16527777777777-2.08194444444442
46207206.256944444444203.9583333333332.298611111111100.743055555555628
47208204.423611111111200.2083333333334.215277777777773.57638888888891
48212207.706944444444196.7510.95694444444444.29305555555561
49208203.598611111111192.95833333333310.64027777777784.40138888888887
50215205.648611111111188.79166666666716.85694444444459.35138888888886
51200196.373611111111184.45833333333311.91527777777783.6263888888889
52170173.140277777778179.875-6.73472222222221-3.14027777777778
53162161.706944444444174.916666666667-13.20972222222220.293055555555554
54150150.381944444444169.625-19.2430555555556-0.381944444444457
55148148.490277777778164.166666666667-15.6763888888889-0.490277777777749
56152154.356944444444158.541666666667-4.18472222222223-2.35694444444442
57155154.915277777778152.752.165277777777770.0847222222222115
58150149.2986111111111472.298611111111100.701388888888886
59146145.715277777778141.54.215277777777770.284722222222229
60147147.290277777778136.33333333333310.9569444444444-0.29027777777776
61142141.890277777778131.2510.64027777777780.109722222222217
62146143.523611111111126.66666666666716.85694444444452.47638888888888
63130134.623611111111122.70833333333311.9152777777778-4.6236111111111
64102111.681944444444118.416666666667-6.73472222222221-9.68194444444445
6598100.456944444444113.666666666667-13.2097222222222-2.45694444444445
669089.7152777777778108.958333333333-19.24305555555560.284722222222214
678688.9486111111111104.625-15.6763888888889-2.94861111111112
6810496.2736111111111100.458333333333-4.184722222222237.72638888888889
6910898.456944444444496.29166666666672.165277777777779.54305555555555
709494.381944444444492.08333333333332.29861111111110-0.381944444444443
718892.090277777777887.8754.21527777777777-4.09027777777777
729294.456944444444483.510.9569444444444-2.45694444444443
7393NA78.7083333333333NANA
7495NA73.7916666666667NANA
7581NA68.7916666666667NANA
7650NA64.0833333333333NANA
7749NA59.5833333333333NANA
7834NANANANA
7927NANANANA
8045NANANANA
8147NANANANA
8242NANANANA
8332NANANANA
 
Charts produced by software:
http://www.freestatistics.org/blog/date/2010/Aug/16/t1281977269b5udm3gz1jd7zs4/1a1q41281977265.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Aug/16/t1281977269b5udm3gz1jd7zs4/1a1q41281977265.ps (open in new window)


http://www.freestatistics.org/blog/date/2010/Aug/16/t1281977269b5udm3gz1jd7zs4/2ls7p1281977265.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Aug/16/t1281977269b5udm3gz1jd7zs4/2ls7p1281977265.ps (open in new window)


http://www.freestatistics.org/blog/date/2010/Aug/16/t1281977269b5udm3gz1jd7zs4/3ls7p1281977265.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Aug/16/t1281977269b5udm3gz1jd7zs4/3ls7p1281977265.ps (open in new window)


http://www.freestatistics.org/blog/date/2010/Aug/16/t1281977269b5udm3gz1jd7zs4/4v16a1281977265.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Aug/16/t1281977269b5udm3gz1jd7zs4/4v16a1281977265.ps (open in new window)


 
Parameters (Session):
par1 = 0.1 ; par2 = 0.9 ; par3 = 0.1 ;
 
Parameters (R input):
par1 = additive ; par2 = 12 ; par3 = 0.1 ;
 
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

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