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 computationWed, 21 Dec 2011 09:31:31 -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/21/t1324477935e1mfvymp7jv147o.htm/, Retrieved Tue, 07 May 2024 14:56:21 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=158747, Retrieved Tue, 07 May 2024 14:56:21 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact62
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Kendall tau Correlation Matrix] [Kendall Tau corre...] [2011-12-21 14:31:31] [2d8eb933f626a8d2aaa7a56374bb41d5] [Current]
Feedback Forum

Post a new message
Dataseries X:
159261	0	48	19	20465	23975
189672	1	53	20	33629	85634
7215	0	0	0	1423	1929
129098	0	51	27	25629	36294
230632	0	76	31	54002	72255
515038	1	136	36	151036	189748
180745	1	62	23	33287	61834
185559	0	83	30	31172	68167
154581	0	55	30	28113	38462
298001	1	67	26	57803	101219
121844	2	50	24	49830	43270
184039	0	77	30	52143	76183
100324	0	46	22	21055	31476
217742	4	79	28	47007	62157
168265	4	56	18	28735	46261
154647	3	54	22	59147	50063
142018	0	81	33	78950	64483
79030	5	6	15	13497	2341
167047	0	74	34	46154	48149
27997	0	13	18	53249	12743
73019	0	22	15	10726	18743
241082	0	99	30	83700	97057
195820	0	38	25	40400	17675
142001	1	59	34	33797	33106
145433	1	50	21	36205	53311
183744	0	50	21	30165	42754
202232	0	61	25	58534	59056
199532	0	87	31	44663	101621
354924	0	60	31	92556	118120
192399	0	52	20	40078	79572
182286	0	61	28	34711	42744
181590	2	60	22	31076	65931
133801	4	53	17	74608	38575
233686	0	76	25	58092	28795
219428	1	63	24	42009	94440
0	0	0	0	0	0
223044	0	54	28	36022	38229
100129	3	44	14	23333	31972
136733	9	36	35	53349	40071
249965	0	83	34	92596	132480
242379	2	105	22	49598	62797
145794	0	37	34	44093	40429
96404	2	25	23	84205	45545
195891	1	64	24	63369	57568
117156	2	55	26	60132	39019
157787	2	41	22	37403	53866
81293	1	23	35	24460	38345
237435	0	75	24	46456	50210
233155	1	59	31	66616	80947
160344	8	68	26	41554	43461
48188	0	12	22	22346	14812
161922	0	99	21	30874	37819
307432	0	78	27	68701	102738
235223	0	56	30	35728	54509
195583	1	67	33	29010	62956
146061	8	40	11	23110	55411
208834	0	53	26	38844	50611
93764	1	26	26	27084	26692
151985	0	67	23	35139	60056
190545	10	36	38	57476	25155
148922	6	50	31	33277	42840
132856	0	48	20	31141	39358
129561	11	46	22	61281	47241
112718	3	53	26	25820	49611
160930	0	27	26	23284	41833
99184	0	38	33	35378	48930
192535	8	71	36	74990	110600
138708	2	93	25	29653	52235
114408	0	59	24	64622	53986
31970	0	5	21	4157	4105
225558	3	53	19	29245	59331
137011	1	40	12	50008	47796
113612	2	72	30	52338	38302
108641	1	51	21	13310	14063
162203	0	81	34	92901	54414
100098	2	27	32	10956	9903
174768	1	94	28	34241	53987
158459	0	71	28	75043	88937
80934	0	20	21	21152	21928
84971	0	34	31	42249	29487
80545	0	54	26	42005	35334
287191	0	49	29	41152	57596
62974	1	26	23	14399	29750
134091	0	48	25	28263	41029
75555	0	35	22	17215	12416
162154	0	32	26	48140	51158
226638	0	55	33	62897	79935
115019	0	58	24	22883	26552
108749	7	44	24	41622	25807
155537	0	45	21	40715	50620
153133	5	49	28	65897	61467
165618	1	72	27	76542	65292
151517	0	39	25	37477	55516
133686	0	28	15	53216	42006
61342	0	24	13	40911	26273
245196	0	52	36	57021	90248
195576	0	96	24	73116	61476
19349	0	13	1	3895	9604
225371	3	38	24	46609	45108
152796	0	41	31	29351	47232
59117	0	24	4	2325	3439
91762	0	54	21	31747	30553
136769	0	68	23	32665	24751
114798	1	28	23	19249	34458
85338	1	36	12	15292	24649
27676	0	2	16	5842	2342
153535	0	91	29	33994	52739
122417	0	29	26	13018	6245
0	0	0	0	0	0
91529	0	46	25	98177	35381
107205	0	25	21	37941	19595
144664	0	51	23	31032	50848
136540	0	59	21	32683	39443
76656	0	36	21	34545	27023
3616	0	0	0	0	0
0	0	0	0	0	0
183065	0	40	23	27525	61022
144677	0	68	33	66856	63528
159104	2	28	30	28549	34835
113273	0	36	23	38610	37172
43410	0	7	1	2781	13
175774	1	70	29	41211	62548
95401	0	30	18	22698	31334
134837	8	69	33	41194	20839
60493	3	3	12	32689	5084
19764	1	10	2	5752	9927
164062	3	46	21	26757	53229
132696	0	34	28	22527	29877
155367	0	54	29	44810	37310
11796	0	1	2	0	0
10674	0	0	0	0	0
142261	0	39	18	100674	50067
6836	0	0	1	0	0
162563	6	48	21	57786	47708
5118	0	5	0	0	0
40248	1	8	4	5444	6012
0	0	0	0	0	0
122641	0	38	25	28470	27749
88837	0	21	26	61849	47555
7131	1	0	0	0	0
9056	0	0	4	2179	1336
76611	1	15	17	8019	11017
132697	0	50	21	39644	55184
100681	1	17	22	23494	43485




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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=158747&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=kendall)
timesharedblogsreviewsCWcharactersCwseconds
time10.0820.5930.4360.4730.658
shared0.08210.0660.0460.0920.089
blogs0.5930.06610.4440.4750.582
reviews0.4360.0460.44410.4280.418
CWcharacters0.4730.0920.4750.42810.539
Cwseconds0.6580.0890.5820.4180.5391

\begin{tabular}{lllllllll}
\hline
Correlations for all pairs of data series (method=kendall) \tabularnewline
  & time & shared & blogs & reviews & CWcharacters & Cwseconds \tabularnewline
time & 1 & 0.082 & 0.593 & 0.436 & 0.473 & 0.658 \tabularnewline
shared & 0.082 & 1 & 0.066 & 0.046 & 0.092 & 0.089 \tabularnewline
blogs & 0.593 & 0.066 & 1 & 0.444 & 0.475 & 0.582 \tabularnewline
reviews & 0.436 & 0.046 & 0.444 & 1 & 0.428 & 0.418 \tabularnewline
CWcharacters & 0.473 & 0.092 & 0.475 & 0.428 & 1 & 0.539 \tabularnewline
Cwseconds & 0.658 & 0.089 & 0.582 & 0.418 & 0.539 & 1 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=158747&T=1

[TABLE]
[ROW][C]Correlations for all pairs of data series (method=kendall)[/C][/ROW]
[ROW][C] [/C][C]time[/C][C]shared[/C][C]blogs[/C][C]reviews[/C][C]CWcharacters[/C][C]Cwseconds[/C][/ROW]
[ROW][C]time[/C][C]1[/C][C]0.082[/C][C]0.593[/C][C]0.436[/C][C]0.473[/C][C]0.658[/C][/ROW]
[ROW][C]shared[/C][C]0.082[/C][C]1[/C][C]0.066[/C][C]0.046[/C][C]0.092[/C][C]0.089[/C][/ROW]
[ROW][C]blogs[/C][C]0.593[/C][C]0.066[/C][C]1[/C][C]0.444[/C][C]0.475[/C][C]0.582[/C][/ROW]
[ROW][C]reviews[/C][C]0.436[/C][C]0.046[/C][C]0.444[/C][C]1[/C][C]0.428[/C][C]0.418[/C][/ROW]
[ROW][C]CWcharacters[/C][C]0.473[/C][C]0.092[/C][C]0.475[/C][C]0.428[/C][C]1[/C][C]0.539[/C][/ROW]
[ROW][C]Cwseconds[/C][C]0.658[/C][C]0.089[/C][C]0.582[/C][C]0.418[/C][C]0.539[/C][C]1[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=158747&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=158747&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)
timesharedblogsreviewsCWcharactersCwseconds
time10.0820.5930.4360.4730.658
shared0.08210.0660.0460.0920.089
blogs0.5930.06610.4440.4750.582
reviews0.4360.0460.44410.4280.418
CWcharacters0.4730.0920.4750.42810.539
Cwseconds0.6580.0890.5820.4180.5391







Correlations for all pairs of data series with p-values
pairPearson rSpearman rhoKendall tau
time;shared0.08270.10780.0823
p-value(0.3244)(0.1983)(0.1972)
time;blogs0.78740.77250.5934
p-value(0)(0)(0)
time;reviews0.67640.5890.4361
p-value(0)(0)(0)
time;CWcharacters0.68960.62640.4727
p-value(0)(0)(0)
time;Cwseconds0.86070.82420.6583
p-value(0)(0)(0)
shared;blogs0.06630.08950.0662
p-value(0.4297)(0.2862)(0.3028)
shared;reviews0.15270.06040.046
p-value(0.0676)(0.4721)(0.4797)
shared;CWcharacters0.13940.1210.0924
p-value(0.0956)(0.1485)(0.1484)
shared;Cwseconds0.04580.12240.0886
p-value(0.5858)(0.1438)(0.1657)
blogs;reviews0.67240.5950.4443
p-value(0)(0)(0)
blogs;CWcharacters0.65830.63280.4752
p-value(0)(0)(0)
blogs;Cwseconds0.76220.75820.5821
p-value(0)(0)(0)
reviews;CWcharacters0.61660.57270.4279
p-value(0)(0)(0)
reviews;Cwseconds0.61970.5590.4177
p-value(0)(0)(0)
CWcharacters;Cwseconds0.75630.70170.5394
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;shared & 0.0827 & 0.1078 & 0.0823 \tabularnewline
p-value & (0.3244) & (0.1983) & (0.1972) \tabularnewline
time;blogs & 0.7874 & 0.7725 & 0.5934 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
time;reviews & 0.6764 & 0.589 & 0.4361 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
time;CWcharacters & 0.6896 & 0.6264 & 0.4727 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
time;Cwseconds & 0.8607 & 0.8242 & 0.6583 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
shared;blogs & 0.0663 & 0.0895 & 0.0662 \tabularnewline
p-value & (0.4297) & (0.2862) & (0.3028) \tabularnewline
shared;reviews & 0.1527 & 0.0604 & 0.046 \tabularnewline
p-value & (0.0676) & (0.4721) & (0.4797) \tabularnewline
shared;CWcharacters & 0.1394 & 0.121 & 0.0924 \tabularnewline
p-value & (0.0956) & (0.1485) & (0.1484) \tabularnewline
shared;Cwseconds & 0.0458 & 0.1224 & 0.0886 \tabularnewline
p-value & (0.5858) & (0.1438) & (0.1657) \tabularnewline
blogs;reviews & 0.6724 & 0.595 & 0.4443 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
blogs;CWcharacters & 0.6583 & 0.6328 & 0.4752 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
blogs;Cwseconds & 0.7622 & 0.7582 & 0.5821 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
reviews;CWcharacters & 0.6166 & 0.5727 & 0.4279 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
reviews;Cwseconds & 0.6197 & 0.559 & 0.4177 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
CWcharacters;Cwseconds & 0.7563 & 0.7017 & 0.5394 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=158747&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;shared[/C][C]0.0827[/C][C]0.1078[/C][C]0.0823[/C][/ROW]
[ROW][C]p-value[/C][C](0.3244)[/C][C](0.1983)[/C][C](0.1972)[/C][/ROW]
[ROW][C]time;blogs[/C][C]0.7874[/C][C]0.7725[/C][C]0.5934[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]time;reviews[/C][C]0.6764[/C][C]0.589[/C][C]0.4361[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]time;CWcharacters[/C][C]0.6896[/C][C]0.6264[/C][C]0.4727[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]time;Cwseconds[/C][C]0.8607[/C][C]0.8242[/C][C]0.6583[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]shared;blogs[/C][C]0.0663[/C][C]0.0895[/C][C]0.0662[/C][/ROW]
[ROW][C]p-value[/C][C](0.4297)[/C][C](0.2862)[/C][C](0.3028)[/C][/ROW]
[ROW][C]shared;reviews[/C][C]0.1527[/C][C]0.0604[/C][C]0.046[/C][/ROW]
[ROW][C]p-value[/C][C](0.0676)[/C][C](0.4721)[/C][C](0.4797)[/C][/ROW]
[ROW][C]shared;CWcharacters[/C][C]0.1394[/C][C]0.121[/C][C]0.0924[/C][/ROW]
[ROW][C]p-value[/C][C](0.0956)[/C][C](0.1485)[/C][C](0.1484)[/C][/ROW]
[ROW][C]shared;Cwseconds[/C][C]0.0458[/C][C]0.1224[/C][C]0.0886[/C][/ROW]
[ROW][C]p-value[/C][C](0.5858)[/C][C](0.1438)[/C][C](0.1657)[/C][/ROW]
[ROW][C]blogs;reviews[/C][C]0.6724[/C][C]0.595[/C][C]0.4443[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]blogs;CWcharacters[/C][C]0.6583[/C][C]0.6328[/C][C]0.4752[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]blogs;Cwseconds[/C][C]0.7622[/C][C]0.7582[/C][C]0.5821[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]reviews;CWcharacters[/C][C]0.6166[/C][C]0.5727[/C][C]0.4279[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]reviews;Cwseconds[/C][C]0.6197[/C][C]0.559[/C][C]0.4177[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]CWcharacters;Cwseconds[/C][C]0.7563[/C][C]0.7017[/C][C]0.5394[/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=158747&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=158747&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
time;shared0.08270.10780.0823
p-value(0.3244)(0.1983)(0.1972)
time;blogs0.78740.77250.5934
p-value(0)(0)(0)
time;reviews0.67640.5890.4361
p-value(0)(0)(0)
time;CWcharacters0.68960.62640.4727
p-value(0)(0)(0)
time;Cwseconds0.86070.82420.6583
p-value(0)(0)(0)
shared;blogs0.06630.08950.0662
p-value(0.4297)(0.2862)(0.3028)
shared;reviews0.15270.06040.046
p-value(0.0676)(0.4721)(0.4797)
shared;CWcharacters0.13940.1210.0924
p-value(0.0956)(0.1485)(0.1484)
shared;Cwseconds0.04580.12240.0886
p-value(0.5858)(0.1438)(0.1657)
blogs;reviews0.67240.5950.4443
p-value(0)(0)(0)
blogs;CWcharacters0.65830.63280.4752
p-value(0)(0)(0)
blogs;Cwseconds0.76220.75820.5821
p-value(0)(0)(0)
reviews;CWcharacters0.61660.57270.4279
p-value(0)(0)(0)
reviews;Cwseconds0.61970.5590.4177
p-value(0)(0)(0)
CWcharacters;Cwseconds0.75630.70170.5394
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')