Free Statistics

of Irreproducible Research!

Author's title

Author*Unverified author*
R Software Modulerwasp_pairs.wasp
Title produced by softwareKendall tau Correlation Matrix
Date of computationSun, 06 Jan 2008 14:02:01 -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/2008/Jan/06/t11996533008pdgfb5gsh5e9ru.htm/, Retrieved Sun, 05 May 2024 01:07:20 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=14672, Retrieved Sun, 05 May 2024 01:07:20 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywordsInducing time seris Q3
Estimated Impact184
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Kendall tau Correlation Matrix] [CVWS7Q3] [2008-01-06 21:02:01] [b523c8d839cc24a05ea912c062a47207] [Current]
Feedback Forum

Post a new message
Dataseries X:
59.9	8.6	13.5	-12.7
59.9	8.6	16.2	-2.4
59.9	8.5	17.6	7.1
60.9	8.4	15.8	-3.9
60.9	8.3	17.6	9.5
60.9	8.3	15.2	5
61.1	8.2	15.9	-16.1
61.1	8.2	12	-10.8
61.1	8.1	13.3	7
60.2	8	14.8	13.6
60.2	8	16.1	8.1
60.2	7.9	16.9	-8.1
60.1	7.8	17.6	4.9
60.1	7.8	13.9	-0.8
60.1	7.8	10	4.3
59.7	7.8	7.6	4
59.7	7.8	7.1	1.5
59.7	7.8	8.1	5.4
60.5	7.8	8.1	-11.3
60.5	7.8	7.7	-16.4
60.5	7.8	4	-2
59.5	7.9	1.4	8.9
59.5	7.9	0.3	-7.2
59.5	7.9	-1	-18
59.5	8	-1.9	1.3
59.5	8	-1.5	6.3
59.5	8	-0.2	-6
59.7	8.1	3.4	2.8
59.7	8.1	3	2
59.7	8.2	4.1	5.1
60.4	8.3	3.4	-7.6
60.4	8.3	3.2	-18.6
60.4	8.3	6.1	5.8
60	8.4	5.8	20.3
60	8.5	6.2	0.7
60	8.5	5.8	-11.2
59	8.6	5.9	-5.7
59	8.6	6.7	-0.1
59	8.7	5.9	3.4
59.3	8.6	3.8	3.3
59.3	8.7	1.7	-1.2
59.3	8.7	1.4	4.2
59.7	8.6	1.8	-8.8
59.7	8.6	3	-25.3
59.7	8.7	3.6	8.5
60.4	8.7	4.8	14.5
60.4	8.7	4.3	-3.1
60.4	8.7	4.2	-10.4
59.9	8.7	2.9	-2.9
59.9	8.7	4.9	0.3
59.9	8.8	7.2	22.6
60.5	8.8	8.7	15.4
60.5	8.8	9.1	9
60.5	8.8	8.9	29.1
60.4	8.8	9	2.8
60.4	8.8	11.6	-3.8
60.4	8.8	9.6	27.7
60.6	8.8	9.1	28.9
60.6	8.9	9.2	26.5
60.6	8.9	10.8	19.8
60.9	8.9	11	13.2
60.9	8.9	8.5	14.1
60.9	9	6.5	34.1
61	8.9	7.2	30
61	8.9	7.8	21.8
61	8.9	8.7	32.1
61.2	8.8	7.8	5.3
61.2	8.8	7.5	3
61.2	8.8	7.7	17.1
61.2	8.8	7.5	26.3
61.2	8.7	8.3	38.1
61.2	8.6	7.9	19.5
60.3	8.7	10.4	38
60.3	8.6	11.5	35.5
60.3	8.6	14	78.6
60.4	8.4	11.9	62.2
60.4	8.4	11.9	76.9
60.4	8.3	10.3	104.9
61.2	8.1	11.3	32.2
61.2	8.1	9.9	42.5
61.2	8	8.9	64.3
62.1	8	9.2	74.9
62.1	7.9	8.8	75.4
62.1	7.8	6.7	43
61.7	7.7	7.1	58.7
61.7	7.6	6.6	55.4
61.7	7.6	7.2	76.6
61.6	7.5	5	63.3
61.6	7.5	5.3	78.9
61.6	7.4	6.3	82.7




Summary of compuational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time2 seconds
R Server'George Udny Yule' @ 72.249.76.132

\begin{tabular}{lllllllll}
\hline
Summary of compuational 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 & 'George Udny Yule' @ 72.249.76.132 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=14672&T=0

[TABLE]
[ROW][C]Summary of compuational 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]'George Udny Yule' @ 72.249.76.132[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=14672&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=14672&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 compuational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time2 seconds
R Server'George Udny Yule' @ 72.249.76.132







Kendall tau rank correlations for all pairs of data series
pairtaup-value
tau( WG , WL )0.007225345882770810.924416929718281
tau( WG , EA )0.2275805620868960.00203686828365179
tau( WG , TI )0.3927165763722929.47523148830953e-08
tau( WL , EA )0.0570245813570930.443028585107941
tau( WL , TI )0.03947477811213600.594489775368768
tau( EA , TI )0.1772887059574230.0135899633025403

\begin{tabular}{lllllllll}
\hline
Kendall tau rank correlations for all pairs of data series \tabularnewline
pair & tau & p-value \tabularnewline
tau( WG , WL ) & 0.00722534588277081 & 0.924416929718281 \tabularnewline
tau( WG , EA ) & 0.227580562086896 & 0.00203686828365179 \tabularnewline
tau( WG , TI
 ) & 0.392716576372292 & 9.47523148830953e-08 \tabularnewline
tau( WL , EA ) & 0.057024581357093 & 0.443028585107941 \tabularnewline
tau( WL , TI
 ) & 0.0394747781121360 & 0.594489775368768 \tabularnewline
tau( EA , TI
 ) & 0.177288705957423 & 0.0135899633025403 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=14672&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( WG , WL )[/C][C]0.00722534588277081[/C][C]0.924416929718281[/C][/ROW]
[ROW][C]tau( WG , EA )[/C][C]0.227580562086896[/C][C]0.00203686828365179[/C][/ROW]
[ROW][C]tau( WG , TI
 )[/C][C]0.392716576372292[/C][C]9.47523148830953e-08[/C][/ROW]
[ROW][C]tau( WL , EA )[/C][C]0.057024581357093[/C][C]0.443028585107941[/C][/ROW]
[ROW][C]tau( WL , TI
 )[/C][C]0.0394747781121360[/C][C]0.594489775368768[/C][/ROW]
[ROW][C]tau( EA , TI
 )[/C][C]0.177288705957423[/C][C]0.0135899633025403[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=14672&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=14672&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( WG , WL )0.007225345882770810.924416929718281
tau( WG , EA )0.2275805620868960.00203686828365179
tau( WG , TI )0.3927165763722929.47523148830953e-08
tau( WL , EA )0.0570245813570930.443028585107941
tau( WL , TI )0.03947477811213600.594489775368768
tau( EA , TI )0.1772887059574230.0135899633025403



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