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

Sun, 11 Dec 2011 08:35:21 -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/11/t1323610550kxm8sb9yulqcrpi.htm/, Retrieved Mon, 29 Apr 2024 07:48:32 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=153731, Retrieved Mon, 29 Apr 2024 07:48:32 +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

102

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-11 13:35:21] [7a9891c1925ad1e8ddfe52b8c5887b5b] [Current]
- R P     [Kendall tau Correlation Matrix] [WS10] [2011-12-11 17:18:13] [74be16979710d4c4e7c6647856088456] 
- RMP     [Multiple Regression] [WS10] [2011-12-11 17:24:39] [91ce4971c808115c699d50336245df56] 
- RMP     [Recursive Partitioning (Regression Trees)] [WS10] [2011-12-11 18:15:43] [91ce4971c808115c699d50336245df56] 

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

252101	62	34	104	124252
134577	59	30	111	98956
198520	62	38	93	98073
189326	94	34	119	106816
137449	43	25	57	41449
65295	27	31	80	76173
439387	103	29	107	177551
33186	19	18	22	22807
178368	51	30	103	126938
186657	38	29	72	61680
261949	96	38	123	72117
191051	95	49	164	79738
138866	57	33	100	57793
296878	66	46	143	91677
192648	72	38	79	64631
333462	162	52	183	106385
243571	58	32	123	161961
263451	130	35	81	112669
155679	48	25	74	114029
227053	70	42	158	124550
240028	63	40	133	105416
388549	90	35	128	72875
156540	34	25	84	81964
148421	43	46	184	104880
177732	97	36	127	76302
191441	105	35	128	96740
249893	122	38	118	93071
236812	76	35	125	78912
142329	45	28	89	35224
259667	53	37	122	90694
231625	65	40	151	125369
176062	67	42	122	80849
286683	79	44	162	104434
87485	33	33	121	65702
322865	83	35	132	108179
247082	51	37	110	63583
346011	106	39	135	95066
191653	74	32	80	62486
114673	31	17	46	31081
284224	161	34	127	94584
284195	72	33	103	87408
155363	59	35	95	68966
177306	67	32	100	88766
144571	49	35	102	57139
140319	73	45	45	90586
405267	135	38	122	109249
78800	42	26	66	33032
201970	69	45	159	96056
302674	99	44	153	146648
164733	50	40	131	80613
194221	68	33	113	87026
24188	24	4	7	5950
342263	279	41	147	131106
65029	17	18	61	32551
101097	64	14	41	31701
246088	46	33	108	91072
273108	75	49	184	159803
282220	160	32	115	143950
273495	119	37	132	112368
214872	74	32	113	82124
335121	124	41	141	144068
267171	107	25	65	162627
187938	88	40	87	55062
229512	78	35	121	95329
209798	61	33	112	105612
201345	60	28	81	62853
163833	114	31	116	125976
204250	129	40	132	79146
197813	67	32	104	108461
132955	60	25	80	99971
216092	59	42	145	77826
73566	32	23	67	22618
213198	67	42	159	84892
181713	49	38	90	92059
148698	49	34	120	77993
300103	70	38	126	104155
251437	78	32	118	109840
197295	101	37	112	238712
158163	55	34	123	67486
155529	57	33	98	68007
132672	41	25	78	48194
377205	100	40	119	134796
145905	66	26	99	38692
223701	87	40	81	93587
80953	25	8	27	56622
130805	47	27	77	15986
135082	48	32	118	113402
300805	156	33	122	97967
271806	95	50	103	74844
150949	96	37	129	136051
225805	79	33	69	50548
197389	68	34	121	112215
156583	56	28	81	59591
222599	66	32	119	59938
261601	70	32	116	137639
178489	35	32	123	143372
200657	43	31	111	138599
259084	68	35	100	174110
313075	130	58	221	135062
346933	100	27	95	175681
246440	104	45	153	130307
252444	58	37	118	139141
159965	159	32	50	44244
43287	14	19	64	43750
172239	68	22	34	48029
183738	120	35	76	95216
227681	43	36	112	92288
260464	81	36	115	94588
106288	54	23	69	197426
109632	77	36	108	151244
268905	58	36	130	139206
266805	78	42	110	106271
23623	11	1	0	1168
152474	65	32	83	71764
61857	25	11	30	25162
144889	43	40	106	45635
346600	99	34	91	101817
21054	16	0	0	855
224051	45	27	69	100174
31414	19	8	9	14116
261043	105	35	123	85008
197819	57	41	143	124254
154984	73	40	125	105793
112933	45	28	81	117129
38214	34	8	21	8773
158671	33	35	124	94747
302148	70	47	168	107549
177918	55	46	149	97392
350552	70	42	147	126893
275578	91	48	145	118850
368746	106	49	172	234853
172464	31	35	126	74783
94381	35	32	89	66089
243875	279	36	137	95684
382487	153	42	149	139537
114525	40	35	121	144253
335681	119	37	133	153824
147989	72	34	93	63995
216638	45	36	119	84891
192862	72	36	102	61263
184818	107	32	45	106221
336707	105	33	104	113587
215836	76	35	111	113864
173260	63	21	78	37238
271773	89	40	120	119906
130908	52	49	176	135096
204009	75	33	109	151611
245514	92	39	132	144645
1	0	0	0	0
14688	10	0	0	6023
98	1	0	0	0
455	2	0	0	0
0	0	0	0	0
0	0	0	0	0
195765	75	33	78	77457
326038	121	42	104	62464
0	0	0	0	0
203	4	0	0	0
7199	5	0	0	1644
46660	20	5	13	6179
17547	5	1	4	3926
107465	38	38	65	42087
969	2	0	0	0
173102	58	28	55	87656

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=153731&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	1 seconds
R Server	'AstonUniversity' @ aston.wessa.net

Correlations for all pairs of data series (method=pearson)
	TimeinRFC	#logins	#FBmess	#revCom	#char
TimeinRFC	1	0.708	0.739	0.731	0.694
#logins	0.708	1	0.579	0.547	0.514
#FBmess	0.739	0.579	1	0.906	0.67
#revCom	0.731	0.547	0.906	1	0.7
#char	0.694	0.514	0.67	0.7	1

\begin{tabular}{lllllllll}
\hline
Correlations for all pairs of data series (method=pearson) \tabularnewline
  & TimeinRFC & #logins & #FBmess & #revCom & #char \tabularnewline
TimeinRFC & 1 & 0.708 & 0.739 & 0.731 & 0.694 \tabularnewline
#logins & 0.708 & 1 & 0.579 & 0.547 & 0.514 \tabularnewline
#FBmess & 0.739 & 0.579 & 1 & 0.906 & 0.67 \tabularnewline
#revCom & 0.731 & 0.547 & 0.906 & 1 & 0.7 \tabularnewline
#char & 0.694 & 0.514 & 0.67 & 0.7 & 1 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=153731&T=1

[TABLE]
[ROW][C]Correlations for all pairs of data series (method=pearson)[/C][/ROW]
[ROW][C] [/C][C]TimeinRFC[/C][C]#logins[/C][C]#FBmess[/C][C]#revCom[/C][C]#char[/C][/ROW]
[ROW][C]TimeinRFC[/C][C]1[/C][C]0.708[/C][C]0.739[/C][C]0.731[/C][C]0.694[/C][/ROW]
[ROW][C]#logins[/C][C]0.708[/C][C]1[/C][C]0.579[/C][C]0.547[/C][C]0.514[/C][/ROW]
[ROW][C]#FBmess[/C][C]0.739[/C][C]0.579[/C][C]1[/C][C]0.906[/C][C]0.67[/C][/ROW]
[ROW][C]#revCom[/C][C]0.731[/C][C]0.547[/C][C]0.906[/C][C]1[/C][C]0.7[/C][/ROW]
[ROW][C]#char[/C][C]0.694[/C][C]0.514[/C][C]0.67[/C][C]0.7[/C][C]1[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=153731&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=153731&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)
	TimeinRFC	#logins	#FBmess	#revCom	#char
TimeinRFC	1	0.708	0.739	0.731	0.694
#logins	0.708	1	0.579	0.547	0.514
#FBmess	0.739	0.579	1	0.906	0.67
#revCom	0.731	0.547	0.906	1	0.7
#char	0.694	0.514	0.67	0.7	1

Correlations for all pairs of data series with p-values
pair	Pearson r	Spearman rho	Kendall tau
TimeinRFC;#logins	0.7077	0.7754	0.5987
p-value	(0)	(0)	(0)
TimeinRFC;#FBmess	0.739	0.636	0.4842
p-value	(0)	(0)	(0)
TimeinRFC;#revCom	0.7314	0.6618	0.4937
p-value	(0)	(0)	(0)
TimeinRFC;#char	0.6936	0.6523	0.4971
p-value	(0)	(0)	(0)
#logins;#FBmess	0.5792	0.5821	0.434
p-value	(0)	(0)	(0)
#logins;#revCom	0.5474	0.5406	0.3997
p-value	(0)	(0)	(0)
#logins;#char	0.5142	0.5742	0.4173
p-value	(0)	(0)	(0)
#FBmess;#revCom	0.9063	0.8144	0.679
p-value	(0)	(0)	(0)
#FBmess;#char	0.6695	0.519	0.3879
p-value	(0)	(0)	(0)
#revCom;#char	0.7004	0.6379	0.474
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
TimeinRFC;#logins & 0.7077 & 0.7754 & 0.5987 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
TimeinRFC;#FBmess & 0.739 & 0.636 & 0.4842 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
TimeinRFC;#revCom & 0.7314 & 0.6618 & 0.4937 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
TimeinRFC;#char & 0.6936 & 0.6523 & 0.4971 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
#logins;#FBmess & 0.5792 & 0.5821 & 0.434 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
#logins;#revCom & 0.5474 & 0.5406 & 0.3997 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
#logins;#char & 0.5142 & 0.5742 & 0.4173 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
#FBmess;#revCom & 0.9063 & 0.8144 & 0.679 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
#FBmess;#char & 0.6695 & 0.519 & 0.3879 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
#revCom;#char & 0.7004 & 0.6379 & 0.474 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=153731&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]TimeinRFC;#logins[/C][C]0.7077[/C][C]0.7754[/C][C]0.5987[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]TimeinRFC;#FBmess[/C][C]0.739[/C][C]0.636[/C][C]0.4842[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]TimeinRFC;#revCom[/C][C]0.7314[/C][C]0.6618[/C][C]0.4937[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]TimeinRFC;#char[/C][C]0.6936[/C][C]0.6523[/C][C]0.4971[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]#logins;#FBmess[/C][C]0.5792[/C][C]0.5821[/C][C]0.434[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]#logins;#revCom[/C][C]0.5474[/C][C]0.5406[/C][C]0.3997[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]#logins;#char[/C][C]0.5142[/C][C]0.5742[/C][C]0.4173[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]#FBmess;#revCom[/C][C]0.9063[/C][C]0.8144[/C][C]0.679[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]#FBmess;#char[/C][C]0.6695[/C][C]0.519[/C][C]0.3879[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]#revCom;#char[/C][C]0.7004[/C][C]0.6379[/C][C]0.474[/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=153731&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=153731&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
TimeinRFC;#logins	0.7077	0.7754	0.5987
p-value	(0)	(0)	(0)
TimeinRFC;#FBmess	0.739	0.636	0.4842
p-value	(0)	(0)	(0)
TimeinRFC;#revCom	0.7314	0.6618	0.4937
p-value	(0)	(0)	(0)
TimeinRFC;#char	0.6936	0.6523	0.4971
p-value	(0)	(0)	(0)
#logins;#FBmess	0.5792	0.5821	0.434
p-value	(0)	(0)	(0)
#logins;#revCom	0.5474	0.5406	0.3997
p-value	(0)	(0)	(0)
#logins;#char	0.5142	0.5742	0.4173
p-value	(0)	(0)	(0)
#FBmess;#revCom	0.9063	0.8144	0.679
p-value	(0)	(0)	(0)
#FBmess;#char	0.6695	0.519	0.3879
p-value	(0)	(0)	(0)
#revCom;#char	0.7004	0.6379	0.474
p-value	(0)	(0)	(0)

Figure 1

PNG link

Postscript link

PDF link

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

Free Statistics

Description of Statistical Computation

Tree of Dependent Computations

Dataset

Tables (Output of Computation)

Figures (Output of Computation)

Input Parameters & R Code