Free Statistics

of Irreproducible Research!

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 computationSat, 07 Nov 2009 04:42:52 -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/07/t125759498400s990w7k74amj6.htm/, Retrieved Sat, 04 May 2024 05:29:31 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=54388, Retrieved Sat, 04 May 2024 05:29:31 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact240
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Back to Back Histogram] [3/11/2009] [2009-11-02 21:58:53] [b98453cac15ba1066b407e146608df68]
-   PD  [Back to Back Histogram] [WS6-BtotBHisto] [2009-11-07 10:00:36] [408e92805dcb18620260f240a7fb9d53]
- RMPD      [Kendall tau Correlation Matrix] [WS6-KendallTaucor...] [2009-11-07 11:42:52] [b32ceebc68d054278e6bda97f3d57f91] [Current]
- RM D        [Partial Correlation] [WS6-Partialcorrel...] [2009-11-07 11:59:56] [408e92805dcb18620260f240a7fb9d53]
- RM D          [Box-Cox Linearity Plot] [W6-Boxcox] [2009-11-07 12:05:56] [408e92805dcb18620260f240a7fb9d53]
- RMPD          [Bivariate Kernel Density Estimation] [W6-BivariateKerne...] [2009-11-07 12:14:54] [408e92805dcb18620260f240a7fb9d53]
- RMPD          [Mean Plot] [W6-Meanplot] [2009-11-07 12:18:28] [408e92805dcb18620260f240a7fb9d53]
- RMPD          [Standard Deviation Plot] [W6-SDplot] [2009-11-07 12:29:06] [408e92805dcb18620260f240a7fb9d53]
-    D          [Partial Correlation] [WS6: Partial Corr...] [2009-11-13 17:53:20] [03d5b865e91ca35b5a5d21b8d6da5aba]
- RM D          [Box-Cox Linearity Plot] [WS6: Box-Cox Line...] [2009-11-13 17:59:18] [03d5b865e91ca35b5a5d21b8d6da5aba]
- RMPD          [Bivariate Kernel Density Estimation] [WS6: Kernell Density] [2009-11-13 18:06:50] [03d5b865e91ca35b5a5d21b8d6da5aba]
- RMPD          [Bivariate Explorative Data Analysis] [W6: Bivariate EDA] [2009-11-13 18:33:06] [03d5b865e91ca35b5a5d21b8d6da5aba]
Feedback Forum

Post a new message
Dataseries X:
8,1	10,9	3922	96,8
7,7	10	3759	114,1
7,5	9,2	4138	110,3
7,6	9,2	4634	103,9
7,8	9,5	3996	101,6
7,8	9,6	4308	94,6
7,8	9,5	4143	95,9
7,5	9,1	4429	104,7
7,5	8,9	5219	102,8
7,1	9	4929	98,1
7,5	10,1	5755	113,9
7,5	10,3	5592	80,9
7,6	10,2	4163	95,7
7,7	9,6	4962	113,2
7,7	9,2	5208	105,9
7,9	9,3	4755	108,8
8,1	9,4	4491	102,3
8,2	9,4	5732	99
8,2	9,2	5731	100,7
8,2	9	5040	115,5
7,9	9	6102	100,7
7,3	9	4904	109,9
6,9	9,8	5369	114,6
6,6	10	5578	85,4
6,7	9,8	4619	100,5
6,9	9,3	4731	114,8
7	9	5011	116,5
7,1	9	5299	112,9
7,2	9,1	4146	102
7,1	9,1	4625	106
6,9	9,1	4736	105,3
7	9,2	4219	118,8
6,8	8,8	5116	106,1
6,4	8,3	4205	109,3
6,7	8,4	4121	117,2
6,6	8,1	5103	92,5
6,4	7,7	4300	104,2
6,3	7,9	4578	112,5
6,2	7,9	3809	122,4
6,5	8	5526	113,3
6,8	7,9	4247	100
6,8	7,6	3830	110,7
6,4	7,1	4394	112,8
6,1	6,8	4826	109,8
5,8	6,5	4409	117,3
6,1	6,9	4569	109,1
7,2	8,2	4106	115,9
7,3	8,7	4794	96
6,9	8,3	3914	99,8
6,1	7,9	3793	116,8
5,8	7,5	4405	115,7
6,2	7,8	4022	99,4
7,1	8,3	4100	94,3
7,7	8,4	4788	91
7,9	8,2	3163	93,2
7,7	7,7	3585	103,1
7,4	7,2	3903	94,1
7,5	7,3	4178	91,8
8	8,1	3863	102,7
8,1	8,5	4187	82,6




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'Sir Ronald Aylmer Fisher' @ 193.190.124.24
R Framework error message
The field 'Names of X columns' contains a hard return which cannot be interpreted.
Please, resubmit your request without hard returns in the 'Names of X columns'.

\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 & 'Sir Ronald Aylmer Fisher' @ 193.190.124.24 \tabularnewline
R Framework error message & 
The field 'Names of X columns' contains a hard return which cannot be interpreted.
Please, resubmit your request without hard returns in the 'Names of X columns'.
\tabularnewline \hline \end{tabular} %Source: https://freestatistics.org/blog/index.php?pk=54388&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]'Sir Ronald Aylmer Fisher' @ 193.190.124.24[/C][/ROW]
[ROW][C]R Framework error message[/C][C]
The field 'Names of X columns' contains a hard return which cannot be interpreted.
Please, resubmit your request without hard returns in the 'Names of X columns'.
[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=54388&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=54388&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 Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'Sir Ronald Aylmer Fisher' @ 193.190.124.24
R Framework error message
The field 'Names of X columns' contains a hard return which cannot be interpreted.
Please, resubmit your request without hard returns in the 'Names of X columns'.







Kendall tau rank correlations for all pairs of data series
pairtaup-value
tau( Wman , Wvr )0.3983688353896641.27195909678246e-05
tau( Wman , Bouw )0.04145825973279170.645437207636962
tau( Wman , Indtot )-0.2793463665852070.00193904147258910
tau( Wvr , Bouw )0.2154948959732310.0163138916272614
tau( Wvr , Indtot )-0.1152306250128620.199150629383459
tau( Bouw , Indtot )0.01073749689658780.903546011643524

\begin{tabular}{lllllllll}
\hline
Kendall tau rank correlations for all pairs of data series \tabularnewline
pair & tau & p-value \tabularnewline
tau( Wman , Wvr ) & 0.398368835389664 & 1.27195909678246e-05 \tabularnewline
tau( Wman , Bouw ) & 0.0414582597327917 & 0.645437207636962 \tabularnewline
tau( Wman , Indtot


 ) & -0.279346366585207 & 0.00193904147258910 \tabularnewline
tau( Wvr , Bouw ) & 0.215494895973231 & 0.0163138916272614 \tabularnewline
tau( Wvr , Indtot


 ) & -0.115230625012862 & 0.199150629383459 \tabularnewline
tau( Bouw , Indtot


 ) & 0.0107374968965878 & 0.903546011643524 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=54388&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( Wman , Wvr )[/C][C]0.398368835389664[/C][C]1.27195909678246e-05[/C][/ROW]
[ROW][C]tau( Wman , Bouw )[/C][C]0.0414582597327917[/C][C]0.645437207636962[/C][/ROW]
[ROW][C]tau( Wman , Indtot


 )[/C][C]-0.279346366585207[/C][C]0.00193904147258910[/C][/ROW]
[ROW][C]tau( Wvr , Bouw )[/C][C]0.215494895973231[/C][C]0.0163138916272614[/C][/ROW]
[ROW][C]tau( Wvr , Indtot


 )[/C][C]-0.115230625012862[/C][C]0.199150629383459[/C][/ROW]
[ROW][C]tau( Bouw , Indtot


 )[/C][C]0.0107374968965878[/C][C]0.903546011643524[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=54388&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=54388&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
pairtaup-value
tau( Wman , Wvr )0.3983688353896641.27195909678246e-05
tau( Wman , Bouw )0.04145825973279170.645437207636962
tau( Wman , Indtot )-0.2793463665852070.00193904147258910
tau( Wvr , Bouw )0.2154948959732310.0163138916272614
tau( Wvr , Indtot )-0.1152306250128620.199150629383459
tau( Bouw , Indtot )0.01073749689658780.903546011643524



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