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, 13 Nov 2009 10:34:09 -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/13/t125813373725265vs8cdnwawu.htm/, Retrieved Mon, 29 Apr 2024 03:12:56 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=56931, Retrieved Mon, 29 Apr 2024 03:12:56 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Notched Boxplots] [3/11/2009] [2009-11-02 21:10:41] [b98453cac15ba1066b407e146608df68]
-   PD  [Notched Boxplots] [WS 4: Notched Box...] [2009-11-09 12:07:49] [74be16979710d4c4e7c6647856088456]
-         [Notched Boxplots] [WS 6: Notched Box...] [2009-11-09 12:18:05] [74be16979710d4c4e7c6647856088456]
-    D      [Notched Boxplots] [WS 6 notched boxp...] [2009-11-13 16:51:53] [95cead3ebb75668735f848316249436a]
- RMPD          [Kendall tau Correlation Matrix] [WS 6 kendall tau] [2009-11-13 17:34:09] [95523ebdb89b97dbf680ec91e0b4bca2] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
1.00	2.05	2756.76	2.00
1.00	2.11	2849.27	2.00
1.00	2.09	2921.44	4.00
1.00	2.05	2981.85	-4.00
1.00	2.08	3080.58	-1.00
1.00	2.06	3106.22	0.00
1.00	2.06	3119.31	10.00
1.00	2.08	3061.26	2.00
1.00	2.07	3097.31	-11.00
1.00	2.06	3161.69	0.00
1.00	2.07	3257.16	8.00
1.00	2.06	3277.01	8.00
1.00	2.09	3295.32	12.00
1.00	2.07	3363.99	2.00
1.00	2.09	3494.17	-10.00
1.25	2.28	3667.03	6.00
1.25	2.33	3813.06	6.00
1.25	2.35	3917.96	-5.00
1.50	2.52	3895.51	11.00
1.50	2.63	3801.06	8.00
1.50	2.58	3570.12	11.00
1.75	2.70	3701.61	0.00
1.75	2.81	3862.27	17.00
2.00	2.97	3970.10	23.00
2.00	3.04	4138.52	16.00
2.25	3.28	4199.75	11.00
2.25	3.33	4290.89	-4.00
2.50	3.50	4443.91	2.00
2.50	3.56	4502.64	7.00
2.50	3.57	4356.98	12.00
2.75	3.69	4591.27	9.00
2.75	3.82	4696.96	5.00
2.75	3.79	4621.40	4.00
3.00	3.96	4562.84	12.00
3.00	4.06	4202.52	11.00
3.00	4.05	4296.49	6.00
3.00	4.03	4435.23	6.00
3.00	3.94	4105.18	1.00
3.00	4.02	4116.68	-2.00
3.00	3.88	3844.49	6.00
3.00	4.02	3720.98	11.00
3.00	4.03	3674.40	-4.00
3.00	4.09	3857.62	-7.00
3.00	3.99	3801.06	-11.00
3.00	4.01	3504.37	-6.00
3.00	4.01	3032.60	-13.00
3.25	4.19	3047.03	-10.00
3.25	4.30	2962.34	-16.00
3.25	4.27	2197.82	-18.00
3.25	3.82	2014.45	-30.00
2.75	3.15	1862.83	-46.00
2.00	2.49	1905.41	-53.00
1.00	1.81	1810.99	-49.00
1.00	1.26	1670.07	-56.00
0.50	1.06	1864.44	-53.00
0.25	0.84	2052.02	-60.00
0.25	0.78	2029.60	-53.00
0.25	0.70	2070.83	-50.00
0.25	0.36	2293.41	-44.00
0.25	0.35	2443.27	-35.00

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=56931&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( CBI , market-I )0.9026386008605650
tau( CBI , bel20 )0.3970043616658342.32615335788999e-05
tau( CBI , conjuctuur )0.1236208223087650.193056002264985
tau( market-I , bel20 )0.4243162209081091.87415090513454e-06
tau( market-I , conjuctuur )0.1606277510338000.07461698011294
tau( bel20 , conjuctuur )0.5185230765835057.44646877492983e-09

\begin{tabular}{lllllllll}
\hline
Kendall tau rank correlations for all pairs of data series \tabularnewline
pair & tau & p-value \tabularnewline
tau( CBI , market-I ) & 0.902638600860565 & 0 \tabularnewline
tau( CBI , bel20 ) & 0.397004361665834 & 2.32615335788999e-05 \tabularnewline
tau( CBI , conjuctuur ) & 0.123620822308765 & 0.193056002264985 \tabularnewline
tau( market-I , bel20 ) & 0.424316220908109 & 1.87415090513454e-06 \tabularnewline
tau( market-I , conjuctuur ) & 0.160627751033800 & 0.07461698011294 \tabularnewline
tau( bel20 , conjuctuur ) & 0.518523076583505 & 7.44646877492983e-09 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=56931&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( CBI , market-I )[/C][C]0.902638600860565[/C][C]0[/C][/ROW]
[ROW][C]tau( CBI , bel20 )[/C][C]0.397004361665834[/C][C]2.32615335788999e-05[/C][/ROW]
[ROW][C]tau( CBI , conjuctuur )[/C][C]0.123620822308765[/C][C]0.193056002264985[/C][/ROW]
[ROW][C]tau( market-I , bel20 )[/C][C]0.424316220908109[/C][C]1.87415090513454e-06[/C][/ROW]
[ROW][C]tau( market-I , conjuctuur )[/C][C]0.160627751033800[/C][C]0.07461698011294[/C][/ROW]
[ROW][C]tau( bel20 , conjuctuur )[/C][C]0.518523076583505[/C][C]7.44646877492983e-09[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=56931&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=56931&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( CBI , market-I )0.9026386008605650
tau( CBI , bel20 )0.3970043616658342.32615335788999e-05
tau( CBI , conjuctuur )0.1236208223087650.193056002264985
tau( market-I , bel20 )0.4243162209081091.87415090513454e-06
tau( market-I , conjuctuur )0.1606277510338000.07461698011294
tau( bel20 , conjuctuur )0.5185230765835057.44646877492983e-09


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