Free Statistics

of Irreproducible Research!

Author's title

Author*The author of this computation has been verified*
R Software Modulerwasp_pairs.wasp
Title produced by softwareKendall tau Correlation Matrix
Date of computationThu, 12 Nov 2009 10:03:07 -0700
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2009/Nov/12/t1258045636l79uw16fbsib6zs.htm/, Retrieved Sat, 04 May 2024 02:19:10 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=56243, Retrieved Sat, 04 May 2024 02:19:10 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact121
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Kendall tau Correlation Matrix] [3/11/2009] [2009-11-02 21:25:00] [b98453cac15ba1066b407e146608df68]
-    D    [Kendall tau Correlation Matrix] [WS6.3] [2009-11-12 17:03:07] [dd4f17965cad1d38de7a1c062d32d75d] [Current]
Feedback Forum

Post a new message
Dataseries X:
8.2	9.9	269285	258596
8	9.8	269829	259056
7.5	9.3	270911	264193
6.8	8.3	266844	260325
6.5	8	271244	261890
6.6	8.5	269907	260683
7.6	10.4	271296	257941
8	11.1	270157	258151
8.1	10.9	271322	262434
7.7	10	267179	261577
7.5	9.2	264101	262188
7.6	9.2	265518	261092
7.8	9.5	269419	263571
7.8	9.6	268714	265031
7.8	9.5	272482	270388
7.5	9.1	268351	265458
7.5	8.9	268175	266218
7.1	9	270674	266386
7.5	10.1	272764	263486
7.5	10.3	272599	263620
7.6	10.2	270333	267755
7.7	9.6	270846	266554
7.7	9.2	270491	266981
7.9	9.3	269160	264133
8.1	9.4	274027	265980
8.2	9.4	273784	267183
8.2	9.2	276663	272113
8.2	9	274525	267261
7.9	9	271344	269117
7.3	9	271115	269034
6.9	9.8	270798	266609
6.6	10	273911	267261
6.7	9.8	273985	271406
6.9	9.3	271917	269529
7	9	273338	270282
7.1	9	270601	268663
7.2	9.1	273547	269847
7.1	9.1	275363	270998
6.9	9.1	281229	277068
7	9.2	277793	273529
6.8	8.8	279913	275307
6.4	8.3	282500	276488
6.7	8.4	280041	274455
6.6	8.1	282166	274507
6.4	7.7	290304	279528
6.3	7.9	283519	277673
6.2	7.9	287816	278102
6.5	8	285226	275131
6.8	7.9	287595	277162
6.8	7.6	289741	278799
6.4	7.1	289148	285502
6.1	6.8	288301	280672
5.8	6.5	290155	281342
6.1	6.9	289648	281132
7.2	8.2	288225	278286
7.3	8.7	289351	279120
6.9	8.3	294735	289131
6.1	7.9	305333	294453
5.8	7.5	309030	295733
6.2	7.8	310215	302233
7.1	8.3	321935	308859
7.7	8.4	325734	311054
7.9	8.2	320846	318130
7.7	7.7	323023	315823
7.4	7.2	319753	316517
7.5	7.3	321753	316907
8	8.1	320757	314969
8.1	8.5	324479	316107




Summary of computational 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

\begin{tabular}{lllllllll}
\hline
Summary of computational transaction \tabularnewline
Raw Input & view raw input (R code)  \tabularnewline
Raw Output & view raw output of R engine  \tabularnewline
Computing time & 1 seconds \tabularnewline
R Server & 'Gwilym Jenkins' @ 72.249.127.135 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=56243&T=0

[TABLE]
[ROW][C]Summary of computational transaction[/C][/ROW]
[ROW][C]Raw Input[/C][C]view raw input (R code) [/C][/ROW]
[ROW][C]Raw Output[/C][C]view raw output of R engine [/C][/ROW]
[ROW][C]Computing time[/C][C]1 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'Gwilym Jenkins' @ 72.249.127.135[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=56243&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=56243&T=0

As an alternative you can also use a QR Code:  

The GUIDs for individual cells are displayed in the table below:

Summary of computational 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







Kendall tau rank correlations for all pairs of data series
pairtaup-value
tau( whm , whv )0.4516067373762621.23384611416810e-07
tau( whm , bss )-0.2523957101894220.00278051880122048
tau( whm , nss )-0.2904978393644460.000577782447946072
tau( whv , bss )-0.4870332460340526.49597810871368e-09
tau( whv , nss )-0.5632141265534491.94828630829638e-11
tau( bss , nss )0.792535694181390

\begin{tabular}{lllllllll}
\hline
Kendall tau rank correlations for all pairs of data series \tabularnewline
pair & tau & p-value \tabularnewline
tau( whm , whv ) & 0.451606737376262 & 1.23384611416810e-07 \tabularnewline
tau( whm , bss ) & -0.252395710189422 & 0.00278051880122048 \tabularnewline
tau( whm , nss ) & -0.290497839364446 & 0.000577782447946072 \tabularnewline
tau( whv , bss ) & -0.487033246034052 & 6.49597810871368e-09 \tabularnewline
tau( whv , nss ) & -0.563214126553449 & 1.94828630829638e-11 \tabularnewline
tau( bss , nss ) & 0.79253569418139 & 0 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=56243&T=1

[TABLE]
[ROW][C]Kendall tau rank correlations for all pairs of data series[/C][/ROW]
[ROW][C]pair[/C][C]tau[/C][C]p-value[/C][/ROW]
[ROW][C]tau( whm , whv )[/C][C]0.451606737376262[/C][C]1.23384611416810e-07[/C][/ROW]
[ROW][C]tau( whm , bss )[/C][C]-0.252395710189422[/C][C]0.00278051880122048[/C][/ROW]
[ROW][C]tau( whm , nss )[/C][C]-0.290497839364446[/C][C]0.000577782447946072[/C][/ROW]
[ROW][C]tau( whv , bss )[/C][C]-0.487033246034052[/C][C]6.49597810871368e-09[/C][/ROW]
[ROW][C]tau( whv , nss )[/C][C]-0.563214126553449[/C][C]1.94828630829638e-11[/C][/ROW]
[ROW][C]tau( bss , nss )[/C][C]0.79253569418139[/C][C]0[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=56243&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=56243&T=1

As an alternative you can also use a QR Code:  

The GUIDs for individual cells are displayed in the table below:

Kendall tau rank correlations for all pairs of data series
pairtaup-value
tau( whm , whv )0.4516067373762621.23384611416810e-07
tau( whm , bss )-0.2523957101894220.00278051880122048
tau( whm , nss )-0.2904978393644460.000577782447946072
tau( whv , bss )-0.4870332460340526.49597810871368e-09
tau( whv , nss )-0.5632141265534491.94828630829638e-11
tau( bss , nss )0.792535694181390



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')