FreeStatistics.org

Free Statistics

of Irreproducible Research!

Description of Statistical Computation

Author's title

Author*Unverified author*
R Software Modulerwasp_pairs.wasp
Title produced by softwareKendall tau Correlation Matrix
Date of computationSun, 15 Nov 2009 07:18:55 -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/15/t125829476350kcs2nhlnte3x3.htm/, Retrieved Fri, 03 May 2024 07:03:43 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=57290, Retrieved Fri, 03 May 2024 07:03:43 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact207

Tree of Dependent Computations

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...] [2009-11-15 14:18:55] [d41d8cd98f00b204e9800998ecf8427e] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
17823.2 	16629.6 	1.2218 	114.1 
17872 	16670.7 	1.249 	110.3 
17420.4 	16614.8 	1.2991 	103.9 
16704.4 	16869.2 	1.3408 	101.6 
15991.2 	15663.9 	1.3119 	94.6 
16583.6 	16359.9 	1.3014 	95.9 
19123.5 	18447.7 	1.3201 	104.7 
17838.7 	16889 	1.2938 	102.8 
17209.4 	16505 	1.2694 	98.1 
18586.5 	18320.9 	1.2165 	113.9 
16258.1 	15052.1 	1.2037 	80.9 
15141.6 	15699.8 	1.2292 	95.7 
19202.1 	18135.3 	1.2256 	113.2 
17746.5 	16768.7 	1.2015 	105.9 
19090.1 	18883 	1.1786 	108.8 
18040.3 	19021 	1.1856 	102.3 
17515.5 	18101.9 	1.2103 	99 
17751.8 	17776.1 	1.1938 	100.7 
21072.4 	21489.9 	1.202 	115.5 
17170 	17065.3 	1.2271 	100.7 
19439.5 	18690 	1.277 	109.9 
19795.4 	18953.1 	1.265 	114.6 
17574.9 	16398.9 	1.2684 	85.4 
16165.4 	16895.6 	1.2811 	100.5 
19464.6 	18553 	1.2727 	114.8 
19932.1 	19270 	1.2611 	116.5 
19961.2 	19422.1 	1.2881 	112.9 
17343.4 	17579.4 	1.3213 	102 
18924.2 	18637.3 	1.2999 	106 
18574.1 	18076.7 	1.3074 	105.3 
21350.6 	20438.6 	1.3242 	118.8 
18594.6 	18075.2 	1.3516 	106.1 
19823.1 	19563 	1.3511 	109.3 
20844.4 	19899.2 	1.3419 	117.2 
19640.2 	19227.5 	1.3716 	92.5 
17735.4 	17789.6 	1.3622 	104.2 
19813.6 	19220.8 	1.3896 	112.5 
22160 	21968.9 	1.4227 	122.4 
20664.3 	21131.5 	1.4684 	113.3 
17877.4 	19484.6 	1.457 	100 
20906.5 	22168.7 	1.4718 	110.7 
21164.1 	20866.8 	1.4748 	112.8 
21374.4 	22176.2 	1.5527 	109.8 
22952.3 	23533.8 	1.5751 	117.3 
21343.5 	21479.6 	1.5557 	109.1 
23899.3 	24347.7 	1.5553 	115.9 
22392.9 	22751.6 	1.577 	96 
18274.1 	20328.3 	1.4975 	99.8 
22786.7 	23650.4 	1.437 	116.8 
22321.5 	23335.7 	1.3322 	115.7 
17842.2 	19614.9 	1.2732 	99.4 
16373.5 	18042.3 	1.3449 	94.3 
15993.8 	17282.5 	1.3239 	91 
16446.1 	16847.2 	1.2785 	93.2 
17729 	18159.5 	1.305 	103.1 
16643 	16540.9 	1.319 	94.1 
16196.7 	15952.7 	1.365 	91.8 
18252.1 	18357.8 	1.4016 	102.7 
17570.4 	16685.6 	1.4088 	82.6 
15836.8	15799.5	1.4268	89.1

Tables (Output of Computation)





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=57290&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=57290&T=0

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

As an alternative you can also use a QR Code:  
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( INAC , EUDO )0.753672316384180
tau( INAC , INV )0.2508474576271190.00462867830405944
tau( INAC , UITV )0.6256004770801411.65889524339491e-12
tau( EUDO , INV )0.318644067796610.00032172122054841
tau( EUDO , UITV )0.4944899886586482.39414066349752e-08
tau( INV , UITV )0.03786380484586220.669139079312809

\begin{tabular}{lllllllll}
\hline
Kendall tau rank correlations for all pairs of data series \tabularnewline
pair & tau & p-value \tabularnewline
tau( INAC , EUDO ) & 0.75367231638418 & 0 \tabularnewline
tau( INAC , INV ) & 0.250847457627119 & 0.00462867830405944 \tabularnewline
tau( INAC , UITV ) & 0.625600477080141 & 1.65889524339491e-12 \tabularnewline
tau( EUDO , INV ) & 0.31864406779661 & 0.00032172122054841 \tabularnewline
tau( EUDO , UITV ) & 0.494489988658648 & 2.39414066349752e-08 \tabularnewline
tau( INV , UITV ) & 0.0378638048458622 & 0.669139079312809 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=57290&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( INAC , EUDO )[/C][C]0.75367231638418[/C][C]0[/C][/ROW]
[ROW][C]tau( INAC , INV )[/C][C]0.250847457627119[/C][C]0.00462867830405944[/C][/ROW]
[ROW][C]tau( INAC , UITV )[/C][C]0.625600477080141[/C][C]1.65889524339491e-12[/C][/ROW]
[ROW][C]tau( EUDO , INV )[/C][C]0.31864406779661[/C][C]0.00032172122054841[/C][/ROW]
[ROW][C]tau( EUDO , UITV )[/C][C]0.494489988658648[/C][C]2.39414066349752e-08[/C][/ROW]
[ROW][C]tau( INV , UITV )[/C][C]0.0378638048458622[/C][C]0.669139079312809[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=57290&T=1

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

As an alternative you can also use a QR Code:  
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( INAC , EUDO )0.753672316384180
tau( INAC , INV )0.2508474576271190.00462867830405944
tau( INAC , UITV )0.6256004770801411.65889524339491e-12
tau( EUDO , INV )0.318644067796610.00032172122054841
tau( EUDO , UITV )0.4944899886586482.39414066349752e-08
tau( INV , UITV )0.03786380484586220.669139079312809


Figures (Output of Computation)

Input Parameters & R Code

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