Home » date » 2010 » Dec » 03 »

seizoenaal diff geboortes

*The author of this computation has been verified*
R Software Module: /rwasp_autocorrelation.wasp (opens new window with default values)
Title produced by software: (Partial) Autocorrelation Function
Date of computation: Fri, 03 Dec 2010 12:03:37 +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/03/t1291377780tqa060mqfhxzuk9.htm/, Retrieved Fri, 03 Dec 2010 13:03:00 +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/03/t1291377780tqa060mqfhxzuk9.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 «
9769 9321 9939 9336 10195 9464 10010 10213 9563 9890 9305 9391 9928 8686 9843 9627 10074 9503 10119 10000 9313 9866 9172 9241 9659 8904 9755 9080 9435 8971 10063 9793 9454 9759 8820 9403 9676 8642 9402 9610 9294 9448 10319 9548 9801 9596 8923 9746 9829 9125 9782 9441 9162 9915 10444 10209 9985 9842 9429 10132 9849 9172 10313 9819 9955 10048 10082 10541 10208 10233 9439 9963 10158 9225 10474 9757 10490 10281 10444 10640 10695 10786 9832 9747 10411 9511 10402 9701 10540 10112 10915 11183 10384 10834 9886 10216
 
Output produced by software:


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


Autocorrelation Function
Time lag kACF(k)T-STATP-value
1-0.630765-6.14790
20.1817321.77130.039858
30.1020130.99430.161301
4-0.247167-2.40910.00896
50.1901411.85330.033474
6-0.159939-1.55890.061174
70.1280591.24820.10752
8-0.221654-2.16040.016628
90.179031.7450.042112
100.0432370.42140.337201
11-0.389755-3.79890.000128
120.6848876.67540
13-0.502303-4.89582e-06
140.21862.13070.01785
150.0522450.50920.30589
16-0.213651-2.08240.019996
170.179481.74940.04173
18-0.125157-1.21990.112765
190.0669410.65250.257839
20-0.137188-1.33710.092184
210.1353341.31910.095158
22-0.040532-0.39510.346844
23-0.187645-1.82890.035273
240.4438514.32611.9e-05
25-0.354228-3.45260.000415
260.175951.71490.044808
270.0320230.31210.377818
28-0.163096-1.58970.057616
290.137591.34110.091549
30-0.097491-0.95020.172204
31-0.009904-0.09650.461652
320.0064630.0630.474952
330.0281550.27440.39218
34-0.003785-0.03690.485324
35-0.139415-1.35880.088706
360.2832072.76040.003465
37-0.19417-1.89250.030732
380.1156161.12690.131314
390.0157490.15350.439164
40-0.142678-1.39070.08379
410.1330631.29690.098896
42-0.113265-1.1040.136197
430.0396050.3860.350172
440.0028130.02740.489092
45-0.058916-0.57420.28358
460.1127541.0990.137274
47-0.206945-2.01710.023256
480.2802762.73180.003755
49-0.175984-1.71530.044777
500.0883190.86080.19575
510.0373190.36370.35843
52-0.140573-1.37010.086937
530.1591921.55160.06204
54-0.183881-1.79230.038138
550.1165031.13550.129505
56-0.048589-0.47360.318439
57-0.047759-0.46550.32132
580.1480951.44350.076091
59-0.252309-2.45920.007867
600.321793.13640.001138


Partial Autocorrelation Function
Time lag kPACF(k)T-STATP-value
1-0.630765-6.14790
2-0.358941-3.49850.000357
30.0598250.58310.280603
4-0.130611-1.2730.103056
5-0.102034-0.99450.161253
6-0.204221-1.99050.024705
7-0.019238-0.18750.425831
8-0.347714-3.38910.000511
9-0.268615-2.61810.005145
100.0342440.33380.369644
11-0.583301-5.68530
120.0704250.68640.247062
130.1252061.22040.112674
140.0559720.54550.293328
150.041240.4020.344307
160.0790730.77070.221396
170.0464650.45290.325832
180.0826940.8060.211126
190.0398710.38860.349215
200.1389961.35480.089353
210.0764170.74480.22911
22-0.068569-0.66830.252771
23-0.022937-0.22360.41179
240.0216810.21130.416544
250.1134631.10590.135782
260.0248560.24230.404549
270.0129170.12590.450038
280.069840.68070.248853
29-0.002392-0.02330.490726
30-0.072732-0.70890.24006
31-0.182695-1.78070.03908
320.0202430.19730.422004
33-0.037201-0.36260.358858
340.018970.18490.426853
35-0.089819-0.87550.191768
36-0.146365-1.42660.078488
37-0.054587-0.53210.297966
380.039040.38050.352205
390.0019960.01950.49226
40-0.030141-0.29380.384783
41-0.018316-0.17850.429346
42-0.142856-1.39240.083528
430.0555160.54110.294852
440.0936080.91240.18194
45-0.076821-0.74880.227927
460.0623080.60730.272548
47-0.071836-0.70020.242765
480.0429280.41840.338297
49-0.023205-0.22620.410777
50-0.045643-0.44490.328713
51-0.007017-0.06840.472808
52-0.03044-0.29670.383673
530.0387660.37780.353196
54-0.011509-0.11220.455462
55-0.05816-0.56690.286069
56-0.099563-0.97040.167152
57-0.071802-0.69980.24287
58-0.023536-0.22940.409525
59-0.017685-0.17240.431757
600.0516920.50380.307772
 
Charts produced by software:
http://www.freestatistics.org/blog/date/2010/Dec/03/t1291377780tqa060mqfhxzuk9/13phf1291377813.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Dec/03/t1291377780tqa060mqfhxzuk9/13phf1291377813.ps (open in new window)


http://www.freestatistics.org/blog/date/2010/Dec/03/t1291377780tqa060mqfhxzuk9/23phf1291377813.png (open in new window)
http://www.freestatistics.org/blog/date/2010/Dec/03/t1291377780tqa060mqfhxzuk9/23phf1291377813.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 = 1 ; par4 = 0 ; par5 = 12 ; par6 = White Noise ; par7 = 0.95 ;
 
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 (par6 == 'White Noise') par6 <- 'white' else par6 <- 'ma'
par7 <- as.numeric(par7)
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='time lag', ylab='ACF', ci.type=par6, ci=par7, sub=paste('(lambda=',par2,', d=',par3,', D=',par4,', CI=', par7, ', CI type=',par6,')',sep=''))
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 2:(par1+1)) {
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(abs(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,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(abs(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:

  • 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