Repository of Reproducible Computations

Free Statistics

of Irreproducible Research!

Author's title

Author

*The author of this computation has been verified*

R Software Module

rwasp_pairs.wasp

Title produced by software

Kendall tau Correlation Matrix

Date of computation

Fri, 13 Nov 2009 11:28:10 -0700

Cite this page as follows

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2009/Nov/13/t125813694632o780zy6uj5hpu.htm/, Retrieved Sun, 05 May 2024 15:56:59 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=56973, Retrieved Sun, 05 May 2024 15:56:59 +0000

QR Codes:

Paste this QR Code to cite your computation.

Original text written by user:

IsPrivate?

No (this computation is public)

User-defined keywords

Estimated Impact

107

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)

-     [Notched Boxplots] [3/11/2009] [2009-11-02 21:10:41] [b98453cac15ba1066b407e146608df68]
- RMPD    [Kendall tau Correlation Matrix] [Kendall Tau Corre...] [2009-11-13 18:28:10] [85defb7a20869746625978e6577e6e44] [Current]

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

2926686	29211	45319	18234
2944920	29870	46603	18989
2963909	32045	47943	18315
2982224	32209	45773	16020
2998244	32062	53225	21277
3019521	31623	57281	25816
3045337	32652	62241	29747
3075084	30030	61814	32185
3107269	29220	70727	39228
3146497	29894	67625	37028
3183525	28375	65618	34974
3218499	29082	63052	31455
3249954	29699	62410	30342
3280296	27736	60571	31150
3311446	28417	62543	32564
3344010	28412	62985	33756
3377766	29158	62739	32960
3410726	29099	63552	34947
3445673	29981	64171	30217
3475890	30560	63063	32096
3507986	31645	62985	30015
3538001	31761	63005	29706
3567707	32543	61880	27064
3594771	33313	62555	30058
3624829	34318	62254	28177
3653006	36850	63290	27062
3680068	35171	65570	28541
3708609	35317	66277	29117
3737726	36010	67061	30572
3768298	36216	66779	32482
3800780	37668	67350	31412
3832192	38994	67746	31029
3863221	38723	64551	25084
3888305	38981	65550	29468
3917773	39375	64260	30462
3948235	39958	61208	24755
3972990	39464	59603	24535
3997525	40061	56345	19576
4017101	40216	53474	18101
4035202	39824	50877	16006
4051208	40682	51749	14926
4066134	41632	51580	12766
4078900	41340	51039	13440
4092340	41893	50708	14723
4107063	41454	51245	15448
4122511	42224	49937	11842
4134353	42581	50274	11492
4145845	44372	51134	13342
4159187	43560	52514	16334
4175521	44959	54027	22768
4198289	45354	57526	22397
4220686	45173	59303	12430
4233116	46021	60939	16714
4249830	44923	60808	23804
4273634	44731	60109	25533
4299167	46597	59678	25648
4324815	44071	60092	23595
4348410	45190	60292	21547
4369957	43860	60927	22757
4392714	44595	59801	24885
4417599	44112	58352	27730
4445329	45170	59298	33168
4478497	44002	59234	24939
4503436	43981	56696	20630
4524066	44465	55434	28186
4552252	42478	56458	25205
4577457	41200	56951	28906
4606363	41232	56756	33856

Summary of computational transaction
Raw Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	0 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=56973&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=56973&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=56973&T=0

As an alternative you can also use a QR Code:

The GUIDs for individual cells are displayed in the table below:

Summary of computational transaction
Raw Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	0 seconds
R Server	'Gwilym Jenkins' @ 72.249.127.135

Kendall tau rank correlations for all pairs of data series
pair	tau	p-value
tau( Totalepopulatie , sterftecijfer )	0.732221246707638	0
tau( Totalepopulatie , geboortecijfer )	-0.177826568500534	0.0320442939958965
tau( Totalepopulatie , populatieaangroei )	-0.243195785776997	0.0033619679571333
tau( sterftecijfer , geboortecijfer )	-0.226125142661172	0.00640798158433705
tau( sterftecijfer , populatieaangroei )	-0.398595258999122	1.53665693908777e-06
tau( geboortecijfer , populatieaangroei )	0.587047215025219	1.46904710618401e-12

\begin{tabular}{lllllllll}
\hline
Kendall tau rank correlations for all pairs of data series \tabularnewline
pair & tau & p-value \tabularnewline
tau( Totalepopulatie , sterftecijfer ) & 0.732221246707638 & 0 \tabularnewline
tau( Totalepopulatie , geboortecijfer ) & -0.177826568500534 & 0.0320442939958965 \tabularnewline
tau( Totalepopulatie , populatieaangroei ) & -0.243195785776997 & 0.0033619679571333 \tabularnewline
tau( sterftecijfer , geboortecijfer ) & -0.226125142661172 & 0.00640798158433705 \tabularnewline
tau( sterftecijfer , populatieaangroei ) & -0.398595258999122 & 1.53665693908777e-06 \tabularnewline
tau( geboortecijfer , populatieaangroei ) & 0.587047215025219 & 1.46904710618401e-12 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=56973&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( Totalepopulatie , sterftecijfer )[/C][C]0.732221246707638[/C][C]0[/C][/ROW]
[ROW][C]tau( Totalepopulatie , geboortecijfer )[/C][C]-0.177826568500534[/C][C]0.0320442939958965[/C][/ROW]
[ROW][C]tau( Totalepopulatie , populatieaangroei )[/C][C]-0.243195785776997[/C][C]0.0033619679571333[/C][/ROW]
[ROW][C]tau( sterftecijfer , geboortecijfer )[/C][C]-0.226125142661172[/C][C]0.00640798158433705[/C][/ROW]
[ROW][C]tau( sterftecijfer , populatieaangroei )[/C][C]-0.398595258999122[/C][C]1.53665693908777e-06[/C][/ROW]
[ROW][C]tau( geboortecijfer , populatieaangroei )[/C][C]0.587047215025219[/C][C]1.46904710618401e-12[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=56973&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=56973&T=1

As an alternative you can also use a QR Code:

The GUIDs for individual cells are displayed in the table below:

Kendall tau rank correlations for all pairs of data series
pair	tau	p-value
tau( Totalepopulatie , sterftecijfer )	0.732221246707638	0
tau( Totalepopulatie , geboortecijfer )	-0.177826568500534	0.0320442939958965
tau( Totalepopulatie , populatieaangroei )	-0.243195785776997	0.0033619679571333
tau( sterftecijfer , geboortecijfer )	-0.226125142661172	0.00640798158433705
tau( sterftecijfer , populatieaangroei )	-0.398595258999122	1.53665693908777e-06
tau( geboortecijfer , populatieaangroei )	0.587047215025219	1.46904710618401e-12

Figure 1

PNG link

Postscript link

PDF link

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

Free Statistics

Description of Statistical Computation

Tree of Dependent Computations

Dataset

Tables (Output of Computation)

Figures (Output of Computation)

Input Parameters & R Code