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

Thu, 06 Dec 2012 14:07:51 -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/2012/Dec/06/t1354820901cqwj243fkbbjjb6.htm/, Retrieved Thu, 25 Apr 2024 06:46:42 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=197217, Retrieved Thu, 25 Apr 2024 06:46:42 +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 18:04:16] [b98453cac15ba1066b407e146608df68]
- RMPD    [Kendall tau Correlation Matrix] [kendall tau] [2012-12-06 19:07:51] [6c45f368330652e778bc9af460dd8da6] [Current]

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

1418	210907	56	3
869	120982	56	4
1530	176508	54	12
2172	179321	89	2
901	123185	40	1
463	52746	25	3
3201	385534	92	0
371	33170	18	0
1192	101645	63	0
1583	149061	44	5
1439	165446	33	0
1764	237213	84	0
1495	173326	88	7
1373	133131	55	7
2187	258873	60	3
1491	180083	66	9
4041	324799	154	0
1706	230964	53	4
2152	236785	119	3
1036	135473	41	0
1882	202925	61	7
1929	215147	58	0
2242	344297	75	1
1220	153935	33	5
1289	132943	40	7
2515	174724	92	0
2147	174415	100	0
2352	225548	112	5
1638	223632	73	0
1222	124817	40	0
1812	221698	45	0
1677	210767	60	3
1579	170266	62	4
1731	260561	75	1
807	84853	31	4
2452	294424	77	2
829	101011	34	0
1940	215641	46	0
2662	325107	99	0
186	7176	17	0
1499	167542	66	2
865	106408	30	1
1793	96560	76	0
2527	265769	146	2
2747	269651	67	10
1324	149112	56	6
2702	175824	107	0
1383	152871	58	5
1179	111665	34	4
2099	116408	61	1
4308	362301	119	2
918	78800	42	2
1831	183167	66	0
3373	277965	89	8
1713	150629	44	3
1438	168809	66	0
496	24188	24	0
2253	329267	259	8
744	65029	17	5
1161	101097	64	3
2352	218946	41	1
2144	244052	68	5
4691	341570	168	1
1112	103597	43	1
2694	233328	132	5
1973	256462	105	0
1769	206161	71	12
3148	311473	112	8
2474	235800	94	8
2084	177939	82	8
1954	207176	70	8
1226	196553	57	2
1389	174184	53	0
1496	143246	103	5
2269	187559	121	8
1833	187681	62	2
1268	119016	52	5
1943	182192	52	12
893	73566	32	6
1762	194979	62	7
1403	167488	45	2
1425	143756	46	0
1857	275541	63	4
1840	243199	75	3
1502	182999	88	6
1441	135649	46	2
1420	152299	53	0
1416	120221	37	1
2970	346485	90	0
1317	145790	63	5
1644	193339	78	2
870	80953	25	0
1654	122774	45	0
1054	130585	46	5
937	112611	41	0
3004	286468	144	1
2008	241066	82	0
2547	148446	91	1
1885	204713	71	1
1626	182079	63	2
1468	140344	53	6
2445	220516	62	1
1964	243060	63	4
1381	162765	32	2
1369	182613	39	3
1659	232138	62	0
2888	265318	117	10
1290	85574	34	0
2845	310839	92	9
1982	225060	93	7
1904	232317	54	0
1391	144966	144	0
602	43287	14	4
1743	155754	61	4
1559	164709	109	0
2014	201940	38	0
2143	235454	73	0
2146	220801	75	1
874	99466	50	0
1590	92661	61	1
1590	133328	55	0
1210	61361	77	0
2072	125930	75	4
1281	100750	72	0
1401	224549	50	4
834	82316	32	4
1105	102010	53	3
1272	101523	42	0
1944	243511	71	0
391	22938	10	0
761	41566	35	5
1605	152474	65	0
530	61857	25	4
1988	99923	66	0
1386	132487	41	0
2395	317394	86	1
387	21054	16	0
1742	209641	42	5
620	22648	19	0
449	31414	19	0
800	46698	45	0
1684	131698	65	0
1050	91735	35	0
2699	244749	95	2
1606	184510	49	7
1502	79863	37	1
1204	128423	64	8
1138	97839	38	2
568	38214	34	0
1459	151101	32	2
2158	272458	65	0
1111	172494	52	0
1421	108043	62	1
2833	328107	65	3
1955	250579	83	0
2922	351067	95	3
1002	158015	29	0
1060	98866	18	0
956	85439	33	0
2186	229242	247	4
3604	351619	139	4
1035	84207	29	11
1417	120445	118	0
3261	324598	110	0
1587	131069	67	4
1424	204271	42	0
1701	165543	65	1
1249	141722	94	0
946	116048	64	0
1926	250047	81	0
3352	299775	95	9
1641	195838	67	1
2035	173260	63	3
2312	254488	83	10
1369	104389	45	5
1577	136084	30	0
2201	199476	70	2
961	92499	32	0
1900	224330	83	1
1254	135781	31	2
1335	74408	67	4
1597	81240	66	0
207	14688	10	0
1645	181633	70	2
2429	271856	103	1
151	7199	5	0
474	46660	20	0
141	17547	5	0
1639	133368	36	1
872	95227	34	0
1318	152601	48	2
1018	98146	40	0
1383	79619	43	3
1314	59194	31	6
1335	139942	42	0
1403	118612	46	2
910	72880	33	0
616	65475	18	2
1407	99643	55	1
771	71965	35	1
766	77272	59	2
473	49289	19	1
1376	135131	66	0
1232	108446	60	1
1521	89746	36	3
572	44296	25	0
1059	77648	47	0
1544	181528	54	0
1230	134019	53	0
1206	124064	40	1
1205	92630	40	4
1255	121848	39	0
613	52915	14	0
721	81872	45	0
1109	58981	36	7
740	53515	28	2
1126	60812	44	0
728	56375	30	7
689	65490	22	3
592	80949	17	0
995	76302	31	0
1613	104011	55	6
2048	98104	54	2
705	67989	21	0
301	30989	14	0
1803	135458	81	3
799	73504	35	0
861	63123	43	1
1186	61254	46	1
1451	74914	30	0
628	31774	23	1
1161	81437	38	0
1463	87186	54	0
742	50090	20	0
979	65745	53	0
675	56653	45	0
1241	158399	39	0
676	46455	20	0
1049	73624	24	0
620	38395	31	0
1081	91899	35	0
1688	139526	151	0
736	52164	52	0
617	51567	30	2
812	70551	31	0
1051	84856	29	1
1656	102538	57	1
705	86678	40	0
945	85709	44	0
554	34662	25	0
1597	150580	77	0
982	99611	35	0
222	19349	11	0
1212	99373	63	1
1143	86230	44	0
435	30837	19	0
532	31706	13	0
882	89806	42	0
608	62088	38	1
459	40151	29	0
578	27634	20	0
826	76990	27	0
509	37460	20	0
717	54157	19	0
637	49862	37	0
857	84337	26	0
830	64175	42	0
652	59382	49	0
707	119308	30	0
954	76702	49	0
1461	103425	67	1
672	70344	28	0
778	43410	19	0
1141	104838	49	1
680	62215	27	0
1090	69304	30	6
616	53117	22	3
285	19764	12	1
1145	86680	31	2
733	84105	20	0
888	77945	20	0
849	89113	39	0
1182	91005	29	3
528	40248	16	1
642	64187	27	0
947	50857	21	0
819	56613	19	1
757	62792	35	0
894	72535	14	0

Summary of computational transaction
Raw Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	3 seconds
R Server	'Sir Ronald Aylmer Fisher' @ fisher.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 & 3 seconds \tabularnewline
R Server & 'Sir Ronald Aylmer Fisher' @ fisher.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=197217&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]3 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'Sir Ronald Aylmer Fisher' @ fisher.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=197217&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=197217&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	3 seconds
R Server	'Sir Ronald Aylmer Fisher' @ fisher.wessa.net

Correlations for all pairs of data series (method=kendall)
	views	time	logins	shared
views	1	0.739	0.661	0.251
time	0.739	1	0.609	0.245
logins	0.661	0.609	1	0.208
shared	0.251	0.245	0.208	1

\begin{tabular}{lllllllll}
\hline
Correlations for all pairs of data series (method=kendall) \tabularnewline
  & views & time & logins & shared \tabularnewline
views & 1 & 0.739 & 0.661 & 0.251 \tabularnewline
time & 0.739 & 1 & 0.609 & 0.245 \tabularnewline
logins & 0.661 & 0.609 & 1 & 0.208 \tabularnewline
shared & 0.251 & 0.245 & 0.208 & 1 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=197217&T=1

[TABLE]
[ROW][C]Correlations for all pairs of data series (method=kendall)[/C][/ROW]
[ROW][C] [/C][C]views[/C][C]time[/C][C]logins[/C][C]shared[/C][/ROW]
[ROW][C]views[/C][C]1[/C][C]0.739[/C][C]0.661[/C][C]0.251[/C][/ROW]
[ROW][C]time[/C][C]0.739[/C][C]1[/C][C]0.609[/C][C]0.245[/C][/ROW]
[ROW][C]logins[/C][C]0.661[/C][C]0.609[/C][C]1[/C][C]0.208[/C][/ROW]
[ROW][C]shared[/C][C]0.251[/C][C]0.245[/C][C]0.208[/C][C]1[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=197217&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=197217&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)
	views	time	logins	shared
views	1	0.739	0.661	0.251
time	0.739	1	0.609	0.245
logins	0.661	0.609	1	0.208
shared	0.251	0.245	0.208	1

Correlations for all pairs of data series with p-values
pair	Pearson r	Spearman rho	Kendall tau
views;time	0.8928	0.9025	0.7387
p-value	(0)	(0)	(0)
views;logins	0.7588	0.845	0.6609
p-value	(0)	(0)	(0)
views;shared	0.2972	0.341	0.2511
p-value	(0)	(0)	(0)
time;logins	0.716	0.7982	0.609
p-value	(0)	(0)	(0)
time;shared	0.2941	0.3296	0.2453
p-value	(0)	(0)	(0)
logins;shared	0.2505	0.2795	0.2078
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
views;time & 0.8928 & 0.9025 & 0.7387 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
views;logins & 0.7588 & 0.845 & 0.6609 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
views;shared & 0.2972 & 0.341 & 0.2511 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
time;logins & 0.716 & 0.7982 & 0.609 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
time;shared & 0.2941 & 0.3296 & 0.2453 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
logins;shared & 0.2505 & 0.2795 & 0.2078 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=197217&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]views;time[/C][C]0.8928[/C][C]0.9025[/C][C]0.7387[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]views;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]views;shared[/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]time;logins[/C][C]0.716[/C][C]0.7982[/C][C]0.609[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]time;shared[/C][C]0.2941[/C][C]0.3296[/C][C]0.2453[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]logins;shared[/C][C]0.2505[/C][C]0.2795[/C][C]0.2078[/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=197217&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=197217&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
views;time	0.8928	0.9025	0.7387
p-value	(0)	(0)	(0)
views;logins	0.7588	0.845	0.6609
p-value	(0)	(0)	(0)
views;shared	0.2972	0.341	0.2511
p-value	(0)	(0)	(0)
time;logins	0.716	0.7982	0.609
p-value	(0)	(0)	(0)
time;shared	0.2941	0.3296	0.2453
p-value	(0)	(0)	(0)
logins;shared	0.2505	0.2795	0.2078
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