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, 06 Nov 2009 04:17:56 -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/06/t12575063423oi4zz14eji9158.htm/, Retrieved Sun, 28 Apr 2024 11:41:43 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=54261, Retrieved Sun, 28 Apr 2024 11:41:43 +0000
QR Codes:

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

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] [SHWWS6link3a] [2009-11-06 11:17:56] [db49399df1e4a3dbe31268849cebfd7f] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
161	452	25,60  7,40
149	462	23,70	  7,10
139	455	22,00	  6,80
135	461	21,30	  6,90
130	461	20,70	  7,20
127	463	20,40  7,40
122	462	20,30  7,30
117	456	20,40	  6,90
112	455	19,80	  6,90
113	456	19,50	  6,80
149	472	23,10	  7,10
157	472	23,50	  7,20
157	471	23,50	  7,10
147	465	22,90	  7,00
137	459	21,90	  6,90
132	465	21,50	  7,10
125	468	20,50	  7,30
123	467	20,20	  7,50
117	463	19,40	  7,50
114	460	19,20	  7,50
111	462	18,80	  7,30
112	461	18,80	  7,00
144	476	22,60	  6,70
150	476	23,30	  6,50
149	471	23,00	  6,50
134	453	21,40	  6,50
123	443	19,90	  6,60
116	442	18,80	  6,80
117	444	18,60	  6,90
111	438	18,40	  6,90
105	427	18,60	  6,80
102	424	19,90	  6,80
95	416	19,20	  6,50
93	406	18,40	  6,10
124	431	21,10	  6,10
130	434	20,50	  5,90
124	418	19,10	  5,70
115	412	18,10	  5,90
106	404	17,00	  5,90
105	409	17,10	  6,10
105	412	17,40	  6,30
101	406	16,80	  6,20
95	398	15,30	  5,90
93	397	14,30	  5,70
84	385	13,40	  5,40
87	390	15,30	  5,60
116	413	22,10	  6,20
120	413	23,70	  6,30
117	401	22,20	  6,00
109	397	19,50	  5,60
105	397	16,60	  5,50
107	409	17,30	  5,90
109	419	19,80	  6,50
109	424	21,20	  6,80
108	428	21,50	  6,80
107	430	20,60	  6,50
99	424	19,10	  6,20
103	433	19,60	  6,20
131	456	23,50	  6,50
137	459	24,00	  6,70

Tables (Output of Computation)





Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time2 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 & 2 seconds \tabularnewline
R Server & 'Gwilym Jenkins' @ 72.249.127.135 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=54261&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]2 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=54261&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=54261&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 time2 seconds
R Server'Gwilym Jenkins' @ 72.249.127.135






Kendall tau rank correlations for all pairs of data series
pairtaup-value
tau( wklhd<25 , wklhd>25 )0.6002871664619432.38793429474526e-11
tau( wklhd<25 , wkz<25 )0.664188807333081.29452004671293e-13
tau( wklhd<25 , wkz>25 )0.3841466481517922.65373998031837e-05
tau( wklhd>25 , wkz<25 )0.47368545074351.24930507050536e-07
tau( wklhd>25 , wkz>25 )0.6547107027845837.74047492768659e-13
tau( wkz<25 , wkz>25 )0.30763529359220.000740708036373494

\begin{tabular}{lllllllll}
\hline
Kendall tau rank correlations for all pairs of data series \tabularnewline
pair & tau & p-value \tabularnewline
tau( wklhd<25 , wklhd>25 ) & 0.600287166461943 & 2.38793429474526e-11 \tabularnewline
tau( wklhd<25 , wkz<25 ) & 0.66418880733308 & 1.29452004671293e-13 \tabularnewline
tau( wklhd<25 , wkz>25 ) & 0.384146648151792 & 2.65373998031837e-05 \tabularnewline
tau( wklhd>25 , wkz<25 ) & 0.4736854507435 & 1.24930507050536e-07 \tabularnewline
tau( wklhd>25 , wkz>25 ) & 0.654710702784583 & 7.74047492768659e-13 \tabularnewline
tau( wkz<25 , wkz>25 ) & 0.3076352935922 & 0.000740708036373494 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=54261&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( wklhd<25 , wklhd>25 )[/C][C]0.600287166461943[/C][C]2.38793429474526e-11[/C][/ROW]
[ROW][C]tau( wklhd<25 , wkz<25 )[/C][C]0.66418880733308[/C][C]1.29452004671293e-13[/C][/ROW]
[ROW][C]tau( wklhd<25 , wkz>25 )[/C][C]0.384146648151792[/C][C]2.65373998031837e-05[/C][/ROW]
[ROW][C]tau( wklhd>25 , wkz<25 )[/C][C]0.4736854507435[/C][C]1.24930507050536e-07[/C][/ROW]
[ROW][C]tau( wklhd>25 , wkz>25 )[/C][C]0.654710702784583[/C][C]7.74047492768659e-13[/C][/ROW]
[ROW][C]tau( wkz<25 , wkz>25 )[/C][C]0.3076352935922[/C][C]0.000740708036373494[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=54261&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=54261&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( wklhd<25 , wklhd>25 )0.6002871664619432.38793429474526e-11
tau( wklhd<25 , wkz<25 )0.664188807333081.29452004671293e-13
tau( wklhd<25 , wkz>25 )0.3841466481517922.65373998031837e-05
tau( wklhd>25 , wkz<25 )0.47368545074351.24930507050536e-07
tau( wklhd>25 , wkz>25 )0.6547107027845837.74047492768659e-13
tau( wkz<25 , wkz>25 )0.30763529359220.000740708036373494


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