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

Sun, 26 Dec 2010 14:24:37 +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/26/t1293373770f24deqrecxfcbe8.htm/, Retrieved Mon, 06 May 2024 13:58:19 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=115615, Retrieved Mon, 06 May 2024 13:58:19 +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

129

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

-       [Kendall tau Correlation Matrix] [w7 - Pearson CM] [2010-12-26 14:24:37] [54d0a09f418287eaabab8ba43e4b06f8] [Current]

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

13	13	14	13
12	12	8	13
15	10	12	16
12	9	7	12
10	10	10	11
12	12	7	12
15	13	16	18
9	12	11	11
12	12	14	14
11	6	6	9
11	5	16	14
11	12	11	12
15	11	16	11
7	14	12	12
11	14	7	13
11	12	13	11
10	12	11	12
14	11	15	16
10	11	7	9
6	7	9	11
11	9	7	13
15	11	14	15
11	11	15	10
12	12	7	11
14	12	15	13
15	11	17	16
9	11	15	15
13	8	14	14
13	9	14	14
16	12	8	14
13	10	8	8
12	10	14	13
14	12	14	15
11	8	8	13
9	12	11	11
16	11	16	15
12	12	10	15
10	7	8	9
13	11	14	13
16	11	16	16
14	12	13	13
15	9	5	11
5	15	8	12
8	11	10	12
11	11	8	12
16	11	13	14
17	11	15	14
9	15	6	8
9	11	12	13
13	12	16	16
10	12	5	13
6	9	15	11
12	12	12	14
8	12	8	13
14	13	13	13
12	11	14	13
11	9	12	12
16	9	16	16
8	11	10	15
15	11	15	15
7	12	8	12
16	12	16	14
14	9	19	12
16	11	14	15
9	9	6	12
14	12	13	13
11	12	15	12
13	12	7	12
15	12	13	13
5	14	4	5
15	11	14	13
13	12	13	13
11	11	11	14
11	6	14	17
12	10	12	13
12	12	15	13
12	13	14	12
12	8	13	13
14	12	8	14
6	12	6	11
7	12	7	12
14	6	13	12
14	11	13	16
10	10	11	12
13	12	5	12
12	13	12	12
9	11	8	10
12	7	11	15
16	11	14	15
10	11	9	12
14	11	10	16
10	11	13	15
16	12	16	16
15	10	16	13
12	11	11	12
10	12	8	11
8	7	4	13
8	13	7	10
11	8	14	15
13	12	11	13
16	11	17	16
16	12	15	15
14	14	17	18
11	10	5	13
4	10	4	10
14	13	10	16
9	10	11	13
14	11	15	15
8	10	10	14
8	7	9	15
11	10	12	14
12	8	15	13
11	12	7	13
14	12	13	15
15	12	12	16
16	11	14	14
16	12	14	14
11	12	8	16
14	12	15	14
14	11	12	12
12	12	12	13
14	11	16	12
8	11	9	12
13	13	15	14
16	12	15	14
12	12	6	14
16	12	14	16
12	12	15	13
11	8	10	14
4	8	6	4
16	12	14	16
15	11	12	13
10	12	8	16
13	13	11	15
15	12	13	14
12	12	9	13
14	11	15	14
7	12	13	12
19	12	15	15
12	10	14	14
12	11	16	13
13	12	14	14
15	12	14	16
8	10	10	6
12	12	10	13
10	13	4	13
8	12	8	14
10	15	15	15
15	11	16	14
16	12	12	15
13	11	12	13
16	12	15	16
9	11	9	12
14	10	12	15
14	11	14	12
12	11	11	14

Summary of computational transaction
Raw Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	1 seconds
R Server	'Sir Ronald Aylmer Fisher' @ 193.190.124.24
R Framework error message	The field 'Names of X columns' contains a hard return which cannot be interpreted. Please, resubmit your request without hard returns in the 'Names of X columns'.

\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 & 1 seconds \tabularnewline
R Server & 'Sir Ronald Aylmer Fisher' @ 193.190.124.24 \tabularnewline
R Framework error message & The field 'Names of X columns' contains a hard return which cannot be interpreted.
Please, resubmit your request without hard returns in the 'Names of X columns'. \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=115615&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]1 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'Sir Ronald Aylmer Fisher' @ 193.190.124.24[/C][/ROW]
[ROW][C]R Framework error message[/C][C]The field 'Names of X columns' contains a hard return which cannot be interpreted.
Please, resubmit your request without hard returns in the 'Names of X columns'.[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=115615&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=115615&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	1 seconds
R Server	'Sir Ronald Aylmer Fisher' @ 193.190.124.24
R Framework error message	The field 'Names of X columns' contains a hard return which cannot be interpreted. Please, resubmit your request without hard returns in the 'Names of X columns'.

Correlations for all pairs of data series (method=pearson)
	Popularity	FindingFriends	KnowingPeople	Liked
Popularity	1	0.094	0.584	0.567
FindingFriends	0.094	1	0.017	0.089
KnowingPeople	0.584	0.017	1	0.497
Liked	0.567	0.089	0.497	1

\begin{tabular}{lllllllll}
\hline
Correlations for all pairs of data series (method=pearson) \tabularnewline
  & Popularity & FindingFriends & KnowingPeople & Liked
 \tabularnewline
Popularity & 1 & 0.094 & 0.584 & 0.567 \tabularnewline
FindingFriends & 0.094 & 1 & 0.017 & 0.089 \tabularnewline
KnowingPeople & 0.584 & 0.017 & 1 & 0.497 \tabularnewline
Liked
 & 0.567 & 0.089 & 0.497 & 1 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=115615&T=1

[TABLE]
[ROW][C]Correlations for all pairs of data series (method=pearson)[/C][/ROW]
[ROW][C] [/C][C]Popularity[/C][C]FindingFriends[/C][C]KnowingPeople[/C][C]Liked
[/C][/ROW]
[ROW][C]Popularity[/C][C]1[/C][C]0.094[/C][C]0.584[/C][C]0.567[/C][/ROW]
[ROW][C]FindingFriends[/C][C]0.094[/C][C]1[/C][C]0.017[/C][C]0.089[/C][/ROW]
[ROW][C]KnowingPeople[/C][C]0.584[/C][C]0.017[/C][C]1[/C][C]0.497[/C][/ROW]
[ROW][C]Liked
[/C][C]0.567[/C][C]0.089[/C][C]0.497[/C][C]1[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=115615&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=115615&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)
	Popularity	FindingFriends	KnowingPeople	Liked
Popularity	1	0.094	0.584	0.567
FindingFriends	0.094	1	0.017	0.089
KnowingPeople	0.584	0.017	1	0.497
Liked	0.567	0.089	0.497	1

Correlations for all pairs of data series with p-values
pair	Pearson r	Spearman rho	Kendall tau
Popularity;FindingFriends	0.094	0.0891	0.0671
p-value	(0.2432)	(0.2688)	(0.2772)
Popularity;KnowingPeople	0.5837	0.5916	0.4504
p-value	(0)	(0)	(0)
Popularity;Liked	0.5672	0.5512	0.433
p-value	(0)	(0)	(0)
FindingFriends;KnowingPeople	0.0172	-0.0171	-0.015
p-value	(0.8308)	(0.8318)	(0.8069)
FindingFriends;Liked	0.0886	0.0775	0.0612
p-value	(0.2714)	(0.3361)	(0.3316)
KnowingPeople;Liked	0.4973	0.4753	0.3704
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
Popularity;FindingFriends & 0.094 & 0.0891 & 0.0671 \tabularnewline
p-value & (0.2432) & (0.2688) & (0.2772) \tabularnewline
Popularity;KnowingPeople & 0.5837 & 0.5916 & 0.4504 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
Popularity;Liked
 & 0.5672 & 0.5512 & 0.433 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
FindingFriends;KnowingPeople & 0.0172 & -0.0171 & -0.015 \tabularnewline
p-value & (0.8308) & (0.8318) & (0.8069) \tabularnewline
FindingFriends;Liked
 & 0.0886 & 0.0775 & 0.0612 \tabularnewline
p-value & (0.2714) & (0.3361) & (0.3316) \tabularnewline
KnowingPeople;Liked
 & 0.4973 & 0.4753 & 0.3704 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=115615&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]Popularity;FindingFriends[/C][C]0.094[/C][C]0.0891[/C][C]0.0671[/C][/ROW]
[ROW][C]p-value[/C][C](0.2432)[/C][C](0.2688)[/C][C](0.2772)[/C][/ROW]
[ROW][C]Popularity;KnowingPeople[/C][C]0.5837[/C][C]0.5916[/C][C]0.4504[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]Popularity;Liked
[/C][C]0.5672[/C][C]0.5512[/C][C]0.433[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]FindingFriends;KnowingPeople[/C][C]0.0172[/C][C]-0.0171[/C][C]-0.015[/C][/ROW]
[ROW][C]p-value[/C][C](0.8308)[/C][C](0.8318)[/C][C](0.8069)[/C][/ROW]
[ROW][C]FindingFriends;Liked
[/C][C]0.0886[/C][C]0.0775[/C][C]0.0612[/C][/ROW]
[ROW][C]p-value[/C][C](0.2714)[/C][C](0.3361)[/C][C](0.3316)[/C][/ROW]
[ROW][C]KnowingPeople;Liked
[/C][C]0.4973[/C][C]0.4753[/C][C]0.3704[/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=115615&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=115615&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
Popularity;FindingFriends	0.094	0.0891	0.0671
p-value	(0.2432)	(0.2688)	(0.2772)
Popularity;KnowingPeople	0.5837	0.5916	0.4504
p-value	(0)	(0)	(0)
Popularity;Liked	0.5672	0.5512	0.433
p-value	(0)	(0)	(0)
FindingFriends;KnowingPeople	0.0172	-0.0171	-0.015
p-value	(0.8308)	(0.8318)	(0.8069)
FindingFriends;Liked	0.0886	0.0775	0.0612
p-value	(0.2714)	(0.3361)	(0.3316)
KnowingPeople;Liked	0.4973	0.4753	0.3704
p-value	(0)	(0)	(0)

Figure 1

PNG link

Postscript link

PDF link

Parameters (Session):

par1 = pearson ;

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