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, 18 Dec 2009 05:51:27 -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/18/t12611407835zvn69xv91v7g5s.htm/, Retrieved Sat, 27 Apr 2024 15:55:51 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=69295, Retrieved Sat, 27 Apr 2024 15:55:51 +0000
QR Codes:

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

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]
- R  D  [Kendall tau Correlation Matrix] [] [2009-11-11 17:20:33] [74be16979710d4c4e7c6647856088456]
-    D      [Kendall tau Correlation Matrix] [Kendall Tau Corre...] [2009-12-18 12:51:27] [c5f9f441970441f2f938cd843072158d] [Current]
- R PD        [Kendall tau Correlation Matrix] [] [2010-12-21 19:37:17] [84ec9e690346b814992f2f0baa963a63]
- RMPD        [Multiple Regression] [] [2010-12-21 19:40:07] [84ec9e690346b814992f2f0baa963a63]
- RMPD        [Multiple Regression] [] [2010-12-21 19:47:11] [84ec9e690346b814992f2f0baa963a63]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
562	136	426	3397
561	133	428	3971
555	126	430	4625
544	120	424	4486
537	114	423	4132
543	116	427	4685
594	153	441	3172
611	162	449	4280
613	161	452	4207
611	149	462	4158
594	139	455	3933
595	135	461	3151
591	130	461	3616
589	127	463	4221
584	122	462	4436
573	117	456	4807
567	112	455	4849
569	113	456	5024
621	149	472	3521
629	157	472	4650
628	157	471	5393
612	147	465	5147
595	137	459	4845
597	132	465	3995
593	125	468	4493
590	123	467	4680
580	117	463	5463
574	114	460	4761
573	111	462	5307
573	112	461	5069
620	144	476	3501
626	150	476	4952
620	149	471	5152
588	134	453	5317
566	123	443	5189
557	116	442	4030
561	117	444	4420
549	111	438	4571
532	105	427	4551
526	102	424	4819
511	95	416	5133
499	93	406	4532
555	124	431	3339
565	130	434	4380
542	124	418	4632
527	115	412	4719
510	106	404	4212
514	105	409	3615
517	105	412	3420
508	101	406	4571
493	95	398	4407
490	93	397	4386
469	84	385	4386
478	87	390	4744
528	116	413	3185
534	120	413	3890
518	117	401	4520
506	109	397	3990
502	105	397	3809
516	107	409	3236
528	109	419	3551
533	109	424	3264
536	108	428	3579
537	107	430	3537
524	99	424	3038
536	103	433	2888
587	131	456	2198

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=69295&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( TotWL , <25WL )0.7359601692586970
tau( TotWL , >25WL )0.8084113547461750
tau( TotWL , woningen )0.1220511307688990.145389278012317
tau( <25WL , >25WL )0.536820385771072.32063701588459e-10
tau( <25WL , woningen )0.02233415917245690.7907590099565
tau( >25WL , woningen )0.1658728393868460.0487353151263528

\begin{tabular}{lllllllll}
\hline
Kendall tau rank correlations for all pairs of data series \tabularnewline
pair & tau & p-value \tabularnewline
tau( TotWL , <25WL ) & 0.735960169258697 & 0 \tabularnewline
tau( TotWL , >25WL ) & 0.808411354746175 & 0 \tabularnewline
tau( TotWL , woningen ) & 0.122051130768899 & 0.145389278012317 \tabularnewline
tau( <25WL , >25WL ) & 0.53682038577107 & 2.32063701588459e-10 \tabularnewline
tau( <25WL , woningen ) & 0.0223341591724569 & 0.7907590099565 \tabularnewline
tau( >25WL , woningen ) & 0.165872839386846 & 0.0487353151263528 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=69295&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( TotWL , <25WL )[/C][C]0.735960169258697[/C][C]0[/C][/ROW]
[ROW][C]tau( TotWL , >25WL )[/C][C]0.808411354746175[/C][C]0[/C][/ROW]
[ROW][C]tau( TotWL , woningen )[/C][C]0.122051130768899[/C][C]0.145389278012317[/C][/ROW]
[ROW][C]tau( <25WL , >25WL )[/C][C]0.53682038577107[/C][C]2.32063701588459e-10[/C][/ROW]
[ROW][C]tau( <25WL , woningen )[/C][C]0.0223341591724569[/C][C]0.7907590099565[/C][/ROW]
[ROW][C]tau( >25WL , woningen )[/C][C]0.165872839386846[/C][C]0.0487353151263528[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=69295&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=69295&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( TotWL , <25WL )0.7359601692586970
tau( TotWL , >25WL )0.8084113547461750
tau( TotWL , woningen )0.1220511307688990.145389278012317
tau( <25WL , >25WL )0.536820385771072.32063701588459e-10
tau( <25WL , woningen )0.02233415917245690.7907590099565
tau( >25WL , woningen )0.1658728393868460.0487353151263528


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