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 computationTue, 13 Dec 2011 13:54:40 -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/13/t13238024980oybzuo7gfyfap3.htm/, Retrieved Fri, 03 May 2024 00:16:32 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=154635, Retrieved Fri, 03 May 2024 00:16:32 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact89
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Kendall tau Correlation Matrix] [WS10 PCM] [2011-12-13 18:50:04] [43a0606d8103c0ba382f0586f4417c48]
- R P     [Kendall tau Correlation Matrix] [WS10 KCM] [2011-12-13 18:54:40] [635499bc27d9f41bf7bccae25a54e146] [Current]
-   PD      [Kendall tau Correlation Matrix] [WS10 PCM] [2011-12-13 19:11:43] [43a0606d8103c0ba382f0586f4417c48]
-             [Kendall tau Correlation Matrix] [WS10 KCM] [2011-12-13 19:12:31] [43a0606d8103c0ba382f0586f4417c48]
-   PD          [Kendall tau Correlation Matrix] [Paper Kendall] [2011-12-23 19:01:13] [43a0606d8103c0ba382f0586f4417c48]
- RMP             [Multiple Regression] [Paper MR] [2011-12-23 19:29:04] [43a0606d8103c0ba382f0586f4417c48]
- R P               [Multiple Regression] [Paper MR] [2011-12-23 19:41:05] [43a0606d8103c0ba382f0586f4417c48]
- RMP                 [Recursive Partitioning (Regression Trees)] [Paper RT] [2011-12-23 19:56:37] [43a0606d8103c0ba382f0586f4417c48]
-                 [Kendall tau Correlation Matrix] [] [2011-12-23 19:31:24] [43a0606d8103c0ba382f0586f4417c48]
Feedback Forum

Post a new message
Dataseries X:
174724	1	26
346485	1	26
96560	2	25
22938	1	25
271856	1	25
152871	2	24
183167	2	24
243060	1	24
232138	1	24
232317	1	24
65745	1	24
120982	2	23
236785	1	23
223632	1	23
111665	1	23
24188	1	23
329267	1	23
174184	1	23
182999	1	23
92661	1	23
100750	1	23
243511	1	23
209641	1	23
131069	2	23
299775	1	23
95227	1	23
176508	1	22
385534	2	22
165446	1	22
344297	1	22
153935	2	22
225548	2	22
124817	1	22
210767	2	22
244052	1	22
256462	1	22
143246	2	22
167488	2	22
193339	1	22
122774	1	22
140344	1	22
162765	1	22
85574	1	22
310839	2	22
164709	1	22
99466	2	22
99923	2	22
317394	2	22
21054	1	22
244749	1	22
351067	1	22
158015	2	22
229242	1	22
84207	1	22
81240	2	22
56653	1	22
210907	2	21
149061	2	21
237213	1	21
133131	1	21
324799	1	21
230964	2	21
135473	2	21
215147	2	21
174415	1	21
170266	2	21
294424	2	21
325107	1	21
106408	2	21
265769	1	21
149112	2	21
362301	1	21
168809	1	21
218946	1	21
235800	2	21
196553	1	21
187559	1	21
187681	2	21
73566	1	21
143756	2	21
243199	2	21
152299	1	21
112611	1	21
286468	1	21
148446	1	21
182079	2	21
220516	1	21
265318	2	21
225060	2	21
144966	2	21
152474	1	21
132487	1	21
22648	2	21
31414	2	21
128423	2	21
97839	2	21
272458	1	21
108043	1	21
328107	2	21
324598	2	21
204271	2	21
195838	2	21
173260	1	21
254488	2	21
92499	1	21
74408	1	21
181633	1	21
76302	1	21
30989	1	21
74914	1	21
31774	2	21
158399	1	21
73624	1	21
89806	1	21
59382	2	21
7176	1	20
175824	1	20
341570	1	20
130585	2	20
133328	1	20
61361	1	20
102010	2	20
101523	1	20
46698	1	20
224330	2	20
65475	1	20
121848	2	20
135458	2	20
81437	1	20
150580	1	20
30837	2	20
31706	1	20
64175	2	20
220801	1	19
131698	1	19
116048	2	19
250047	1	19
135781	2	19
98146	2	19
59194	2	19
139942	1	19
118612	2	19
72880	1	19
71965	1	19
135131	2	19
108446	2	19
181528	1	19
134019	1	19
81872	2	19
58981	2	19
56375	1	19
65490	1	19
63123	1	19
91899	1	19
51567	2	19
102538	2	19
86678	1	19
99373	2	19
86230	2	19
76702	2	19
19764	1	19
84105	2	19
64187	1	19
72535	1	19
103597	2	18
120445	2	18
53515	2	18
104011	1	18
98104	2	18
139526	1	18
99611	1	18
119308	2	18




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'AstonUniversity' @ aston.wessa.net
R Framework error message
The field 'Names of X columns' contains a hard return which cannot be interpreted.
Please, resubmit your request without hard returns in the 'Names of X columns'.

\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 & 'AstonUniversity' @ aston.wessa.net \tabularnewline
R Framework error message & 
The field 'Names of X columns' contains a hard return which cannot be interpreted.
Please, resubmit your request without hard returns in the 'Names of X columns'.
\tabularnewline \hline \end{tabular} %Source: https://freestatistics.org/blog/index.php?pk=154635&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]'AstonUniversity' @ aston.wessa.net[/C][/ROW]
[ROW][C]R Framework error message[/C][C]
The field 'Names of X columns' contains a hard return which cannot be interpreted.
Please, resubmit your request without hard returns in the 'Names of X columns'.
[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=154635&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=154635&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 time1 seconds
R Server'AstonUniversity' @ aston.wessa.net
R Framework error message
The field 'Names of X columns' contains a hard return which cannot be interpreted.
Please, resubmit your request without hard returns in the 'Names of X columns'.







Correlations for all pairs of data series (method=kendall)
timegenderage
time1-0.0260.27
gender-0.0261-0.149
age 0.27-0.1491

\begin{tabular}{lllllllll}
\hline
Correlations for all pairs of data series (method=kendall) \tabularnewline
  & time & gender & age
 \tabularnewline
time & 1 & -0.026 & 0.27 \tabularnewline
gender & -0.026 & 1 & -0.149 \tabularnewline
age
 & 0.27 & -0.149 & 1 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=154635&T=1

[TABLE]
[ROW][C]Correlations for all pairs of data series (method=kendall)[/C][/ROW]
[ROW][C] [/C][C]time[/C][C]gender[/C][C]age
[/C][/ROW]
[ROW][C]time[/C][C]1[/C][C]-0.026[/C][C]0.27[/C][/ROW]
[ROW][C]gender[/C][C]-0.026[/C][C]1[/C][C]-0.149[/C][/ROW]
[ROW][C]age
[/C][C]0.27[/C][C]-0.149[/C][C]1[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=154635&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=154635&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)
timegenderage
time1-0.0260.27
gender-0.0261-0.149
age 0.27-0.1491







Correlations for all pairs of data series with p-values
pairPearson rSpearman rhoKendall tau
time;gender-0.0426-0.032-0.0262
p-value(0.5793)(0.6765)(0.6752)
time;age 0.33710.37390.2696
p-value(0)(0)(0)
gender;age -0.1761-0.1674-0.1489
p-value(0.0209)(0.0282)(0.0286)

\begin{tabular}{lllllllll}
\hline
Correlations for all pairs of data series with p-values \tabularnewline
pair & Pearson r & Spearman rho & Kendall tau \tabularnewline
time;gender & -0.0426 & -0.032 & -0.0262 \tabularnewline
p-value & (0.5793) & (0.6765) & (0.6752) \tabularnewline
time;age
 & 0.3371 & 0.3739 & 0.2696 \tabularnewline
p-value & (0) & (0) & (0) \tabularnewline
gender;age
 & -0.1761 & -0.1674 & -0.1489 \tabularnewline
p-value & (0.0209) & (0.0282) & (0.0286) \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=154635&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;gender[/C][C]-0.0426[/C][C]-0.032[/C][C]-0.0262[/C][/ROW]
[ROW][C]p-value[/C][C](0.5793)[/C][C](0.6765)[/C][C](0.6752)[/C][/ROW]
[ROW][C]time;age
[/C][C]0.3371[/C][C]0.3739[/C][C]0.2696[/C][/ROW]
[ROW][C]p-value[/C][C](0)[/C][C](0)[/C][C](0)[/C][/ROW]
[ROW][C]gender;age
[/C][C]-0.1761[/C][C]-0.1674[/C][C]-0.1489[/C][/ROW]
[ROW][C]p-value[/C][C](0.0209)[/C][C](0.0282)[/C][C](0.0286)[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=154635&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=154635&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;gender-0.0426-0.032-0.0262
p-value(0.5793)(0.6765)(0.6752)
time;age 0.33710.37390.2696
p-value(0)(0)(0)
gender;age -0.1761-0.1674-0.1489
p-value(0.0209)(0.0282)(0.0286)



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