FreeStatistics.org

Free Statistics

of Irreproducible Research!

Description of Statistical Computation

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, 14 Dec 2011 07:51:45 -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/14/t1323867124qn1e8wv5cb28d5z.htm/, Retrieved Fri, 01 Nov 2024 00:38:30 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=154909, Retrieved Fri, 01 Nov 2024 00:38:30 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact135

Tree of Dependent Computations

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 18:04:16] [b98453cac15ba1066b407e146608df68]
- RMPD    [Kendall tau Correlation Matrix] [kendall tau corre...] [2011-12-14 12:51:45] [5363b79245edacd2d961915f77b3b63a] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
1	78	20	17	30	28
2	46	38	17	42	39
3	18	0	0	0	0
4	84	49	22	54	54
5	125	74	30	86	80
6	215	104	31	157	144
7	50	37	19	36	36
8	48	53	25	48	48
9	37	42	30	45	42
10	86	62	26	77	71
11	69	50	20	49	49
12	59	65	25	77	74
13	85	28	15	28	27
14	84	48	22	84	83
15	44	42	12	31	31
16	67	47	19	28	28
17	49	71	28	99	98
18	47	0	12	2	2
19	77	50	28	41	43
20	20	12	13	25	24
21	49	16	14	16	16
22	81	76	27	96	95
23	58	29	25	23	22
24	45	38	30	33	33
25	73	50	18	46	45
26	22	33	17	59	59
27	138	45	22	72	66
28	74	59	28	72	70
29	102	49	25	62	56
30	35	40	16	55	55
31	39	40	23	27	27
32	38	51	20	41	37
33	88	41	11	51	48
34	102	73	20	26	26
35	42	43	21	65	64
36	1	0	0	0	0
37	54	46	27	28	21
38	46	44	14	44	44
39	41	31	29	36	36
40	49	71	31	100	89
41	56	61	19	104	101
42	47	28	30	35	31
43	25	21	23	69	65
44	62	42	20	73	71
45	41	44	22	106	102
46	72	34	19	53	53
47	26	15	32	43	41
48	77	46	18	49	46
49	75	43	26	38	37
50	51	47	25	51	51
51	28	12	22	14	14
52	54	42	19	40	40
53	64	56	24	79	77
54	67	41	26	52	51
55	48	48	27	44	43
56	44	30	10	34	33
57	55	44	26	47	47
58	17	25	21	32	31
59	55	42	21	31	31
60	72	28	34	40	40
61	47	33	29	42	42
62	62	32	18	34	35
63	45	28	16	40	40
64	29	31	23	35	30
65	25	13	22	11	11
66	37	38	29	43	41
67	60	39	31	53	53
68	57	68	21	82	82
69	32	32	21	41	41
70	15	5	21	6	6
71	102	53	15	82	81
72	52	33	9	47	47
73	53	48	21	108	100
74	58	36	18	46	46
75	51	52	31	38	38
76	31	0	24	0	0
77	50	52	24	45	45
78	78	45	22	57	56
79	23	16	21	20	18
80	66	33	26	56	54
81	56	48	22	38	37
82	51	33	26	42	40
83	24	24	20	37	37
84	32	37	25	36	36
85	36	16	19	34	34
86	42	32	22	53	49
87	180	48	25	85	82
88	83	36	19	36	36
89	46	29	21	33	33
90	40	26	20	57	55
91	33	37	23	50	50
92	66	58	22	71	71
93	52	35	21	32	31
94	51	24	12	45	42
95	30	18	9	33	31
96	89	37	32	53	51
97	49	86	24	64	64
98	12	13	1	14	14
99	83	20	24	38	37
100	51	32	20	39	37
101	24	8	4	8	8
102	19	38	15	38	38
103	44	45	21	24	23
104	52	24	23	22	22
105	35	23	12	18	18
106	22	2	16	3	1
107	32	52	24	49	48
108	22	5	9	5	5
109	0	0	0	0	0
110	26	43	22	47	46
111	48	18	17	33	33
112	35	41	18	44	41
113	47	45	21	56	57
114	55	29	17	49	49
115	5	0	0	0	0
116	0	0	0	0	0
117	37	32	20	45	45
118	65	58	26	78	78
119	81	17	26	51	46
120	32	24	20	25	25
121	19	7	1	1	1
122	58	62	24	62	59
123	33	30	14	29	29
124	42	49	26	26	26
125	37	3	12	4	4
126	12	10	2	10	10
127	41	42	16	43	43
128	23	18	22	36	36
129	35	40	28	43	41
130	9	1	2	0	0
131	9	0	0	0	0
132	49	29	17	33	32
133	3	0	1	0	0
134	41	46	17	53	53
135	3	5	0	0	0
136	16	8	4	6	6
137	0	0	0	0	0
138	41	21	25	19	18
139	31	21	26	26	26
140	4	0	0	0	0
141	11	0	0	0	0
142	20	15	15	16	16
143	40	40	18	84	84
144	16	17	19	28	22

Tables (Output of Computation)





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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=154909&T=0

As an alternative you can also use a QR Code:  
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 time1 seconds
R Server'Gwilym Jenkins' @ jenkins.wessa.net






Correlations for all pairs of data series (method=kendall)
RankingLoginsBloggedComputationsReviewedCompendiumsincludedhyperlinksincludedblogs
Ranking1-0.335-0.305-0.211-0.242-0.242
Logins-0.33510.5090.3380.4610.462
BloggedComputations-0.3050.50910.4040.6240.63
ReviewedCompendiums-0.2110.3380.40410.3680.362
includedhyperlinks-0.2420.4610.6240.36810.972
includedblogs-0.2420.4620.630.3620.9721

\begin{tabular}{lllllllll}
\hline
Correlations for all pairs of data series (method=kendall) \tabularnewline
  & Ranking & Logins & BloggedComputations & ReviewedCompendiums & includedhyperlinks & includedblogs \tabularnewline
Ranking & 1 & -0.335 & -0.305 & -0.211 & -0.242 & -0.242 \tabularnewline
Logins & -0.335 & 1 & 0.509 & 0.338 & 0.461 & 0.462 \tabularnewline
BloggedComputations & -0.305 & 0.509 & 1 & 0.404 & 0.624 & 0.63 \tabularnewline
ReviewedCompendiums & -0.211 & 0.338 & 0.404 & 1 & 0.368 & 0.362 \tabularnewline
includedhyperlinks & -0.242 & 0.461 & 0.624 & 0.368 & 1 & 0.972 \tabularnewline
includedblogs & -0.242 & 0.462 & 0.63 & 0.362 & 0.972 & 1 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=154909&T=1

[TABLE]
[ROW][C]Correlations for all pairs of data series (method=kendall)[/C][/ROW]
[ROW][C] [/C][C]Ranking[/C][C]Logins[/C][C]BloggedComputations[/C][C]ReviewedCompendiums[/C][C]includedhyperlinks[/C][C]includedblogs[/C][/ROW]
[ROW][C]Ranking[/C][C]1[/C][C]-0.335[/C][C]-0.305[/C][C]-0.211[/C][C]-0.242[/C][C]-0.242[/C][/ROW]
[ROW][C]Logins[/C][C]-0.335[/C][C]1[/C][C]0.509[/C][C]0.338[/C][C]0.461[/C][C]0.462[/C][/ROW]
[ROW][C]BloggedComputations[/C][C]-0.305[/C][C]0.509[/C][C]1[/C][C]0.404[/C][C]0.624[/C][C]0.63[/C][/ROW]
[ROW][C]ReviewedCompendiums[/C][C]-0.211[/C][C]0.338[/C][C]0.404[/C][C]1[/C][C]0.368[/C][C]0.362[/C][/ROW]
[ROW][C]includedhyperlinks[/C][C]-0.242[/C][C]0.461[/C][C]0.624[/C][C]0.368[/C][C]1[/C][C]0.972[/C][/ROW]
[ROW][C]includedblogs[/C][C]-0.242[/C][C]0.462[/C][C]0.63[/C][C]0.362[/C][C]0.972[/C][C]1[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=154909&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=154909&T=1

As an alternative you can also use a QR Code:  
QR Code


The GUIDs for individual cells are displayed in the table below:

Correlations for all pairs of data series (method=kendall)
RankingLoginsBloggedComputationsReviewedCompendiumsincludedhyperlinksincludedblogs
Ranking1-0.335-0.305-0.211-0.242-0.242
Logins-0.33510.5090.3380.4610.462
BloggedComputations-0.3050.50910.4040.6240.63
ReviewedCompendiums-0.2110.3380.40410.3680.362
includedhyperlinks-0.2420.4610.6240.36810.972
includedblogs-0.2420.4620.630.3620.9721






Correlations for all pairs of data series with p-values
pairPearson rSpearman rhoKendall tau
Ranking;Logins-0.4391-0.4785-0.3349
p-value(0)(0)(0)
Ranking;BloggedComputations-0.429-0.4237-0.3052
p-value(0)(0)(0)
Ranking;ReviewedCompendiums-0.3541-0.2994-0.2107
p-value(0)(3e-04)(2e-04)
Ranking;includedhyperlinks-0.3716-0.342-0.2415
p-value(0)(0)(0)
Ranking;includedblogs-0.3667-0.3404-0.2419
p-value(0)(0)(0)
Logins;BloggedComputations0.66250.67780.5085
p-value(0)(0)(0)
Logins;ReviewedCompendiums0.50880.46470.3378
p-value(0)(0)(0)
Logins;includedhyperlinks0.65660.62490.4608
p-value(0)(0)(0)
Logins;includedblogs0.64760.62580.4616
p-value(0)(0)(0)
BloggedComputations;ReviewedCompendiums0.63630.5430.4038
p-value(0)(0)(0)
BloggedComputations;includedhyperlinks0.82440.77860.6236
p-value(0)(0)(0)
BloggedComputations;includedblogs0.82830.78430.63
p-value(0)(0)(0)
ReviewedCompendiums;includedhyperlinks0.58150.50590.368
p-value(0)(0)(0)
ReviewedCompendiums;includedblogs0.57950.49980.3616
p-value(0)(0)(0)
includedhyperlinks;includedblogs0.99760.99720.9724
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
Ranking;Logins & -0.4391 & -0.4785 & -0.3349 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
Ranking;BloggedComputations & -0.429 & -0.4237 & -0.3052 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
Ranking;ReviewedCompendiums & -0.3541 & -0.2994 & -0.2107 \tabularnewline
p-value & (0) & (3e-04) & (2e-04) \tabularnewline
Ranking;includedhyperlinks & -0.3716 & -0.342 & -0.2415 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
Ranking;includedblogs & -0.3667 & -0.3404 & -0.2419 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
Logins;BloggedComputations & 0.6625 & 0.6778 & 0.5085 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
Logins;ReviewedCompendiums & 0.5088 & 0.4647 & 0.3378 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
Logins;includedhyperlinks & 0.6566 & 0.6249 & 0.4608 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
Logins;includedblogs & 0.6476 & 0.6258 & 0.4616 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
BloggedComputations;ReviewedCompendiums & 0.6363 & 0.543 & 0.4038 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
BloggedComputations;includedhyperlinks & 0.8244 & 0.7786 & 0.6236 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
BloggedComputations;includedblogs & 0.8283 & 0.7843 & 0.63 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
ReviewedCompendiums;includedhyperlinks & 0.5815 & 0.5059 & 0.368 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
ReviewedCompendiums;includedblogs & 0.5795 & 0.4998 & 0.3616 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
includedhyperlinks;includedblogs & 0.9976 & 0.9972 & 0.9724 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=154909&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]Ranking;Logins[/C][C]-0.4391[/C][C]-0.4785[/C][C]-0.3349[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]Ranking;BloggedComputations[/C][C]-0.429[/C][C]-0.4237[/C][C]-0.3052[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]Ranking;ReviewedCompendiums[/C][C]-0.3541[/C][C]-0.2994[/C][C]-0.2107[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](3e-04)[/C][C](2e-04)[/C][/ROW]
[ROW][C]Ranking;includedhyperlinks[/C][C]-0.3716[/C][C]-0.342[/C][C]-0.2415[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]Ranking;includedblogs[/C][C]-0.3667[/C][C]-0.3404[/C][C]-0.2419[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]Logins;BloggedComputations[/C][C]0.6625[/C][C]0.6778[/C][C]0.5085[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]Logins;ReviewedCompendiums[/C][C]0.5088[/C][C]0.4647[/C][C]0.3378[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]Logins;includedhyperlinks[/C][C]0.6566[/C][C]0.6249[/C][C]0.4608[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]Logins;includedblogs[/C][C]0.6476[/C][C]0.6258[/C][C]0.4616[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]BloggedComputations;ReviewedCompendiums[/C][C]0.6363[/C][C]0.543[/C][C]0.4038[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]BloggedComputations;includedhyperlinks[/C][C]0.8244[/C][C]0.7786[/C][C]0.6236[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]BloggedComputations;includedblogs[/C][C]0.8283[/C][C]0.7843[/C][C]0.63[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]ReviewedCompendiums;includedhyperlinks[/C][C]0.5815[/C][C]0.5059[/C][C]0.368[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]ReviewedCompendiums;includedblogs[/C][C]0.5795[/C][C]0.4998[/C][C]0.3616[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]includedhyperlinks;includedblogs[/C][C]0.9976[/C][C]0.9972[/C][C]0.9724[/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=154909&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=154909&T=2

As an alternative you can also use a QR Code:  
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
Ranking;Logins-0.4391-0.4785-0.3349
p-value(0)(0)(0)
Ranking;BloggedComputations-0.429-0.4237-0.3052
p-value(0)(0)(0)
Ranking;ReviewedCompendiums-0.3541-0.2994-0.2107
p-value(0)(3e-04)(2e-04)
Ranking;includedhyperlinks-0.3716-0.342-0.2415
p-value(0)(0)(0)
Ranking;includedblogs-0.3667-0.3404-0.2419
p-value(0)(0)(0)
Logins;BloggedComputations0.66250.67780.5085
p-value(0)(0)(0)
Logins;ReviewedCompendiums0.50880.46470.3378
p-value(0)(0)(0)
Logins;includedhyperlinks0.65660.62490.4608
p-value(0)(0)(0)
Logins;includedblogs0.64760.62580.4616
p-value(0)(0)(0)
BloggedComputations;ReviewedCompendiums0.63630.5430.4038
p-value(0)(0)(0)
BloggedComputations;includedhyperlinks0.82440.77860.6236
p-value(0)(0)(0)
BloggedComputations;includedblogs0.82830.78430.63
p-value(0)(0)(0)
ReviewedCompendiums;includedhyperlinks0.58150.50590.368
p-value(0)(0)(0)
ReviewedCompendiums;includedblogs0.57950.49980.3616
p-value(0)(0)(0)
includedhyperlinks;includedblogs0.99760.99720.9724
p-value(0)(0)(0)


Figures (Output of Computation)

Input Parameters & R Code

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