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 computationTue, 15 Dec 2009 05:54:03 -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/15/t12608817011dx30tw0w0agee0.htm/, Retrieved Wed, 08 May 2024 20:12:25 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=67880, Retrieved Wed, 08 May 2024 20:12:25 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact141
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Standard Deviation-Mean Plot] [mean plot bel20] [2008-12-10 18:16:19] [74be16979710d4c4e7c6647856088456]
- RMPD    [Kendall tau Correlation Matrix] [] [2009-12-15 12:54:03] [5858ea01c9bd81debbf921a11363ad90] [Current]
-    D      [Kendall tau Correlation Matrix] [] [2009-12-15 15:05:03] [2f674a53c3d7aaa1bcf80e66074d3c9b]
-   PD        [Kendall tau Correlation Matrix] [paper] [2010-12-24 09:31:35] [960f506a46b790b06fab7ca57984a121]
Feedback Forum

Post a new message
Dataseries X:
2350.44	27	36
2440.25	29	35
2408.64	27	37
2472.81	26	40
2407.6	24	41
2454.62	30	31
2448.05	26	34
2497.84	28	31
2645.64	28	33
2756.76	24	42
2849.27	23	41
2921.44	24	42
2981.85	24	41
3080.58	27	40
3106.22	28	35
3119.31	25	35
3061.26	19	47
3097.31	19	46
3161.69	19	45
3257.16	20	41
3277.01	16	40
3295.32	22	38
3363.99	21	40
3494.17	25	36
3667.03	29	27
3813.06	28	27
3917.96	25	34
3895.51	26	28
3801.06	24	31
3570.12	28	27
3701.61	28	28
3862.27	28	19
3970.1	28	20
4138.52	32	14
4199.75	31	15
4290.89	22	42
4443.91	29	22
4502.64	31	17
4356.98	29	18
4591.27	32	10
4696.96	32	15
4621.4	31	15
4562.84	29	17
4202.52	28	12
4296.49	28	11
4435.23	29	7
4105.18	22	10
4116.68	26	6
3844.49	24	8
3720.98	27	3
3674.4	27	1
3857.62	23	9
3801.06	21	14
3504.37	19	12
3032.6	17	20
3047.03	19	24
2962.34	21	24
2197.82	13	44
2014.45	8	60
1862.83	5	68
1905.41	10	71
1810.99	6	76
1670.07	6	74
1864.44	8	74
2052.02	11	73
2029.6	12	72
2070.83	13	68
2293.41	19	60
2443.27	19	60
2513.17	18	60
2466.92	20	58




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
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 & 'Gwilym Jenkins' @ 72.249.127.135 \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=67880&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]
[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=67880&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=67880&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'Gwilym Jenkins' @ 72.249.127.135
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( Bel , cons )0.5244843020824022.69531064134299e-10
tau( Bel , werkl )-0.6083480606457561.00167361478719e-13
tau( cons , werkl )-0.5616298817984431.97074649423788e-11

\begin{tabular}{lllllllll}
\hline
Kendall tau rank correlations for all pairs of data series \tabularnewline
pair & tau & p-value \tabularnewline
tau( Bel , cons ) & 0.524484302082402 & 2.69531064134299e-10 \tabularnewline
tau( Bel , werkl

 ) & -0.608348060645756 & 1.00167361478719e-13 \tabularnewline
tau( cons , werkl

 ) & -0.561629881798443 & 1.97074649423788e-11 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=67880&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( Bel , cons )[/C][C]0.524484302082402[/C][C]2.69531064134299e-10[/C][/ROW]
[ROW][C]tau( Bel , werkl

 )[/C][C]-0.608348060645756[/C][C]1.00167361478719e-13[/C][/ROW]
[ROW][C]tau( cons , werkl

 )[/C][C]-0.561629881798443[/C][C]1.97074649423788e-11[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=67880&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=67880&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( Bel , cons )0.5244843020824022.69531064134299e-10
tau( Bel , werkl )-0.6083480606457561.00167361478719e-13
tau( cons , werkl )-0.5616298817984431.97074649423788e-11



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