FreeStatistics.org

Free Statistics

of Irreproducible Research!

Description of Statistical Computation

Author's title

Author*Unverified author*
R Software Modulerwasp_pairs.wasp
Title produced by softwareKendall tau Correlation Matrix
Date of computationWed, 11 Nov 2009 03:42:33 -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/11/t1257936334ktty4s7viyed4f4.htm/, Retrieved Tue, 16 Apr 2024 04:02:39 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=55478, Retrieved Tue, 16 Apr 2024 04:02:39 +0000
QR Codes:

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

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] [ws6] [2009-11-11 10:42:33] [9a1fef436e1d399a5ecd6808bfbd8489] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
3922	22782	-0,6	6,7
3759	16169	-0,2	6,5
4138	13807	-0,7	6,2
4634	29743	-0,1	6,2
3995	25591	0,7	6,5
4308	29096	1,5	6,8
4143	26482	1,6	6,8
4429	22404	2,8	6,5
5219	27044	3,3	5,9
4929	17970	3,5	5,5
5755	18730	3,9	5,6
5592	19684	4,8	6
4163	19785	5,1	6,3
4962	18479	4,9	6,2
5208	10698	5,2	5,6
4755	31956	5,1	5,4
4491	29506	4,6	5,7
5732	34506	3,7	5,9
5731	27165	3,9	6,2
5040	26736	3,1	6,3
6102	23691	2,8	6,1
4904	18157	2,6	5,9
5369	17328	2,2	5,9
5578	18205	1,8	5,7
4619	20995	1,3	5,9
4731	17382	1,2	6,1
5011	9367	1,4	6,1
5299	31124	1,3	6,5
4146	26551	1,3	6,8
4625	30651	1,9	6,8
4736	25859	1,9	6,9
4219	25100	2,1	6,9
5116	25778	2	6,8
4205	20418	1,9	6,6
4121	18688	1,9	6,5
5103	20424	1,9	6,5
4300	24776	1,8	6,5
4578	19814	1,7	6,7
3809	12738	1,6	7
5526	31566	1,7	7,3
4247	30111	1,9	7,5
3830	30019	1,7	7,5
4394	31934	1,3	7,5
4826	25826	2	7,3
4409	26835	2	7,1
4569	20205	2,3	6,9
4106	17789	2	7
4794	20520	1,7	7,1
3914	22518	2,3	7,2
3793	15572	2,4	7,1
4405	11509	2,4	6,8
4022	25447	2,3	6,9
4100	24090	2,1	6,9
4788	27786	2,1	7,3
3163	26195	2,5	7,4
3585	20516	2	7,2
3903	22759	1,8	6,9
4178	19028	1,7	6,8
3863	16971	1,9	7,1
4187	20036	2,1	7,4

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=55478&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( bouwaanvragen , inschrijvingen_autos )0.1050847457627120.235505972226483
tau( bouwaanvragen , BBP )0.2290376744924080.0109598908830493
tau( bouwaanvragen , werkloosheid )-0.401313720907669.76216166006886e-06
tau( inschrijvingen_autos , BBP )-0.02186791867012940.808088992290868
tau( inschrijvingen_autos , werkloosheid )0.169004765244760.0625481841560229
tau( BBP , werkloosheid )-0.1680046959318570.0685362732265319

\begin{tabular}{lllllllll}
\hline
Kendall tau rank correlations for all pairs of data series \tabularnewline
pair & tau & p-value \tabularnewline
tau( bouwaanvragen , inschrijvingen_autos ) & 0.105084745762712 & 0.235505972226483 \tabularnewline
tau( bouwaanvragen , BBP ) & 0.229037674492408 & 0.0109598908830493 \tabularnewline
tau( bouwaanvragen , werkloosheid ) & -0.40131372090766 & 9.76216166006886e-06 \tabularnewline
tau( inschrijvingen_autos , BBP ) & -0.0218679186701294 & 0.808088992290868 \tabularnewline
tau( inschrijvingen_autos , werkloosheid ) & 0.16900476524476 & 0.0625481841560229 \tabularnewline
tau( BBP , werkloosheid ) & -0.168004695931857 & 0.0685362732265319 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=55478&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( bouwaanvragen , inschrijvingen_autos )[/C][C]0.105084745762712[/C][C]0.235505972226483[/C][/ROW]
[ROW][C]tau( bouwaanvragen , BBP )[/C][C]0.229037674492408[/C][C]0.0109598908830493[/C][/ROW]
[ROW][C]tau( bouwaanvragen , werkloosheid )[/C][C]-0.40131372090766[/C][C]9.76216166006886e-06[/C][/ROW]
[ROW][C]tau( inschrijvingen_autos , BBP )[/C][C]-0.0218679186701294[/C][C]0.808088992290868[/C][/ROW]
[ROW][C]tau( inschrijvingen_autos , werkloosheid )[/C][C]0.16900476524476[/C][C]0.0625481841560229[/C][/ROW]
[ROW][C]tau( BBP , werkloosheid )[/C][C]-0.168004695931857[/C][C]0.0685362732265319[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=55478&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=55478&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( bouwaanvragen , inschrijvingen_autos )0.1050847457627120.235505972226483
tau( bouwaanvragen , BBP )0.2290376744924080.0109598908830493
tau( bouwaanvragen , werkloosheid )-0.401313720907669.76216166006886e-06
tau( inschrijvingen_autos , BBP )-0.02186791867012940.808088992290868
tau( inschrijvingen_autos , werkloosheid )0.169004765244760.0625481841560229
tau( BBP , werkloosheid )-0.1680046959318570.0685362732265319


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