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 computationWed, 11 Nov 2009 04:55:00 -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/t1257940582hyjjvjmpivbmcpi.htm/, Retrieved Thu, 28 Mar 2024 12:53:14 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=55512, Retrieved Thu, 28 Mar 2024 12:53:14 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact159
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] [] [2009-11-11 11:55:00] [54e293c1fb7c46e2abc5c1dda68d8adb] [Current]
Feedback Forum

Post a new message
Dataseries X:
244752	274412	110.6	1.3
244576	272433	104	 1.3
241572	268361	112.6	1.4
240541	268586	107.3	2
236089	264768	98.9	 1.7
236997	269974	109.8	1.8
264579	304744	104.9	1.7
270349	309365	102.2	1.6
269645	308347	123.9	1.7
267037	298427	124.9	1.9
258113	289231	112.7	1.8
262813	291975	121.9	1.7
267413	294912	100.6	1.6
267366	293488	104.3	1.8
264777	290555	120.4	1.6
258863	284736	107.5	1.5
254844	281818	102.9	1.5
254868	287854	125.6	1.3
277267	316263	107.5	1.4
285351	325412	108.8	1.4
286602	326011	128.4	1.3
283042	328282	121.1	1.3
276687	317480	119.5	1.2
277915	317539	128.7	1.1
277128	313737	108.7	1.4
277103	312276	105.5	1.2
275037	309391	119.8	1.5
270150	302950	111.3	1.1
267140	300316	110.6	1.3
264993	304035	120.1	1.5
287259	333476	97.5	 1.1
291186	337698	107.7	1.4
292300	335932	127.3	1.3
288186	323931	117.2	1.5
281477	313927	119.8	1.6
282656	314485	116.2	1.7
280190	313218	111	 1.1
280408	309664	112.4	1.6
276836	302963	130.6	1.3
275216	298989	109.1	1.7
274352	298423	118.8	1.6
271311	301631	123.9	1.7
289802	329765	101.6	1.9
290726	335083	112.8	1.8
292300	327616	128	 1.9
278506	309119	129.6	1.6
269826	295916	125.8	1.5
265861	291413	119.5	1.6
269034	291542	115.7	1.6
264176	284678	113.6	1.7
255198	276475	129.7	2
253353	272566	112	 2
246057	264981	116.8	1.9
235372	263290	127	 1.7
258556	296806	112.1	1.8
260993	303598	114.2	1.9
254663	286994	121.1	1.7
250643	276427	131.6	2
243422	266424	125	 2.1
247105	267153	120.4	2.4
248541	268381	117.7	2.5
245039	262522	117.5	2.5
237080	255542	120.6	2.6
237085	253158	127.5	2.2
225554	243803	112.3	2.5
226839	250741	124.5	2.8
247934	280445	115.2	2.8
248333	285257	104.7	2.9
246969	270976	130.9	3
245098	261076	129.2	3.1
246263	255603	113.5	2.9
255765	260376	125.6	2.7
264319	263903	107.6	2.2
268347	264291	107	 2.5
273046	263276	121.6	2.3
273963	262572	110.7	2.6
267430	256167	106.3	2.3
271993	264221	118.6	2.2
292710	293860	104.6	1.8




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

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







Kendall tau rank correlations for all pairs of data series
pairtaup-value
tau( m , v )0.6823567692545220
tau( m , g )-0.04615637636687850.547719698391128
tau( m , p )-0.3606127404512134.738402772633e-06
tau( v , g )-0.05232373611906740.49548294924546
tau( v , p )-0.5175643587174955.07496635335836e-11
tau( g , p )0.0858142490581080.276692655016856

\begin{tabular}{lllllllll}
\hline
Kendall tau rank correlations for all pairs of data series \tabularnewline
pair & tau & p-value \tabularnewline
tau( m , v ) & 0.682356769254522 & 0 \tabularnewline
tau( m , g ) & -0.0461563763668785 & 0.547719698391128 \tabularnewline
tau( m , p ) & -0.360612740451213 & 4.738402772633e-06 \tabularnewline
tau( v , g ) & -0.0523237361190674 & 0.49548294924546 \tabularnewline
tau( v , p ) & -0.517564358717495 & 5.07496635335836e-11 \tabularnewline
tau( g , p ) & 0.085814249058108 & 0.276692655016856 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=55512&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( m , v )[/C][C]0.682356769254522[/C][C]0[/C][/ROW]
[ROW][C]tau( m , g )[/C][C]-0.0461563763668785[/C][C]0.547719698391128[/C][/ROW]
[ROW][C]tau( m , p )[/C][C]-0.360612740451213[/C][C]4.738402772633e-06[/C][/ROW]
[ROW][C]tau( v , g )[/C][C]-0.0523237361190674[/C][C]0.49548294924546[/C][/ROW]
[ROW][C]tau( v , p )[/C][C]-0.517564358717495[/C][C]5.07496635335836e-11[/C][/ROW]
[ROW][C]tau( g , p )[/C][C]0.085814249058108[/C][C]0.276692655016856[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=55512&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=55512&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( m , v )0.6823567692545220
tau( m , g )-0.04615637636687850.547719698391128
tau( m , p )-0.3606127404512134.738402772633e-06
tau( v , g )-0.05232373611906740.49548294924546
tau( v , p )-0.5175643587174955.07496635335836e-11
tau( g , p )0.0858142490581080.276692655016856



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