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, 12 Dec 2011 09:59:04 -0500

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/2011/Dec/12/t1323701957149f4pysqqn2gjv.htm/, Retrieved Fri, 03 May 2024 04:10:58 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=153996, Retrieved Fri, 03 May 2024 04:10:58 +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

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

-     [Kendall tau Correlation Matrix] [] [2010-12-05 17:44:33] [b98453cac15ba1066b407e146608df68]
- RMPD    [Kendall tau Correlation Matrix] [] [2011-12-12 14:59:04] [05d3841c0e91f0207133db830e88168b] [Current]

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

1418	56	30	79
869	56	28	58
1530	54	38	60
2172	89	30	108
901	40	22	49
463	25	26	0
3201	92	25	121
371	18	18	1
1192	63	11	20
1583	44	26	43
1439	33	25	69
1764	84	38	78
1495	88	44	86
1373	55	30	44
2187	60	40	104
1491	66	34	63
4041	154	47	158
1706	53	30	102
2152	119	31	77
1036	41	23	82
1882	61	36	115
1929	58	36	101
2242	75	30	80
1220	33	25	50
1289	40	39	83
2515	92	34	123
2147	100	31	73
2352	112	31	81
1638	73	33	105
1222	40	25	47
1812	45	33	105
1677	60	35	94
1579	62	42	44
1731	75	43	114
807	31	30	38
2452	77	33	107
829	34	13	30
1940	46	32	71
2662	99	36	84
186	17	0	0
1499	66	28	59
865	30	14	33
1793	76	17	42
2527	146	32	96
2747	67	30	106
1324	56	35	56
2702	107	20	57
1383	58	28	59
1179	34	28	39
2099	61	39	34
4308	119	34	76
918	42	26	20
1831	66	39	91
3373	89	39	115
1713	44	33	85
1438	66	28	76
496	24	4	8
2253	259	39	79
744	17	18	21
1161	64	14	30
2352	41	29	76
2144	68	44	101
4691	168	21	94
1112	43	16	27
2694	132	28	92
1973	105	35	123
1769	71	28	75
3148	112	38	128
2474	94	23	105
2084	82	36	55
1954	70	32	56
1226	57	29	41
1389	53	25	72
1496	103	27	67
2269	121	36	75
1833	62	28	114
1268	52	23	118
1943	52	40	77
893	32	23	22
1762	62	40	66
1403	45	28	69
1425	46	34	105
1857	63	33	116
1840	75	28	88
1502	88	34	73
1441	46	30	99
1420	53	33	62
1416	37	22	53
2970	90	38	118
1317	63	26	30
1644	78	35	100
870	25	8	49
1654	45	24	24
1054	46	29	67
937	41	20	46
3004	144	29	57
2008	82	45	75
2547	91	37	135
1885	71	33	68
1626	63	33	124
1468	53	25	33
2445	62	32	98
1964	63	29	58
1381	32	28	68
1369	39	28	81
1659	62	31	131
2888	117	52	110
1290	34	21	37
2845	92	24	130
1982	93	41	93
1904	54	33	118
1391	144	32	39
602	14	19	13
1743	61	20	74
1559	109	31	81
2014	38	31	109
2143	73	32	151
2146	75	18	51
874	50	23	28
1590	61	17	40
1590	55	20	56
1210	77	12	27
2072	75	17	37
1281	72	30	83
1401	50	31	54
834	32	10	27
1105	53	13	28
1272	42	22	59
1944	71	42	133
391	10	1	12
761	35	9	0
1605	65	32	106
530	25	11	23
1988	66	25	44
1386	41	36	71
2395	86	31	116
387	16	0	4
1742	42	24	62
620	19	13	12
449	19	8	18
800	45	13	14
1684	65	19	60
1050	35	18	7
2699	95	33	98
1606	49	40	64
1502	37	22	29
1204	64	38	32
1138	38	24	25
568	34	8	16
1459	32	35	48
2158	65	43	100
1111	52	43	46
1421	62	14	45
2833	65	41	129
1955	83	38	130
2922	95	45	136
1002	29	31	59
1060	18	13	25
956	33	28	32
2186	247	31	63
3604	139	40	95
1035	29	30	14
1417	118	16	36
3261	110	37	113
1587	67	30	47
1424	42	35	92
1701	65	32	70
1249	94	27	19
946	64	20	50
1926	81	18	41
3352	95	31	91
1641	67	31	111
2035	63	21	41
2312	83	39	120
1369	45	41	135
1577	30	13	27
2201	70	32	87
961	32	18	25
1900	83	39	131
1254	31	14	45
1335	67	7	29
1597	66	17	58
207	10	0	4
1645	70	30	47
2429	103	37	109
151	5	0	7
474	20	5	12
141	5	1	0
1639	36	16	37
872	34	32	37
1318	48	24	46
1018	40	17	15
1383	43	11	42
1314	31	24	7
1335	42	22	54
1403	46	12	54
910	33	19	14
616	18	13	16
1407	55	17	33
771	35	15	32
766	59	16	21
473	19	24	15
1376	66	15	38
1232	60	17	22
1521	36	18	28
572	25	20	10
1059	47	16	31
1544	54	16	32
1230	53	18	32
1206	40	22	43
1205	40	8	27
1255	39	17	37
613	14	18	20
721	45	16	32
1109	36	23	0
740	28	22	5
1126	44	13	26
728	30	13	10
689	22	16	27
592	17	16	11
995	31	20	29
1613	55	22	25
2048	54	17	55
705	21	18	23
301	14	17	5
1803	81	12	43
799	35	7	23
861	43	17	34
1186	46	14	36
1451	30	23	35
628	23	17	0
1161	38	14	37
1463	54	15	28
742	20	17	16
979	53	21	26
675	45	18	38
1241	39	18	23
676	20	17	22
1049	24	17	30
620	31	16	16
1081	35	15	18
1688	151	21	28
736	52	16	32
617	30	14	21
812	31	15	23
1051	29	17	29
1656	57	15	50
705	40	15	12
945	44	10	21
554	25	6	18
1597	77	22	27
982	35	21	41
222	11	1	13
1212	63	18	12
1143	44	17	21
435	19	4	8
532	13	10	26
882	42	16	27
608	38	16	13
459	29	9	16
578	20	16	2
826	27	17	42
509	20	7	5
717	19	15	37
637	37	14	17
857	26	14	38
830	42	18	37
652	49	12	29
707	30	16	32
954	49	21	35
1461	67	19	17
672	28	16	20
778	19	1	7
1141	49	16	46
680	27	10	24
1090	30	19	40
616	22	12	3
285	12	2	10
1145	31	14	37
733	20	17	17
888	20	19	28
849	39	14	19
1182	29	11	29
528	16	4	8
642	27	16	10
947	21	20	15
819	19	12	15
757	35	15	28
894	14	16	17

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	'Gwilym Jenkins' @ jenkins.wessa.net

\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 & 'Gwilym Jenkins' @ jenkins.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=153996&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]'Gwilym Jenkins' @ jenkins.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=153996&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=153996&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	'Gwilym Jenkins' @ jenkins.wessa.net

Correlations for all pairs of data series (method=pearson)
	pageviews	logins	compendium_reviewed	blogged_computations
pageviews	1	0.759	0.665	0.761
logins	0.759	1	0.549	0.566
compendium_reviewed	0.665	0.549	1	0.762
blogged_computations	0.761	0.566	0.762	1

\begin{tabular}{lllllllll}
\hline
Correlations for all pairs of data series (method=pearson) \tabularnewline
  & pageviews & logins & compendium_reviewed & blogged_computations \tabularnewline
pageviews & 1 & 0.759 & 0.665 & 0.761 \tabularnewline
logins & 0.759 & 1 & 0.549 & 0.566 \tabularnewline
compendium_reviewed & 0.665 & 0.549 & 1 & 0.762 \tabularnewline
blogged_computations & 0.761 & 0.566 & 0.762 & 1 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=153996&T=1

[TABLE]
[ROW][C]Correlations for all pairs of data series (method=pearson)[/C][/ROW]
[ROW][C] [/C][C]pageviews[/C][C]logins[/C][C]compendium_reviewed[/C][C]blogged_computations[/C][/ROW]
[ROW][C]pageviews[/C][C]1[/C][C]0.759[/C][C]0.665[/C][C]0.761[/C][/ROW]
[ROW][C]logins[/C][C]0.759[/C][C]1[/C][C]0.549[/C][C]0.566[/C][/ROW]
[ROW][C]compendium_reviewed[/C][C]0.665[/C][C]0.549[/C][C]1[/C][C]0.762[/C][/ROW]
[ROW][C]blogged_computations[/C][C]0.761[/C][C]0.566[/C][C]0.762[/C][C]1[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=153996&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=153996&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)
	pageviews	logins	compendium_reviewed	blogged_computations
pageviews	1	0.759	0.665	0.761
logins	0.759	1	0.549	0.566
compendium_reviewed	0.665	0.549	1	0.762
blogged_computations	0.761	0.566	0.762	1

Correlations for all pairs of data series with p-values
pair	Pearson r	Spearman rho	Kendall tau
pageviews;logins	0.7588	0.845	0.6609
p-value	(0)	(0)	(0)
pageviews;compendium_reviewed	0.6652	0.7185	0.5273
p-value	(0)	(0)	(0)
pageviews;blogged_computations	0.7606	0.8249	0.6272
p-value	(0)	(0)	(0)
logins;compendium_reviewed	0.5488	0.6284	0.4525
p-value	(0)	(0)	(0)
logins;blogged_computations	0.5661	0.7178	0.523
p-value	(0)	(0)	(0)
compendium_reviewed;blogged_computations	0.7623	0.7722	0.574
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
pageviews;logins & 0.7588 & 0.845 & 0.6609 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
pageviews;compendium_reviewed & 0.6652 & 0.7185 & 0.5273 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
pageviews;blogged_computations & 0.7606 & 0.8249 & 0.6272 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
logins;compendium_reviewed & 0.5488 & 0.6284 & 0.4525 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
logins;blogged_computations & 0.5661 & 0.7178 & 0.523 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
compendium_reviewed;blogged_computations & 0.7623 & 0.7722 & 0.574 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=153996&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]pageviews;logins[/C][C]0.7588[/C][C]0.845[/C][C]0.6609[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]pageviews;compendium_reviewed[/C][C]0.6652[/C][C]0.7185[/C][C]0.5273[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]pageviews;blogged_computations[/C][C]0.7606[/C][C]0.8249[/C][C]0.6272[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]logins;compendium_reviewed[/C][C]0.5488[/C][C]0.6284[/C][C]0.4525[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]logins;blogged_computations[/C][C]0.5661[/C][C]0.7178[/C][C]0.523[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]compendium_reviewed;blogged_computations[/C][C]0.7623[/C][C]0.7722[/C][C]0.574[/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=153996&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=153996&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
pageviews;logins	0.7588	0.845	0.6609
p-value	(0)	(0)	(0)
pageviews;compendium_reviewed	0.6652	0.7185	0.5273
p-value	(0)	(0)	(0)
pageviews;blogged_computations	0.7606	0.8249	0.6272
p-value	(0)	(0)	(0)
logins;compendium_reviewed	0.5488	0.6284	0.4525
p-value	(0)	(0)	(0)
logins;blogged_computations	0.5661	0.7178	0.523
p-value	(0)	(0)	(0)
compendium_reviewed;blogged_computations	0.7623	0.7722	0.574
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