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, 13 Nov 2009 02:00: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/2009/Nov/13/t1258102883psn0eoskoducqet.htm/, Retrieved Sun, 05 May 2024 18:56:48 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=56431, Retrieved Sun, 05 May 2024 18:56:48 +0000
QR Codes:

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

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]
-   PD    [Kendall tau Correlation Matrix] [SHw WS6] [2009-11-13 09:00:18] [d9efc2d105d810fc0b0ac636e31105d1] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
100	100	100	100
108	109	117	111
125	173	125	132
109	91	115	108
92	124	120	105
126	130	121	125
63	82	63	66
51	82	53	56
129	196	113	134
115	116	118	116
96	146	123	111
101	102	104	102
106	153	100	111
93	119	110	102
120	153	109	122
96	137	95	101
99	147	131	115
129	152	142	136
62	84	67	67
56	76	55	59
119	161	142	131
92	129	134	110
90	104	103	96
105	144	95	108
102	171	123	118
99	140	118	110
107	120	108	109
90	130	87	95
90	247	103	116
108	154	114	117
62	38	72	62
53	57	51	53
97	172	115	113
96	163	125	114
103	130	97	105
88	163	107	104
100	110	103	102
95	133	103	103
109	156	104	115
92	157	103	104
96	127	97	101
100	167	124	117
62	89	51	63
64	53	43	55
110	187	129	126
119	202	136	136
93	137	107	104
84	151	108	100
101	128	116	109
92	140	91	98
91	203	115	114
110	160	99	114
85	161	102	100
120	210	166	146
74	154	71	85
59	70	47	57
121	269	137	146
124	176	127	132
100	156	116	113
121	210	132	137

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=56431&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( Faill_vlaamsg , Faill_brussel )0.3743634600074312.96804573582943e-05
tau( Faill_vlaamsg , Faill_waalsg )0.5170945177223798.98084073774896e-09
tau( Faill_vlaamsg , Faill_belgië )0.7036518986203155.32907051820075e-15
tau( Faill_brussel , Faill_waalsg )0.459609216904052.7632215804374e-07
tau( Faill_brussel , Faill_belgië )0.6152584320496726.19815310187732e-12
tau( Faill_waalsg , Faill_belgië )0.7035551615294414.66293670342566e-15

\begin{tabular}{lllllllll}
\hline
Kendall tau rank correlations for all pairs of data series \tabularnewline
pair & tau & p-value \tabularnewline
tau( Faill_vlaamsg , Faill_brussel ) & 0.374363460007431 & 2.96804573582943e-05 \tabularnewline
tau( Faill_vlaamsg , Faill_waalsg ) & 0.517094517722379 & 8.98084073774896e-09 \tabularnewline
tau( Faill_vlaamsg , Faill_belgië ) & 0.703651898620315 & 5.32907051820075e-15 \tabularnewline
tau( Faill_brussel , Faill_waalsg ) & 0.45960921690405 & 2.7632215804374e-07 \tabularnewline
tau( Faill_brussel , Faill_belgië ) & 0.615258432049672 & 6.19815310187732e-12 \tabularnewline
tau( Faill_waalsg , Faill_belgië ) & 0.703555161529441 & 4.66293670342566e-15 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=56431&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( Faill_vlaamsg , Faill_brussel )[/C][C]0.374363460007431[/C][C]2.96804573582943e-05[/C][/ROW]
[ROW][C]tau( Faill_vlaamsg , Faill_waalsg )[/C][C]0.517094517722379[/C][C]8.98084073774896e-09[/C][/ROW]
[ROW][C]tau( Faill_vlaamsg , Faill_belgië )[/C][C]0.703651898620315[/C][C]5.32907051820075e-15[/C][/ROW]
[ROW][C]tau( Faill_brussel , Faill_waalsg )[/C][C]0.45960921690405[/C][C]2.7632215804374e-07[/C][/ROW]
[ROW][C]tau( Faill_brussel , Faill_belgië )[/C][C]0.615258432049672[/C][C]6.19815310187732e-12[/C][/ROW]
[ROW][C]tau( Faill_waalsg , Faill_belgië )[/C][C]0.703555161529441[/C][C]4.66293670342566e-15[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=56431&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=56431&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( Faill_vlaamsg , Faill_brussel )0.3743634600074312.96804573582943e-05
tau( Faill_vlaamsg , Faill_waalsg )0.5170945177223798.98084073774896e-09
tau( Faill_vlaamsg , Faill_belgië )0.7036518986203155.32907051820075e-15
tau( Faill_brussel , Faill_waalsg )0.459609216904052.7632215804374e-07
tau( Faill_brussel , Faill_belgië )0.6152584320496726.19815310187732e-12
tau( Faill_waalsg , Faill_belgië )0.7035551615294414.66293670342566e-15


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
par1 = red ; par2 = blue ; par3 = TRUE ; par4 = Faill_brussel ; par5 = Faill_waalsgewest ;
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')