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 computationThu, 29 Nov 2007 13:58:08 -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/29/t1196369601hivsexjb5r1kqje.htm/, Retrieved Fri, 03 May 2024 14:44:40 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=7605, Retrieved Fri, 03 May 2024 14:44:40 +0000
QR Codes:

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

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] [Kendaal tau gesta...] [2007-11-29 20:58:08] [fd3ca065c3a7c8dcbf3acac55b688913] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
0,066361	-0,055000	4,700000	-1,000000
0,064473	-0,051700	7,100000	1,000000
0,042308	-0,033700	8,600000	1,000000
0,007847	-0,006200	7,400000	1,000000
-0,053390	0,042800	7,800000	1,000000
-0,125376	0,102200	7,100000	0,300000
-0,153984	0,131500	7,500000	2,300000
-0,087790	0,077300	9,900000	4,100000
-0,077998	0,069700	14,900000	4,100000
-0,084611	0,075200	19,300000	4,100000
-0,127144	0,113100	8,900000	4,100000
-0,138545	0,125900	7,500000	4,100000
-0,190676	0,178900	4,400000	0,000000
-0,221178	0,207300	3,400000	-2,000000
-0,216487	0,204900	-0,600000	-2,000000
-0,207094	0,199000	-0,800000	-2,000000
-0,227104	0,241200	-3,200000	-2,000000
-0,189270	0,210900	-3,200000	-2,000000
-0,128508	0,145000	-1,900000	-0,400000
-0,124957	0,136100	-3,000000	-2,100000
-0,128469	0,141400	-7,700000	-2,100000
-0,163978	0,188100	-15,500000	-2,100000
-0,144047	0,168800	-7,000000	-2,100000
-0,168094	0,210300	-6,200000	-2,100000
-0,148609	0,199100	-5,500000	-1,900000
-0,137483	0,187300	-8,300000	-1,900000
-0,109798	0,145500	-5,900000	-1,900000
-0,087453	0,113700	-3,500000	0,300000
-0,030561	0,042500	-2,100000	0,300000
-0,033553	0,047500	-1,900000	0,300000
-0,064091	0,089400	0,200000	-1,300000
-0,076459	0,103700	2,100000	-1,300000
-0,072642	0,099600	-0,700000	-1,300000
-0,054645	0,079800	2,500000	-1,300000
-0,084791	0,128900	3,100000	-1,300000
-0,068112	0,112200	1,000000	-1,300000
-0,030580	0,050600	1,700000	2,200000
-0,022361	0,036800	4,500000	2,200000
-0,058010	0,093900	5,200000	2,200000
-0,061459	0,095300	2,100000	0,000000
-0,045074	0,068700	2,200000	0,000000
-0,001829	0,002700	3,800000	0,000000
0,015510	-0,022900	2,200000	0,000000
-0,007751	0,011600	-1,700000	0,000000
-0,002538	0,003800	1,600000	0,000000
0,031652	-0,047500	1,300000	0,000000
0,078700	-0,120500	-1,800000	0,000000
0,097632	-0,155200	0,000000	0,000000
0,063988	-0,101600	5,800000	0,000000
0,069258	-0,107600	4,400000	0,000000
0,074429	-0,118100	2,500000	0,000000
0,042013	-0,066700	7,700000	0,000000
-0,004689	0,007600	8,300000	0,000000
-0,031516	0,048500	7,800000	0,000000
-0,042377	0,064700	6,200000	0,000000
-0,032958	0,051900	6,900000	2,700000
-0,030196	0,047100	5,900000	2,700000
-0,039334	0,059600	6,000000	2,700000
-0,072127	0,109500	7,000000	2,700000
-0,086625	0,135700	7,900000	2,700000
-0,056951	0,089600	3,700000	2,700000
-0,072784	0,113600	4,700000	2,700000
-0,076774	0,122200	6,900000	2,700000
-0,075066	0,124500	5,000000	2,700000
-0,042947	0,074100	7,100000	2,700000
-0,045302	0,076900	6,000000	2,700000
-0,059319	0,103200	9,600000	2,700000
-0,046472	0,081100	7,100000	0,000000

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=7605&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( w , x )-0.8753292361720814.81420904643905e-26
tau( w , y )0.1555419589618130.0616108780220619
tau( w , z )0.1556972548182420.0746048545834204
tau( x , y )-0.2269238211482540.0063941474597807
tau( x , z )-0.2054078241276810.0186667141222329
tau( y , z )0.5865263025701352.18818296815471e-11

\begin{tabular}{lllllllll}
\hline
Kendall tau rank correlations for all pairs of data series \tabularnewline
pair & tau & p-value \tabularnewline
tau( w , x ) & -0.875329236172081 & 4.81420904643905e-26 \tabularnewline
tau( w , y ) & 0.155541958961813 & 0.0616108780220619 \tabularnewline
tau( w , z ) & 0.155697254818242 & 0.0746048545834204 \tabularnewline
tau( x , y ) & -0.226923821148254 & 0.0063941474597807 \tabularnewline
tau( x , z ) & -0.205407824127681 & 0.0186667141222329 \tabularnewline
tau( y , z ) & 0.586526302570135 & 2.18818296815471e-11 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=7605&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]-0.875329236172081[/C][C]4.81420904643905e-26[/C][/ROW]
[ROW][C]tau( w , y )[/C][C]0.155541958961813[/C][C]0.0616108780220619[/C][/ROW]
[ROW][C]tau( w , z )[/C][C]0.155697254818242[/C][C]0.0746048545834204[/C][/ROW]
[ROW][C]tau( x , y )[/C][C]-0.226923821148254[/C][C]0.0063941474597807[/C][/ROW]
[ROW][C]tau( x , z )[/C][C]-0.205407824127681[/C][C]0.0186667141222329[/C][/ROW]
[ROW][C]tau( y , z )[/C][C]0.586526302570135[/C][C]2.18818296815471e-11[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=7605&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=7605&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( w , x )-0.8753292361720814.81420904643905e-26
tau( w , y )0.1555419589618130.0616108780220619
tau( w , z )0.1556972548182420.0746048545834204
tau( x , y )-0.2269238211482540.0063941474597807
tau( x , z )-0.2054078241276810.0186667141222329
tau( y , z )0.5865263025701352.18818296815471e-11


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