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 13:45:32 -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/t12581452089rphexd6893d14m.htm/, Retrieved Sun, 05 May 2024 10:09:35 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=57122, Retrieved Sun, 05 May 2024 10:09:35 +0000
QR Codes:

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

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] [Kendall tau corre...] [2009-11-13 20:45:32] [95bc1f3b1182fbde76c5a24f1f253203] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
286602	160942	612613	326011
283042	149470	611324	328282
276687	139208	594167	317480
277915	134588	595454	317539
277128	130322	590865	313737
277103	126611	589379	312276
275037	122401	584428	309391
270150	117352	573100	302950
267140	112135	567456	300316
264993	112879	569028	304035
287259	148729	620735	333476
291186	157230	628884	337698
292300	157221	628232	335932
288186	146681	612117	323931
281477	136524	595404	313927
282656	132111	597141	314485
280190	125326	593408	313218
280408	122716	590072	309664
276836	116615	579799	302963
275216	113719	574205	298989
274352	110737	572775	298423
271311	112093	572942	301631
289802	143565	619567	329765
290726	149946	625809	335083
292300	149147	619916	327616
278506	134339	587625	309119
269826	122683	565742	295916
265861	115614	557274	291413
269034	116566	560576	291542
264176	111272	548854	284678
255198	104609	531673	276475
253353	101802	525919	272566
246057	94542	511038	264981
235372	93051	498662	263290
258556	124129	555362	296806
260993	130374	564591	303598
254663	123946	541657	286994
250643	114971	527070	276427
243422	105531	509846	266424
247105	104919	514258	267153
248541	104782	516922	268381
245039	101281	507561	262522
237080	94545	492622	255542
237085	93248	490243	253158
225554	84031	469357	243803
226839	87486	477580	250741
247934	115867	528379	280445
248333	120327	533590	285257
246969	117008	517945	270976
245098	108811	506174	261076
246263	104519	501866	255603
255765	106758	516141	260376
264319	109337	528222	263903
268347	109078	532638	264291
273046	108293	536322	263276
273963	106534	536535	262572
267430	99197	523597	256167
271993	103493	536214	264221
292710	130676	586570	293860
295881	137448	596594	300713
293299	134704	580523	287224

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=57122&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( mannen , -25 )0.6477179799153451.65201186064223e-13
tau( mannen , totaal )0.809510825531330
tau( mannen , vrouwen )0.6520907595265881.13464793116691e-13
tau( -25 , totaal )0.7661202185792350
tau( -25 , vrouwen )0.742076502732240
tau( totaal , vrouwen )0.8426229508196720

\begin{tabular}{lllllllll}
\hline
Kendall tau rank correlations for all pairs of data series \tabularnewline
pair & tau & p-value \tabularnewline
tau( mannen , -25 ) & 0.647717979915345 & 1.65201186064223e-13 \tabularnewline
tau( mannen , totaal ) & 0.80951082553133 & 0 \tabularnewline
tau( mannen , vrouwen ) & 0.652090759526588 & 1.13464793116691e-13 \tabularnewline
tau( -25 , totaal ) & 0.766120218579235 & 0 \tabularnewline
tau( -25 , vrouwen ) & 0.74207650273224 & 0 \tabularnewline
tau( totaal , vrouwen ) & 0.842622950819672 & 0 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=57122&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( mannen , -25 )[/C][C]0.647717979915345[/C][C]1.65201186064223e-13[/C][/ROW]
[ROW][C]tau( mannen , totaal )[/C][C]0.80951082553133[/C][C]0[/C][/ROW]
[ROW][C]tau( mannen , vrouwen )[/C][C]0.652090759526588[/C][C]1.13464793116691e-13[/C][/ROW]
[ROW][C]tau( -25 , totaal )[/C][C]0.766120218579235[/C][C]0[/C][/ROW]
[ROW][C]tau( -25 , vrouwen )[/C][C]0.74207650273224[/C][C]0[/C][/ROW]
[ROW][C]tau( totaal , vrouwen )[/C][C]0.842622950819672[/C][C]0[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=57122&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=57122&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( mannen , -25 )0.6477179799153451.65201186064223e-13
tau( mannen , totaal )0.809510825531330
tau( mannen , vrouwen )0.6520907595265881.13464793116691e-13
tau( -25 , totaal )0.7661202185792350
tau( -25 , vrouwen )0.742076502732240
tau( totaal , vrouwen )0.8426229508196720


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