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 computationSat, 19 Dec 2009 11:31: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/Dec/19/t1261251411ut0rrwi9ntpe8m5.htm/, Retrieved Sat, 04 May 2024 01:05:16 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=69737, Retrieved Sat, 04 May 2024 01:05:16 +0000
QR Codes:

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

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]
-    D  [Kendall tau Correlation Matrix] [] [2009-11-28 19:38:06] [4b0ddbda2a8eb8bbc60159112cb39d44]
-    D      [Kendall tau Correlation Matrix] [] [2009-12-19 18:31:05] [aa8eb70c35ea8a87edcd21d6427e653e] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
2849,27	10872	594	17,8
2921,44	10625	595	17,9
2981,85	10407	591	17,4
3080,58	10463	589	16,7
3106,22	10556	584	16
3119,31	10646	573	16,6
3061,26	10702	567	19,1
3097,31	11353	569	17,8
3161,69	11346	621	17,2
3257,16	11451	629	18,6
3277,01	11964	628	16,3
3295,32	12574	612	15,1
3363,99	13031	595	19,2
3494,17	13812	597	17,7
3667,03	14544	593	19,1
3813,06	14931	590	18
3917,96	14886	580	17,5
3895,51	16005	574	17,8
3801,06	17064	573	21,1
3570,12	15168	573	17,2
3701,61	16050	620	19,4
3862,27	15839	626	19,8
3970,1	15137	620	17,6
4138,52	14954	588	16,2
4199,75	15648	566	19,5
4290,89	15305	557	19,9
4443,91	15579	561	20
4502,64	16348	549	17,3
4356,98	15928	532	18,9
4591,27	16171	526	18,6
4696,96	15937	511	21,4
4621,4	15713	499	18,6
4562,84	15594	555	19,8
4202,52	15683	565	20,8
4296,49	16438	542	19,6
4435,23	17032	527	17,7
4105,18	17696	510	19,8
4116,68	17745	514	22,2
3844,49	19394	517	20,7
3720,98	20148	508	17,9
3674,4	20108	493	20,9
3857,62	18584	490	21,2
3801,06	18441	469	21,4
3504,37	18391	478	23
3032,6	19178	528	21,3
3047,03	18079	534	23,9
2962,34	18483	518	22,4
2197,82	19644	506	18,3
2014,45	19195	502	22,8
1862,83	19650	516	22,3
1905,41	20830	528	17,8
1810,99	23595	533	16,4
1670,07	22937	536	16
1864,44	21814	537	16,4
2052,02	21928	524	17,7
2029,6	21777	536	16,6
2070,83	21383	587	16,2
2293,41	21467	597	18,3
2443,27	22052	581	17,6
2513,17	22680	564	15,1

Tables (Output of Computation)





Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time0 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 & 0 seconds \tabularnewline
R Server & 'Gwilym Jenkins' @ 72.249.127.135 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=69737&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]0 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=69737&T=0

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






Kendall tau rank correlations for all pairs of data series
pairtaup-value
tau( bel , goud )-0.1486295623053990.0934585848619314
tau( bel , wklh )-0.06060617969954040.494877046673813
tau( bel , uitv )0.2066662067432440.0205211825898430
tau( goud , wklh )-0.4167621109510212.66629286327381e-06
tau( goud , uitv )0.1309085349544510.142147887936951
tau( wklh , uitv )-0.3205974939494380.000334173733126423

\begin{tabular}{lllllllll}
\hline
Kendall tau rank correlations for all pairs of data series \tabularnewline
pair & tau & p-value \tabularnewline
tau( bel , goud ) & -0.148629562305399 & 0.0934585848619314 \tabularnewline
tau( bel , wklh ) & -0.0606061796995404 & 0.494877046673813 \tabularnewline
tau( bel , uitv ) & 0.206666206743244 & 0.0205211825898430 \tabularnewline
tau( goud , wklh ) & -0.416762110951021 & 2.66629286327381e-06 \tabularnewline
tau( goud , uitv ) & 0.130908534954451 & 0.142147887936951 \tabularnewline
tau( wklh , uitv ) & -0.320597493949438 & 0.000334173733126423 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=69737&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( bel , goud )[/C][C]-0.148629562305399[/C][C]0.0934585848619314[/C][/ROW]
[ROW][C]tau( bel , wklh )[/C][C]-0.0606061796995404[/C][C]0.494877046673813[/C][/ROW]
[ROW][C]tau( bel , uitv )[/C][C]0.206666206743244[/C][C]0.0205211825898430[/C][/ROW]
[ROW][C]tau( goud , wklh )[/C][C]-0.416762110951021[/C][C]2.66629286327381e-06[/C][/ROW]
[ROW][C]tau( goud , uitv )[/C][C]0.130908534954451[/C][C]0.142147887936951[/C][/ROW]
[ROW][C]tau( wklh , uitv )[/C][C]-0.320597493949438[/C][C]0.000334173733126423[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=69737&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=69737&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( bel , goud )-0.1486295623053990.0934585848619314
tau( bel , wklh )-0.06060617969954040.494877046673813
tau( bel , uitv )0.2066662067432440.0205211825898430
tau( goud , wklh )-0.4167621109510212.66629286327381e-06
tau( goud , uitv )0.1309085349544510.142147887936951
tau( wklh , uitv )-0.3205974939494380.000334173733126423


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