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

Thu, 12 Nov 2009 09:06:02 -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/12/t1258042030e2zxmhppd3p01f3.htm/, Retrieved Fri, 03 May 2024 18:00:18 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=56179, Retrieved Fri, 03 May 2024 18:00:18 +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

124

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]
-    D    [Kendall tau Correlation Matrix] [] [2009-11-12 16:06:02] [d41d8cd98f00b204e9800998ecf8427e] [Current]

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

1.2111 10.574 100.03 2
1.2409 10.653 100.25 1.8
1.2737 10.805 99.6   2.7
1.3295 10.872 100.16 2.3
1.3621 10.625 100.49 1.9
1.3035 10.407 99.72  2
1.3257 10.463 100.14 2.3
1.2964 10.556 98.48  2.8
1.2957 10.646 100.38 2.4
1.2331 10.702 101.45 2.3
1.2092 11.353 98.42  2.7
1.2093 11.346 98.6   2.7
1.2198 11.451 100.06 2.9
1.2042 11.964 98.62  3
1.2023 12.574 100.84 2.2
1.1769 13.031 100.02 2.3
1.1797 13.812 97.95  2.8
1.2118 14.544 98.32  2.8
1.1875 14.931 98.27  2.8
1.2104 14.886 97.22  2.2
1.2537 16.005 99.28  2.6
1.2868 17.064 100.38 2.8
1.2713 15.168 99.02  2.5
1.2767 16.050 100.32 2.4
1.2851 15.839 99.81  2.3
1.266  15.137 100.6  1.9
1.2696 14.954 101.19 1.7
1.32   15.648 100.47 2
1.317  15.305 101.77 2.1
1.2954 15.579 102.32 1.7
1.3211 16.348 102.39 1.8
1.3318 15.928 101.16 1.8
1.3605 16.171 100.63 1.8
1.3453 15.937 101.48 1.3
1.3505 15.713 101.44 1.3
1.3707 15.594 100.09 1.3
1.3705 15.683 100.7  1.2
1.4179 16.438 100.78 1.4
1.4447 17.032 99.81  2.2
1.4761 17.696 98.45  2.9
1.4721 17.745 98.49  3.1
1.487  19.394 97.48  3.5
1.5167 20.148 97.91  3.6
1.5812 20.108 96.94  4.4
1.554  18.584 98.53  4.1
1.5508 18.441 96.82  5.1
1.5764 18.391 95.76  5.8
1.5611 19.178 95.27  5.9
1.4735 18.079 97.32  5.4
1.4303 18.483 96.68  5.5
1.2757 19.644 97.87  4.8
1.2727 19.195 97.42  3.2
1.3917 19.650 97.94  2.7
1.2816 20.830 99.52  2.1
1.2644 23.595 100.99 1.9
1.3308 22.937 99.92  0.6
1.3275 21.814 101.97 0.7
1.4098 21.928 101.58 -0.2
1.4134 21.777 99.54  -1
1.4138 21.383 100.83 -1.7

Summary of computational transaction
Raw Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	24 seconds
R Server	'George Udny Yule' @ 72.249.76.132

\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 & 24 seconds \tabularnewline
R Server & 'George Udny Yule' @ 72.249.76.132 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=56179&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]24 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'George Udny Yule' @ 72.249.76.132[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=56179&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=56179&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	24 seconds
R Server	'George Udny Yule' @ 72.249.76.132

Kendall tau rank correlations for all pairs of data series
pair	tau	p-value
tau( Wisselkoers , Goudkoers )	0.396610169491525	7.5591047326018e-06
tau( Wisselkoers , Ruilvoet )	-0.087054847148484	0.325981194949454
tau( Wisselkoers , Inflatie )	0.0057279180159522	0.949074209254047
tau( Goudkoers , Ruilvoet )	-0.0972300890229821	0.272620300648701
tau( Goudkoers , Inflatie )	0.0320763408893323	0.720591259412054
tau( Ruilvoet , Inflatie )	-0.63959710701321	1.01757086824336e-12

\begin{tabular}{lllllllll}
\hline
Kendall tau rank correlations for all pairs of data series \tabularnewline
pair & tau & p-value \tabularnewline
tau( Wisselkoers , Goudkoers ) & 0.396610169491525 & 7.5591047326018e-06 \tabularnewline
tau( Wisselkoers , Ruilvoet ) & -0.087054847148484 & 0.325981194949454 \tabularnewline
tau( Wisselkoers , Inflatie ) & 0.0057279180159522 & 0.949074209254047 \tabularnewline
tau( Goudkoers , Ruilvoet ) & -0.0972300890229821 & 0.272620300648701 \tabularnewline
tau( Goudkoers , Inflatie ) & 0.0320763408893323 & 0.720591259412054 \tabularnewline
tau( Ruilvoet , Inflatie ) & -0.63959710701321 & 1.01757086824336e-12 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=56179&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( Wisselkoers , Goudkoers )[/C][C]0.396610169491525[/C][C]7.5591047326018e-06[/C][/ROW]
[ROW][C]tau( Wisselkoers , Ruilvoet )[/C][C]-0.087054847148484[/C][C]0.325981194949454[/C][/ROW]
[ROW][C]tau( Wisselkoers , Inflatie )[/C][C]0.0057279180159522[/C][C]0.949074209254047[/C][/ROW]
[ROW][C]tau( Goudkoers , Ruilvoet )[/C][C]-0.0972300890229821[/C][C]0.272620300648701[/C][/ROW]
[ROW][C]tau( Goudkoers , Inflatie )[/C][C]0.0320763408893323[/C][C]0.720591259412054[/C][/ROW]
[ROW][C]tau( Ruilvoet , Inflatie )[/C][C]-0.63959710701321[/C][C]1.01757086824336e-12[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=56179&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=56179&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( Wisselkoers , Goudkoers )	0.396610169491525	7.5591047326018e-06
tau( Wisselkoers , Ruilvoet )	-0.087054847148484	0.325981194949454
tau( Wisselkoers , Inflatie )	0.0057279180159522	0.949074209254047
tau( Goudkoers , Ruilvoet )	-0.0972300890229821	0.272620300648701
tau( Goudkoers , Inflatie )	0.0320763408893323	0.720591259412054
tau( Ruilvoet , Inflatie )	-0.63959710701321	1.01757086824336e-12

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