Free Statistics

of Irreproducible Research!

Author's title

Author*The author of this computation has been verified*
R Software Modulerwasp_pairs.wasp
Title produced by softwareKendall tau Correlation Matrix
Date of computationWed, 21 Dec 2011 08:24:36 -0500
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2011/Dec/21/t13244747536gegghe2fczoec5.htm/, Retrieved Tue, 07 May 2024 10:00:43 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=158676, Retrieved Tue, 07 May 2024 10:00:43 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact59
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Kendall tau Correlation Matrix] [paper kendall ] [2011-12-21 13:24:36] [1c5701688738a71acfb394dd0fcb74f6] [Current]
Feedback Forum

Post a new message
Dataseries X:
1773	158258	90	48	6200	39
1704	186930	58	53	10265	46
192	7215	18	0	603	0
2295	129098	95	51	8874	54
3450	230632	136	76	20323	93
6813	508313	261	128	26258	198
1795	180745	56	62	10165	42
1681	185559	59	83	8247	59
1897	154581	44	55	8683	49
2917	290658	95	67	16957	83
1946	121844	75	50	8058	49
2148	184039	69	77	20488	83
1832	100324	98	46	7945	39
3138	215855	117	79	13448	93
1476	168265	58	56	5389	31
1567	154647	88	54	6185	29
1756	142018	57	81	24369	104
1247	79030	61	6	70	2
2779	167047	87	74	17327	46
726	27997	24	13	3878	27
1048	73019	59	22	3149	16
2805	241082	100	99	20517	108
1760	195820	72	38	2570	36
2261	141899	53	59	5162	33
1848	145433	86	50	5299	46
1665	183744	32	50	7233	65
2082	202232	161	61	15657	80
1440	199532	93	87	15329	81
2741	354924	118	60	14881	69
2112	192399	44	52	16318	69
1684	182286	44	61	9556	37
1616	181590	45	60	10462	45
2227	133801	105	53	7192	62
3088	233686	123	76	4362	33
2389	219428	53	63	14349	77
1	0	1	0	0	0
2099	223044	63	54	10881	34
1669	100129	51	44	8022	44
2095	136733	48	36	13073	43
2153	249965	64	83	26641	117
2390	242379	71	105	14426	125
1701	145794	59	37	15604	49
983	96404	32	25	9184	76
2161	195891	78	64	5989	81
1276	117156	50	55	11270	111
1189	157787	94	41	13958	61
745	81293	32	23	7162	56
2231	224049	100	67	13275	54
2242	223789	87	54	21224	47
2639	160344	59	68	10615	55
658	48188	28	12	2102	14
1917	161922	69	99	12396	44
2489	294283	73	74	18717	115
2026	235223	79	56	9724	57
1911	195583	59	67	9863	48
1716	146061	56	40	8374	40
1852	208834	67	53	8030	51
981	93764	24	26	7509	32
1177	151985	66	67	14146	36
2809	190545	95	36	7768	47
1688	148922	60	50	13823	51
2097	132856	80	48	7230	37
1309	126107	60	46	10170	52
1244	112718	37	53	7573	42
1256	160930	35	27	5753	11
1293	99184	40	38	9791	47
2303	192535	70	71	19365	59
2897	138708	65	93	9422	82
1103	114408	38	59	12310	49
340	31970	15	5	1283	6
2791	225558	112	53	6372	83
1333	137011	71	40	5413	56
1441	113612	68	72	10837	114
1623	108641	71	51	3394	46
2650	162203	67	81	12964	46
1499	100098	44	27	3495	2
2302	174768	60	94	11580	51
2540	158459	97	71	9970	96
1000	80934	30	20	4911	20
1234	84971	71	34	10138	57
927	80545	68	54	14697	49
2176	287191	64	49	8464	51
957	62974	28	26	4204	40
1551	134091	40	48	10226	40
1014	75555	46	35	3456	36
1771	162154	54	32	8895	64
2613	226638	227	55	22557	117
1203	115019	110	58	6900	40
1337	108749	62	44	8620	46
1524	155537	52	45	7820	61
1829	153133	41	49	12112	59
2229	165618	78	72	13178	94
1233	151517	57	39	7028	36
1365	133686	58	28	6616	51
950	61342	40	24	9570	39
2319	245196	117	52	14612	62
1857	195576	70	96	11219	79
223	19349	12	13	786	14
2390	225371	105	38	11252	45
1973	152796	76	41	9289	43
700	59117	29	24	593	8
1062	91762	24	54	6562	41
1311	136769	54	68	8208	25
1157	114798	61	28	7488	22
823	85338	40	36	4574	18
596	27676	22	2	522	3
1545	153535	48	91	12840	54
1130	122417	37	29	1350	6
0	0	0	0	0	0
1082	91529	32	46	10623	50
1135	107205	67	25	5322	33
1366	144664	44	51	7987	54
1452	136540	62	59	10566	63
870	76656	60	36	1900	56
78	3616	5	0	0	0
0	0	0	0	0	0
1127	183065	43	40	10698	49
1582	144677	84	68	14884	90
2034	159104	98	28	6852	51
919	113273	38	36	6873	29
778	43410	19	7	4	1
1752	175774	73	70	9188	68
957	95401	42	30	5141	29
1875	118893	54	59	4260	27
731	60493	40	3	443	4
285	19764	12	10	2416	10
1834	164062	56	46	9831	47
1147	132696	32	34	5953	44
1646	155367	54	54	9435	53
256	11796	9	1	0	0
98	10674	9	0	0	0
1404	142261	57	39	7642	40
41	6836	3	0	0	0
1824	162563	63	48	6837	57
42	5118	3	5	0	0
528	40248	16	8	775	6
0	0	0	0	0	0
1073	122641	47	38	8191	24
1305	88837	38	21	1661	34
81	7131	4	0	0	0
261	9056	14	0	548	10
934	76611	24	15	3080	16
1179	132697	50	50	13400	93
1147	100681	19	17	8181	28




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time2 seconds
R Server'Herman Ole Andreas Wold' @ wold.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 & 'Herman Ole Andreas Wold' @ wold.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=158676&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]'Herman Ole Andreas Wold' @ wold.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=158676&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=158676&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 Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time2 seconds
R Server'Herman Ole Andreas Wold' @ wold.wessa.net







Correlations for all pairs of data series (method=kendall)
PagesSecondsLoginsBloggedRevisionsHyperlinks
Pages10.7030.6280.5940.5030.51
Seconds0.70310.5610.590.5440.522
Logins0.6280.56110.5030.430.472
Blogged0.5940.590.50310.5830.564
Revisions0.5030.5440.430.58310.613
Hyperlinks0.510.5220.4720.5640.6131

\begin{tabular}{lllllllll}
\hline
Correlations for all pairs of data series (method=kendall) \tabularnewline
  & Pages & Seconds & Logins & Blogged & Revisions & Hyperlinks \tabularnewline
Pages & 1 & 0.703 & 0.628 & 0.594 & 0.503 & 0.51 \tabularnewline
Seconds & 0.703 & 1 & 0.561 & 0.59 & 0.544 & 0.522 \tabularnewline
Logins & 0.628 & 0.561 & 1 & 0.503 & 0.43 & 0.472 \tabularnewline
Blogged & 0.594 & 0.59 & 0.503 & 1 & 0.583 & 0.564 \tabularnewline
Revisions & 0.503 & 0.544 & 0.43 & 0.583 & 1 & 0.613 \tabularnewline
Hyperlinks & 0.51 & 0.522 & 0.472 & 0.564 & 0.613 & 1 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=158676&T=1

[TABLE]
[ROW][C]Correlations for all pairs of data series (method=kendall)[/C][/ROW]
[ROW][C] [/C][C]Pages[/C][C]Seconds[/C][C]Logins[/C][C]Blogged[/C][C]Revisions[/C][C]Hyperlinks[/C][/ROW]
[ROW][C]Pages[/C][C]1[/C][C]0.703[/C][C]0.628[/C][C]0.594[/C][C]0.503[/C][C]0.51[/C][/ROW]
[ROW][C]Seconds[/C][C]0.703[/C][C]1[/C][C]0.561[/C][C]0.59[/C][C]0.544[/C][C]0.522[/C][/ROW]
[ROW][C]Logins[/C][C]0.628[/C][C]0.561[/C][C]1[/C][C]0.503[/C][C]0.43[/C][C]0.472[/C][/ROW]
[ROW][C]Blogged[/C][C]0.594[/C][C]0.59[/C][C]0.503[/C][C]1[/C][C]0.583[/C][C]0.564[/C][/ROW]
[ROW][C]Revisions[/C][C]0.503[/C][C]0.544[/C][C]0.43[/C][C]0.583[/C][C]1[/C][C]0.613[/C][/ROW]
[ROW][C]Hyperlinks[/C][C]0.51[/C][C]0.522[/C][C]0.472[/C][C]0.564[/C][C]0.613[/C][C]1[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=158676&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=158676&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)
PagesSecondsLoginsBloggedRevisionsHyperlinks
Pages10.7030.6280.5940.5030.51
Seconds0.70310.5610.590.5440.522
Logins0.6280.56110.5030.430.472
Blogged0.5940.590.50310.5830.564
Revisions0.5030.5440.430.58310.613
Hyperlinks0.510.5220.4720.5640.6131







Correlations for all pairs of data series with p-values
pairPearson rSpearman rhoKendall tau
Pages;Seconds0.89030.86570.7029
p-value(0)(0)(0)
Pages;Logins0.82750.79720.6283
p-value(0)(0)(0)
Pages;Blogged0.78470.76820.5939
p-value(0)(0)(0)
Pages;Revisions0.69640.66950.5026
p-value(0)(0)(0)
Pages;Hyperlinks0.74570.67860.5103
p-value(0)(0)(0)
Seconds;Logins0.76840.72790.5615
p-value(0)(0)(0)
Seconds;Blogged0.78160.76870.5899
p-value(0)(0)(0)
Seconds;Revisions0.74260.71530.5436
p-value(0)(0)(0)
Seconds;Hyperlinks0.74630.690.5217
p-value(0)(0)(0)
Logins;Blogged0.63830.66910.5033
p-value(0)(0)(0)
Logins;Revisions0.62790.58260.43
p-value(0)(0)(0)
Logins;Hyperlinks0.69180.63710.472
p-value(0)(0)(0)
Blogged;Revisions0.76540.76040.5828
p-value(0)(0)(0)
Blogged;Hyperlinks0.78160.72730.564
p-value(0)(0)(0)
Revisions;Hyperlinks0.8060.78280.613
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
Pages;Seconds & 0.8903 & 0.8657 & 0.7029 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
Pages;Logins & 0.8275 & 0.7972 & 0.6283 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
Pages;Blogged & 0.7847 & 0.7682 & 0.5939 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
Pages;Revisions & 0.6964 & 0.6695 & 0.5026 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
Pages;Hyperlinks & 0.7457 & 0.6786 & 0.5103 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
Seconds;Logins & 0.7684 & 0.7279 & 0.5615 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
Seconds;Blogged & 0.7816 & 0.7687 & 0.5899 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
Seconds;Revisions & 0.7426 & 0.7153 & 0.5436 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
Seconds;Hyperlinks & 0.7463 & 0.69 & 0.5217 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
Logins;Blogged & 0.6383 & 0.6691 & 0.5033 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
Logins;Revisions & 0.6279 & 0.5826 & 0.43 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
Logins;Hyperlinks & 0.6918 & 0.6371 & 0.472 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
Blogged;Revisions & 0.7654 & 0.7604 & 0.5828 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
Blogged;Hyperlinks & 0.7816 & 0.7273 & 0.564 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
Revisions;Hyperlinks & 0.806 & 0.7828 & 0.613 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=158676&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]Pages;Seconds[/C][C]0.8903[/C][C]0.8657[/C][C]0.7029[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]Pages;Logins[/C][C]0.8275[/C][C]0.7972[/C][C]0.6283[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]Pages;Blogged[/C][C]0.7847[/C][C]0.7682[/C][C]0.5939[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]Pages;Revisions[/C][C]0.6964[/C][C]0.6695[/C][C]0.5026[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]Pages;Hyperlinks[/C][C]0.7457[/C][C]0.6786[/C][C]0.5103[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]Seconds;Logins[/C][C]0.7684[/C][C]0.7279[/C][C]0.5615[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]Seconds;Blogged[/C][C]0.7816[/C][C]0.7687[/C][C]0.5899[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]Seconds;Revisions[/C][C]0.7426[/C][C]0.7153[/C][C]0.5436[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]Seconds;Hyperlinks[/C][C]0.7463[/C][C]0.69[/C][C]0.5217[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]Logins;Blogged[/C][C]0.6383[/C][C]0.6691[/C][C]0.5033[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]Logins;Revisions[/C][C]0.6279[/C][C]0.5826[/C][C]0.43[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]Logins;Hyperlinks[/C][C]0.6918[/C][C]0.6371[/C][C]0.472[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]Blogged;Revisions[/C][C]0.7654[/C][C]0.7604[/C][C]0.5828[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]Blogged;Hyperlinks[/C][C]0.7816[/C][C]0.7273[/C][C]0.564[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]Revisions;Hyperlinks[/C][C]0.806[/C][C]0.7828[/C][C]0.613[/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=158676&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=158676&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
pairPearson rSpearman rhoKendall tau
Pages;Seconds0.89030.86570.7029
p-value(0)(0)(0)
Pages;Logins0.82750.79720.6283
p-value(0)(0)(0)
Pages;Blogged0.78470.76820.5939
p-value(0)(0)(0)
Pages;Revisions0.69640.66950.5026
p-value(0)(0)(0)
Pages;Hyperlinks0.74570.67860.5103
p-value(0)(0)(0)
Seconds;Logins0.76840.72790.5615
p-value(0)(0)(0)
Seconds;Blogged0.78160.76870.5899
p-value(0)(0)(0)
Seconds;Revisions0.74260.71530.5436
p-value(0)(0)(0)
Seconds;Hyperlinks0.74630.690.5217
p-value(0)(0)(0)
Logins;Blogged0.63830.66910.5033
p-value(0)(0)(0)
Logins;Revisions0.62790.58260.43
p-value(0)(0)(0)
Logins;Hyperlinks0.69180.63710.472
p-value(0)(0)(0)
Blogged;Revisions0.76540.76040.5828
p-value(0)(0)(0)
Blogged;Hyperlinks0.78160.72730.564
p-value(0)(0)(0)
Revisions;Hyperlinks0.8060.78280.613
p-value(0)(0)(0)



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')