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 computationWed, 28 Nov 2007 04:15:12 -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/28/t1196247904t62o8zatl709q5y.htm/, Retrieved Thu, 02 May 2024 00:52:17 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=7019, Retrieved Thu, 02 May 2024 00:52:17 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywordsgroep MENS
Estimated Impact202

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] [Q4] [2007-11-28 11:15:12] [183840e644503a44411d430a3cdac4ba] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
7.9	-1.1	-0.8	-0.3
6.1	-0.8	-0.4	0.3
4.3	-0.2	-0.4	-0.3
4	0.4	-0.3	-0.1
3.4	0.1	-0.4	0.1
4.5	0.5	-0.1	-0.1
3.5	-1.4	0.2	-0.3
3.9	-1.4	0.4	-0.3
2.1	-0.9	-0.1	0.7
2.4	-0.1	0.3	0.6
2.4	0.2	0.4	1.5
2.5	-0.2	0.3	1.1
-0.7	-2	0.4	0.2
-0.5	-2.4	0.4	-0.2
-0.2	-2.8	0.9	1
-0.1	-3.5	0	0.5
0	-3.2	0	0.5
0	-3.4	0	-0.1
0	-1.2	-1.4	-0.9
0	-0.7	0	0.2
0	-0.1	-0.2	-0.5
0	0.1	-0.2	-0.5
0	0.6	0.8	-0.9
0.2	0.8	0.5	-0.8
4.3	3	0.2	0
3.3	3.2	-0.5	0.4
3.3	3.3	-0.5	-1.5
7.3	3.5	1.1	-1.1
9.3	3.8	0.3	-1
10.4	3.8	-0.8	-1.6
10.4	3.6	1.2	1.4
10.4	3	-0.8	0.5
11.1	2.1	0	0.2
12.7	1.1	0.2	-2.4
14.7	0.6	-0.5	-2.6
14.5	0.5	-0.4	-2.7
15.2	0	-0.6	-2.7
14.8	-0.1	-0.6	-3.7
10.3	-0.1	-0.9	-2.1
3.5	-0.8	-0.8	-2.2
4.4	-0.3	-0.3	-2.2
4	0	0.4	-0.5
4.4	0.5	0	-3.7
2.4	0.5	1	-3.3
1.1	0.3	-0.5	-3.3
-0.5	0.6	1.1	-0.8
-2.5	0.8	0.9	2.4
-2.5	1.1	1.3	2.3
1.1	1.2	0.9	0.1
3.9	1.2	3.2	4.6
8.4	1.1	3	4.4
10	2.1	3	4
7.1	2.5	3.2	3.2
11.5	2.3	3.5	2.9
7.4	2	3.1	4
5.3	3.1	2.6	4.5
9.3	3.7	2.8	4.5
9.3	4	1	4.5
10.5	4	0.8	1.8
10.5	4.5	0.6	1.5
2.1	4.9	2.1	4

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=7019&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( Energie , Voeding )0.3220073699455620.000313449435743962
tau( Energie , Transport )-0.08206987445060830.362136707248289
tau( Energie , Textiel )-0.06579334899885340.461857885967267
tau( Voeding , Transport )0.27900280522450.00189264327956873
tau( Voeding , Textiel )0.1744929753200510.0503716587135061
tau( Transport , Textiel )0.4732424417339631.39986499725353e-07

\begin{tabular}{lllllllll}
\hline
Kendall tau rank correlations for all pairs of data series \tabularnewline
pair & tau & p-value \tabularnewline
tau( Energie , Voeding ) & 0.322007369945562 & 0.000313449435743962 \tabularnewline
tau( Energie , Transport ) & -0.0820698744506083 & 0.362136707248289 \tabularnewline
tau( Energie , Textiel
 ) & -0.0657933489988534 & 0.461857885967267 \tabularnewline
tau( Voeding , Transport ) & 0.2790028052245 & 0.00189264327956873 \tabularnewline
tau( Voeding , Textiel
 ) & 0.174492975320051 & 0.0503716587135061 \tabularnewline
tau( Transport , Textiel
 ) & 0.473242441733963 & 1.39986499725353e-07 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=7019&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( Energie , Voeding )[/C][C]0.322007369945562[/C][C]0.000313449435743962[/C][/ROW]
[ROW][C]tau( Energie , Transport )[/C][C]-0.0820698744506083[/C][C]0.362136707248289[/C][/ROW]
[ROW][C]tau( Energie , Textiel
 )[/C][C]-0.0657933489988534[/C][C]0.461857885967267[/C][/ROW]
[ROW][C]tau( Voeding , Transport )[/C][C]0.2790028052245[/C][C]0.00189264327956873[/C][/ROW]
[ROW][C]tau( Voeding , Textiel
 )[/C][C]0.174492975320051[/C][C]0.0503716587135061[/C][/ROW]
[ROW][C]tau( Transport , Textiel
 )[/C][C]0.473242441733963[/C][C]1.39986499725353e-07[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=7019&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=7019&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( Energie , Voeding )0.3220073699455620.000313449435743962
tau( Energie , Transport )-0.08206987445060830.362136707248289
tau( Energie , Textiel )-0.06579334899885340.461857885967267
tau( Voeding , Transport )0.27900280522450.00189264327956873
tau( Voeding , Textiel )0.1744929753200510.0503716587135061
tau( Transport , Textiel )0.4732424417339631.39986499725353e-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')