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

Tue, 13 Dec 2011 12:10: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/13/t1323796288xpiyfm7dfyqaf3t.htm/, Retrieved Thu, 02 May 2024 17:17:03 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=154553, Retrieved Thu, 02 May 2024 17:17:03 +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 17:44:33] [b98453cac15ba1066b407e146608df68]
- RMPD    [Kendall tau Correlation Matrix] [] [2011-12-13 17:10:21] [bd748940d7962893950720dfc8008aaa] [Current]

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

255202	34	131	104	124252
135248	30	117	111	98956
198520	38	146	93	98073
189326	34	132	119	106816
141365	25	80	57	41449
65295	31	117	80	76173
439387	29	112	107	177551
33186	18	67	22	22807
183696	30	116	103	126938
186657	29	107	72	61680
269127	40	148	129	72117
194414	50	190	168	79738
141409	33	109	100	57793
306730	46	159	143	91677
192691	38	146	79	64631
333497	52	201	183	106385
261835	32	124	123	161961
263451	35	131	81	112669
157448	25	96	74	114029
232190	42	163	158	124550
245725	40	151	133	105416
388603	35	128	128	72875
156540	25	89	84	81964
156189	46	184	184	104880
186381	36	136	127	76302
192167	35	134	128	96740
249893	38	146	118	93071
236812	35	130	125	78912
143160	28	105	89	35224
259667	37	142	122	90694
243020	40	155	151	125369
176062	42	154	122	80849
286683	44	169	162	104434
87485	33	125	121	65702
329737	38	147	144	108179
247082	37	139	110	63583
366219	41	151	141	95066
191653	32	124	80	62486
114673	17	55	46	31081
294371	38	147	140	94584
284195	33	125	103	87408
155568	35	128	95	68966
177306	32	107	100	88766
144595	35	130	102	57139
140319	45	73	45	90586
405267	38	138	122	109249
78800	26	82	66	33032
201970	45	173	159	96056
302705	44	169	153	146648
164733	40	145	131	80613
194221	33	134	113	87026
24188	4	12	7	5950
346142	41	151	147	131106
65029	18	67	61	32551
101097	14	52	41	31701
253745	36	131	117	91072
273513	49	186	184	159803
282220	32	120	115	143950
280928	37	135	132	112368
214872	32	123	113	82124
342048	43	166	149	144068
273924	25	90	65	162627
194396	42	165	94	55062
231162	37	143	126	95329
209798	33	125	112	105612
201345	28	110	81	62853
166424	31	121	116	125976
204441	40	151	132	79146
197813	32	123	104	108461
136421	25	92	80	99971
216092	42	162	145	77826
73566	23	88	67	22618
213998	42	163	159	84892
181728	38	133	90	92059
148758	34	132	120	77993
308343	39	147	129	104155
251437	32	124	118	109840
202388	37	140	112	238712
173286	34	132	123	67486
155529	33	122	98	68007
132672	25	97	78	48194
390163	45	175	138	134796
145905	26	99	99	38692
228012	40	106	81	93587
80953	8	28	27	56622
130805	27	101	77	15986
135163	32	120	118	113402
331003	37	143	137	97967
271806	50	178	103	74844
162828	41	155	143	136051
234092	37	138	85	50548
207158	38	141	131	112215
156583	28	102	81	59591
242395	36	140	135	59938
261601	32	124	116	137639
178489	32	124	123	143372
204221	33	119	119	138599
268066	35	129	100	174110
318087	58	223	221	135062
361799	27	102	95	175681
247131	45	174	153	130307
265849	37	141	118	139141
160309	32	122	50	44244
43287	19	71	64	43750
172244	22	81	34	48029
189021	35	131	76	95216
227681	36	139	112	92288
269329	36	137	115	94588
106503	23	91	69	197426
117891	40	157	123	151244
287201	40	149	143	139206
266805	42	155	110	106271
23623	1	0	0	1168
174954	36	139	94	71764
61857	11	32	30	25162
144889	40	149	106	45635
347988	34	128	91	101817
21054	0	0	0	855
224051	27	99	69	100174
31414	8	25	9	14116
277214	35	132	123	85008
209481	44	167	150	124254
156870	40	151	125	105793
112933	28	103	81	117129
38214	8	27	21	8773
166011	36	135	128	94747
316044	47	178	168	107549
181578	48	185	155	97392
358903	45	175	157	126893
275578	48	187	145	118850
368796	49	182	172	234853
172464	35	135	126	74783
94381	32	118	89	66089
249649	36	140	137	95684
382499	42	158	149	139537
118010	35	132	121	144253
365539	42	156	149	153824
147989	34	123	93	63995
231681	41	151	135	84891
193119	36	129	102	61263
189020	32	125	45	106221
341958	33	128	104	113587
219133	35	129	111	113864
173260	21	79	78	37238
274787	42	162	126	119906
130908	49	188	176	135096
204009	33	122	109	151611
262412	39	144	132	144645
1	0	0	0	0
14688	0	0	0	6023
98	0	0	0	0
455	0	0	0	0
0	0	0	0	0
0	0	0	0	0
195765	33	120	78	77457
330975	45	179	110	62464
0	0	0	0	0
203	0	0	0	0
7199	0	0	0	1644
46660	5	15	13	6179
17547	1	4	4	3926
107465	38	133	65	42087
969	0	0	0	0
179994	28	101	55	87656

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=154553&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	2 seconds
R Server	'George Udny Yule' @ yule.wessa.net

Correlations for all pairs of data series (method=pearson)
	TimeRFC	RvwdCompend	SubFeedback	sublongfb	compChara
TimeRFC	1	0.748	0.754	0.743	0.697
RvwdCompend	0.748	1	0.982	0.91	0.671
SubFeedback	0.754	0.982	1	0.935	0.677
sublongfb	0.743	0.91	0.935	1	0.701
compChara	0.697	0.671	0.677	0.701	1

\begin{tabular}{lllllllll}
\hline
Correlations for all pairs of data series (method=pearson) \tabularnewline
  & TimeRFC & RvwdCompend & SubFeedback & sublongfb & compChara \tabularnewline
TimeRFC & 1 & 0.748 & 0.754 & 0.743 & 0.697 \tabularnewline
RvwdCompend & 0.748 & 1 & 0.982 & 0.91 & 0.671 \tabularnewline
SubFeedback & 0.754 & 0.982 & 1 & 0.935 & 0.677 \tabularnewline
sublongfb & 0.743 & 0.91 & 0.935 & 1 & 0.701 \tabularnewline
compChara & 0.697 & 0.671 & 0.677 & 0.701 & 1 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=154553&T=1

[TABLE]
[ROW][C]Correlations for all pairs of data series (method=pearson)[/C][/ROW]
[ROW][C] [/C][C]TimeRFC[/C][C]RvwdCompend[/C][C]SubFeedback[/C][C]sublongfb[/C][C]compChara[/C][/ROW]
[ROW][C]TimeRFC[/C][C]1[/C][C]0.748[/C][C]0.754[/C][C]0.743[/C][C]0.697[/C][/ROW]
[ROW][C]RvwdCompend[/C][C]0.748[/C][C]1[/C][C]0.982[/C][C]0.91[/C][C]0.671[/C][/ROW]
[ROW][C]SubFeedback[/C][C]0.754[/C][C]0.982[/C][C]1[/C][C]0.935[/C][C]0.677[/C][/ROW]
[ROW][C]sublongfb[/C][C]0.743[/C][C]0.91[/C][C]0.935[/C][C]1[/C][C]0.701[/C][/ROW]
[ROW][C]compChara[/C][C]0.697[/C][C]0.671[/C][C]0.677[/C][C]0.701[/C][C]1[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=154553&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=154553&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)
	TimeRFC	RvwdCompend	SubFeedback	sublongfb	compChara
TimeRFC	1	0.748	0.754	0.743	0.697
RvwdCompend	0.748	1	0.982	0.91	0.671
SubFeedback	0.754	0.982	1	0.935	0.677
sublongfb	0.743	0.91	0.935	1	0.701
compChara	0.697	0.671	0.677	0.701	1

Correlations for all pairs of data series with p-values
pair	Pearson r	Spearman rho	Kendall tau
TimeRFC;RvwdCompend	0.7485	0.6567	0.5038
p-value	(0)	(0)	(0)
TimeRFC;SubFeedback	0.754	0.6741	0.5128
p-value	(0)	(0)	(0)
TimeRFC;sublongfb	0.7429	0.68	0.509
p-value	(0)	(0)	(0)
TimeRFC;compChara	0.6967	0.6577	0.5011
p-value	(0)	(0)	(0)
RvwdCompend;SubFeedback	0.9817	0.9598	0.9103
p-value	(0)	(0)	(0)
RvwdCompend;sublongfb	0.91	0.8376	0.7027
p-value	(0)	(0)	(0)
RvwdCompend;compChara	0.6708	0.5247	0.3927
p-value	(0)	(0)	(0)
SubFeedback;sublongfb	0.9348	0.8833	0.7441
p-value	(0)	(0)	(0)
SubFeedback;compChara	0.6771	0.5472	0.4053
p-value	(0)	(0)	(0)
sublongfb;compChara	0.7005	0.6421	0.479
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
TimeRFC;RvwdCompend & 0.7485 & 0.6567 & 0.5038 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
TimeRFC;SubFeedback & 0.754 & 0.6741 & 0.5128 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
TimeRFC;sublongfb & 0.7429 & 0.68 & 0.509 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
TimeRFC;compChara & 0.6967 & 0.6577 & 0.5011 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
RvwdCompend;SubFeedback & 0.9817 & 0.9598 & 0.9103 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
RvwdCompend;sublongfb & 0.91 & 0.8376 & 0.7027 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
RvwdCompend;compChara & 0.6708 & 0.5247 & 0.3927 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
SubFeedback;sublongfb & 0.9348 & 0.8833 & 0.7441 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
SubFeedback;compChara & 0.6771 & 0.5472 & 0.4053 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
sublongfb;compChara & 0.7005 & 0.6421 & 0.479 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=154553&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]TimeRFC;RvwdCompend[/C][C]0.7485[/C][C]0.6567[/C][C]0.5038[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]TimeRFC;SubFeedback[/C][C]0.754[/C][C]0.6741[/C][C]0.5128[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]TimeRFC;sublongfb[/C][C]0.7429[/C][C]0.68[/C][C]0.509[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]TimeRFC;compChara[/C][C]0.6967[/C][C]0.6577[/C][C]0.5011[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]RvwdCompend;SubFeedback[/C][C]0.9817[/C][C]0.9598[/C][C]0.9103[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]RvwdCompend;sublongfb[/C][C]0.91[/C][C]0.8376[/C][C]0.7027[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]RvwdCompend;compChara[/C][C]0.6708[/C][C]0.5247[/C][C]0.3927[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]SubFeedback;sublongfb[/C][C]0.9348[/C][C]0.8833[/C][C]0.7441[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]SubFeedback;compChara[/C][C]0.6771[/C][C]0.5472[/C][C]0.4053[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]sublongfb;compChara[/C][C]0.7005[/C][C]0.6421[/C][C]0.479[/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=154553&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=154553&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
TimeRFC;RvwdCompend	0.7485	0.6567	0.5038
p-value	(0)	(0)	(0)
TimeRFC;SubFeedback	0.754	0.6741	0.5128
p-value	(0)	(0)	(0)
TimeRFC;sublongfb	0.7429	0.68	0.509
p-value	(0)	(0)	(0)
TimeRFC;compChara	0.6967	0.6577	0.5011
p-value	(0)	(0)	(0)
RvwdCompend;SubFeedback	0.9817	0.9598	0.9103
p-value	(0)	(0)	(0)
RvwdCompend;sublongfb	0.91	0.8376	0.7027
p-value	(0)	(0)	(0)
RvwdCompend;compChara	0.6708	0.5247	0.3927
p-value	(0)	(0)	(0)
SubFeedback;sublongfb	0.9348	0.8833	0.7441
p-value	(0)	(0)	(0)
SubFeedback;compChara	0.6771	0.5472	0.4053
p-value	(0)	(0)	(0)
sublongfb;compChara	0.7005	0.6421	0.479
p-value	(0)	(0)	(0)

Figure 1

PNG link

Postscript link

PDF link

Parameters (Session):

par1 = pearson ; par2 = equal ; par3 = 2 ; par4 = no ;

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