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

Fri, 23 Dec 2011 13:50:54 -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/23/t1324666302iycjha0hpcyt9tk.htm/, Retrieved Mon, 29 Apr 2024 23:31:07 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=160644, Retrieved Mon, 29 Apr 2024 23:31:07 +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)

-     [One Sample Tests about the Mean] [] [2011-12-23 09:54:41] [493236dcc414c5f9e1823f06b33a5ad6]
- RMPD    [Kendall tau Correlation Matrix] [] [2011-12-23 18:50:54] [75a32e1bc492240bc1028714aca23077] [Current]

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

146283	112285	94	79
98364	84786	103	58
86146	83123	93	60
96933	101193	103	108
79234	38361	51	49
42551	68504	70	0
195663	119182	91	121
6853	22807	22	1
21529	17140	38	20
95757	116174	93	43
85584	57635	60	69
143983	66198	123	78
75851	71701	148	86
59238	57793	90	44
93163	80444	124	104
96037	53855	70	63
151511	97668	168	158
136368	133824	115	102
112642	101481	71	77
94728	99645	66	82
105499	114789	134	115
121527	99052	117	101
127766	67654	108	80
98958	65553	84	50
77900	97500	156	83
85646	69112	120	123
98579	82753	114	73
130767	85323	94	81
131741	72654	120	105
53907	30727	81	47
178812	77873	110	105
146761	117478	133	94
82036	74007	122	44
163253	90183	158	114
27032	61542	109	38
171975	101494	124	107
65990	27570	39	30
86572	55813	92	71
159676	79215	126	84
1929	1423	0	0
85371	55461	70	59
58391	31081	37	33
31580	22996	38	42
136815	83122	120	96
120642	70106	93	106
69107	60578	95	56
50495	39992	77	57
108016	79892	90	59
46341	49810	80	39
78348	71570	31	34
79336	100708	110	76
56968	33032	66	20
93176	82875	138	91
161632	139077	133	115
87850	71595	113	85
127969	72260	100	76
15049	5950	7	8
155135	115762	140	79
25109	32551	61	21
45824	31701	41	30
102996	80670	96	76
160604	143558	164	101
158051	117105	78	94
44547	23789	49	27
162647	120733	102	92
174141	105195	124	123
60622	73107	99	75
179566	132068	129	128
184301	149193	62	105
75661	46821	73	55
96144	87011	114	56
129847	95260	99	41
117286	55183	70	72
71180	106671	104	67
109377	73511	116	75
85298	92945	91	114
73631	78664	74	118
86767	70054	138	77
23824	22618	67	22
93487	74011	151	66
82981	83737	72	69
73815	69094	120	105
94552	93133	115	116
132190	95536	105	88
128754	225920	104	73
66363	62133	108	99
67808	61370	98	62
61724	43836	69	53
131722	106117	111	118
68580	38692	99	30
106175	84651	71	100
55792	56622	27	49
25157	15986	69	24
76669	95364	107	67
57283	26706	73	46
105805	89691	107	57
129484	67267	93	75
72413	126846	129	135
87831	41140	69	68
96971	102860	118	124
71299	51715	73	33
77494	55801	119	98
120336	111813	104	58
93913	120293	107	68
136048	138599	99	81
181248	161647	90	131
146123	115929	197	110
32036	24266	36	37
186646	162901	85	130
102255	109825	139	93
168237	129838	106	118
64219	37510	50	39
19630	43750	64	13
76825	40652	31	74
115338	87771	63	81
109427	85872	92	109
118168	89275	106	151
84845	44418	63	51
153197	192565	69	28
29877	35232	41	40
63506	40909	56	56
22445	13294	25	27
47695	32387	65	37
68370	140867	93	83
146304	120662	114	54
38233	21233	38	27
42071	44332	44	28
50517	61056	87	59
103950	101338	110	133
5841	1168	0	12
2341	13497	27	0
84396	65567	83	106
24610	25162	30	23
35753	32334	80	44
55515	40735	98	71
209056	91413	82	116
6622	855	0	4
115814	97068	60	62
11609	44339	28	12
13155	14116	9	18
18274	10288	33	14
72875	65622	59	60
10112	16563	49	7
142775	76643	115	98
68847	110681	140	64
17659	29011	49	29
20112	92696	120	32
61023	94785	66	25
13983	8773	21	16
65176	83209	124	48
132432	93815	152	100
112494	86687	139	46
45109	34553	38	45
170875	105547	144	129
180759	103487	120	130
214921	213688	160	136
100226	71220	114	59
32043	23517	39	25
54454	56926	78	32
78876	91721	119	63
170745	115168	141	95
6940	111194	101	14
49025	51009	56	36
122037	135777	133	113
53782	51513	83	47
127748	74163	116	92
86839	51633	90	70
44830	75345	36	19
77395	33416	50	50
89324	83305	61	41
103300	98952	97	91
112283	102372	98	111
10901	37238	78	41
120691	103772	117	120
58106	123969	148	135
57140	27142	41	27
122422	135400	105	87
25899	21399	55	25
139296	130115	132	131
52678	24874	44	45
23853	34988	21	29
17306	45549	50	58
7953	6023	0	4
89455	64466	73	47
147866	54990	86	109
4245	1644	0	7
21509	6179	13	12
7670	3926	4	0
66675	32755	57	37
14336	34777	48	37
53608	73224	46	46
30059	27114	48	15
29668	20760	32	42
22097	37636	68	7
96841	65461	87	54
41907	30080	43	54
27080	24094	67	14
35885	69008	46	16
41247	54968	46	33
28313	46090	56	32
36845	27507	48	21
16548	10672	44	15
36134	34029	60	38
55764	46300	65	22
28910	24760	55	28
13339	18779	38	10
25319	21280	52	31
66956	40662	60	32
47487	28987	54	32
52785	22827	86	43
44683	18513	24	27
35619	30594	52	37
21920	24006	49	20
45608	27913	61	32
7721	42744	61	0
20634	12934	81	5
29788	22574	43	26
31931	41385	40	10
37754	18653	40	27
32505	18472	56	11
40557	30976	68	29
94238	63339	79	25
44197	25568	47	55
43228	33747	57	23
4103	4154	41	5
44144	19474	29	43
32868	35130	3	23
27640	39067	60	34
14063	13310	30	36
28990	65892	79	35
4694	4143	47	0
42648	28579	40	37
64329	51776	48	28
21928	21152	36	16
25836	38084	42	26
22779	27717	49	38
40820	32928	57	23
27530	11342	12	22
32378	19499	40	30
10824	16380	43	16
39613	36874	33	18
60865	48259	77	28
19787	16734	43	32
20107	28207	45	21
36605	30143	47	23
40961	41369	43	29
48231	45833	45	50
39725	29156	50	12
21455	35944	35	21
23430	36278	7	18
62991	45588	71	27
49363	45097	67	41
9604	3895	0	13
24552	28394	62	12
31493	18632	54	21
3439	2325	4	8
19555	25139	25	26
21228	27975	40	27
23177	14483	38	13
22094	13127	19	16
2342	5839	17	2
38798	24069	67	42
3255	3738	14	5
24261	18625	30	37
18511	36341	54	17
40798	24548	35	38
28893	21792	59	37
21425	26263	24	29
50276	23686	58	32
37643	49303	42	35
30377	25659	46	17
27126	28904	61	20
13	2781	3	7
42097	29236	52	46
24451	19546	25	24
14335	22818	40	40
5084	32689	32	3
9927	5752	4	10
43527	22197	49	37
27184	20055	63	17
21610	25272	67	28
20484	82206	32	19
20156	32073	23	29
6012	5444	7	8
18475	20154	54	10
12645	36944	37	15
11017	8019	35	15
37623	30884	51	28
35873	19540	39	17

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

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

Correlations for all pairs of data series (method=kendall)
	Tot._Sec	Tot._Size	#Feedback>p120	#Blogged_comp.
Tot._Sec	1	0.657	0.579	0.685
Tot._Size	0.657	1	0.611	0.606
#Feedback>p120	0.579	0.611	1	0.577
#Blogged_comp.	0.685	0.606	0.577	1

\begin{tabular}{lllllllll}
\hline
Correlations for all pairs of data series (method=kendall) \tabularnewline
  & Tot._Sec & Tot._Size & #Feedback>p120 & #Blogged_comp. \tabularnewline
Tot._Sec & 1 & 0.657 & 0.579 & 0.685 \tabularnewline
Tot._Size & 0.657 & 1 & 0.611 & 0.606 \tabularnewline
#Feedback>p120 & 0.579 & 0.611 & 1 & 0.577 \tabularnewline
#Blogged_comp. & 0.685 & 0.606 & 0.577 & 1 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=160644&T=1

[TABLE]
[ROW][C]Correlations for all pairs of data series (method=kendall)[/C][/ROW]
[ROW][C] [/C][C]Tot._Sec[/C][C]Tot._Size[/C][C]#Feedback>p120[/C][C]#Blogged_comp.[/C][/ROW]
[ROW][C]Tot._Sec[/C][C]1[/C][C]0.657[/C][C]0.579[/C][C]0.685[/C][/ROW]
[ROW][C]Tot._Size[/C][C]0.657[/C][C]1[/C][C]0.611[/C][C]0.606[/C][/ROW]
[ROW][C]#Feedback>p120[/C][C]0.579[/C][C]0.611[/C][C]1[/C][C]0.577[/C][/ROW]
[ROW][C]#Blogged_comp.[/C][C]0.685[/C][C]0.606[/C][C]0.577[/C][C]1[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=160644&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=160644&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)
	Tot._Sec	Tot._Size	#Feedback>p120	#Blogged_comp.
Tot._Sec	1	0.657	0.579	0.685
Tot._Size	0.657	1	0.611	0.606
#Feedback>p120	0.579	0.611	1	0.577
#Blogged_comp.	0.685	0.606	0.577	1

Correlations for all pairs of data series with p-values
pair	Pearson r	Spearman rho	Kendall tau
Tot._Sec;Tot._Size	0.8232	0.8415	0.6567
p-value	(0)	(0)	(0)
Tot._Sec;#Feedback>p120	0.7426	0.7815	0.5786
p-value	(0)	(0)	(0)
Tot._Sec;#Blogged_comp.	0.8401	0.8676	0.6852
p-value	(0)	(0)	(0)
Tot._Size;#Feedback>p120	0.7553	0.8089	0.6106
p-value	(0)	(0)	(0)
Tot._Size;#Blogged_comp.	0.7605	0.7962	0.6059
p-value	(0)	(0)	(0)
#Feedback>p120;#Blogged_comp.	0.7739	0.7791	0.577
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
Tot._Sec;Tot._Size & 0.8232 & 0.8415 & 0.6567 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
Tot._Sec;#Feedback>p120 & 0.7426 & 0.7815 & 0.5786 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
Tot._Sec;#Blogged_comp. & 0.8401 & 0.8676 & 0.6852 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
Tot._Size;#Feedback>p120 & 0.7553 & 0.8089 & 0.6106 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
Tot._Size;#Blogged_comp. & 0.7605 & 0.7962 & 0.6059 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
#Feedback>p120;#Blogged_comp. & 0.7739 & 0.7791 & 0.577 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=160644&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]Tot._Sec;Tot._Size[/C][C]0.8232[/C][C]0.8415[/C][C]0.6567[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]Tot._Sec;#Feedback>p120[/C][C]0.7426[/C][C]0.7815[/C][C]0.5786[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]Tot._Sec;#Blogged_comp.[/C][C]0.8401[/C][C]0.8676[/C][C]0.6852[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]Tot._Size;#Feedback>p120[/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]
[ROW][C]Tot._Size;#Blogged_comp.[/C][C]0.7605[/C][C]0.7962[/C][C]0.6059[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]#Feedback>p120;#Blogged_comp.[/C][C]0.7739[/C][C]0.7791[/C][C]0.577[/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=160644&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=160644&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
Tot._Sec;Tot._Size	0.8232	0.8415	0.6567
p-value	(0)	(0)	(0)
Tot._Sec;#Feedback>p120	0.7426	0.7815	0.5786
p-value	(0)	(0)	(0)
Tot._Sec;#Blogged_comp.	0.8401	0.8676	0.6852
p-value	(0)	(0)	(0)
Tot._Size;#Feedback>p120	0.7553	0.8089	0.6106
p-value	(0)	(0)	(0)
Tot._Size;#Blogged_comp.	0.7605	0.7962	0.6059
p-value	(0)	(0)	(0)
#Feedback>p120;#Blogged_comp.	0.7739	0.7791	0.577
p-value	(0)	(0)	(0)

Figure 1

PNG link

Postscript link

PDF link

Parameters (Session):

par1 = 1 ; par2 = none ; par3 = 3 ; par4 = no ;

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

Free Statistics

Description of Statistical Computation

Tree of Dependent Computations

Dataset

Tables (Output of Computation)

Figures (Output of Computation)

Input Parameters & R Code