Free Statistics

of Irreproducible Research!

Author's title

Author*Unverified author*
R Software Modulerwasp_pairs.wasp
Title produced by softwareKendall tau Correlation Matrix
Date of computationWed, 28 Nov 2007 09:04:54 -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/2007/Nov/28/t1196265375md3dgt0qprk7fgq.htm/, Retrieved Thu, 02 May 2024 00:39:09 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=14503, Retrieved Thu, 02 May 2024 00:39:09 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywordsElynne
Estimated Impact185
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Kendall tau Correlation Matrix] [Kendall Tau corre...] [2007-11-28 16:04:54] [49feeee3a0648fbe809092ed602138e0] [Current]
Feedback Forum

Post a new message
Dataseries X:
1,065757	0,938300	100,600000	100,600000
1,084952	0,921700	100,600000	100,600000
1,099505	0,909500	100,600000	100,600000
1,121076	0,892000	100,600000	100,600000
1,143903	0,874200	100,600000	100,600000
1,172058	0,853200	101,300000	101,300000
1,161845	0,860700	99,300000	99,300000
1,110494	0,900500	99,200000	99,200000
1,097574	0,911100	99,200000	99,200000
1,103875	0,905900	99,600000	99,200000
1,125746	0,888300	103,500000	99,200000
1,120574	0,892400	104,900000	99,200000
1,132118	0,883300	105,300000	99,600000
1,149425	0,870000	107,700000	101,600000
1,141813	0,875800	109,200000	101,600000
1,128923	0,885800	108,000000	101,600000
1,090513	0,917000	108,400000	101,600000
1,046682	0,955400	108,400000	101,600000
1,007861	0,992200	106,800000	101,600000
1,022704	0,977800	109,100000	103,300000
1,019576	0,980800	114,100000	103,300000
1,019264	0,981100	118,900000	103,300000
0,998602	1,001400	112,400000	103,300000
0,982029	1,018300	112,400000	103,300000
0,941442	1,062200	109,700000	99,600000
0,928247	1,077300	111,100000	99,600000
0,925326	1,080700	108,600000	99,600000
0,921829	1,084800	107,200000	99,600000
0,863409	1,158200	105,200000	99,600000
0,857412	1,166300	105,200000	99,600000
0,879353	1,137200	104,900000	101,200000
0,897747	1,113900	106,100000	101,200000
0,891107	1,122200	106,400000	101,200000
0,855286	1,169200	103,400000	101,200000
0,854555	1,170200	105,400000	101,200000
0,813935	1,228600	106,200000	101,200000
0,792833	1,261300	104,200000	97,700000
0,790764	1,264600	102,800000	97,700000
0,815528	1,226200	102,700000	97,700000
0,834376	1,198500	103,700000	99,900000
0,832848	1,200700	103,100000	99,900000
0,823859	1,213800	103,300000	99,900000
0,815262	1,226600	105,100000	99,900000
0,821288	1,217600	108,200000	99,900000
0,818465	1,221800	105,700000	99,900000
0,800641	1,249000	105,900000	99,900000
0,769764	1,299100	108,500000	99,900000
0,745823	1,340800	107,200000	99,900000
0,762253	1,311900	105,900000	99,900000
0,768403	1,301400	107,300000	99,900000
0,757518	1,320100	107,900000	99,900000
0,772917	1,293800	105,800000	99,900000
0,787774	1,269400	105,300000	99,900000
0,822030	1,216500	107,100000	99,900000
0,830772	1,203700	107,300000	99,900000
0,813537	1,229200	106,500000	99,900000
0,815927	1,225600	107,300000	99,900000
0,832293	1,201500	107,200000	99,900000
0,848464	1,178600	106,700000	99,900000
0,843455	1,185600	107,200000	99,900000
0,826241	1,210300	111,700000	99,900000
0,837661	1,193800	111,700000	99,900000
0,831947	1,202000	110,400000	99,900000
0,814930	1,227100	113,500000	99,900000
0,783085	1,277000	113,600000	99,900000
0,790514	1,265000	114,900000	99,900000
0,788395	1,268400	113,500000	99,900000
0,780579	1,281100	113,400000	102,600000
0,785731	1,272700	113,200000	102,600000
0,792959	1,261100	113,200000	102,600000
0,776337	1,288100	113,700000	102,600000
0,756830	1,321300	115,100000	102,600000
0,769290	1,299900	115,400000	102,600000
0,764877	1,307400	116,400000	102,600000
0,755173	1,324200	117,300000	102,600000
0,739864	1,351600	118,500000	102,600000
0,740138	1,351100	120,700000	102,600000
0,745212	1,341900	120,900000	102,600000
0,729076	1,371600	123,100000	102,600000
0,734107	1,362200	120,500000	102,600000




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

\begin{tabular}{lllllllll}
\hline
Summary of compuational 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=14503&T=0

[TABLE]
[ROW][C]Summary of compuational 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=14503&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=14503&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 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







Kendall tau rank correlations for all pairs of data series
pairtaup-value
tau( w , x )-12.25395406243867e-39
tau( w , y )-0.3729176484684061.08775275421928e-06
tau( w , z )-0.1195540397563790.142236058885558
tau( x , y )0.3729176484684061.08775275431405e-06
tau( x , z )0.1195540397563790.142236058885558
tau( y , z )0.4360841067202819.8265215298099e-08

\begin{tabular}{lllllllll}
\hline
Kendall tau rank correlations for all pairs of data series \tabularnewline
pair & tau & p-value \tabularnewline
tau( w , x ) & -1 & 2.25395406243867e-39 \tabularnewline
tau( w , y ) & -0.372917648468406 & 1.08775275421928e-06 \tabularnewline
tau( w , z ) & -0.119554039756379 & 0.142236058885558 \tabularnewline
tau( x , y ) & 0.372917648468406 & 1.08775275431405e-06 \tabularnewline
tau( x , z ) & 0.119554039756379 & 0.142236058885558 \tabularnewline
tau( y , z ) & 0.436084106720281 & 9.8265215298099e-08 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=14503&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( w , x )[/C][C]-1[/C][C]2.25395406243867e-39[/C][/ROW]
[ROW][C]tau( w , y )[/C][C]-0.372917648468406[/C][C]1.08775275421928e-06[/C][/ROW]
[ROW][C]tau( w , z )[/C][C]-0.119554039756379[/C][C]0.142236058885558[/C][/ROW]
[ROW][C]tau( x , y )[/C][C]0.372917648468406[/C][C]1.08775275431405e-06[/C][/ROW]
[ROW][C]tau( x , z )[/C][C]0.119554039756379[/C][C]0.142236058885558[/C][/ROW]
[ROW][C]tau( y , z )[/C][C]0.436084106720281[/C][C]9.8265215298099e-08[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=14503&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=14503&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( w , x )-12.25395406243867e-39
tau( w , y )-0.3729176484684061.08775275421928e-06
tau( w , z )-0.1195540397563790.142236058885558
tau( x , y )0.3729176484684061.08775275431405e-06
tau( x , z )0.1195540397563790.142236058885558
tau( y , z )0.4360841067202819.8265215298099e-08



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