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 05:26:10 -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/t1324549576l45w90tvflqwza7.htm/, Retrieved Fri, 03 May 2024 12:13:49 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=159255, Retrieved Fri, 03 May 2024 12:13:49 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact99
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Kendall tau Correlation Matrix] [pearson correlati...] [2011-12-18 15:22:22] [9631d8669dd1906475401d4d7f07aac5]
-    D  [Kendall tau Correlation Matrix] [Pearson Correlati...] [2011-12-21 11:32:18] [2c6fcdc40ef3b1a27716d75d6f478b32]
- R         [Kendall tau Correlation Matrix] [] [2011-12-22 10:26:10] [8a4496bd93dae12a8bdfa51e6ea7daab] [Current]
Feedback Forum

Post a new message
Dataseries X:
158258	0	48	18	20465	23975
186930	1	53	20	33629	85634
7215	0	0	0	1423	1929
129098	0	51	27	25629	36294
230632	0	76	31	54002	72255
508313	1	128	36	151036	189748
180745	1	62	23	33287	61834
185559	0	83	30	31172	68167
154581	0	55	30	28113	38462
290658	1	67	26	57803	101219
121844	2	50	24	49830	43270
184039	0	77	30	52143	76183
100324	0	46	22	21055	31476
209427	4	79	25	47007	62157
168265	4	56	18	28735	46261
154593	3	54	22	59147	50063
142018	0	81	33	78950	64483
78604	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
141899	1	59	34	33797	33106
145433	1	50	21	36205	53311
183744	0	50	21	30165	42754
202232	0	61	25	58534	59056
190230	0	81	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
224049	0	67	24	46456	50210
223789	1	54	31	66616	80947
160344	8	68	26	41554	43461
48188	0	12	22	22346	14812
152206	0	86	21	30874	37819
294283	0	74	27	68701	102738
235223	0	56	30	35728	54509
195583	1	67	33	29010	62956
145942	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
126107	11	46	19	61281	47241
112718	3	53	26	25820	49611
160930	0	27	26	23284	41833
99184	0	38	33	35378	48930
182022	8	69	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
130982	0	47	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
105038	7	44	24	41622	25807
155537	0	45	21	40715	50620
153133	5	49	28	65897	61467
165577	1	72	27	76542	65292
151517	0	39	25	37477	55516
133686	0	28	15	53216	42006
58128	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
127987	0	59	23	32665	24751
113552	1	28	23	19249	34458
85338	1	36	12	15292	24649
27676	0	2	16	5842	2342
147984	0	83	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
144636	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
118893	8	59	32	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
154206	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'Herman Ole Andreas Wold' @ wold.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 & 'Herman Ole Andreas Wold' @ wold.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=159255&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]'Herman Ole Andreas Wold' @ wold.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=159255&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=159255&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'Herman Ole Andreas Wold' @ wold.wessa.net







Correlations for all pairs of data series (method=pearson)
Timesharedcomputationsreviewedcharactersseconds
Time10.0750.7860.6760.6890.859
shared0.07510.0650.1380.1390.046
computations0.7860.06510.6760.6630.767
reviewed0.6760.1380.67610.6150.62
characters0.6890.1390.6630.61510.756
seconds0.8590.0460.7670.620.7561

\begin{tabular}{lllllllll}
\hline
Correlations for all pairs of data series (method=pearson) \tabularnewline
  & Time & shared & computations & reviewed & characters & seconds \tabularnewline
Time & 1 & 0.075 & 0.786 & 0.676 & 0.689 & 0.859 \tabularnewline
shared & 0.075 & 1 & 0.065 & 0.138 & 0.139 & 0.046 \tabularnewline
computations & 0.786 & 0.065 & 1 & 0.676 & 0.663 & 0.767 \tabularnewline
reviewed & 0.676 & 0.138 & 0.676 & 1 & 0.615 & 0.62 \tabularnewline
characters & 0.689 & 0.139 & 0.663 & 0.615 & 1 & 0.756 \tabularnewline
seconds & 0.859 & 0.046 & 0.767 & 0.62 & 0.756 & 1 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=159255&T=1

[TABLE]
[ROW][C]Correlations for all pairs of data series (method=pearson)[/C][/ROW]
[ROW][C] [/C][C]Time[/C][C]shared[/C][C]computations[/C][C]reviewed[/C][C]characters[/C][C]seconds[/C][/ROW]
[ROW][C]Time[/C][C]1[/C][C]0.075[/C][C]0.786[/C][C]0.676[/C][C]0.689[/C][C]0.859[/C][/ROW]
[ROW][C]shared[/C][C]0.075[/C][C]1[/C][C]0.065[/C][C]0.138[/C][C]0.139[/C][C]0.046[/C][/ROW]
[ROW][C]computations[/C][C]0.786[/C][C]0.065[/C][C]1[/C][C]0.676[/C][C]0.663[/C][C]0.767[/C][/ROW]
[ROW][C]reviewed[/C][C]0.676[/C][C]0.138[/C][C]0.676[/C][C]1[/C][C]0.615[/C][C]0.62[/C][/ROW]
[ROW][C]characters[/C][C]0.689[/C][C]0.139[/C][C]0.663[/C][C]0.615[/C][C]1[/C][C]0.756[/C][/ROW]
[ROW][C]seconds[/C][C]0.859[/C][C]0.046[/C][C]0.767[/C][C]0.62[/C][C]0.756[/C][C]1[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=159255&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=159255&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)
Timesharedcomputationsreviewedcharactersseconds
Time10.0750.7860.6760.6890.859
shared0.07510.0650.1380.1390.046
computations0.7860.06510.6760.6630.767
reviewed0.6760.1380.67610.6150.62
characters0.6890.1390.6630.61510.756
seconds0.8590.0460.7670.620.7561







Correlations for all pairs of data series with p-values
pairPearson rSpearman rhoKendall tau
Time;shared0.07460.10280.0795
p-value(0.3739)(0.2202)(0.2126)
Time;computations0.78590.76440.5861
p-value(0)(0)(0)
Time;reviewed0.6760.58480.4334
p-value(0)(0)(0)
Time;characters0.6890.62430.47
p-value(0)(0)(0)
Time;seconds0.85950.82550.6595
p-value(0)(0)(0)
shared;computations0.06540.08840.0653
p-value(0.4359)(0.2921)(0.3093)
shared;reviewed0.13840.04650.0354
p-value(0.098)(0.5796)(0.5868)
shared;characters0.13940.1210.0924
p-value(0.0956)(0.1485)(0.1484)
shared;seconds0.04580.12240.0886
p-value(0.5858)(0.1438)(0.1657)
computations;reviewed0.67610.59060.4421
p-value(0)(0)(0)
computations;characters0.66340.63340.4755
p-value(0)(0)(0)
computations;seconds0.76690.76480.5859
p-value(0)(0)(0)
reviewed;characters0.61490.56660.4232
p-value(0)(0)(0)
reviewed;seconds0.61970.55610.415
p-value(0)(0)(0)
characters;seconds0.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.0746 & 0.1028 & 0.0795 \tabularnewline
p-value & (0.3739) & (0.2202) & (0.2126) \tabularnewline
Time;computations & 0.7859 & 0.7644 & 0.5861 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
Time;reviewed & 0.676 & 0.5848 & 0.4334 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
Time;characters & 0.689 & 0.6243 & 0.47 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
Time;seconds & 0.8595 & 0.8255 & 0.6595 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
shared;computations & 0.0654 & 0.0884 & 0.0653 \tabularnewline
p-value & (0.4359) & (0.2921) & (0.3093) \tabularnewline
shared;reviewed & 0.1384 & 0.0465 & 0.0354 \tabularnewline
p-value & (0.098) & (0.5796) & (0.5868) \tabularnewline
shared;characters & 0.1394 & 0.121 & 0.0924 \tabularnewline
p-value & (0.0956) & (0.1485) & (0.1484) \tabularnewline
shared;seconds & 0.0458 & 0.1224 & 0.0886 \tabularnewline
p-value & (0.5858) & (0.1438) & (0.1657) \tabularnewline
computations;reviewed & 0.6761 & 0.5906 & 0.4421 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
computations;characters & 0.6634 & 0.6334 & 0.4755 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
computations;seconds & 0.7669 & 0.7648 & 0.5859 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
reviewed;characters & 0.6149 & 0.5666 & 0.4232 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
reviewed;seconds & 0.6197 & 0.5561 & 0.415 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
characters;seconds & 0.7563 & 0.7017 & 0.5394 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=159255&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.0746[/C][C]0.1028[/C][C]0.0795[/C][/ROW]
[ROW][C]p-value[/C][C](0.3739)[/C][C](0.2202)[/C][C](0.2126)[/C][/ROW]
[ROW][C]Time;computations[/C][C]0.7859[/C][C]0.7644[/C][C]0.5861[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]Time;reviewed[/C][C]0.676[/C][C]0.5848[/C][C]0.4334[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]Time;characters[/C][C]0.689[/C][C]0.6243[/C][C]0.47[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]Time;seconds[/C][C]0.8595[/C][C]0.8255[/C][C]0.6595[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]shared;computations[/C][C]0.0654[/C][C]0.0884[/C][C]0.0653[/C][/ROW]
[ROW][C]p-value[/C][C](0.4359)[/C][C](0.2921)[/C][C](0.3093)[/C][/ROW]
[ROW][C]shared;reviewed[/C][C]0.1384[/C][C]0.0465[/C][C]0.0354[/C][/ROW]
[ROW][C]p-value[/C][C](0.098)[/C][C](0.5796)[/C][C](0.5868)[/C][/ROW]
[ROW][C]shared;characters[/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;seconds[/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]computations;reviewed[/C][C]0.6761[/C][C]0.5906[/C][C]0.4421[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]computations;characters[/C][C]0.6634[/C][C]0.6334[/C][C]0.4755[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]computations;seconds[/C][C]0.7669[/C][C]0.7648[/C][C]0.5859[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]reviewed;characters[/C][C]0.6149[/C][C]0.5666[/C][C]0.4232[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]reviewed;seconds[/C][C]0.6197[/C][C]0.5561[/C][C]0.415[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]characters;seconds[/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=159255&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=159255&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.07460.10280.0795
p-value(0.3739)(0.2202)(0.2126)
Time;computations0.78590.76440.5861
p-value(0)(0)(0)
Time;reviewed0.6760.58480.4334
p-value(0)(0)(0)
Time;characters0.6890.62430.47
p-value(0)(0)(0)
Time;seconds0.85950.82550.6595
p-value(0)(0)(0)
shared;computations0.06540.08840.0653
p-value(0.4359)(0.2921)(0.3093)
shared;reviewed0.13840.04650.0354
p-value(0.098)(0.5796)(0.5868)
shared;characters0.13940.1210.0924
p-value(0.0956)(0.1485)(0.1484)
shared;seconds0.04580.12240.0886
p-value(0.5858)(0.1438)(0.1657)
computations;reviewed0.67610.59060.4421
p-value(0)(0)(0)
computations;characters0.66340.63340.4755
p-value(0)(0)(0)
computations;seconds0.76690.76480.5859
p-value(0)(0)(0)
reviewed;characters0.61490.56660.4232
p-value(0)(0)(0)
reviewed;seconds0.61970.55610.415
p-value(0)(0)(0)
characters;seconds0.75630.70170.5394
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')