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

Thu, 22 Dec 2011 09:29:50 -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/22/t1324564232c1u92rxu23vvaqh.htm/, Retrieved Fri, 03 May 2024 13:23:54 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=159503, Retrieved Fri, 03 May 2024 13:23:54 +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] [Pearson Correlati...] [2011-12-22 14:29:50] [cca7c4e9d798594cd7da8d83786e39be] [Current]

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

210907	30	94	112285
120982	28	103	84786
176508	38	93	83123
179321	30	103	101193
123185	22	51	38361
52746	26	70	68504
385534	25	91	119182
33170	18	22	22807
101645	11	38	17140
149061	26	93	116174
165446	25	60	57635
237213	38	123	66198
173326	44	148	71701
133131	30	90	57793
258873	40	124	80444
180083	34	70	53855
324799	47	168	97668
230964	30	115	133824
236785	31	71	101481
135473	23	66	99645
202925	36	134	114789
215147	36	117	99052
344297	30	108	67654
153935	25	84	65553
132943	39	156	97500
174724	34	120	69112
174415	31	114	82753
225548	31	94	85323
223632	33	120	72654
124817	25	81	30727
221698	33	110	77873
210767	35	133	117478
170266	42	122	74007
260561	43	158	90183
84853	30	109	61542
294424	33	124	101494
101011	13	39	27570
215641	32	92	55813
325107	36	126	79215
7176	0	0	1423
167542	28	70	55461
106408	14	37	31081
96560	17	38	22996
265769	32	120	83122
269651	30	93	70106
149112	35	95	60578
175824	20	77	39992
152871	28	90	79892
111665	28	80	49810
116408	39	31	71570
362301	34	110	100708
78800	26	66	33032
183167	39	138	82875
277965	39	133	139077
150629	33	113	71595
168809	28	100	72260
24188	4	7	5950
329267	39	140	115762
65029	18	61	32551
101097	14	41	31701
218946	29	96	80670
244052	44	164	143558
341570	21	78	117105
103597	16	49	23789
233328	28	102	120733
256462	35	124	105195
206161	28	99	73107
311473	38	129	132068
235800	23	62	149193
177939	36	73	46821
207176	32	114	87011
196553	29	99	95260
174184	25	70	55183
143246	27	104	106671
187559	36	116	73511
187681	28	91	92945
119016	23	74	78664
182192	40	138	70054
73566	23	67	22618
194979	40	151	74011
167488	28	72	83737
143756	34	120	69094
275541	33	115	93133
243199	28	105	95536
182999	34	104	225920
135649	30	108	62133
152299	33	98	61370
120221	22	69	43836
346485	38	111	106117
145790	26	99	38692
193339	35	71	84651
80953	8	27	56622
122774	24	69	15986
130585	29	107	95364
112611	20	73	26706
286468	29	107	89691
241066	45	93	67267
148446	37	129	126846
204713	33	69	41140
182079	33	118	102860
140344	25	73	51715
220516	32	119	55801
243060	29	104	111813
162765	28	107	120293
182613	28	99	138599
232138	31	90	161647
265318	52	197	115929
85574	21	36	24266
310839	24	85	162901
225060	41	139	109825
232317	33	106	129838
144966	32	50	37510
43287	19	64	43750
155754	20	31	40652
164709	31	63	87771
201940	31	92	85872
235454	32	106	89275
220801	18	63	44418
99466	23	69	192565
92661	17	41	35232
133328	20	56	40909
61361	12	25	13294
125930	17	65	32387
100750	30	93	140867
224549	31	114	120662
82316	10	38	21233
102010	13	44	44332
101523	22	87	61056
243511	42	110	101338
22938	1	0	1168
41566	9	27	13497
152474	32	83	65567
61857	11	30	25162
99923	25	80	32334
132487	36	98	40735
317394	31	82	91413
21054	0	0	855
209641	24	60	97068
22648	13	28	44339
31414	8	9	14116
46698	13	33	10288
131698	19	59	65622
91735	18	49	16563
244749	33	115	76643
184510	40	140	110681
79863	22	49	29011
128423	38	120	92696
97839	24	66	94785
38214	8	21	8773
151101	35	124	83209
272458	43	152	93815
172494	43	139	86687
108043	14	38	34553
328107	41	144	105547
250579	38	120	103487
351067	45	160	213688
158015	31	114	71220
98866	13	39	23517
85439	28	78	56926
229242	31	119	91721
351619	40	141	115168
84207	30	101	111194
120445	16	56	51009
324598	37	133	135777
131069	30	83	51513
204271	35	116	74163
165543	32	90	51633
141722	27	36	75345
116048	20	50	33416
250047	18	61	83305
299775	31	97	98952
195838	31	98	102372
173260	21	78	37238
254488	39	117	103772
104389	41	148	123969
136084	13	41	27142
199476	32	105	135400
92499	18	55	21399
224330	39	132	130115
135781	14	44	24874
74408	7	21	34988
81240	17	50	45549
14688	0	0	6023
181633	30	73	64466
271856	37	86	54990
7199	0	0	1644
46660	5	13	6179
17547	1	4	3926
133368	16	57	32755
95227	32	48	34777
152601	24	46	73224
98146	17	48	27114
79619	11	32	20760
59194	24	68	37636
139942	22	87	65461
118612	12	43	30080
72880	19	67	24094
65475	13	46	69008
99643	17	46	54968
71965	15	56	46090
77272	16	48	27507
49289	24	44	10672
135131	15	60	34029
108446	17	65	46300
89746	18	55	24760
44296	20	38	18779
77648	16	52	21280
181528	16	60	40662
134019	18	54	28987
124064	22	86	22827
92630	8	24	18513
121848	17	52	30594
52915	18	49	24006
81872	16	61	27913
58981	23	61	42744
53515	22	81	12934
60812	13	43	22574
56375	13	40	41385
65490	16	40	18653
80949	16	56	18472
76302	20	68	30976
104011	22	79	63339
98104	17	47	25568
67989	18	57	33747
30989	17	41	4154
135458	12	29	19474
73504	7	3	35130
63123	17	60	39067
61254	14	30	13310
74914	23	79	65892
31774	17	47	4143
81437	14	40	28579
87186	15	48	51776
50090	17	36	21152
65745	21	42	38084
56653	18	49	27717
158399	18	57	32928
46455	17	12	11342
73624	17	40	19499
38395	16	43	16380
91899	15	33	36874
139526	21	77	48259
52164	16	43	16734
51567	14	45	28207
70551	15	47	30143
84856	17	43	41369
102538	15	45	45833
86678	15	50	29156
85709	10	35	35944
34662	6	7	36278
150580	22	71	45588
99611	21	67	45097
19349	1	0	3895
99373	18	62	28394
86230	17	54	18632
30837	4	4	2325
31706	10	25	25139
89806	16	40	27975
62088	16	38	14483
40151	9	19	13127
27634	16	17	5839
76990	17	67	24069
37460	7	14	3738
54157	15	30	18625
49862	14	54	36341
84337	14	35	24548
64175	18	59	21792
59382	12	24	26263
119308	16	58	23686
76702	21	42	49303
103425	19	46	25659
70344	16	61	28904
43410	1	3	2781
104838	16	52	29236
62215	10	25	19546
69304	19	40	22818
53117	12	32	32689
19764	2	4	5752
86680	14	49	22197
84105	17	63	20055
77945	19	67	25272
89113	14	32	82206
91005	11	23	32073
40248	4	7	5444
64187	16	54	20154
50857	20	37	36944
56613	12	35	8019
62792	15	51	30884
72535	16	39	19540

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	'Gertrude Mary Cox' @ cox.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 & 'Gertrude Mary Cox' @ cox.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=159503&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]'Gertrude Mary Cox' @ cox.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=159503&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=159503&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	'Gertrude Mary Cox' @ cox.wessa.net

Correlations for all pairs of data series (method=pearson)
	Time	Reviews	Feedback	Size
Time	1	0.758	0.769	0.746
Reviews	0.758	1	0.918	0.734
Feedback	0.769	0.918	1	0.755
Size	0.746	0.734	0.755	1

\begin{tabular}{lllllllll}
\hline
Correlations for all pairs of data series (method=pearson) \tabularnewline
  & Time & Reviews & Feedback & Size \tabularnewline
Time & 1 & 0.758 & 0.769 & 0.746 \tabularnewline
Reviews & 0.758 & 1 & 0.918 & 0.734 \tabularnewline
Feedback & 0.769 & 0.918 & 1 & 0.755 \tabularnewline
Size & 0.746 & 0.734 & 0.755 & 1 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=159503&T=1

[TABLE]
[ROW][C]Correlations for all pairs of data series (method=pearson)[/C][/ROW]
[ROW][C] [/C][C]Time[/C][C]Reviews[/C][C]Feedback[/C][C]Size[/C][/ROW]
[ROW][C]Time[/C][C]1[/C][C]0.758[/C][C]0.769[/C][C]0.746[/C][/ROW]
[ROW][C]Reviews[/C][C]0.758[/C][C]1[/C][C]0.918[/C][C]0.734[/C][/ROW]
[ROW][C]Feedback[/C][C]0.769[/C][C]0.918[/C][C]1[/C][C]0.755[/C][/ROW]
[ROW][C]Size[/C][C]0.746[/C][C]0.734[/C][C]0.755[/C][C]1[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=159503&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=159503&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)
	Time	Reviews	Feedback	Size
Time	1	0.758	0.769	0.746
Reviews	0.758	1	0.918	0.734
Feedback	0.769	0.918	1	0.755
Size	0.746	0.734	0.755	1

Correlations for all pairs of data series with p-values
pair	Pearson r	Spearman rho	Kendall tau
Time;Reviews	0.758	0.7892	0.5899
p-value	(0)	(0)	(0)
Time;Feedback	0.7689	0.8052	0.6046
p-value	(0)	(0)	(0)
Time;Size	0.7462	0.8118	0.6171
p-value	(0)	(0)	(0)
Reviews;Feedback	0.9182	0.9067	0.7707
p-value	(0)	(0)	(0)
Reviews;Size	0.7345	0.7899	0.5825
p-value	(0)	(0)	(0)
Feedback;Size	0.7553	0.8089	0.6106
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
Time;Reviews & 0.758 & 0.7892 & 0.5899 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
Time;Feedback & 0.7689 & 0.8052 & 0.6046 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
Time;Size & 0.7462 & 0.8118 & 0.6171 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
Reviews;Feedback & 0.9182 & 0.9067 & 0.7707 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
Reviews;Size & 0.7345 & 0.7899 & 0.5825 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
Feedback;Size & 0.7553 & 0.8089 & 0.6106 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=159503&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]Time;Reviews[/C][C]0.758[/C][C]0.7892[/C][C]0.5899[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]Time;Feedback[/C][C]0.7689[/C][C]0.8052[/C][C]0.6046[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]Time;Size[/C][C]0.7462[/C][C]0.8118[/C][C]0.6171[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]Reviews;Feedback[/C][C]0.9182[/C][C]0.9067[/C][C]0.7707[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]Reviews;Size[/C][C]0.7345[/C][C]0.7899[/C][C]0.5825[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]Feedback;Size[/C][C]0.7553[/C][C]0.8089[/C][C]0.6106[/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=159503&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=159503&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
Time;Reviews	0.758	0.7892	0.5899
p-value	(0)	(0)	(0)
Time;Feedback	0.7689	0.8052	0.6046
p-value	(0)	(0)	(0)
Time;Size	0.7462	0.8118	0.6171
p-value	(0)	(0)	(0)
Reviews;Feedback	0.9182	0.9067	0.7707
p-value	(0)	(0)	(0)
Reviews;Size	0.7345	0.7899	0.5825
p-value	(0)	(0)	(0)
Feedback;Size	0.7553	0.8089	0.6106
p-value	(0)	(0)	(0)

Figure 1

PNG link

Postscript link

PDF link

Parameters (Session):

par1 = FALSE ; par2 = 0.5 ; par3 = 1 ; par4 = 1 ; par5 = 12 ; par6 = 3 ; par7 = 1 ; par8 = 2 ; par9 = 1 ;

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