FreeStatistics.org

Free Statistics

of Irreproducible Research!

Description of Statistical Computation

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 computationFri, 13 Nov 2009 18:05:11 -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/14/t1258160812pmbl7b9q28ju3f5.htm/, Retrieved Sat, 27 Apr 2024 21:41:59 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=57201, Retrieved Sat, 27 Apr 2024 21:41:59 +0000
QR Codes:

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

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] [3/11/2009] [2009-11-02 21:25:00] [b98453cac15ba1066b407e146608df68]
-    D    [Kendall tau Correlation Matrix] [] [2009-11-14 01:05:11] [dd88bf4749af0c195ad4f54cb428da1c] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
139,72	69,4	68,56	1,9
139,91	57,2	68,65	2,6
139,97	68	68,68	2,3
139,98	53,3	68,69	2,4
140,03	47,9	68,71	2,2
140,03	60,8	68,71	2
140,26	61,7	68,82	2,9
142,15	57,8	69,75	2,6
143,54	51,4	70,43	2,3
144,5	50,5	70,91	2,3
145,65	48,1	71,47	2,6
146,47	58,7	71,87	3,1
147,36	54	72,31	2,8
147,89	56,1	72,56	2,5
149,23	60,4	73,23	2,9
149,93	51,2	73,57	3,1
150,24	50,7	73,72	3,1
150,15	56,4	73,68	3,2
150,31	53,3	73,76	2,5
150,31	52,6	73,76	2,6
150,37	47,7	73,78	2,9
107,59	49,5	73,97	2,6
107,59	48,5	73,97	2,4
107,59	55,3	73,97	1,7
107,59	49,8	73,97	2
107,59	57,4	73,97	2,2
107,58	64,6	73,97	1,9
108,28	53	73,96	1,6
109,71	41,5	74,44	1,6
110,21	55,9	75,43	1,2
110,27	58,4	75,77	1,2
110,32	53,5	75,82	1,5
110,33	50,6	75,85	1,6
110,33	58,5	75,85	1,7
113,38	49,1	75,85	1,8
119,37	61,1	77,95	1,8
123,37	52,3	82,07	1,8
123,75	58,4	84,82	1,3
124,13	65,5	85,08	1,3
124,59	61,7	85,34	1,4
124,59	45,1	85,65	1,1
124,68	52,1	85,65	1,5
124,7	59,3	85,72	2,2
124,7	57,9	85,73	2,9
124,7	45	85,73	3,1
124,7	64,9	85,73	3,5
124,71	63,8	85,73	3,6
125,55	69,4	85,74	4,4
127,41	71,1	86,32	4,2
127,73	62,9	87,59	5,2
127,8	73,5	87,81	5,8
127,91	62,7	87,87	5,9
127,94	51,9	87,94	5,4
128,01	73,3	87,96	5,5
128,01	66,7	88,01	4,7
128,01	62,5	88,01	3,1
128,01	70,3	88,01	2,6
128,01	66,1	88,01	2,3
128,86	59,6	88,01	1,9
124,74	66,3	88,59	0,6

Tables (Output of Computation)





Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time2 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 & 2 seconds \tabularnewline
R Server & 'Gwilym Jenkins' @ 72.249.127.135 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=57201&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]2 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=57201&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=57201&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 time2 seconds
R Server'Gwilym Jenkins' @ 72.249.127.135






Kendall tau rank correlations for all pairs of data series
pairtaup-value
tau( icTab , ipTab )0.01825492296384390.838118065791841
tau( icTab , gemCP )0.02936948090551640.744442656943037
tau( icTab , infl )0.3242709127992720.000342216091070879
tau( ipTab , gemCP )0.2589426397500740.00381600307434637
tau( ipTab , infl )0.1712834909010130.0569064607634848
tau( gemCP , infl )0.06672570179176060.46197029742363

\begin{tabular}{lllllllll}
\hline
Kendall tau rank correlations for all pairs of data series \tabularnewline
pair & tau & p-value \tabularnewline
tau( icTab , ipTab ) & 0.0182549229638439 & 0.838118065791841 \tabularnewline
tau( icTab , gemCP ) & 0.0293694809055164 & 0.744442656943037 \tabularnewline
tau( icTab , infl ) & 0.324270912799272 & 0.000342216091070879 \tabularnewline
tau( ipTab , gemCP ) & 0.258942639750074 & 0.00381600307434637 \tabularnewline
tau( ipTab , infl ) & 0.171283490901013 & 0.0569064607634848 \tabularnewline
tau( gemCP , infl ) & 0.0667257017917606 & 0.46197029742363 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=57201&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( icTab , ipTab )[/C][C]0.0182549229638439[/C][C]0.838118065791841[/C][/ROW]
[ROW][C]tau( icTab , gemCP )[/C][C]0.0293694809055164[/C][C]0.744442656943037[/C][/ROW]
[ROW][C]tau( icTab , infl )[/C][C]0.324270912799272[/C][C]0.000342216091070879[/C][/ROW]
[ROW][C]tau( ipTab , gemCP )[/C][C]0.258942639750074[/C][C]0.00381600307434637[/C][/ROW]
[ROW][C]tau( ipTab , infl )[/C][C]0.171283490901013[/C][C]0.0569064607634848[/C][/ROW]
[ROW][C]tau( gemCP , infl )[/C][C]0.0667257017917606[/C][C]0.46197029742363[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=57201&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=57201&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( icTab , ipTab )0.01825492296384390.838118065791841
tau( icTab , gemCP )0.02936948090551640.744442656943037
tau( icTab , infl )0.3242709127992720.000342216091070879
tau( ipTab , gemCP )0.2589426397500740.00381600307434637
tau( ipTab , infl )0.1712834909010130.0569064607634848
tau( gemCP , infl )0.06672570179176060.46197029742363


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