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 04:14:39 -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/t1196334426ox8rsak3i950k0e.htm/, Retrieved Fri, 03 May 2024 12:59:27 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=7419, Retrieved Fri, 03 May 2024 12:59:27 +0000
QR Codes:

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

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] [Q3] [2007-11-29 11:14:39] [031886dbad66702fa31ca1c4d15fdd0f] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
5,22	5,35	5,74	1,81
5,09	5,3	5,72	1,59
4,77	5,05	5,24	1,65
4,54	4,94	5,16	1,47
4,56	4,94	5,1	1,3
4,39	4,84	4,89	1,27
4,73	5	5,14	1,33
4,44	5,2	5,39	1,24
4,3	5,14	5,29	1,21
4,24	5,16	5,24	1,33
4,01	4,96	4,97	1,38
3,5	4,97	4,73	1,42
3,23	4,76	4,57	1,3
3,28	4,61	4,65	1,36
3,49	4,85	5,09	1,37
3,7	4,94	5,04	1,48
3,63	5	4,91	1,53
3,95	5,24	5,28	1,39
3,73	5,24	5,21	1,37
3,87	5,25	5,16	1,39
3,66	5,11	4,93	1,32
3,49	4,96	4,65	1,32
3,4	4,68	4,26	1,18
3,32	4,49	3,87	1,18
3,11	4,58	3,94	0,99
3,06	4,58	4,05	1
2,68	4,41	4,03	0,9
2,55	4,23	4,05	0,76
2,34	4,01	3,9	0,78
2,34	4,09	3,81	0,73
2,39	4,23	3,96	0,61
2,21	3,91	3,57	0,52
2,09	3,7	3,33	0,82
2,14	4	3,97	0,95
2,31	4,16	4,44	1,52
2,14	4,23	4,27	1,46
2,45	4,29	4,29	1,48
2,52	4,41	4,3	1,32
2,3	4,34	4,27	1,39
2,25	4,2	4,15	1,33
2,06	4,15	4,08	1,24
1,99	3,99	3,83	1,45
2,25	4,19	4,35	1,55
2,26	4,33	4,72	1,51
2,36	4,39	4,73	1,76
2,3	4,28	4,5	1,85
2,19	4,12	4,28	1,56
2,31	4,09	4,13	1,45
2,21	3,97	4,1	1,49
2,21	3,85	4,19	1,45
2,26	3,64	4,23	1,44
2,18	3,58	4,22	1,28
2,21	3,59	4,17	1,46
2,33	3,76	4,5	1,3
2,12	3,55	4,34	1,25
2,08	3,37	4,14	1,25
1,97	3,2	4	1,18
2,09	3,26	4,18	1,31
2,11	3,3	4,26	1,35
2,24	3,13	4,2	1,49
2,45	3,29	4,46	1,56
2,68	3,49	4,53	1,44
2,73	3,38	4,47	1,48
2,76	3,34	4,42	1,57
2,83	3,5	4,57	1,59
3,16	3,68	4,72	1,77
3,22	3,94	4,99	1,92
3,22	4,01	5,11	1,83
3,34	4,01	5,11	1,92
3,35	4,03	5,09	1,92
3,42	3,9	4,88	1,61
3,58	3,77	4,72	1,67
3,71	3,81	4,73	1,71
3,68	3,74	4,6	1,65
3,83	3,8	4,56	1,68
3,94	4,06	4,76	1,7
3,88	4,1	4,72	1,63
4,03	3,99	4,56	1,65
4,15	4,2	4,7	1,62
4,32	4,33	4,75	1,75
4,4	4,61	5,1	1,86
4,37	4,59	5	1,81
4,14	4,39	4,67	1,6
4,11	4,35	4,52	1,65
4,16	4,4	4,53	1,6

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=7419&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( Bel , Fra )0.488526018513084.48343584480426e-11
tau( Bel , Usa )0.5940009922024011.11022302462516e-15
tau( Bel , Jap )0.2419891340686190.00113664562268445
tau( Fra , Usa )0.402648649401825.77589287509284e-08
tau( Fra , Jap )-0.04463294644353270.548513289273155
tau( Usa , Jap )0.3905070553645381.5364755268088e-07

\begin{tabular}{lllllllll}
\hline
Kendall tau rank correlations for all pairs of data series \tabularnewline
pair & tau & p-value \tabularnewline
tau( Bel , Fra ) & 0.48852601851308 & 4.48343584480426e-11 \tabularnewline
tau( Bel , Usa ) & 0.594000992202401 & 1.11022302462516e-15 \tabularnewline
tau( Bel , Jap ) & 0.241989134068619 & 0.00113664562268445 \tabularnewline
tau( Fra , Usa ) & 0.40264864940182 & 5.77589287509284e-08 \tabularnewline
tau( Fra , Jap ) & -0.0446329464435327 & 0.548513289273155 \tabularnewline
tau( Usa , Jap ) & 0.390507055364538 & 1.5364755268088e-07 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=7419&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( Bel , Fra )[/C][C]0.48852601851308[/C][C]4.48343584480426e-11[/C][/ROW]
[ROW][C]tau( Bel , Usa )[/C][C]0.594000992202401[/C][C]1.11022302462516e-15[/C][/ROW]
[ROW][C]tau( Bel , Jap )[/C][C]0.241989134068619[/C][C]0.00113664562268445[/C][/ROW]
[ROW][C]tau( Fra , Usa )[/C][C]0.40264864940182[/C][C]5.77589287509284e-08[/C][/ROW]
[ROW][C]tau( Fra , Jap )[/C][C]-0.0446329464435327[/C][C]0.548513289273155[/C][/ROW]
[ROW][C]tau( Usa , Jap )[/C][C]0.390507055364538[/C][C]1.5364755268088e-07[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=7419&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=7419&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( Bel , Fra )0.488526018513084.48343584480426e-11
tau( Bel , Usa )0.5940009922024011.11022302462516e-15
tau( Bel , Jap )0.2419891340686190.00113664562268445
tau( Fra , Usa )0.402648649401825.77589287509284e-08
tau( Fra , Jap )-0.04463294644353270.548513289273155
tau( Usa , Jap )0.3905070553645381.5364755268088e-07


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