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 computationFri, 16 Dec 2011 14:28:45 -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/16/t1324063746fo200kedlnolxj2.htm/, Retrieved Sun, 05 May 2024 15:56:03 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=156119, Retrieved Sun, 05 May 2024 15:56:03 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact83
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] [] [2011-12-16 19:28:45] [2e63149daec6ba44c7d6fab36a0b0c34] [Current]
Feedback Forum

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




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=156119&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=156119&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=156119&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)
Groottecompendium#pageviews#logins#geblogdecompu#hyperlinks
Groottecompendium10.5320.4740.6060.655
#pageviews0.53210.6610.6270.584
#logins0.4740.66110.5230.513
#geblogdecompu0.6060.6270.52310.747
#hyperlinks0.6550.5840.5130.7471

\begin{tabular}{lllllllll}
\hline
Correlations for all pairs of data series (method=kendall) \tabularnewline
  & Groottecompendium & #pageviews & #logins & #geblogdecompu & #hyperlinks \tabularnewline
Groottecompendium & 1 & 0.532 & 0.474 & 0.606 & 0.655 \tabularnewline
#pageviews & 0.532 & 1 & 0.661 & 0.627 & 0.584 \tabularnewline
#logins & 0.474 & 0.661 & 1 & 0.523 & 0.513 \tabularnewline
#geblogdecompu & 0.606 & 0.627 & 0.523 & 1 & 0.747 \tabularnewline
#hyperlinks & 0.655 & 0.584 & 0.513 & 0.747 & 1 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=156119&T=1

[TABLE]
[ROW][C]Correlations for all pairs of data series (method=kendall)[/C][/ROW]
[ROW][C] [/C][C]Groottecompendium[/C][C]#pageviews[/C][C]#logins[/C][C]#geblogdecompu[/C][C]#hyperlinks[/C][/ROW]
[ROW][C]Groottecompendium[/C][C]1[/C][C]0.532[/C][C]0.474[/C][C]0.606[/C][C]0.655[/C][/ROW]
[ROW][C]#pageviews[/C][C]0.532[/C][C]1[/C][C]0.661[/C][C]0.627[/C][C]0.584[/C][/ROW]
[ROW][C]#logins[/C][C]0.474[/C][C]0.661[/C][C]1[/C][C]0.523[/C][C]0.513[/C][/ROW]
[ROW][C]#geblogdecompu[/C][C]0.606[/C][C]0.627[/C][C]0.523[/C][C]1[/C][C]0.747[/C][/ROW]
[ROW][C]#hyperlinks[/C][C]0.655[/C][C]0.584[/C][C]0.513[/C][C]0.747[/C][C]1[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=156119&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=156119&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)
Groottecompendium#pageviews#logins#geblogdecompu#hyperlinks
Groottecompendium10.5320.4740.6060.655
#pageviews0.53210.6610.6270.584
#logins0.4740.66110.5230.513
#geblogdecompu0.6060.6270.52310.747
#hyperlinks0.6550.5840.5130.7471







Correlations for all pairs of data series with p-values
pairPearson rSpearman rhoKendall tau
Groottecompendium;#pageviews0.64390.72120.5315
p-value(0)(0)(0)
Groottecompendium;#logins0.53640.65880.4742
p-value(0)(0)(0)
Groottecompendium;#geblogdecompu0.76050.79620.6059
p-value(0)(0)(0)
Groottecompendium;#hyperlinks0.79780.83840.6548
p-value(0)(0)(0)
#pageviews;#logins0.75880.8450.6609
p-value(0)(0)(0)
#pageviews;#geblogdecompu0.76060.82490.6272
p-value(0)(0)(0)
#pageviews;#hyperlinks0.70540.77910.5836
p-value(0)(0)(0)
#logins;#geblogdecompu0.56610.71780.523
p-value(0)(0)(0)
#logins;#hyperlinks0.5870.70880.513
p-value(0)(0)(0)
#geblogdecompu;#hyperlinks0.8840.90640.7471
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
Groottecompendium;#pageviews & 0.6439 & 0.7212 & 0.5315 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
Groottecompendium;#logins & 0.5364 & 0.6588 & 0.4742 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
Groottecompendium;#geblogdecompu & 0.7605 & 0.7962 & 0.6059 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
Groottecompendium;#hyperlinks & 0.7978 & 0.8384 & 0.6548 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
#pageviews;#logins & 0.7588 & 0.845 & 0.6609 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
#pageviews;#geblogdecompu & 0.7606 & 0.8249 & 0.6272 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
#pageviews;#hyperlinks & 0.7054 & 0.7791 & 0.5836 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
#logins;#geblogdecompu & 0.5661 & 0.7178 & 0.523 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
#logins;#hyperlinks & 0.587 & 0.7088 & 0.513 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
#geblogdecompu;#hyperlinks & 0.884 & 0.9064 & 0.7471 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=156119&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]Groottecompendium;#pageviews[/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]Groottecompendium;#logins[/C][C]0.5364[/C][C]0.6588[/C][C]0.4742[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]Groottecompendium;#geblogdecompu[/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]Groottecompendium;#hyperlinks[/C][C]0.7978[/C][C]0.8384[/C][C]0.6548[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/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;#geblogdecompu[/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]#pageviews;#hyperlinks[/C][C]0.7054[/C][C]0.7791[/C][C]0.5836[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]#logins;#geblogdecompu[/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]#logins;#hyperlinks[/C][C]0.587[/C][C]0.7088[/C][C]0.513[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]#geblogdecompu;#hyperlinks[/C][C]0.884[/C][C]0.9064[/C][C]0.7471[/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=156119&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=156119&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
Groottecompendium;#pageviews0.64390.72120.5315
p-value(0)(0)(0)
Groottecompendium;#logins0.53640.65880.4742
p-value(0)(0)(0)
Groottecompendium;#geblogdecompu0.76050.79620.6059
p-value(0)(0)(0)
Groottecompendium;#hyperlinks0.79780.83840.6548
p-value(0)(0)(0)
#pageviews;#logins0.75880.8450.6609
p-value(0)(0)(0)
#pageviews;#geblogdecompu0.76060.82490.6272
p-value(0)(0)(0)
#pageviews;#hyperlinks0.70540.77910.5836
p-value(0)(0)(0)
#logins;#geblogdecompu0.56610.71780.523
p-value(0)(0)(0)
#logins;#hyperlinks0.5870.70880.513
p-value(0)(0)(0)
#geblogdecompu;#hyperlinks0.8840.90640.7471
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')