Home » date » 2007 » Dec » 25 » attachments

ACF 3

R Software Module: rwasp_autocorrelation.wasp (opens new window with default values)
Title produced by software: (Partial) Autocorrelation Function
Date of computation: Tue, 25 Dec 2007 05:29:38 -0700
 
Cite this page as follows:
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL http://www.freestatistics.org/blog/date/2007/Dec/25/t11985846394ft6w5pimm7d47b.htm/, Retrieved Tue, 25 Dec 2007 13:10:39 +0100
 
User-defined keywords:
Klaas Van Pelt
 
Dataseries X:
» Textbox « » Textfile « » CSV «
99,9 99,9 99,9 99,9 99,9 99,7 99,6 99,5 100,6 100,2 100,1 100,2 99,1 99,5 99,5 99,6 99,5 99,6 99,8 99,9 100,5 100,5 100,5 100,5 99,5 99,9 100,4 99,6 99,5 99,6 98,4 99,9 100,3 100,3 101,3 101 99,7 99,4 99,9 100,7 99,8 98,8 99,6 99,1 100,3 100,5 100,8 100,6 99,1 98,8 99 99,9 99,5 99,2 99,6 100,1 99,8 101,6 101,7 101,9 100 102 102 102,9 102,7 102,7 102,7 102,7 102,6 102,6 102,5 102,5 102,1 103,5 103,2 102,1 103,8 104 103,9 104,1
 
Text written by user:
 
Output produced by software:


Summary of compuational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time3 seconds
R Server'Herman Ole Andreas Wold' @ 193.190.124.10:1001


Autocorrelation Function
Time lag kACF(k)T-STATP-value
018.94430
10.8385667.50040
20.7425816.64180
30.6679195.9740
40.6086435.44390
50.5963395.33380
60.5624315.03051e-06
70.4940214.41871.5e-05
80.4494134.01976.6e-05
90.3955733.53810.000337
100.3952343.53510.000341
110.4000623.57830.000296
120.3930263.51530.000363
130.3112382.78380.003351
140.2144931.91850.029309
150.1646351.47250.072399
160.0984920.88090.190495
170.0539210.48230.315461
180.0328490.29380.38483
190.0085960.07690.469453
20-0.02005-0.17930.570935
21-0.074397-0.66540.746155
22-0.092-0.82290.793487
23-0.095185-0.85140.801446
24-0.08337-0.74570.770979
25-0.110668-0.98980.837384
26-0.11975-1.07110.856323
27-0.130859-1.17040.87735
28-0.13943-1.24710.892
29-0.128552-1.14980.873175
30-0.103017-0.92140.820196
31-0.087587-0.78340.782148
32-0.080744-0.72220.76386
33-0.116084-1.03830.848867
34-0.118553-1.06040.853916
35-0.122569-1.09630.86188
36-0.119005-1.06440.854827
37-0.107859-0.96470.831204
38-0.103071-0.92190.820322
39-0.09077-0.81190.790363
40-0.099696-0.89170.812389
41-0.107315-0.95990.829989
42-0.09738-0.8710.806818
43-0.097822-0.87490.80789
44-0.100811-0.90170.815034
45-0.129501-1.15830.874905
46-0.172621-1.5440.936729
47-0.177145-1.58440.94148
48-0.184029-1.6460.948157
49-0.213114-1.90620.969889
50-0.184546-1.65060.948633
51-0.18728-1.67510.951089
52-0.193027-1.72650.95594
53-0.171337-1.53250.935326
54-0.186181-1.66530.950113
55-0.186421-1.66740.950328
56-0.179161-1.60250.943503
57-0.197483-1.76630.959424
58-0.205837-1.84110.96534
59-0.215719-1.92940.97139


Partial Autocorrelation Function
Time lag kPACF(k)T-STATP-value
00.8385667.50040
10.1327061.1870.119379
20.0568280.50830.306326
30.0426870.38180.351811
40.1590531.42260.079367
5-0.001744-0.01560.506204
6-0.115914-1.03680.848516
70.0182090.16290.435516
8-0.033978-0.30390.619006
90.1307191.16920.1229
100.0565930.50620.30706
110.029360.26260.396765
12-0.243017-2.17360.983654
13-0.173209-1.54920.937363
140.0308750.27620.39157
15-0.138742-1.24090.890874
16-0.064354-0.57560.71675
170.0544580.48710.313764
180.1146461.02540.154126
19-0.028216-0.25240.5993
20-0.143835-1.28650.89901
210.0260010.23260.408348
22-0.007335-0.06560.526072
230.0870980.7790.219132
24-0.068917-0.61640.730314
250.1229751.09990.137333
260.0304470.27230.393038
270.0273130.24430.403813
280.0511150.45720.324387
29-0.014959-0.13380.553052
300.002650.02370.490575
31-0.019753-0.17670.569895
32-0.071728-0.64160.738502
33-0.029559-0.26440.603919
34-0.069387-0.62060.731691
350.0116150.10390.458761
360.0134640.12040.452224
37-0.005676-0.05080.520181
38-0.004966-0.04440.517659
39-0.049516-0.44290.670477
40-0.055-0.49190.687945
41-0.063809-0.57070.715107
42-0.023395-0.20920.582607
43-0.009654-0.08630.534297
44-0.022879-0.20460.580812
45-0.097803-0.87480.807843
460.0774670.69290.245194
470.0241120.21570.414898
48-0.178248-1.59430.942594
490.1205781.07850.14203
500.0132450.11850.452999
510.0119150.10660.457697
520.0894170.79980.213105
53-0.083836-0.74990.772228
540.0164680.14730.441636
55-0.010838-0.09690.53849
560.014870.1330.447263
57-0.078623-0.70320.758022
58-0.039481-0.35310.637541
59-0.000865-0.00770.503077
 
Charts produced by software:
http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2007/Dec/25/t11985846394ft6w5pimm7d47b/1bgqu1198585773.png (open in new window)
http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2007/Dec/25/t11985846394ft6w5pimm7d47b/1bgqu1198585773.ps (open in new window)


http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2007/Dec/25/t11985846394ft6w5pimm7d47b/2e7pk1198585773.png (open in new window)
http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2007/Dec/25/t11985846394ft6w5pimm7d47b/2e7pk1198585773.ps (open in new window)


 
Parameters (Session):
par1 = 60 ; par2 = 1 ; par3 = 0 ; par4 = 0 ; par5 = 12 ;
 
Parameters (R input):
par1 = 60 ; par2 = 1 ; par3 = 0 ; par4 = 0 ; par5 = 12 ;
 
R code (references can be found in the software module):
if (par1 == 'Default') {
par1 = 10*log10(length(x))
} else {
par1 <- as.numeric(par1)
}
par2 <- as.numeric(par2)
par3 <- as.numeric(par3)
par4 <- as.numeric(par4)
par5 <- as.numeric(par5)
if (par2 == 0) {
x <- log(x)
} else {
x <- (x ^ par2 - 1) / par2
}
if (par3 > 0) x <- diff(x,lag=1,difference=par3)
if (par4 > 0) x <- diff(x,lag=par5,difference=par4)
bitmap(file='pic1.png')
racf <- acf(x,par1,main='Autocorrelation',xlab='lags',ylab='ACF')
dev.off()
bitmap(file='pic2.png')
rpacf <- pacf(x,par1,main='Partial Autocorrelation',xlab='lags',ylab='PACF')
dev.off()
(myacf <- c(racf$acf))
(mypacf <- c(rpacf$acf))
lengthx <- length(x)
sqrtn <- sqrt(lengthx)
load(file='createtable')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Autocorrelation Function',4,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Time lag k',header=TRUE)
a<-table.element(a,hyperlink('http://www.xycoon.com/basics.htm','ACF(k)','click here for more information about the Autocorrelation Function'),header=TRUE)
a<-table.element(a,'T-STAT',header=TRUE)
a<-table.element(a,'P-value',header=TRUE)
a<-table.row.end(a)
for (i in 1:par1) {
a<-table.row.start(a)
a<-table.element(a,i-1,header=TRUE)
a<-table.element(a,round(myacf[i],6))
mytstat <- myacf[i]*sqrtn
a<-table.element(a,round(mytstat,4))
a<-table.element(a,round(1-pt(mytstat,lengthx),6))
a<-table.row.end(a)
}
a<-table.end(a)
table.save(a,file='mytable.tab')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Partial Autocorrelation Function',4,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Time lag k',header=TRUE)
a<-table.element(a,hyperlink('http://www.xycoon.com/basics.htm','PACF(k)','click here for more information about the Partial Autocorrelation Function'),header=TRUE)
a<-table.element(a,'T-STAT',header=TRUE)
a<-table.element(a,'P-value',header=TRUE)
a<-table.row.end(a)
for (i in 1:par1) {
a<-table.row.start(a)
a<-table.element(a,i-1,header=TRUE)
a<-table.element(a,round(mypacf[i],6))
mytstat <- mypacf[i]*sqrtn
a<-table.element(a,round(mytstat,4))
a<-table.element(a,round(1-pt(mytstat,lengthx),6))
a<-table.row.end(a)
}
a<-table.end(a)
table.save(a,file='mytable1.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:

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