FreeStatistics.org

Free Statistics

of Irreproducible Research!

Description of Statistical Computation

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 computationWed, 11 Nov 2009 04:18:03 -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/11/t1257938684ma206dl9l3o1k7u.htm/, Retrieved Fri, 26 Apr 2024 18:50:51 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=55494, Retrieved Fri, 26 Apr 2024 18:50:51 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact181

Tree of Dependent Computations

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-11 11:18:03] [c588bf81b9040ce04d6292d0d83341a9] [Current]
- R  D      [Kendall tau Correlation Matrix] [] [2009-11-13 20:45:31] [859f65298c93b90426725427c75f8582]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
31	45	22	20
26	44	22	16
18	45	20	10
26	45	21	12
26	45	20	10
27	42	21	12
22	43	21	12
24	50	21	13
31	46	19	17
23	46	21	12
31	45	21	15
37	49	22	12
42	46	19	14
43	45	24	19
48	49	22	16
46	47	22	17
45	45	22	16
52	48	24	19
46	51	22	17
53	48	23	17
47	49	24	20
43	51	21	18
44	54	20	16
48	52	22	19
48	52	23	18
51	53	23	23
57	51	22	20
50	55	20	20
38	53	21	15
31	51	21	17
31	52	20	16
37	54	20	15
26	58	17	10
36	57	18	13
41	52	19	10
44	50	19	19
50	53	20	21
49	50	21	17
48	50	20	16
50	51	21	17
52	53	19	14
53	49	22	18
59	54	20	17
53	57	18	14
59	58	16	15
61	56	17	16
62	60	18	11
54	55	19	15
62	54	18	13
63	52	20	17
63	55	21	16
71	56	18	9
65	54	19	17
65	53	19	15
61	59	19	12
59	62	21	12
53	63	19	12
55	64	19	12
39	75	17	4
36	77	16	7
29	79	16	4
31	77	17	3
30	82	16	3
23	83	15	0
19	81	16	5
14	78	16	3
3	79	16	4
6	79	18	3
13	73	19	10
3	72	16	4
6	67	16	1
0	67	16	1

Tables (Output of Computation)





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=55494&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=55494&T=0

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

As an alternative you can also use a QR Code:  
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( E.S , P.T )0.03821500012477950.643354589145111
tau( E.S , E.S.G )0.1546171425614670.0710970290910407
tau( E.S , SP )0.3619169699084461.52523774974433e-05
tau( P.T , E.S.G )-0.622114227462715.379938861044e-13
tau( P.T , SP )-0.4201558674850216.07494972507167e-07
tau( E.S.G , SP )0.594484858021861.04540820444754e-11

\begin{tabular}{lllllllll}
\hline
Kendall tau rank correlations for all pairs of data series \tabularnewline
pair & tau & p-value \tabularnewline
tau( E.S , P.T ) & 0.0382150001247795 & 0.643354589145111 \tabularnewline
tau( E.S , E.S.G ) & 0.154617142561467 & 0.0710970290910407 \tabularnewline
tau( E.S , SP ) & 0.361916969908446 & 1.52523774974433e-05 \tabularnewline
tau( P.T , E.S.G ) & -0.62211422746271 & 5.379938861044e-13 \tabularnewline
tau( P.T , SP ) & -0.420155867485021 & 6.07494972507167e-07 \tabularnewline
tau( E.S.G , SP ) & 0.59448485802186 & 1.04540820444754e-11 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=55494&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( E.S , P.T )[/C][C]0.0382150001247795[/C][C]0.643354589145111[/C][/ROW]
[ROW][C]tau( E.S , E.S.G )[/C][C]0.154617142561467[/C][C]0.0710970290910407[/C][/ROW]
[ROW][C]tau( E.S , SP )[/C][C]0.361916969908446[/C][C]1.52523774974433e-05[/C][/ROW]
[ROW][C]tau( P.T , E.S.G )[/C][C]-0.62211422746271[/C][C]5.379938861044e-13[/C][/ROW]
[ROW][C]tau( P.T , SP )[/C][C]-0.420155867485021[/C][C]6.07494972507167e-07[/C][/ROW]
[ROW][C]tau( E.S.G , SP )[/C][C]0.59448485802186[/C][C]1.04540820444754e-11[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=55494&T=1

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

As an alternative you can also use a QR Code:  
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( E.S , P.T )0.03821500012477950.643354589145111
tau( E.S , E.S.G )0.1546171425614670.0710970290910407
tau( E.S , SP )0.3619169699084461.52523774974433e-05
tau( P.T , E.S.G )-0.622114227462715.379938861044e-13
tau( P.T , SP )-0.4201558674850216.07494972507167e-07
tau( E.S.G , SP )0.594484858021861.04540820444754e-11


Figures (Output of Computation)

Input Parameters & R Code

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