Repository of Reproducible Computations

Free Statistics

of Irreproducible Research!

Author's title

Author

*The author of this computation has been verified*

R Software Module

rwasp_pairs.wasp

Title produced by software

Kendall tau Correlation Matrix

Date of computation

Mon, 13 Dec 2010 20:35:39 +0000

Cite this page as follows

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2010/Dec/13/t1292272423j9rprmauh3i3wvb.htm/, Retrieved Mon, 06 May 2024 11:47:56 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=109174, Retrieved Mon, 06 May 2024 11:47:56 +0000

QR Codes:

Paste this QR Code to cite your computation.

Original text written by user:

IsPrivate?

No (this computation is public)

User-defined keywords

Estimated Impact

150

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)

-     [Pearson Correlation] [correlatie totale...] [2010-12-13 10:33:14] [dc30d19c3bc2be07fe595ad36c2cf923]
- RM D  [Kendall tau Correlation Matrix] [Kendell Tau] [2010-12-13 20:15:15] [1251ac2db27b84d4a3ba43449388906b]
-           [Kendall tau Correlation Matrix] [] [2010-12-13 20:35:39] [1638ccfec791c539017705f3e680eb33] [Current]
-    D        [Kendall tau Correlation Matrix] [Kendell Tau (Alle...] [2010-12-13 23:11:50] [1251ac2db27b84d4a3ba43449388906b] 
-    D        [Kendall tau Correlation Matrix] [Kendell Tau (Alle...] [2010-12-13 23:11:50] [1251ac2db27b84d4a3ba43449388906b] 
-    D        [Kendall tau Correlation Matrix] [Kendell Tau (Alle...] [2010-12-13 23:11:50] [1251ac2db27b84d4a3ba43449388906b] 
-    D        [Kendall tau Correlation Matrix] [Kendell Tau (Alle...] [2010-12-13 23:11:50] [1251ac2db27b84d4a3ba43449388906b] 

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

6.3	2.0	3	1	3
2.1	1.8	3	5	4
9.1	.7	4	4	4
15.8	3.9	1	1	1
5.2	1.0	4	5	4
10.9	3.6	1	2	1
8.3	1.4	1	1	1
11.0	1.5	5	4	4
3.2	.7	5	5	5
7.6	2.7	2	1	2
6.3	2.1	1	1	1
8.6	.0	2	2	2
6.6	4.1	2	2	2
9.5	1.2	2	2	2
4.8	1.3	1	2	1
12.0	6.1	1	1	1
3.3	.5	5	5	5
11.0	3.4	3	1	2
4.7	1.5	1	3	1
10.4	3.4	5	1	3
7.4	.8	5	3	4
2.1	.8	5	5	5
7.7	1.4	5	2	4
17.9	2.0	1	1	1
6.1	1.9	1	1	1
8.2	2.4	2	1	1
8.4	2.8	3	1	3
11.9	1.3	4	1	3
10.8	2.0	4	1	3
13.8	5.6	2	1	1
14.3	3.1	2	1	1
15.2	1.8	2	2	2
10.0	.9	4	4	4
11.9	1.8	2	1	2
6.5	1.9	4	4	4
7.5	.9	5	5	5
10.6	2.6	3	1	3
7.4	2.4	1	1	1
8.4	1.2	2	3	2
5.7	.9	2	2	2
4.9	.5	3	2	3
3.2	.6	5	5	5
8.1	2.2	3	1	2
11.0	2.3	2	1	2
4.9	.5	3	1	3
13.2	2.6	3	2	2
9.7	.6	4	3	4
12.8	6.6	2	1	1

Summary of computational transaction
Raw Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	2 seconds
R Server	'RServer@AstonUniversity' @ vre.aston.ac.uk

\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 & 'RServer@AstonUniversity' @ vre.aston.ac.uk \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=109174&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]'RServer@AstonUniversity' @ vre.aston.ac.uk[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=109174&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=109174&T=0

As an alternative you can also use a QR Code:

The GUIDs for individual cells are displayed in the table below:

Summary of computational transaction
Raw Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	2 seconds
R Server	'RServer@AstonUniversity' @ vre.aston.ac.uk

Correlations for all pairs of data series (method=pearson)
	SWS	PS	P	S	D
SWS	1	0.514	-0.318	-0.544	-0.484
PS	0.514	1	-0.418	-0.513	-0.558
P	-0.318	-0.418	1	0.622	0.927
S	-0.544	-0.513	0.622	1	0.779
D	-0.484	-0.558	0.927	0.779	1

\begin{tabular}{lllllllll}
\hline
Correlations for all pairs of data series (method=pearson) \tabularnewline
  & SWS & PS & P & S & D \tabularnewline
SWS & 1 & 0.514 & -0.318 & -0.544 & -0.484 \tabularnewline
PS & 0.514 & 1 & -0.418 & -0.513 & -0.558 \tabularnewline
P & -0.318 & -0.418 & 1 & 0.622 & 0.927 \tabularnewline
S & -0.544 & -0.513 & 0.622 & 1 & 0.779 \tabularnewline
D & -0.484 & -0.558 & 0.927 & 0.779 & 1 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=109174&T=1

[TABLE]
[ROW][C]Correlations for all pairs of data series (method=pearson)[/C][/ROW]
[ROW][C] [/C][C]SWS[/C][C]PS[/C][C]P[/C][C]S[/C][C]D[/C][/ROW]
[ROW][C]SWS[/C][C]1[/C][C]0.514[/C][C]-0.318[/C][C]-0.544[/C][C]-0.484[/C][/ROW]
[ROW][C]PS[/C][C]0.514[/C][C]1[/C][C]-0.418[/C][C]-0.513[/C][C]-0.558[/C][/ROW]
[ROW][C]P[/C][C]-0.318[/C][C]-0.418[/C][C]1[/C][C]0.622[/C][C]0.927[/C][/ROW]
[ROW][C]S[/C][C]-0.544[/C][C]-0.513[/C][C]0.622[/C][C]1[/C][C]0.779[/C][/ROW]
[ROW][C]D[/C][C]-0.484[/C][C]-0.558[/C][C]0.927[/C][C]0.779[/C][C]1[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=109174&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=109174&T=1

As an alternative you can also use a QR Code:

The GUIDs for individual cells are displayed in the table below:

Correlations for all pairs of data series (method=pearson)
	SWS	PS	P	S	D
SWS	1	0.514	-0.318	-0.544	-0.484
PS	0.514	1	-0.418	-0.513	-0.558
P	-0.318	-0.418	1	0.622	0.927
S	-0.544	-0.513	0.622	1	0.779
D	-0.484	-0.558	0.927	0.779	1

Correlations for all pairs of data series with p-values
pair	Pearson r	Spearman rho	Kendall tau
SWS;PS	0.5143	0.5412	0.3833
p-value	(2e-04)	(1e-04)	(1e-04)
SWS;P	-0.3182	-0.2496	-0.1882
p-value	(0.0275)	(0.0871)	(0.0832)
SWS;S	-0.5438	-0.501	-0.3899
p-value	(1e-04)	(3e-04)	(5e-04)
SWS;D	-0.4839	-0.4085	-0.3195
p-value	(5e-04)	(0.0039)	(0.0034)
PS;P	-0.418	-0.457	-0.3367
p-value	(0.0031)	(0.0011)	(0.002)
PS;S	-0.5128	-0.6438	-0.4934
p-value	(2e-04)	(0)	(0)
PS;D	-0.5585	-0.6069	-0.4671
p-value	(0)	(0)	(0)
P;S	0.6217	0.5331	0.441
p-value	(0)	(1e-04)	(2e-04)
P;D	0.9268	0.9307	0.8723
p-value	(0)	(0)	(0)
S;D	0.7786	0.675	0.5866
p-value	(0)	(0)	(0)

\begin{tabular}{lllllllll}
\hline
Correlations for all pairs of data series with p-values \tabularnewline
pair & Pearson r & Spearman rho & Kendall tau \tabularnewline
SWS;PS & 0.5143 & 0.5412 & 0.3833 \tabularnewline
p-value & (2e-04) & (1e-04) & (1e-04) \tabularnewline
SWS;P & -0.3182 & -0.2496 & -0.1882 \tabularnewline
p-value & (0.0275) & (0.0871) & (0.0832) \tabularnewline
SWS;S & -0.5438 & -0.501 & -0.3899 \tabularnewline
p-value & (1e-04) & (3e-04) & (5e-04) \tabularnewline
SWS;D & -0.4839 & -0.4085 & -0.3195 \tabularnewline
p-value & (5e-04) & (0.0039) & (0.0034) \tabularnewline
PS;P & -0.418 & -0.457 & -0.3367 \tabularnewline
p-value & (0.0031) & (0.0011) & (0.002) \tabularnewline
PS;S & -0.5128 & -0.6438 & -0.4934 \tabularnewline
p-value & (2e-04) & (0) & (0) \tabularnewline
PS;D & -0.5585 & -0.6069 & -0.4671 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
P;S & 0.6217 & 0.5331 & 0.441 \tabularnewline
p-value & (0) & (1e-04) & (2e-04) \tabularnewline
P;D & 0.9268 & 0.9307 & 0.8723 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
S;D & 0.7786 & 0.675 & 0.5866 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=109174&T=2

[TABLE]
[ROW][C]Correlations for all pairs of data series with p-values[/C][/ROW]
[ROW][C]pair[/C][C]Pearson r[/C][C]Spearman rho[/C][C]Kendall tau[/C][/ROW]
[ROW][C]SWS;PS[/C][C]0.5143[/C][C]0.5412[/C][C]0.3833[/C][/ROW]
[ROW][C]p-value[/C][C](2e-04)[/C][C](1e-04)[/C][C](1e-04)[/C][/ROW]
[ROW][C]SWS;P[/C][C]-0.3182[/C][C]-0.2496[/C][C]-0.1882[/C][/ROW]
[ROW][C]p-value[/C][C](0.0275)[/C][C](0.0871)[/C][C](0.0832)[/C][/ROW]
[ROW][C]SWS;S[/C][C]-0.5438[/C][C]-0.501[/C][C]-0.3899[/C][/ROW]
[ROW][C]p-value[/C][C](1e-04)[/C][C](3e-04)[/C][C](5e-04)[/C][/ROW]
[ROW][C]SWS;D[/C][C]-0.4839[/C][C]-0.4085[/C][C]-0.3195[/C][/ROW]
[ROW][C]p-value[/C][C](5e-04)[/C][C](0.0039)[/C][C](0.0034)[/C][/ROW]
[ROW][C]PS;P[/C][C]-0.418[/C][C]-0.457[/C][C]-0.3367[/C][/ROW]
[ROW][C]p-value[/C][C](0.0031)[/C][C](0.0011)[/C][C](0.002)[/C][/ROW]
[ROW][C]PS;S[/C][C]-0.5128[/C][C]-0.6438[/C][C]-0.4934[/C][/ROW]
[ROW][C]p-value[/C][C](2e-04)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]PS;D[/C][C]-0.5585[/C][C]-0.6069[/C][C]-0.4671[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]P;S[/C][C]0.6217[/C][C]0.5331[/C][C]0.441[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](1e-04)[/C][C](2e-04)[/C][/ROW]
[ROW][C]P;D[/C][C]0.9268[/C][C]0.9307[/C][C]0.8723[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]S;D[/C][C]0.7786[/C][C]0.675[/C][C]0.5866[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=109174&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=109174&T=2

As an alternative you can also use a QR Code:

The GUIDs for individual cells are displayed in the table below:

Correlations for all pairs of data series with p-values
pair	Pearson r	Spearman rho	Kendall tau
SWS;PS	0.5143	0.5412	0.3833
p-value	(2e-04)	(1e-04)	(1e-04)
SWS;P	-0.3182	-0.2496	-0.1882
p-value	(0.0275)	(0.0871)	(0.0832)
SWS;S	-0.5438	-0.501	-0.3899
p-value	(1e-04)	(3e-04)	(5e-04)
SWS;D	-0.4839	-0.4085	-0.3195
p-value	(5e-04)	(0.0039)	(0.0034)
PS;P	-0.418	-0.457	-0.3367
p-value	(0.0031)	(0.0011)	(0.002)
PS;S	-0.5128	-0.6438	-0.4934
p-value	(2e-04)	(0)	(0)
PS;D	-0.5585	-0.6069	-0.4671
p-value	(0)	(0)	(0)
P;S	0.6217	0.5331	0.441
p-value	(0)	(1e-04)	(2e-04)
P;D	0.9268	0.9307	0.8723
p-value	(0)	(0)	(0)
S;D	0.7786	0.675	0.5866
p-value	(0)	(0)	(0)

Figure 1

PNG link

Postscript link

PDF link

Parameters (Session):

Parameters (R input):

par1 = pearson ;

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=par1)
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')
n <- length(y[,1])
n
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,paste('Correlations for all pairs of data series (method=',par1,')',sep=''),n+1,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,' ',header=TRUE)
for (i in 1:n) {
a<-table.element(a,dimnames(t(x))[[2]][i],header=TRUE)
}
a<-table.row.end(a)
for (i in 1:n) {
a<-table.row.start(a)
a<-table.element(a,dimnames(t(x))[[2]][i],header=TRUE)
for (j in 1:n) {
r <- cor.test(y[i,],y[j,],method=par1)
a<-table.element(a,round(r$estimate,3))
}
a<-table.row.end(a)
}
a<-table.end(a)
table.save(a,file='mytable.tab')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Correlations for all pairs of data series with p-values',4,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'pair',1,TRUE)
a<-table.element(a,'Pearson r',1,TRUE)
a<-table.element(a,'Spearman rho',1,TRUE)
a<-table.element(a,'Kendall tau',1,TRUE)
a<-table.row.end(a)
cor.test(y[1,],y[2,],method=par1)
for (i in 1:(n-1))
{
for (j in (i+1):n)
{
a<-table.row.start(a)
dum <- paste(dimnames(t(x))[[2]][i],';',dimnames(t(x))[[2]][j],sep='')
a<-table.element(a,dum,header=TRUE)
rp <- cor.test(y[i,],y[j,],method='pearson')
a<-table.element(a,round(rp$estimate,4))
rs <- cor.test(y[i,],y[j,],method='spearman')
a<-table.element(a,round(rs$estimate,4))
rk <- cor.test(y[i,],y[j,],method='kendall')
a<-table.element(a,round(rk$estimate,4))
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'p-value',header=T)
a<-table.element(a,paste('(',round(rp$p.value,4),')',sep=''))
a<-table.element(a,paste('(',round(rs$p.value,4),')',sep=''))
a<-table.element(a,paste('(',round(rk$p.value,4),')',sep=''))
a<-table.row.end(a)
}
}
a<-table.end(a)
table.save(a,file='mytable1.tab')

Free Statistics

Description of Statistical Computation

Tree of Dependent Computations

Dataset

Tables (Output of Computation)

Figures (Output of Computation)

Input Parameters & R Code