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 computationThu, 05 Nov 2009 04:03:26 -0700
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2009/Nov/05/t1257419051u5xs702pcwaelxg.htm/, Retrieved Thu, 02 May 2024 22:44:55 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=53984, Retrieved Thu, 02 May 2024 22:44:55 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywordsSHWWS6
Estimated Impact152
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] [Kendall Tau Rank ...] [2009-11-05 11:03:26] [d1081bd6cdf1fed9ed45c42dbd523bf1] [Current]
-    D      [Kendall tau Correlation Matrix] [Kendall Tau Corre...] [2009-12-17 15:46:10] [4395c69e961f9a13a0559fd2f0a72538]
Feedback Forum

Post a new message
Dataseries X:
7.9	7.3	1.62	-0.8
9.1	7.6	1.49	-0.2
9.4	7.5	1.79	0.2
9.4	7.6	1.8	1
9.1	7.9	1.58	0
9	7.9	1.86	-0.2
9.3	8.1	1.74	1
9.9	8.2	1.59	0.4
9.8	8	1.26	1
9.3	7.5	1.13	1.7
8.3	6.8	1.92	3.1
8	6.5	2.61	3.3
8.5	6.6	2.26	3.1
10.4	7.6	2.41	3.5
11.1	8	2.26	6
10.9	8.1	2.03	5.7
10	7.7	2.86	4.7
9.2	7.5	2.55	4.2
9.2	7.6	2.27	3.6
9.5	7.8	2.26	4.4
9.6	7.8	2.57	2.5
9.5	7.8	3.07	-0.6
9.1	7.5	2.76	-1.9
8.9	7.5	2.51	-1.9
9	7.1	2.87	0.7
10.1	7.5	3.14	-0.9
10.3	7.5	3.11	-1.7
10.2	7.6	3.16	-3.1
9.6	7.7	2.47	-2.1
9.2	7.7	2.57	0.2
9.3	7.9	2.89	1.2
9.4	8.1	2.63	3.8
9.4	8.2	2.38	4
9.2	8.2	1.69	6.6
9	8.2	1.96	5.3
9	7.9	2.19	7.6
9	7.3	1.87	4.7
9.8	6.9	1.6	6.6
10	6.6	1.63	4.4
9.8	6.7	1.22	4.6
9.3	6.9	1.21	6
9	7	1.49	4.8
9	7.1	1.64	4
9.1	7.2	1.66	2.7
9.1	7.1	1.77	3
9.1	6.9	1.82	4.1
9.2	7	1.78	4
8.8	6.8	1.28	2.7
8.3	6.4	1.29	2.6
8.4	6.7	1.37	3.1
8.1	6.6	1.12	4.4
7.7	6.4	1.51	3
7.9	6.3	2.24	2
7.9	6.2	2.94	1.3
8	6.5	3.09	1.5
7.9	6.8	3.46	1.3
7.6	6.8	3.64	3.2
7.1	6.4	4.39	1.8
6.8	6.1	4.15	3.3
6.5	5.8	5.21	1
6.9	6.1	5.8	2.4
8.2	7.2	5.91	0.4
8.7	7.3	5.39	-0.1
8.3	6.9	5.46	1.3
7.9	6.1	4.72	-1.1
7.5	5.8	3.14	-4.4
7.8	6.2	2.63	-7.5
8.3	7.1	2.32	-12.2
8.4	7.7	1.93	-14.5
8.2	7.9	0.62	-16
7.7	7.7	0.6	-16.7
7.2	7.4	-0.37	-16.3
7.3	7.5	-1.1	-16.9




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time2 seconds
R Server'RServer@AstonUniversity' @ vre.aston.ac.uk

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=53984&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 time2 seconds
R Server'RServer@AstonUniversity' @ vre.aston.ac.uk







Kendall tau rank correlations for all pairs of data series
pairtaup-value
tau( WGV , WGM )0.4695013855907431.32384694317977e-08
tau( WGV , Infl )-0.07009491459180070.387887904654916
tau( WGV , EcGr )0.2010227989534540.0136238377367617
tau( WGM , Infl )-0.1361595511336240.0948497494638528
tau( WGM , EcGr )-0.007421308820667890.92772948261576
tau( Infl , EcGr )-0.08925565400786150.266938795549419

\begin{tabular}{lllllllll}
\hline
Kendall tau rank correlations for all pairs of data series \tabularnewline
pair & tau & p-value \tabularnewline
tau( WGV , WGM ) & 0.469501385590743 & 1.32384694317977e-08 \tabularnewline
tau( WGV , Infl ) & -0.0700949145918007 & 0.387887904654916 \tabularnewline
tau( WGV , EcGr ) & 0.201022798953454 & 0.0136238377367617 \tabularnewline
tau( WGM , Infl ) & -0.136159551133624 & 0.0948497494638528 \tabularnewline
tau( WGM , EcGr ) & -0.00742130882066789 & 0.92772948261576 \tabularnewline
tau( Infl , EcGr ) & -0.0892556540078615 & 0.266938795549419 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=53984&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( WGV , WGM )[/C][C]0.469501385590743[/C][C]1.32384694317977e-08[/C][/ROW]
[ROW][C]tau( WGV , Infl )[/C][C]-0.0700949145918007[/C][C]0.387887904654916[/C][/ROW]
[ROW][C]tau( WGV , EcGr )[/C][C]0.201022798953454[/C][C]0.0136238377367617[/C][/ROW]
[ROW][C]tau( WGM , Infl )[/C][C]-0.136159551133624[/C][C]0.0948497494638528[/C][/ROW]
[ROW][C]tau( WGM , EcGr )[/C][C]-0.00742130882066789[/C][C]0.92772948261576[/C][/ROW]
[ROW][C]tau( Infl , EcGr )[/C][C]-0.0892556540078615[/C][C]0.266938795549419[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=53984&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=53984&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
pairtaup-value
tau( WGV , WGM )0.4695013855907431.32384694317977e-08
tau( WGV , Infl )-0.07009491459180070.387887904654916
tau( WGV , EcGr )0.2010227989534540.0136238377367617
tau( WGM , Infl )-0.1361595511336240.0948497494638528
tau( WGM , EcGr )-0.007421308820667890.92772948261576
tau( Infl , EcGr )-0.08925565400786150.266938795549419



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