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 computationSun, 08 Nov 2009 08:39:20 -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/08/t1257694870fj673wrhkkkszft.htm/, Retrieved Sat, 04 May 2024 14:04:58 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=54578, Retrieved Sat, 04 May 2024 14:04:58 +0000
QR Codes:

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

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-08 15:39:20] [2622964eb3e61db9b0dfd11950e3a18c] [Current]
-    D      [Kendall tau Correlation Matrix] [Kendall Tau Corre...] [2009-12-13 18:51:54] [e2a6b1b31bd881219e1879835b4c60d0]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
5560	433	34.97	36.68
3922	344	34.97	36.7
3759	357	34.93	36.71
4138	385	34.92	36.72
4634	392	34.97	36.73
3996	308	34.97	36.73
4308	294	34.97	36.87
4429	302	35.38	37.31
5219	400	35.64	37.39
4929	392	35.9	37.42
5755	373	36.01	37.51
5592	379	36.03	37.67
4163	303	36.04	37.67
4962	324	36.06	37.71
5208	353	36.09	37.78
4755	392	36.15	37.79
4491	327	36.15	37.84
5732	376	36.15	37.88
5731	329	36.1	38.34
5040	359	36.38	38.58
6102	413	36.89	38.72
4904	338	37	38.83
5369	422	37.09	38.9
5578	390	37.13	38.92
4619	370	37.24	38.94
4731	367	37.29	39.1
5011	406	37.34	39.14
5299	418	37.49	39.16
4146	346	37.49	39.32
4625	350	37.54	39.34
4736	329	37.67	39.44
4219	318	38.13	39.92
5116	381	38.68	40.19
4205	337	38.77	40.2
4121	372	39	40.27
5103	422	39.03	40.28
4300	427	39.03	40.3
4578	426	39.04	40.34
3809	396	39.16	40.4
5526	458	39.23	40.43
4247	314	39.26	40.48
3830	336	39.25	40.48
4394	385	39.41	40.63
4826	351	39.56	40.74
4409	381	39.69	40.77
4569	438	39.87	40.91
4106	397	39.83	40.92
4794	451	39.84	41.03
3914	362	39.85	41
3793	363	39.91	41.04
4405	468	40.62	41.33
4022	371	40.73	41.44
4100	407	40.86	41.46
4788	391	40.89	41.55
3163	364	40.9	41.55
3585	366	41.15	41.81
3903	424	41.24	41.78
4178	364	41.24	41.84
3863	366	41.33	41.84
4187	423	41.36	41.86

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=54578&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( Bouwvergunningen_woningen , Bouwvergunningen_gebouwen )0.1636935365453100.0652438323073237
tau( Bouwvergunningen_woningen , Uurtarief_elektricien )-0.2951222246286070.00090632794454529
tau( Bouwvergunningen_woningen , Uurtarief_loodgieter )-0.2947669143752030.000889788092190318
tau( Bouwvergunningen_gebouwen , Uurtarief_elektricien )0.2065437950606320.0205179254224599
tau( Bouwvergunningen_gebouwen , Uurtarief_loodgieter )0.2007942301684980.0239170474328969
tau( Uurtarief_elektricien , Uurtarief_loodgieter )0.979828600633960

\begin{tabular}{lllllllll}
\hline
Kendall tau rank correlations for all pairs of data series \tabularnewline
pair & tau & p-value \tabularnewline
tau( Bouwvergunningen_woningen , Bouwvergunningen_gebouwen ) & 0.163693536545310 & 0.0652438323073237 \tabularnewline
tau( Bouwvergunningen_woningen , Uurtarief_elektricien ) & -0.295122224628607 & 0.00090632794454529 \tabularnewline
tau( Bouwvergunningen_woningen , Uurtarief_loodgieter ) & -0.294766914375203 & 0.000889788092190318 \tabularnewline
tau( Bouwvergunningen_gebouwen , Uurtarief_elektricien ) & 0.206543795060632 & 0.0205179254224599 \tabularnewline
tau( Bouwvergunningen_gebouwen , Uurtarief_loodgieter ) & 0.200794230168498 & 0.0239170474328969 \tabularnewline
tau( Uurtarief_elektricien , Uurtarief_loodgieter ) & 0.97982860063396 & 0 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=54578&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( Bouwvergunningen_woningen , Bouwvergunningen_gebouwen )[/C][C]0.163693536545310[/C][C]0.0652438323073237[/C][/ROW]
[ROW][C]tau( Bouwvergunningen_woningen , Uurtarief_elektricien )[/C][C]-0.295122224628607[/C][C]0.00090632794454529[/C][/ROW]
[ROW][C]tau( Bouwvergunningen_woningen , Uurtarief_loodgieter )[/C][C]-0.294766914375203[/C][C]0.000889788092190318[/C][/ROW]
[ROW][C]tau( Bouwvergunningen_gebouwen , Uurtarief_elektricien )[/C][C]0.206543795060632[/C][C]0.0205179254224599[/C][/ROW]
[ROW][C]tau( Bouwvergunningen_gebouwen , Uurtarief_loodgieter )[/C][C]0.200794230168498[/C][C]0.0239170474328969[/C][/ROW]
[ROW][C]tau( Uurtarief_elektricien , Uurtarief_loodgieter )[/C][C]0.97982860063396[/C][C]0[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=54578&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=54578&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( Bouwvergunningen_woningen , Bouwvergunningen_gebouwen )0.1636935365453100.0652438323073237
tau( Bouwvergunningen_woningen , Uurtarief_elektricien )-0.2951222246286070.00090632794454529
tau( Bouwvergunningen_woningen , Uurtarief_loodgieter )-0.2947669143752030.000889788092190318
tau( Bouwvergunningen_gebouwen , Uurtarief_elektricien )0.2065437950606320.0205179254224599
tau( Bouwvergunningen_gebouwen , Uurtarief_loodgieter )0.2007942301684980.0239170474328969
tau( Uurtarief_elektricien , Uurtarief_loodgieter )0.979828600633960


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