FreeStatistics.org

Free Statistics

of Irreproducible Research!

Description of Statistical Computation

Author's title

Author*Unverified author*
R Software Modulerwasp_pairs.wasp
Title produced by softwareKendall tau Correlation Matrix
Date of computationWed, 19 Dec 2007 08:15:05 -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/2007/Dec/19/t1198076281r9mhpfhkgccc6fp.htm/, Retrieved Mon, 06 May 2024 23:09:31 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=4669, Retrieved Mon, 06 May 2024 23:09:31 +0000
QR Codes:

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

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] [] [2007-12-19 15:15:05] [e2f7a6e26aa7cf06a3d27eb5298a4843] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
1	0.76	0.9383	25.62
1.04	0.77	0.9217	27.5
1.02	0.76	0.9095	24.5
1.07	0.77	0.892	25.66
1.12	0.78	0.8742	28.31
1.08	0.79	0.8532	27.85
1.02	0.78	0.8607	24.61
1.01	0.76	0.9005	25.68
1.04	0.78	0.9111	25.62
0.98	0.76	0.9059	20.54
0.95	0.74	0.8883	18.8
0.94	0.73	0.8924	18.71
0.94	0.72	0.8833	19.46
0.96	0.71	0.87	20.12
0.97	0.73	0.8758	23.54
1.03	0.75	0.8858	25.6
1.01	0.75	0.917	25.39
0.99	0.72	0.9554	24.09
1	0.72	0.9922	25.69
1	0.72	0.9778	26.56
1.02	0.74	0.9808	28.33
1.01	0.78	0.9811	27.5
0.99	0.74	1.0014	24.23
0.98	0.74	1.0183	28.23
1.01	0.75	1.0622	31.29
1.03	0.78	1.0773	32.72
1.03	0.81	1.0807	30.46
1	0.75	1.0848	24.89
0.96	0.7	1.1582	25.68
0.97	0.71	1.1663	27.52
0.98	0.71	1.1372	28.4
1.02	0.73	1.1139	29.71
1.04	0.74	1.1222	26.85
1.01	0.74	1.1692	29.62
1.01	0.75	1.1702	28.69
1	0.74	1.2286	29.76
1.01	0.74	1.2613	31.3
1.02	0.73	1.2646	30.86
1.03	0.76	1.2262	33.46
1.06	0.8	1.1985	33.15
1.12	0.83	1.2007	37.99
1.12	0.81	1.2138	35.24
1.13	0.83	1.2266	38.24
1.13	0.88	1.2176	43.16
1.13	0.89	1.2218	43.33
1.17	0.93	1.249	49.67
1.14	0.91	1.2991	43.17
1.08	0.9	1.3408	39.56
1.07	0.86	1.3119	44.36
1.12	0.88	1.3014	45.22
1.14	0.93	1.3201	53.1
1.21	0.98	1.2938	52.1
1.2	0.97	1.2694	48.52
1.23	1.03	1.2165	54.84
1.29	1.06	1.2037	57.57
1.31	1.06	1.2292	64.14
1.37	1.08	1.2256	62.85
1.35	1.09	1.2015	58.75
1.26	1.04	1.1786	55.33
1.26	1	1.1856	57.03
1.28	1.01	1.2103	63.18
1.28	1.02	1.1938	60.19
1.27	1.04	1.202	62.12
1.35	1.06	1.2271	70.12
1.37	1.06	1.277	69.75
1.37	1.06	1.265	68.56
1.4	1.06	1.2684	73.77
1.4	1.06	1.2811	73.23
1.28	1.02	1.2727	61.96
1.23	0.98	1.2611	57.81
1.23	0.99	1.2881	58.76
1.25	0.99	1.3213	62.47
1.21	0.94	1.2999	53.68
1.22	0.96	1.3074	57.56
1.29	0.98	1.3242	62.05
1.32	1.01	1.3516	67.49
1.36	1.01	1.3511	67.21
1.36	1.02	1.3419	71.05
1.37	1.04	1.3716	76.93
1.32	1.03	1.3622	70.76

Tables (Output of Computation)





Summary of compuational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time4 seconds
R Server'Herman Ole Andreas Wold' @ 193.190.124.10:1001

\begin{tabular}{lllllllll}
\hline
Summary of compuational transaction \tabularnewline
Raw Input & view raw input (R code)  \tabularnewline
Raw Output & view raw output of R engine  \tabularnewline
Computing time & 4 seconds \tabularnewline
R Server & 'Herman Ole Andreas Wold' @ 193.190.124.10:1001 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=4669&T=0

[TABLE]
[ROW][C]Summary of compuational 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]4 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'Herman Ole Andreas Wold' @ 193.190.124.10:1001[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=4669&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=4669&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 compuational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time4 seconds
R Server'Herman Ole Andreas Wold' @ 193.190.124.10:1001






Kendall tau rank correlations for all pairs of data series
pairtaup-value
tau( eurosuper , diesel )0.8406672550126980
tau( eurosuper , wisselkoers )0.4917049929637541.86060056250881e-10
tau( eurosuper , brent-olie )0.8037351335348680
tau( diesel , wisselkoers )0.4199181508357955.86058821472335e-08
tau( diesel , brent-olie )0.7177143703708840
tau( wisselkoers , brent-olie )0.6436600377584170

\begin{tabular}{lllllllll}
\hline
Kendall tau rank correlations for all pairs of data series \tabularnewline
pair & tau & p-value \tabularnewline
tau( eurosuper , diesel ) & 0.840667255012698 & 0 \tabularnewline
tau( eurosuper , wisselkoers ) & 0.491704992963754 & 1.86060056250881e-10 \tabularnewline
tau( eurosuper , brent-olie ) & 0.803735133534868 & 0 \tabularnewline
tau( diesel , wisselkoers ) & 0.419918150835795 & 5.86058821472335e-08 \tabularnewline
tau( diesel , brent-olie ) & 0.717714370370884 & 0 \tabularnewline
tau( wisselkoers , brent-olie ) & 0.643660037758417 & 0 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=4669&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( eurosuper , diesel )[/C][C]0.840667255012698[/C][C]0[/C][/ROW]
[ROW][C]tau( eurosuper , wisselkoers )[/C][C]0.491704992963754[/C][C]1.86060056250881e-10[/C][/ROW]
[ROW][C]tau( eurosuper , brent-olie )[/C][C]0.803735133534868[/C][C]0[/C][/ROW]
[ROW][C]tau( diesel , wisselkoers )[/C][C]0.419918150835795[/C][C]5.86058821472335e-08[/C][/ROW]
[ROW][C]tau( diesel , brent-olie )[/C][C]0.717714370370884[/C][C]0[/C][/ROW]
[ROW][C]tau( wisselkoers , brent-olie )[/C][C]0.643660037758417[/C][C]0[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=4669&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=4669&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( eurosuper , diesel )0.8406672550126980
tau( eurosuper , wisselkoers )0.4917049929637541.86060056250881e-10
tau( eurosuper , brent-olie )0.8037351335348680
tau( diesel , wisselkoers )0.4199181508357955.86058821472335e-08
tau( diesel , brent-olie )0.7177143703708840
tau( wisselkoers , brent-olie )0.6436600377584170


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