Home » date » 2007 » Nov » 29 » attachments

Inducing Stationarity in Time Series-Q2c

R Software Module: rwasp_autocorrelation.wasp (opens new window with default values)
Title produced by software: (Partial) Autocorrelation Function
Date of computation: Thu, 29 Nov 2007 07:45:42 -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/Nov/29/t1196346952g69wugdz87ebcil.htm/, Retrieved Thu, 29 Nov 2007 15:35:55 +0100
 
User-defined keywords:
s0650550 s0650062
 
Dataseries X:
» Textbox « » Textfile « » CSV «
1,1 1,3 1,2 1,6 1,7 1,5 0,9 1,5 1,4 1,6 1,7 1,4 1,8 1,7 1,4 1,2 1,0 1,7 2,4 2,0 2,1 2,0 1,8 2,7 2,3 1,9 2,0 2,3 2,8 2,4 2,3 2,7 2,7 2,9 3,0 2,2 2,3 2,8 2,8 2,8 2,2 2,6 2,8 2,5 2,4 2,3 1,9 1,7 2,0 2,1 1,7 1,8 1,8 1,8 1,3 1,3 1,3 1,2 1,4 2,2
 
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 time1 seconds
R Server'Gwilym Jenkins' @ 72.249.127.135


Autocorrelation Function
Time lag kACF(k)T-STATP-value
017.68110
1-0.122329-0.93960.824379
2-0.276956-2.12730.981209
3-0.022947-0.17630.569652
4-0.073263-0.56270.712129
50.1971041.5140.067684
60.0260550.20010.421032
7-0.204917-1.5740.939582
80.0360670.2770.39136
9-0.065135-0.50030.690641
100.2855232.19310.016125
110.2313531.77710.040357
12-0.477995-3.67160.99974
13-0.104672-0.8040.787688
140.209541.60950.056422
150.0044760.03440.486344
160.1082540.83150.204518
17-0.238436-1.83150.963959
18-0.069565-0.53430.702441
190.1142010.87720.191969
200.0616110.47320.318894
210.0687410.5280.299736
22-0.073799-0.56690.713521
23-0.174579-1.3410.907464
240.0803970.61750.269626
250.0968950.74430.229835
26-0.086644-0.66550.745847
27-0.041585-0.31940.624733
28-0.065895-0.50620.692682
290.0475270.36510.358186
300.0746380.57330.284308
31-0.006519-0.05010.519884
320.0152150.11690.453681
33-0.053625-0.41190.659048
340.0006820.00520.497918
350.0143770.11040.45622
360.0202080.15520.438588
37-0.120812-0.9280.821399
380.0324780.24950.401934
39-0.001156-0.00890.503526
40-0.009391-0.07210.528631
410.1616451.24160.109645
420.031160.23930.405834
43-0.091451-0.70240.757418
440.0005210.0040.498409
45-0.050612-0.38880.650572
46-9.5e-05-7e-040.50029
47-0.037431-0.28750.612635
480.0339850.2610.397485
490.0198570.15250.439647
500.0016840.01290.494862
51-0.011486-0.08820.535003
520.0683830.52530.300685
53-0.108621-0.83430.79627
54-0.03108-0.23870.593927
550.0240850.1850.426932
560.0384250.29510.384458
57-0.008393-0.06450.525591
580.0242990.18660.426289
59NANANA


Partial Autocorrelation Function
Time lag kPACF(k)T-STATP-value
0-0.122329-0.93960.824379
1-0.296355-2.27630.986765
2-0.114765-0.88150.809196
3-0.201693-1.54920.936664
40.123920.95180.172529
50.0019180.01470.494148
6-0.127041-0.97580.833431
7-0.002913-0.02240.508888
8-0.143837-1.10480.863142
90.273162.09820.02009
100.2918542.24180.014375
11-0.259259-1.99140.974464
12-0.118298-0.90870.816387
130.0800870.61520.270408
14-0.06246-0.47980.683416
150.0285480.21930.413594
16-0.140086-1.0760.85685
17-0.032118-0.24670.597003
18-0.105145-0.80760.788728
190.0213860.16430.435042
20-0.08677-0.66650.746153
210.1056670.81160.210129
220.1271410.97660.16638
23-0.183444-1.40910.917967
24-0.056598-0.43470.667331
25-0.068366-0.52510.699268
260.004440.03410.486453
270.0189610.14560.442351
28-0.084633-0.65010.740918
29-0.119679-0.91930.819152
300.0117740.09040.464124
310.0710620.54580.293618
32-0.016988-0.13050.551687
330.0685480.52650.300247
34-0.015568-0.11960.54739
35-0.048648-0.37370.645007
36-0.143425-1.10170.86246
37-0.003179-0.02440.509699
38-0.068457-0.52580.699511
39-0.018877-0.1450.557398
400.1406441.08030.142201
410.0399980.30720.379876
42-0.057661-0.44290.670272
430.0700330.53790.296322
44-0.038546-0.29610.615896
45-0.050108-0.38490.649147
46-0.109381-0.84020.797897
470.07670.58910.279006
48-0.09123-0.70080.756894
490.0147240.11310.455168
50-0.095708-0.73510.767419
51-0.172113-1.3220.904369
520.0270690.20790.418003
530.0066690.05120.479658
54-0.075045-0.57640.716742
550.0795840.61130.271675
560.005740.04410.482491
570.0320460.24610.403211
58NANANA
59NANANA
 
Charts produced by software:
http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2007/Nov/29/t1196346952g69wugdz87ebcil/1csfb1196347540.png (open in new window)
http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2007/Nov/29/t1196346952g69wugdz87ebcil/1csfb1196347540.ps (open in new window)


http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2007/Nov/29/t1196346952g69wugdz87ebcil/2hmja1196347540.png (open in new window)
http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2007/Nov/29/t1196346952g69wugdz87ebcil/2hmja1196347540.ps (open in new window)


 
Parameters:
par1 = 60 ; par2 = 0.5 ; par3 = 1 ; 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