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

Wed, 21 Dec 2011 11:08:01 -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/21/t1324483729gkqzbq4wxn5k3ct.htm/, Retrieved Tue, 07 May 2024 08:07:39 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=158854, Retrieved Tue, 07 May 2024 08:07:39 +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] [Paper Deel 3 Kend...] [2011-12-21 16:08:01] [312c935a345ba403c8b6fcfc5a5ec794] [Current]

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

1418	3	79	30	112285
869	4	58	28	84786
1530	12	60	38	83123
2172	2	108	30	101193
901	1	49	22	38361
463	3	0	26	68504
3201	0	121	25	119182
371	0	1	18	22807
1192	0	20	11	17140
1583	5	43	26	116174
1439	0	69	25	57635
1764	0	78	38	66198
1495	7	86	44	71701
1373	7	44	30	57793
2187	3	104	40	80444
1491	9	63	34	53855
4041	0	158	47	97668
1706	4	102	30	133824
2152	3	77	31	101481
1036	0	82	23	99645
1882	7	115	36	114789
1929	0	101	36	99052
2242	1	80	30	67654
1220	5	50	25	65553
1289	7	83	39	97500
2515	0	123	34	69112
2147	0	73	31	82753
2352	5	81	31	85323
1638	0	105	33	72654
1222	0	47	25	30727
1812	0	105	33	77873
1677	3	94	35	117478
1579	4	44	42	74007
1731	1	114	43	90183
807	4	38	30	61542
2452	2	107	33	101494
829	0	30	13	27570
1940	0	71	32	55813
2662	0	84	36	79215
186	0	0	0	1423
1499	2	59	28	55461
865	1	33	14	31081
1793	0	42	17	22996
2527	2	96	32	83122
2747	10	106	30	70106
1324	6	56	35	60578
2702	0	57	20	39992
1383	5	59	28	79892
1179	4	39	28	49810
2099	1	34	39	71570
4308	2	76	34	100708
918	2	20	26	33032
1831	0	91	39	82875
3373	8	115	39	139077
1713	3	85	33	71595
1438	0	76	28	72260
496	0	8	4	5950
2253	8	79	39	115762
744	5	21	18	32551
1161	3	30	14	31701
2352	1	76	29	80670
2144	5	101	44	143558
4691	1	94	21	117105
1112	1	27	16	23789
2694	5	92	28	120733
1973	0	123	35	105195
1769	12	75	28	73107
3148	8	128	38	132068
2474	8	105	23	149193
2084	8	55	36	46821
1954	8	56	32	87011
1226	2	41	29	95260
1389	0	72	25	55183
1496	5	67	27	106671
2269	8	75	36	73511
1833	2	114	28	92945
1268	5	118	23	78664
1943	12	77	40	70054
893	6	22	23	22618
1762	7	66	40	74011
1403	2	69	28	83737
1425	0	105	34	69094
1857	4	116	33	93133
1840	3	88	28	95536
1502	6	73	34	225920
1441	2	99	30	62133
1420	0	62	33	61370
1416	1	53	22	43836
2970	0	118	38	106117
1317	5	30	26	38692
1644	2	100	35	84651
870	0	49	8	56622
1654	0	24	24	15986
1054	5	67	29	95364
937	0	46	20	26706
3004	1	57	29	89691
2008	0	75	45	67267
2547	1	135	37	126846
1885	1	68	33	41140
1626	2	124	33	102860
1468	6	33	25	51715
2445	1	98	32	55801
1964	4	58	29	111813
1381	2	68	28	120293
1369	3	81	28	138599
1659	0	131	31	161647
2888	10	110	52	115929
1290	0	37	21	24266
2845	9	130	24	162901
1982	7	93	41	109825
1904	0	118	33	129838
1391	0	39	32	37510
602	4	13	19	43750
1743	4	74	20	40652
1559	0	81	31	87771
2014	0	109	31	85872
2143	0	151	32	89275
2146	1	51	18	44418
874	0	28	23	192565
1590	1	40	17	35232
1590	0	56	20	40909
1210	0	27	12	13294
2072	4	37	17	32387
1281	0	83	30	140867
1401	4	54	31	120662
834	4	27	10	21233
1105	3	28	13	44332
1272	0	59	22	61056
1944	0	133	42	101338
391	0	12	1	1168
761	5	0	9	13497
1605	0	106	32	65567
530	4	23	11	25162
1988	0	44	25	32334
1386	0	71	36	40735
2395	1	116	31	91413
387	0	4	0	855
1742	5	62	24	97068
620	0	12	13	44339
449	0	18	8	14116
800	0	14	13	10288
1684	0	60	19	65622
1050	0	7	18	16563
2699	2	98	33	76643
1606	7	64	40	110681
1502	1	29	22	29011
1204	8	32	38	92696
1138	2	25	24	94785
568	0	16	8	8773
1459	2	48	35	83209
2158	0	100	43	93815
1111	0	46	43	86687
1421	1	45	14	34553
2833	3	129	41	105547
1955	0	130	38	103487
2922	3	136	45	213688
1002	0	59	31	71220
1060	0	25	13	23517
956	0	32	28	56926
2186	4	63	31	91721
3604	4	95	40	115168
1035	11	14	30	111194
1417	0	36	16	51009
3261	0	113	37	135777
1587	4	47	30	51513
1424	0	92	35	74163
1701	1	70	32	51633
1249	0	19	27	75345
946	0	50	20	33416
1926	0	41	18	83305
3352	9	91	31	98952
1641	1	111	31	102372
2035	3	41	21	37238
2312	10	120	39	103772
1369	5	135	41	123969
1577	0	27	13	27142
2201	2	87	32	135400
961	0	25	18	21399
1900	1	131	39	130115
1254	2	45	14	24874
1335	4	29	7	34988
1597	0	58	17	45549
207	0	4	0	6023
1645	2	47	30	64466
2429	1	109	37	54990
151	0	7	0	1644
474	0	12	5	6179
141	0	0	1	3926
1639	1	37	16	32755
872	0	37	32	34777
1318	2	46	24	73224
1018	0	15	17	27114
1383	3	42	11	20760
1314	6	7	24	37636
1335	0	54	22	65461
1403	2	54	12	30080
910	0	14	19	24094
616	2	16	13	69008
1407	1	33	17	54968
771	1	32	15	46090
766	2	21	16	27507
473	1	15	24	10672
1376	0	38	15	34029
1232	1	22	17	46300
1521	3	28	18	24760
572	0	10	20	18779
1059	0	31	16	21280
1544	0	32	16	40662
1230	0	32	18	28987
1206	1	43	22	22827
1205	4	27	8	18513
1255	0	37	17	30594
613	0	20	18	24006
721	0	32	16	27913
1109	7	0	23	42744
740	2	5	22	12934
1126	0	26	13	22574
728	7	10	13	41385
689	3	27	16	18653
592	0	11	16	18472
995	0	29	20	30976
1613	6	25	22	63339
2048	2	55	17	25568
705	0	23	18	33747
301	0	5	17	4154
1803	3	43	12	19474
799	0	23	7	35130
861	1	34	17	39067
1186	1	36	14	13310
1451	0	35	23	65892
628	1	0	17	4143
1161	0	37	14	28579
1463	0	28	15	51776
742	0	16	17	21152
979	0	26	21	38084
675	0	38	18	27717
1241	0	23	18	32928
676	0	22	17	11342
1049	0	30	17	19499
620	0	16	16	16380
1081	0	18	15	36874
1688	0	28	21	48259
736	0	32	16	16734
617	2	21	14	28207
812	0	23	15	30143
1051	1	29	17	41369
1656	1	50	15	45833
705	0	12	15	29156
945	0	21	10	35944
554	0	18	6	36278
1597	0	27	22	45588
982	0	41	21	45097
222	0	13	1	3895
1212	1	12	18	28394
1143	0	21	17	18632
435	0	8	4	2325
532	0	26	10	25139
882	0	27	16	27975
608	1	13	16	14483
459	0	16	9	13127
578	0	2	16	5839
826	0	42	17	24069
509	0	5	7	3738
717	0	37	15	18625
637	0	17	14	36341
857	0	38	14	24548
830	0	37	18	21792
652	0	29	12	26263
707	0	32	16	23686
954	0	35	21	49303
1461	1	17	19	25659
672	0	20	16	28904
778	0	7	1	2781
1141	1	46	16	29236
680	0	24	10	19546
1090	6	40	19	22818
616	3	3	12	32689
285	1	10	2	5752
1145	2	37	14	22197
733	0	17	17	20055
888	0	28	19	25272
849	0	19	14	82206
1182	3	29	11	32073
528	1	8	4	5444
642	0	10	16	20154
947	0	15	20	36944
819	1	15	12	8019
757	0	28	15	30884
894	0	17	16	19540

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

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

Correlations for all pairs of data series (method=kendall)
	PV	SC	BC	CR	TS
PV	1	0.251	0.627	0.527	0.532
SC	0.251	1	0.207	0.262	0.301
BC	0.627	0.207	1	0.574	0.606
CR	0.527	0.262	0.574	1	0.582
TS	0.532	0.301	0.606	0.582	1

\begin{tabular}{lllllllll}
\hline
Correlations for all pairs of data series (method=kendall) \tabularnewline
  & PV & SC & BC & CR & TS \tabularnewline
PV & 1 & 0.251 & 0.627 & 0.527 & 0.532 \tabularnewline
SC & 0.251 & 1 & 0.207 & 0.262 & 0.301 \tabularnewline
BC & 0.627 & 0.207 & 1 & 0.574 & 0.606 \tabularnewline
CR & 0.527 & 0.262 & 0.574 & 1 & 0.582 \tabularnewline
TS & 0.532 & 0.301 & 0.606 & 0.582 & 1 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=158854&T=1

[TABLE]
[ROW][C]Correlations for all pairs of data series (method=kendall)[/C][/ROW]
[ROW][C] [/C][C]PV[/C][C]SC[/C][C]BC[/C][C]CR[/C][C]TS[/C][/ROW]
[ROW][C]PV[/C][C]1[/C][C]0.251[/C][C]0.627[/C][C]0.527[/C][C]0.532[/C][/ROW]
[ROW][C]SC[/C][C]0.251[/C][C]1[/C][C]0.207[/C][C]0.262[/C][C]0.301[/C][/ROW]
[ROW][C]BC[/C][C]0.627[/C][C]0.207[/C][C]1[/C][C]0.574[/C][C]0.606[/C][/ROW]
[ROW][C]CR[/C][C]0.527[/C][C]0.262[/C][C]0.574[/C][C]1[/C][C]0.582[/C][/ROW]
[ROW][C]TS[/C][C]0.532[/C][C]0.301[/C][C]0.606[/C][C]0.582[/C][C]1[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=158854&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=158854&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=kendall)
	PV	SC	BC	CR	TS
PV	1	0.251	0.627	0.527	0.532
SC	0.251	1	0.207	0.262	0.301
BC	0.627	0.207	1	0.574	0.606
CR	0.527	0.262	0.574	1	0.582
TS	0.532	0.301	0.606	0.582	1

Correlations for all pairs of data series with p-values
pair	Pearson r	Spearman rho	Kendall tau
PV;SC	0.2972	0.341	0.2511
p-value	(0)	(0)	(0)
PV;BC	0.7606	0.8249	0.6272
p-value	(0)	(0)	(0)
PV;CR	0.6652	0.7185	0.5273
p-value	(0)	(0)	(0)
PV;TS	0.6439	0.7212	0.5315
p-value	(0)	(0)	(0)
SC;BC	0.238	0.2759	0.2074
p-value	(0)	(0)	(0)
SC;CR	0.3895	0.3511	0.2616
p-value	(0)	(0)	(0)
SC;TS	0.3861	0.4032	0.3007
p-value	(0)	(0)	(0)
BC;CR	0.7623	0.7722	0.574
p-value	(0)	(0)	(0)
BC;TS	0.7605	0.7962	0.6059
p-value	(0)	(0)	(0)
CR;TS	0.7345	0.7899	0.5825
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
PV;SC & 0.2972 & 0.341 & 0.2511 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
PV;BC & 0.7606 & 0.8249 & 0.6272 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
PV;CR & 0.6652 & 0.7185 & 0.5273 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
PV;TS & 0.6439 & 0.7212 & 0.5315 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
SC;BC & 0.238 & 0.2759 & 0.2074 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
SC;CR & 0.3895 & 0.3511 & 0.2616 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
SC;TS & 0.3861 & 0.4032 & 0.3007 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
BC;CR & 0.7623 & 0.7722 & 0.574 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
BC;TS & 0.7605 & 0.7962 & 0.6059 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
CR;TS & 0.7345 & 0.7899 & 0.5825 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=158854&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]PV;SC[/C][C]0.2972[/C][C]0.341[/C][C]0.2511[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]PV;BC[/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]PV;CR[/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]PV;TS[/C][C]0.6439[/C][C]0.7212[/C][C]0.5315[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]SC;BC[/C][C]0.238[/C][C]0.2759[/C][C]0.2074[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]SC;CR[/C][C]0.3895[/C][C]0.3511[/C][C]0.2616[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]SC;TS[/C][C]0.3861[/C][C]0.4032[/C][C]0.3007[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]BC;CR[/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]
[ROW][C]BC;TS[/C][C]0.7605[/C][C]0.7962[/C][C]0.6059[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]CR;TS[/C][C]0.7345[/C][C]0.7899[/C][C]0.5825[/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=158854&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=158854&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
PV;SC	0.2972	0.341	0.2511
p-value	(0)	(0)	(0)
PV;BC	0.7606	0.8249	0.6272
p-value	(0)	(0)	(0)
PV;CR	0.6652	0.7185	0.5273
p-value	(0)	(0)	(0)
PV;TS	0.6439	0.7212	0.5315
p-value	(0)	(0)	(0)
SC;BC	0.238	0.2759	0.2074
p-value	(0)	(0)	(0)
SC;CR	0.3895	0.3511	0.2616
p-value	(0)	(0)	(0)
SC;TS	0.3861	0.4032	0.3007
p-value	(0)	(0)	(0)
BC;CR	0.7623	0.7722	0.574
p-value	(0)	(0)	(0)
BC;TS	0.7605	0.7962	0.6059
p-value	(0)	(0)	(0)
CR;TS	0.7345	0.7899	0.5825
p-value	(0)	(0)	(0)

Figure 1

PNG link

Postscript link

PDF link

Parameters (Session):

par1 = kendall ;

Parameters (R input):

par1 = kendall ;

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