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 computationSat, 24 Nov 2007 05:10:50 -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/24/t1195905721hap92yo4yerk34f.htm/, Retrieved Fri, 03 May 2024 09:55:08 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=6263, Retrieved Fri, 03 May 2024 09:55:08 +0000
QR Codes:

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

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] [] [2007-11-24 12:10:50] [94abaf6e1c7b1fd4f9d5e2c2d987f350] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
6	0	6	0	2
22	6	16	-1	1
3	1	2	-4	-7
2	0	2	-1	-8
-1	-1	1	-4	-3
-2	-2	-1	-5	-9
8	0	9	7	17
-2	-1	-3	2	7
5	3	4	-1	-5
1	1	0	-3	-3
3	-3	4	2	2
0	0	1	6	8
-9	-2	-6	-10	-11
-8	-1	-7	9	13
5	1	3	0	0
0	0	0	3	4
1	1	0	2	3
1	-2	4	-2	-2
-10	-2	-10	-1	-3
1	0	3	-2	-4
0	-1	0	6	8
-11	-3	-9	-4	-9
6	1	6	2	4
4	0	4	0	-1
11	-2	12	-4	-7
1	0	1	-1	1
-7	-3	-2	1	2
-11	-4	-8	0	0
-1	0	0	3	2
1	2	-3	1	4
0	1	0	-3	-7
1	1	0	-6	-10
-4	-1	-3	0	-1
1	-1	2	0	-2
-9	-1	-8	1	5
-3	1	-4	-4	-10
-14	2	-16	6	13
0	0	1	-1	0
1	-1	0	4	4
0	-2	3	4	3
-1	1	-3	-1	-1
-5	-1	-3	-3	-3
5	2	3	1	0
5	2	3	-2	0
-2	0	-2	4	4
-5	-4	-1	0	3
-2	-2	0	0	-5
-5	-1	-4	0	2
-16	-5	-12	4	6
-5	-1	-4	-1	-1
-11	-2	-7	-9	-9
8	8	-1	7	6
-9	-4	-5	2	1
-7	0	-7	-2	-3
0	0	0	3	7
-14	-4	-10	0	-2
-12	-3	-9	-1	1
9	-1	10	-2	-3
4	0	3	-1	-10
-17	-5	-11	0	0

Tables (Output of Computation)





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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=6263&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 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( TW , -25 )0.5033535993100431.57630689834320e-07
tau( TW , +25 )0.8218471897396090
tau( TW , CV )0.0006065353263618730.994854346996298
tau( TW , AlgEcoSit )-0.006532084935466820.943718145199865
tau( -25 , +25 )0.3170837742616680.000980709130658397
tau( -25 , CV )0.008262441132073640.932430645800666
tau( -25 , AlgEcoSit )0.04418007127389710.64489726111908
tau( +25 , CV )-0.02615116085192840.781420569226185
tau( +25 , AlgEcoSit )-0.04287045080239790.643829254811348
tau( CV , AlgEcoSit )0.7702876304628142.22044604925031e-16

\begin{tabular}{lllllllll}
\hline
Kendall tau rank correlations for all pairs of data series \tabularnewline
pair & tau & p-value \tabularnewline
tau( TW , -25 ) & 0.503353599310043 & 1.57630689834320e-07 \tabularnewline
tau( TW , +25 ) & 0.821847189739609 & 0 \tabularnewline
tau( TW , CV ) & 0.000606535326361873 & 0.994854346996298 \tabularnewline
tau( TW , AlgEcoSit ) & -0.00653208493546682 & 0.943718145199865 \tabularnewline
tau( -25 , +25 ) & 0.317083774261668 & 0.000980709130658397 \tabularnewline
tau( -25 , CV ) & 0.00826244113207364 & 0.932430645800666 \tabularnewline
tau( -25 , AlgEcoSit ) & 0.0441800712738971 & 0.64489726111908 \tabularnewline
tau( +25 , CV ) & -0.0261511608519284 & 0.781420569226185 \tabularnewline
tau( +25 , AlgEcoSit ) & -0.0428704508023979 & 0.643829254811348 \tabularnewline
tau( CV , AlgEcoSit ) & 0.770287630462814 & 2.22044604925031e-16 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=6263&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( TW , -25 )[/C][C]0.503353599310043[/C][C]1.57630689834320e-07[/C][/ROW]
[ROW][C]tau( TW , +25 )[/C][C]0.821847189739609[/C][C]0[/C][/ROW]
[ROW][C]tau( TW , CV )[/C][C]0.000606535326361873[/C][C]0.994854346996298[/C][/ROW]
[ROW][C]tau( TW , AlgEcoSit )[/C][C]-0.00653208493546682[/C][C]0.943718145199865[/C][/ROW]
[ROW][C]tau( -25 , +25 )[/C][C]0.317083774261668[/C][C]0.000980709130658397[/C][/ROW]
[ROW][C]tau( -25 , CV )[/C][C]0.00826244113207364[/C][C]0.932430645800666[/C][/ROW]
[ROW][C]tau( -25 , AlgEcoSit )[/C][C]0.0441800712738971[/C][C]0.64489726111908[/C][/ROW]
[ROW][C]tau( +25 , CV )[/C][C]-0.0261511608519284[/C][C]0.781420569226185[/C][/ROW]
[ROW][C]tau( +25 , AlgEcoSit )[/C][C]-0.0428704508023979[/C][C]0.643829254811348[/C][/ROW]
[ROW][C]tau( CV , AlgEcoSit )[/C][C]0.770287630462814[/C][C]2.22044604925031e-16[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=6263&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=6263&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( TW , -25 )0.5033535993100431.57630689834320e-07
tau( TW , +25 )0.8218471897396090
tau( TW , CV )0.0006065353263618730.994854346996298
tau( TW , AlgEcoSit )-0.006532084935466820.943718145199865
tau( -25 , +25 )0.3170837742616680.000980709130658397
tau( -25 , CV )0.008262441132073640.932430645800666
tau( -25 , AlgEcoSit )0.04418007127389710.64489726111908
tau( +25 , CV )-0.02615116085192840.781420569226185
tau( +25 , AlgEcoSit )-0.04287045080239790.643829254811348
tau( CV , AlgEcoSit )0.7702876304628142.22044604925031e-16


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