| *The author of this computation has been verified* | |||||||||||||||||||||||||||||||||||||||||
| R Software Module: /rwasp_pairs.wasp (opens new window with default values) | |||||||||||||||||||||||||||||||||||||||||
| Title produced by software: Kendall tau Correlation Matrix | |||||||||||||||||||||||||||||||||||||||||
| Date of computation: Fri, 13 Nov 2009 06:08:20 -0700 | |||||||||||||||||||||||||||||||||||||||||
| Cite this page as follows: | |||||||||||||||||||||||||||||||||||||||||
| Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL http://www.freestatistics.org/blog/date/2009/Nov/13/t1258117873m30tz90xcwbtspl.htm/, Retrieved Fri, 13 Nov 2009 14:11:15 +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/2009/Nov/13/t1258117873m30tz90xcwbtspl.htm/},
year = {2009},
}
@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 = {2009},
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 « | |||||||||||||||||||||||||||||||||||||||||
| 97.4 519 1867 97 517 1864 105.4 510 1853 102.7 509 1866 98.1 501 1852 104.5 507 1823 87.4 569 1862 89.9 580 1859 109.8 578 1855 111.7 565 1871 98.6 547 1822 96.9 555 1865 95.1 562 1922 97 561 1960 112.7 555 1978 102.9 544 1975 97.4 537 1953 111.4 543 1931 87.4 594 1922 96.8 611 1904 114.1 613 1927 110.3 611 1943 103.9 594 1937 101.6 595 1960 94.6 591 1955 95.9 589 1958 104.7 584 1953 102.8 573 1983 98.1 567 1985 113.9 569 1980 80.9 621 1975 95.7 629 1961 113.2 628 1996 105.9 612 2008 108.8 595 2016 102.3 597 2025 99 593 2118 100.7 590 2111 115.5 580 2137 100.7 574 2110 109.9 573 2131 114.6 573 2111 85.4 620 2132 100.5 626 2140 114.8 620 2143 116.5 588 2139 112.9 566 2101 102 557 2089 106 561 2127 105.3 549 2084 118.8 532 1980 106.1 526 2001 109.3 511 1944 117.2 499 1783 92.5 555 1832 104.2 565 1827 112.5 542 1806 122.4 527 1818 113.3 510 1798 100 514 1824 110.7 517 1834 112.8 508 1851 109.8 493 1813 117.3 490 1788 109.1 469 1737 115.9 478 1699 etc... | |||||||||||||||||||||||||||||||||||||||||
| Output produced by software: | |||||||||||||||||||||||||||||||||||||||||
| Charts produced by software: |
| Parameters (Session): | | Parameters (R input): | | R code (references can be found in the software module): | panel.tau <- function(x, y, digits=2, prefix='', cex.cor)
| { usr <- par('usr'); on.exit(par(usr)) par(usr = c(0, 1, 0, 1)) rr <- cor.test(x, y, method='kendall') r <- round(rr$p.value,2) txt <- format(c(r, 0.123456789), digits=digits)[1] txt <- paste(prefix, txt, sep='') if(missing(cex.cor)) cex <- 0.5/strwidth(txt) text(0.5, 0.5, txt, cex = cex) } panel.hist <- function(x, ...) { usr <- par('usr'); on.exit(par(usr)) par(usr = c(usr[1:2], 0, 1.5) ) h <- hist(x, plot = FALSE) breaks <- h$breaks; nB <- length(breaks) y <- h$counts; y <- y/max(y) rect(breaks[-nB], 0, breaks[-1], y, col='grey', ...) } bitmap(file='test1.png') pairs(t(y),diag.panel=panel.hist, upper.panel=panel.smooth, lower.panel=panel.tau, main=main) dev.off() load(file='createtable') a<-table.start() a<-table.row.start(a) a<-table.element(a,'Kendall tau rank correlations for all pairs of data series',3,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'pair',1,TRUE) a<-table.element(a,'tau',1,TRUE) a<-table.element(a,'p-value',1,TRUE) a<-table.row.end(a) n <- length(y[,1]) n cor.test(y[1,],y[2,],method='kendall') for (i in 1:(n-1)) { for (j in (i+1):n) { a<-table.row.start(a) dum <- paste('tau(',dimnames(t(x))[[2]][i]) dum <- paste(dum,',') dum <- paste(dum,dimnames(t(x))[[2]][j]) dum <- paste(dum,')') a<-table.element(a,dum,header=TRUE) r <- cor.test(y[i,],y[j,],method='kendall') a<-table.element(a,r$estimate) a<-table.element(a,r$p.value) a<-table.row.end(a) } } a<-table.end(a) table.save(a,file='mytable.tab') | Copyright
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 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. | |||||||||||||||||||||||||||||||
