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, 13 Nov 2009 12:25:35 -0700

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/2009/Nov/13/t1258140377tkjzda0z6ybn655.htm/, Retrieved Sun, 05 May 2024 20:22:21 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=57036, Retrieved Sun, 05 May 2024 20:22:21 +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

126

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)

-     [Kendall tau Correlation Matrix] [3/11/2009] [2009-11-02 21:25:00] [b98453cac15ba1066b407e146608df68]
- R  D    [Kendall tau Correlation Matrix] [Kendall Tau Corre...] [2009-11-13 19:25:35] [a25640248f5f3c4d92f02a597edd3aef] [Current]

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

8.4	157928	109.8	16283.6
8.4	147768	111.7	16726.5
8.4	137507	98.6	14968.9
8.6	136919	96.9	14861
8.9	136151	95.1	14583.3
8.8	133001	97	15305.8
8.3	125554	112.7	17903.9
7.5	119647	102.9	16379.4
7.2	114158	97.4	15420.3
7.4	116193	111.4	17870.5
8.8	152803	87.4	15912.8
9.3	161761	96.8	13866.5
9.3	160942	114.1	17823.2
8.7	149470	110.3	17872
8.2	139208	103.9	17420.4
8.3	134588	101.6	16704.4
8.5	130322	94.6	15991.2
8.6	126611	95.9	16583.6
8.5	122401	104.7	19123.5
8.2	117352	102.8	17838.7
8.1	112135	98.1	17209.4
7.9	112879	113.9	18586.5
8.6	148729	80.9	16258.1
8.7	157230	95.7	15141.6
8.7	157221	113.2	19202.1
8.5	146681	105.9	17746.5
8.4	136524	108.8	19090.1
8.5	132111	102.3	18040.3
8.7	125326	99	17515.5
8.7	122716	100.7	17751.8
8.6	116615	115.5	21072.4
8.5	113719	100.7	17170
8.3	110737	109.9	19439.5
8	112093	114.6	19795.4
8.2	143565	85.4	17574.9
8.1	149946	100.5	16165.4
8.1	149147	114.8	19464.6
8	134339	116.5	19932.1
7.9	122683	112.9	19961.2
7.9	115614	102	17343.4
8	116566	106	18924.2
8	111272	105.3	18574.1
7.9	104609	118.8	21350.6
8	101802	106.1	18594.6
7.7	94542	109.3	19823.1
7.2	93051	117.2	20844.4
7.5	124129	92.5	19640.2
7.3	130374	104.2	17735.4
7	123946	112.5	19813.6
7	114971	122.4	22160
7	105531	113.3	20664.3
7.2	104919	100	17877.4
7.3	104782	110.7	20906.5
7.1	101281	112.8	21164.1
6.8	94545	109.8	21374.4
6.4	93248	117.3	22952.3
6.1	84031	109.1	21343.5
6.5	87486	115.9	23899.3
7.7	115867	96	22392.9
7.9	120327	99.8	18274.1
7.5	117008	116.8	22786.7
6.9	108811	115.7	22321.5

Summary of computational transaction
Raw Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	1 seconds
R Server	'Gwilym Jenkins' @ 72.249.127.135

\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' @ 72.249.127.135 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=57036&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' @ 72.249.127.135[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=57036&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=57036&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	1 seconds
R Server	'Gwilym Jenkins' @ 72.249.127.135

Kendall tau rank correlations for all pairs of data series
pair	tau	p-value
tau( Wrklshgr , NW-werkl )	0.550810884887708	5.1566995118435e-10
tau( Wrklshgr , IndProd )	-0.328718275594641	0.000209913699583158
tau( Wrklshgr , UitvBel )	-0.502257525788889	1.45760641225810e-08
tau( NW-werkl , IndProd )	-0.271428609421437	0.00183248354362287
tau( NW-werkl , UitvBel )	-0.464833421470122	9.33998996093674e-08
tau( IndProd , UitvBel )	0.573015953223033	4.75304240410424e-11

\begin{tabular}{lllllllll}
\hline
Kendall tau rank correlations for all pairs of data series \tabularnewline
pair & tau & p-value \tabularnewline
tau( Wrklshgr , NW-werkl ) & 0.550810884887708 & 5.1566995118435e-10 \tabularnewline
tau( Wrklshgr , IndProd ) & -0.328718275594641 & 0.000209913699583158 \tabularnewline
tau( Wrklshgr , UitvBel ) & -0.502257525788889 & 1.45760641225810e-08 \tabularnewline
tau( NW-werkl , IndProd ) & -0.271428609421437 & 0.00183248354362287 \tabularnewline
tau( NW-werkl , UitvBel ) & -0.464833421470122 & 9.33998996093674e-08 \tabularnewline
tau( IndProd , UitvBel ) & 0.573015953223033 & 4.75304240410424e-11 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=57036&T=1

[TABLE]
[ROW][C]Kendall tau rank correlations for all pairs of data series[/C][/ROW]
[ROW][C]pair[/C][C]tau[/C][C]p-value[/C][/ROW]
[ROW][C]tau( Wrklshgr , NW-werkl )[/C][C]0.550810884887708[/C][C]5.1566995118435e-10[/C][/ROW]
[ROW][C]tau( Wrklshgr , IndProd )[/C][C]-0.328718275594641[/C][C]0.000209913699583158[/C][/ROW]
[ROW][C]tau( Wrklshgr , UitvBel )[/C][C]-0.502257525788889[/C][C]1.45760641225810e-08[/C][/ROW]
[ROW][C]tau( NW-werkl , IndProd )[/C][C]-0.271428609421437[/C][C]0.00183248354362287[/C][/ROW]
[ROW][C]tau( NW-werkl , UitvBel )[/C][C]-0.464833421470122[/C][C]9.33998996093674e-08[/C][/ROW]
[ROW][C]tau( IndProd , UitvBel )[/C][C]0.573015953223033[/C][C]4.75304240410424e-11[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=57036&T=1

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

As an alternative you can also use a QR Code:

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

Kendall tau rank correlations for all pairs of data series
pair	tau	p-value
tau( Wrklshgr , NW-werkl )	0.550810884887708	5.1566995118435e-10
tau( Wrklshgr , IndProd )	-0.328718275594641	0.000209913699583158
tau( Wrklshgr , UitvBel )	-0.502257525788889	1.45760641225810e-08
tau( NW-werkl , IndProd )	-0.271428609421437	0.00183248354362287
tau( NW-werkl , UitvBel )	-0.464833421470122	9.33998996093674e-08
tau( IndProd , UitvBel )	0.573015953223033	4.75304240410424e-11

Figure 1

PNG link

Postscript link

PDF link

Parameters (Session):

Parameters (R input):

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='kendall')
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')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Kendall tau rank correlations for all pairs of data series',3,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'pair',1,TRUE)
a<-table.element(a,'tau',1,TRUE)
a<-table.element(a,'p-value',1,TRUE)
a<-table.row.end(a)
n <- length(y[,1])
n
cor.test(y[1,],y[2,],method='kendall')
for (i in 1:(n-1))
{
for (j in (i+1):n)
{
a<-table.row.start(a)
dum <- paste('tau(',dimnames(t(x))[[2]][i])
dum <- paste(dum,',')
dum <- paste(dum,dimnames(t(x))[[2]][j])
dum <- paste(dum,')')
a<-table.element(a,dum,header=TRUE)
r <- cor.test(y[i,],y[j,],method='kendall')
a<-table.element(a,r$estimate)
a<-table.element(a,r$p.value)
a<-table.row.end(a)
}
}
a<-table.end(a)
table.save(a,file='mytable.tab')

Free Statistics

Description of Statistical Computation

Tree of Dependent Computations

Dataset

Tables (Output of Computation)

Figures (Output of Computation)

Input Parameters & R Code