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 computationThu, 22 Dec 2011 14:53:58 -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/22/t1324583655kl65x7ms4glamsz.htm/, Retrieved Fri, 03 May 2024 14:06:56 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=159923, Retrieved Fri, 03 May 2024 14:06:56 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact152
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Kendall tau Correlation Matrix] [WS10] [2011-12-09 08:45:50] [09e53a95f5780167f20e6b4304200573]
- R     [Kendall tau Correlation Matrix] [WS 10 autocor. DD] [2011-12-12 14:06:13] [74be16979710d4c4e7c6647856088456]
-    D      [Kendall tau Correlation Matrix] [Pearson correlati...] [2011-12-22 19:53:58] [7357ea4f05edbe0d796a101c4acf63d9] [Current]
Feedback Forum

Post a new message
Dataseries X:
279055	96	159	140824	165	165
209884	75	149	110459	135	132
233939	70	178	105079	121	121
222117	134	164	112098	148	145
179751	72	100	43929	73	71
70849	8	129	76173	49	47
568125	169	156	187326	185	177
33186	1	67	22807	5	5
227332	88	148	144408	125	124
258874	98	132	66485	93	92
351915	106	169	79089	154	149
260484	122	230	81625	98	93
203988	57	122	68788	70	70
368577	139	191	103297	148	148
269455	87	162	69446	100	100
394578	176	237	114948	150	142
335567	114	156	167949	197	194
423110	121	157	125081	114	113
182016	103	123	125818	169	162
267365	135	203	136588	200	186
279428	123	187	112431	148	147
506616	97	152	103037	140	137
206722	74	89	82317	74	71
200004	103	227	118906	128	123
257139	158	165	83515	140	134
270815	116	162	104581	116	115
296850	102	174	103129	147	138
307100	132	154	83243	132	125
184160	62	129	37110	70	66
393860	150	174	113344	144	137
320558	141	195	139165	155	152
252512	50	186	86652	165	159
373013	141	197	112302	161	159
115602	48	157	69652	31	31
430118	141	168	119442	199	185
273950	83	159	69867	78	78
428077	112	161	101629	121	117
251349	79	153	70168	112	109
115658	33	55	31081	41	41
388812	149	166	103925	158	149
343783	126	151	92622	123	123
202289	82	148	79011	104	103
214344	84	129	93487	94	87
182398	68	181	64520	73	71
157164	50	93	93473	52	51
459440	101	150	114360	71	70
78800	20	82	33032	21	21
217932	101	229	96125	155	155
368086	150	193	151911	174	172
210554	116	176	89256	136	133
244640	99	179	95676	128	125
24188	8	12	5950	7	7
399093	88	181	149695	165	158
65029	21	67	32551	21	21
101097	30	52	31701	35	35
300488	97	148	100087	137	133
369627	163	230	169707	174	169
367127	132	148	150491	257	256
374158	161	160	120192	207	190
270099	89	155	95893	103	100
391871	160	198	151715	171	171
315924	139	104	176225	279	267
291391	104	169	59900	83	80
286417	100	163	104767	130	126
276201	66	151	114799	131	132
267432	163	116	72128	126	121
215924	93	153	143592	158	156
252767	85	195	89626	138	133
260919	150	149	131072	200	199
182961	143	106	126817	104	98
256967	107	179	81351	111	109
73566	22	88	22618	26	25
272362	85	185	88977	115	113
220707	91	133	92059	127	126
228835	131	164	81897	140	137
371391	140	169	108146	121	121
398210	156	153	126372	183	178
220401	81	166	249771	68	63
229333	137	164	71154	112	109
217623	102	146	71571	103	101
199011	72	141	55918	63	61
483074	161	183	160141	166	157
145943	30	99	38692	38	38
295224	120	134	102812	163	159
80953	49	28	56622	59	58
180759	71	101	15986	27	27
179344	76	139	123534	108	108
415550	85	159	108535	88	83
369093	146	222	93879	92	88
180679	165	171	144551	170	164
299505	89	154	56750	98	96
292260	168	154	127654	205	192
199481	48	129	65594	96	94
282361	149	140	59938	107	107
329281	75	156	146975	150	144
234577	107	156	165904	138	136
297995	116	138	169265	177	171
305984	165	153	183500	213	210
416463	155	251	165986	208	193
412530	165	126	184923	307	297
297080	121	198	140358	125	125
318283	156	168	149959	208	204
214250	85	138	57224	73	70
43287	13	71	43750	49	49
223456	113	90	48029	82	82
258249	112	167	104978	206	205
299566	133	172	100046	112	111
321797	169	162	101047	139	135
174736	30	129	197426	60	59
169545	121	179	160902	70	70
354041	82	163	147172	112	108
303273	148	164	109432	142	141
23668	12	0	1168	11	11
196743	146	155	83248	130	130
61857	23	32	25162	31	28
207339	84	189	45724	132	101
431443	163	140	110529	219	216
21054	4	0	855	4	4
252805	81	111	101382	102	97
31961	18	25	14116	39	39
354622	118	159	89506	125	119
251240	76	183	135356	121	118
187003	55	184	116066	42	41
180842	62	119	144244	111	107
38214	16	27	8773	16	16
278173	98	163	102153	70	69
358276	137	198	117440	162	160
211775	50	205	104128	173	158
445926	152	191	134238	171	161
348017	163	187	134047	172	165
441946	142	210	279488	254	246
208962	77	166	79756	90	89
105332	42	145	66089	50	49
316128	94	187	102070	113	107
466139	128	186	146760	187	182
160799	63	164	154771	16	16
412099	127	172	165933	175	173
173802	59	147	64593	90	90
292443	118	167	92280	140	140
283913	110	158	67150	145	142
234262	44	144	128692	141	126
386740	95	169	124089	125	123
246963	128	145	125386	241	239
173260	41	79	37238	16	15
346748	146	194	140015	175	170
176654	147	212	150047	132	123
264767	121	148	154451	154	151
314070	185	171	156349	198	194
1	0	0	0	0	0
14688	4	0	6023	5	5
98	0	0	0	0	0
455	0	0	0	0	0
0	0	0	0	0	0
0	0	0	0	0	0
284420	85	141	84601	125	122
410509	157	204	68946	174	173
0	0	0	0	0	0
203	0	0	0	0	0
7199	7	0	1644	6	6
46660	12	15	6179	13	13
17547	0	4	3926	3	3
121550	37	172	52789	35	35
969	0	0	0	0	0
242258	62	125	100350	80	72




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time2 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=159923&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=159923&T=0

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







Correlations for all pairs of data series (method=pearson)
YX1X2X3X4X5
Y10.8220.7570.7050.780.779
X10.82210.7450.6860.830.831
X20.7570.74510.70.6850.682
X30.7050.6860.710.7640.764
X40.780.830.6850.76410.998
X50.7790.8310.6820.7640.9981

\begin{tabular}{lllllllll}
\hline
Correlations for all pairs of data series (method=pearson) \tabularnewline
  & Y & X1 & X2 & X3 & X4 & X5 \tabularnewline
Y & 1 & 0.822 & 0.757 & 0.705 & 0.78 & 0.779 \tabularnewline
X1 & 0.822 & 1 & 0.745 & 0.686 & 0.83 & 0.831 \tabularnewline
X2 & 0.757 & 0.745 & 1 & 0.7 & 0.685 & 0.682 \tabularnewline
X3 & 0.705 & 0.686 & 0.7 & 1 & 0.764 & 0.764 \tabularnewline
X4 & 0.78 & 0.83 & 0.685 & 0.764 & 1 & 0.998 \tabularnewline
X5 & 0.779 & 0.831 & 0.682 & 0.764 & 0.998 & 1 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=159923&T=1

[TABLE]
[ROW][C]Correlations for all pairs of data series (method=pearson)[/C][/ROW]
[ROW][C] [/C][C]Y[/C][C]X1[/C][C]X2[/C][C]X3[/C][C]X4[/C][C]X5[/C][/ROW]
[ROW][C]Y[/C][C]1[/C][C]0.822[/C][C]0.757[/C][C]0.705[/C][C]0.78[/C][C]0.779[/C][/ROW]
[ROW][C]X1[/C][C]0.822[/C][C]1[/C][C]0.745[/C][C]0.686[/C][C]0.83[/C][C]0.831[/C][/ROW]
[ROW][C]X2[/C][C]0.757[/C][C]0.745[/C][C]1[/C][C]0.7[/C][C]0.685[/C][C]0.682[/C][/ROW]
[ROW][C]X3[/C][C]0.705[/C][C]0.686[/C][C]0.7[/C][C]1[/C][C]0.764[/C][C]0.764[/C][/ROW]
[ROW][C]X4[/C][C]0.78[/C][C]0.83[/C][C]0.685[/C][C]0.764[/C][C]1[/C][C]0.998[/C][/ROW]
[ROW][C]X5[/C][C]0.779[/C][C]0.831[/C][C]0.682[/C][C]0.764[/C][C]0.998[/C][C]1[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=159923&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=159923&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)
YX1X2X3X4X5
Y10.8220.7570.7050.780.779
X10.82210.7450.6860.830.831
X20.7570.74510.70.6850.682
X30.7050.6860.710.7640.764
X40.780.830.6850.76410.998
X50.7790.8310.6820.7640.9981







Correlations for all pairs of data series with p-values
pairPearson rSpearman rhoKendall tau
Y;X10.82180.7790.6178
p-value(0)(0)(0)
Y;X20.75720.61930.4661
p-value(0)(0)(0)
Y;X30.70530.64390.4867
p-value(0)(0)(0)
Y;X40.77970.75790.5864
p-value(0)(0)(0)
Y;X50.77870.75960.5868
p-value(0)(0)(0)
X1;X20.74460.6170.4614
p-value(0)(0)(0)
X1;X30.6860.65230.4956
p-value(0)(0)(0)
X1;X40.82960.8110.6394
p-value(0)(0)(0)
X1;X50.83060.81320.6405
p-value(0)(0)(0)
X2;X30.70010.55810.4114
p-value(0)(0)(0)
X2;X40.68490.59930.4487
p-value(0)(0)(0)
X2;X50.68160.59290.4427
p-value(0)(0)(0)
X3;X40.76360.75510.6033
p-value(0)(0)(0)
X3;X50.76380.75710.6045
p-value(0)(0)(0)
X4;X50.99830.99690.9723
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
Y;X1 & 0.8218 & 0.779 & 0.6178 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
Y;X2 & 0.7572 & 0.6193 & 0.4661 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
Y;X3 & 0.7053 & 0.6439 & 0.4867 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
Y;X4 & 0.7797 & 0.7579 & 0.5864 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
Y;X5 & 0.7787 & 0.7596 & 0.5868 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
X1;X2 & 0.7446 & 0.617 & 0.4614 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
X1;X3 & 0.686 & 0.6523 & 0.4956 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
X1;X4 & 0.8296 & 0.811 & 0.6394 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
X1;X5 & 0.8306 & 0.8132 & 0.6405 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
X2;X3 & 0.7001 & 0.5581 & 0.4114 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
X2;X4 & 0.6849 & 0.5993 & 0.4487 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
X2;X5 & 0.6816 & 0.5929 & 0.4427 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
X3;X4 & 0.7636 & 0.7551 & 0.6033 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
X3;X5 & 0.7638 & 0.7571 & 0.6045 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
X4;X5 & 0.9983 & 0.9969 & 0.9723 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=159923&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]Y;X1[/C][C]0.8218[/C][C]0.779[/C][C]0.6178[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]Y;X2[/C][C]0.7572[/C][C]0.6193[/C][C]0.4661[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]Y;X3[/C][C]0.7053[/C][C]0.6439[/C][C]0.4867[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]Y;X4[/C][C]0.7797[/C][C]0.7579[/C][C]0.5864[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]Y;X5[/C][C]0.7787[/C][C]0.7596[/C][C]0.5868[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]X1;X2[/C][C]0.7446[/C][C]0.617[/C][C]0.4614[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]X1;X3[/C][C]0.686[/C][C]0.6523[/C][C]0.4956[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]X1;X4[/C][C]0.8296[/C][C]0.811[/C][C]0.6394[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]X1;X5[/C][C]0.8306[/C][C]0.8132[/C][C]0.6405[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]X2;X3[/C][C]0.7001[/C][C]0.5581[/C][C]0.4114[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]X2;X4[/C][C]0.6849[/C][C]0.5993[/C][C]0.4487[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]X2;X5[/C][C]0.6816[/C][C]0.5929[/C][C]0.4427[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]X3;X4[/C][C]0.7636[/C][C]0.7551[/C][C]0.6033[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]X3;X5[/C][C]0.7638[/C][C]0.7571[/C][C]0.6045[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]X4;X5[/C][C]0.9983[/C][C]0.9969[/C][C]0.9723[/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=159923&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=159923&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
Y;X10.82180.7790.6178
p-value(0)(0)(0)
Y;X20.75720.61930.4661
p-value(0)(0)(0)
Y;X30.70530.64390.4867
p-value(0)(0)(0)
Y;X40.77970.75790.5864
p-value(0)(0)(0)
Y;X50.77870.75960.5868
p-value(0)(0)(0)
X1;X20.74460.6170.4614
p-value(0)(0)(0)
X1;X30.6860.65230.4956
p-value(0)(0)(0)
X1;X40.82960.8110.6394
p-value(0)(0)(0)
X1;X50.83060.81320.6405
p-value(0)(0)(0)
X2;X30.70010.55810.4114
p-value(0)(0)(0)
X2;X40.68490.59930.4487
p-value(0)(0)(0)
X2;X50.68160.59290.4427
p-value(0)(0)(0)
X3;X40.76360.75510.6033
p-value(0)(0)(0)
X3;X50.76380.75710.6045
p-value(0)(0)(0)
X4;X50.99830.99690.9723
p-value(0)(0)(0)



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