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 computationFri, 07 Nov 2008 04:03:18 -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/Nov/07/t12260561766fq8iwby90zsrez.htm/, Retrieved Sun, 19 May 2024 07:00:02 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=22471, Retrieved Sun, 19 May 2024 07:00:02 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
F     [Bivariate Kernel Density Estimation] [Various EDA topic...] [2008-11-07 10:38:01] [e5d91604aae608e98a8ea24759233f66]
F RMPD  [Trivariate Scatterplots] [Various EDA topic...] [2008-11-07 10:42:57] [e5d91604aae608e98a8ea24759233f66]
- RMPD      [Kendall tau Correlation Matrix] [Various EDA topic...] [2008-11-07 11:03:18] [55ca0ca4a201c9689dcf5fae352c92eb] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
1,21	512238	99,29	1946,81
1,74	519164	98,69	1765,9
1,76	517009	107,92	1635,25
1,48	509933	101,03	1833,42
1,04	509127	97,55	1910,43
1,62	500857	103,02	1959,67
1,49	506971	94,08	1969,6
1,79	569323	94,12	2061,41
1,8	579714	115,08	2093,48
1,58	577992	116,48	2120,88
1,86	565464	103,42	2174,56
1,74	547344	112,51	2196,72
1,59	554788	95,55	2350,44
1,26	562325	97,53	2440,25
1,13	560854	119,26	2408,64
1,92	555332	100,94	2472,81
2,61	543599	97,73	2407,6
2,26	536662	115,25	2454,62
2,41	542722	92,8	2448,05
2,26	593530	99,2	2497,84
2,03	610763	118,69	2645,64
2,86	612613	110,12	2756,76
2,55	611324	110,26	2849,27
2,27	594167	112,9	2921,44
2,26	590865	102,17	3080,58
2,57	589379	99,38	3106,22
3,07	584428	116,1	3119,31
2,76	573100	103,77	3061,26
2,51	567456	101,81	3097,31
2,87	569028	113,74	3161,69
3,14	620735	89,67	3257,16
3,11	628884	99,5	3277,01
3,16	628232	122,89	3295,32
2,47	612117	108,61	3363,99
2,57	595404	114,37	3494,17
2,89	597141	110,5	3667,03
2,63	593408	104,08	3813,06
2,38	590072	103,64	3917,96
1,69	579799	121,61	3895,51
1,96	574205	101,14	3733,22
2,19	572775	115,97	3801,06
1,87	572942	120,12	3570,12
1,6	619567	95,97	3701,61
1,63	625809	105,01	3862,27
1,22	619916	124,68	3970,1
1,21	587625	123,89	4138,52
1,49	565742	123,61	4199,75
1,64	557274	114,76	4290,89
1,66	560576	108,75	4443,91
1,77	548854	106,09	4502,64
1,82	531673	123,17	4356,98
1,78	525919	106,16	4591,27
1,28	511038	115,18	4696,96
1,29	498662	120,6	4621,4
1,37	555362	109,48	4562,84
1,12	564591	114,44	4202,52
1,51	541657	121,44	4296,49
2,24	527070	129,48	4435,23
2,94	509846	124,32	4105,18
3,09	514258	112,59	4116,68

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'Sir Ronald Aylmer Fisher' @ 193.190.124.24

\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 & 'Sir Ronald Aylmer Fisher' @ 193.190.124.24 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=22471&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]'Sir Ronald Aylmer Fisher' @ 193.190.124.24[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=22471&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=22471&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'Sir Ronald Aylmer Fisher' @ 193.190.124.24






Kendall tau rank correlations for all pairs of data series
pairtaup-value
tau( X1 , X2 )0.3085202772351820.000507979742814912
tau( X1 , X3 )-0.03679599636749870.678412796371483
tau( X1 , X4 )0.03679599636749870.678412796371483
tau( X2 , X3 )0.02824858757062150.749805072730034
tau( X2 , X4 )0.05197740112994350.557358604272793
tau( X3 , X4 )0.3502824858757067.6754109821442e-05

\begin{tabular}{lllllllll}
\hline
Kendall tau rank correlations for all pairs of data series \tabularnewline
pair & tau & p-value \tabularnewline
tau( X1 , X2 ) & 0.308520277235182 & 0.000507979742814912 \tabularnewline
tau( X1 , X3 ) & -0.0367959963674987 & 0.678412796371483 \tabularnewline
tau( X1 , X4 ) & 0.0367959963674987 & 0.678412796371483 \tabularnewline
tau( X2 , X3 ) & 0.0282485875706215 & 0.749805072730034 \tabularnewline
tau( X2 , X4 ) & 0.0519774011299435 & 0.557358604272793 \tabularnewline
tau( X3 , X4 ) & 0.350282485875706 & 7.6754109821442e-05 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=22471&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( X1 , X2 )[/C][C]0.308520277235182[/C][C]0.000507979742814912[/C][/ROW]
[ROW][C]tau( X1 , X3 )[/C][C]-0.0367959963674987[/C][C]0.678412796371483[/C][/ROW]
[ROW][C]tau( X1 , X4 )[/C][C]0.0367959963674987[/C][C]0.678412796371483[/C][/ROW]
[ROW][C]tau( X2 , X3 )[/C][C]0.0282485875706215[/C][C]0.749805072730034[/C][/ROW]
[ROW][C]tau( X2 , X4 )[/C][C]0.0519774011299435[/C][C]0.557358604272793[/C][/ROW]
[ROW][C]tau( X3 , X4 )[/C][C]0.350282485875706[/C][C]7.6754109821442e-05[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=22471&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=22471&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( X1 , X2 )0.3085202772351820.000507979742814912
tau( X1 , X3 )-0.03679599636749870.678412796371483
tau( X1 , X4 )0.03679599636749870.678412796371483
tau( X2 , X3 )0.02824858757062150.749805072730034
tau( X2 , X4 )0.05197740112994350.557358604272793
tau( X3 , X4 )0.3502824858757067.6754109821442e-05


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