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 computationThu, 29 Nov 2007 11:32:49 -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/Nov/29/t1196360741klmld105o4vwdp1.htm/, Retrieved Fri, 03 May 2024 06:17:07 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=7567, Retrieved Fri, 03 May 2024 06:17:07 +0000
QR Codes:

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

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] [matrix MET trans ...] [2007-11-29 18:32:49] [cb51ec34031fa6f7825ad77351c1efd8] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
0	544,5	733,6	0
-0,04	619,8	844,9	-1,9
-0,0325	777,6	864,3	8,5
-0,0179	640,4	833,5	9,2
-0,0076	633	814,9	1,3
-0,025	722	820,4	1,1
-0,0025	860,1	710,8	8,1
0,0251	495,1	773,1	5,2
-0,0103	692,8	801,2	8,9
0,0205	766,7	832,9	-2,5
-0,0368	648,5	808,3	6,8
-0,0228	640	817,2	2,6
0,0027	681,6	745,5	1
-0,0303	752,5	932,6	6,4
-0,0191	1031,7	1057	1,3
-0,0173	685,5	879,9	-13
-0,041	887,6	1089,5	13,6
0,0432	655,4	903	6,5
-0,0095	944,2	846,1	-4,1
-0,0356	626,6	959,1	4,5
-0,032	1221,8	952	9,6
-0,0169	939,6	1092,5	-1,9
0,0012	886,6	1188,9	2,7
0,0409	811,3	996,7	-23,6
0,041	774,7	1034,3	0,2
-0,0166	910,6	898,2	5,6
-0,0122	911,6	1111,6	-6,4
-0,0175	697,7	900,5	2,1
-0,0178	829,8	1049,2	5,1
-0,021	824,3	1010,9	-2,1
0,0075	885,6	875,9	-6,6
0,0398	538,9	849,9	2,5
0,0106	686	713,4	-0,5
-0,0052	878,7	918,6	-15,5
-0,0176	812,7	912,5	-8,7
0,0041	640,4	767	-0,3
-0,0091	773,9	902,2	2,4
-0,0133	795,9	891,9	2,2
0,0058	836,3	874	13,3
0,01	876,1	930,9	6,2
0,0312	851,7	944,2	0,5
0,0384	692,4	935,9	-3,5
0,0368	877,3	937,1	3,7
-0,0144	536,8	885,1	3,3
0,003	705,9	892,4	5,7
0,0003	951	987,3	-3
0,0203	755,7	946,3	-9,8
0,0169	695,5	799,6	9,3
0,0439	744,8	875,4	10,8
0,0151	672,1	846,2	8,1
0,0034	666,6	880,6	-9,1
0,0041	760,8	885,7	-16,6
0,0734	756	868,9	1,8
0,0081	604,4	882,5	6,3
-0,0291	883,9	789,6	3,1
-0,0233	527,9	773,3	3,9
0,0083	756,2	804,3	-9,9
0,047	812,9	817,8	7,1
0,001	655,6	836,7	0,7
0,0584	707,6	721,8	2,8

Tables (Output of Computation)





Summary of compuational 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 compuational 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=7567&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]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=7567&T=0

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






Kendall tau rank correlations for all pairs of data series
pairtaup-value
tau( dollarkoers , export )-0.04748445449406440.592119077801037
tau( dollarkoers , import )-0.0774230039385540.382230495426841
tau( dollarkoers , aardolie )-0.09728508343481450.272600808124731
tau( export , import )0.3735518657181332.48788200780670e-05
tau( export , aardolie )-0.06108598262186030.490903663268922
tau( import , aardolie )-0.1023466582448560.248305310089462

\begin{tabular}{lllllllll}
\hline
Kendall tau rank correlations for all pairs of data series \tabularnewline
pair & tau & p-value \tabularnewline
tau( dollarkoers , export ) & -0.0474844544940644 & 0.592119077801037 \tabularnewline
tau( dollarkoers , import ) & -0.077423003938554 & 0.382230495426841 \tabularnewline
tau( dollarkoers , aardolie ) & -0.0972850834348145 & 0.272600808124731 \tabularnewline
tau( export , import ) & 0.373551865718133 & 2.48788200780670e-05 \tabularnewline
tau( export , aardolie ) & -0.0610859826218603 & 0.490903663268922 \tabularnewline
tau( import , aardolie ) & -0.102346658244856 & 0.248305310089462 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=7567&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( dollarkoers , export )[/C][C]-0.0474844544940644[/C][C]0.592119077801037[/C][/ROW]
[ROW][C]tau( dollarkoers , import )[/C][C]-0.077423003938554[/C][C]0.382230495426841[/C][/ROW]
[ROW][C]tau( dollarkoers , aardolie )[/C][C]-0.0972850834348145[/C][C]0.272600808124731[/C][/ROW]
[ROW][C]tau( export , import )[/C][C]0.373551865718133[/C][C]2.48788200780670e-05[/C][/ROW]
[ROW][C]tau( export , aardolie )[/C][C]-0.0610859826218603[/C][C]0.490903663268922[/C][/ROW]
[ROW][C]tau( import , aardolie )[/C][C]-0.102346658244856[/C][C]0.248305310089462[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=7567&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=7567&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( dollarkoers , export )-0.04748445449406440.592119077801037
tau( dollarkoers , import )-0.0774230039385540.382230495426841
tau( dollarkoers , aardolie )-0.09728508343481450.272600808124731
tau( export , import )0.3735518657181332.48788200780670e-05
tau( export , aardolie )-0.06108598262186030.490903663268922
tau( import , aardolie )-0.1023466582448560.248305310089462


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