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 computationThu, 12 Nov 2009 09:22:05 -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/12/t1258042999n94qyx046odyl4q.htm/, Retrieved Tue, 30 Apr 2024 00:16:01 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=56195, Retrieved Tue, 30 Apr 2024 00:16:01 +0000
QR Codes:

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

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] [] [2009-11-11 17:33:09] [3dc15971be5d84d9752feb46f389e582]
-    D    [Kendall tau Correlation Matrix] [] [2009-11-12 16:22:05] [aa8eb70c35ea8a87edcd21d6427e653e] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
2849,27	13,9	139	455
2921,44	17,8	135	461
2981,85	17,9	130	461
3080,58	17,4	127	463
3106,22	16,7	122	462
3119,31	16	117	456
3061,26	16,6	112	455
3097,31	19,1	113	456
3161,69	17,8	149	472
3257,16	17,2	157	472
3277,01	18,6	157	471
3295,32	16,3	147	465
3363,99	15,1	137	459
3494,17	19,2	132	465
3667,03	17,7	125	468
3813,06	19,1	123	467
3917,96	18	117	463
3895,51	17,5	114	460
3801,06	17,8	111	462
3570,12	21,1	112	461
3701,61	17,2	144	476
3862,27	19,4	150	476
3970,1	19,8	149	471
4138,52	17,6	134	453
4199,75	16,2	123	443
4290,89	19,5	116	442
4443,91	19,9	117	444
4502,64	20	111	438
4356,98	17,3	105	427
4591,27	18,9	102	424
4696,96	18,6	95	416
4621,4	21,4	93	406
4562,84	18,6	124	431
4202,52	19,8	130	434
4296,49	20,8	124	418
4435,23	19,6	115	412
4105,18	17,7	106	404
4116,68	19,8	105	409
3844,49	22,2	105	412
3720,98	20,7	101	406
3674,4	17,9	95	398
3857,62	20,9	93	397
3801,06	21,2	84	385
3504,37	21,4	87	390
3032,6	23	116	413
3047,03	21,3	120	413
2962,34	23,9	117	401
2197,82	22,4	109	397
2014,45	18,3	105	397
1862,83	22,8	107	409
1905,41	22,3	109	419
1810,99	17,8	109	424
1670,07	16,4	108	428
1864,44	16	107	430
2052,02	16,4	99	424
2029,6	17,7	103	433
2070,83	16,6	131	456
2293,41	16,2	137	459
2443,27	18,3	135	446
2513,17	17,6	124	441

Tables (Output of Computation)





Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'Gwilym Jenkins' @ 72.249.127.135

\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 & 1 seconds \tabularnewline
R Server & 'Gwilym Jenkins' @ 72.249.127.135 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=56195&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]1 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'Gwilym Jenkins' @ 72.249.127.135[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=56195&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=56195&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 time1 seconds
R Server'Gwilym Jenkins' @ 72.249.127.135






Kendall tau rank correlations for all pairs of data series
pairtaup-value
tau( AGM , BH )0.1616429277366580.0699148588833263
tau( AGM , WLHK )-0.05642825938432870.52745291440645
tau( AGM , WLHV )0.01536306004729820.863200903977481
tau( BH , WLHK )-0.2347204711322680.00899941338730267
tau( BH , WLHV )-0.3213978934495430.000340843973973396
tau( WLHK , WLHV )0.6075740496895371.35269573320329e-11

\begin{tabular}{lllllllll}
\hline
Kendall tau rank correlations for all pairs of data series \tabularnewline
pair & tau & p-value \tabularnewline
tau( AGM , BH ) & 0.161642927736658 & 0.0699148588833263 \tabularnewline
tau( AGM , WLHK ) & -0.0564282593843287 & 0.52745291440645 \tabularnewline
tau( AGM , WLHV ) & 0.0153630600472982 & 0.863200903977481 \tabularnewline
tau( BH , WLHK ) & -0.234720471132268 & 0.00899941338730267 \tabularnewline
tau( BH , WLHV ) & -0.321397893449543 & 0.000340843973973396 \tabularnewline
tau( WLHK , WLHV ) & 0.607574049689537 & 1.35269573320329e-11 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=56195&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( AGM , BH )[/C][C]0.161642927736658[/C][C]0.0699148588833263[/C][/ROW]
[ROW][C]tau( AGM , WLHK )[/C][C]-0.0564282593843287[/C][C]0.52745291440645[/C][/ROW]
[ROW][C]tau( AGM , WLHV )[/C][C]0.0153630600472982[/C][C]0.863200903977481[/C][/ROW]
[ROW][C]tau( BH , WLHK )[/C][C]-0.234720471132268[/C][C]0.00899941338730267[/C][/ROW]
[ROW][C]tau( BH , WLHV )[/C][C]-0.321397893449543[/C][C]0.000340843973973396[/C][/ROW]
[ROW][C]tau( WLHK , WLHV )[/C][C]0.607574049689537[/C][C]1.35269573320329e-11[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=56195&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=56195&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( AGM , BH )0.1616429277366580.0699148588833263
tau( AGM , WLHK )-0.05642825938432870.52745291440645
tau( AGM , WLHV )0.01536306004729820.863200903977481
tau( BH , WLHK )-0.2347204711322680.00899941338730267
tau( BH , WLHV )-0.3213978934495430.000340843973973396
tau( WLHK , WLHV )0.6075740496895371.35269573320329e-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')