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 computationWed, 04 Nov 2009 11:11: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/Nov/04/t1257358500q7ss0y4cpyrtfqv.htm/, Retrieved Mon, 29 Apr 2024 10:55:59 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=53779, Retrieved Mon, 29 Apr 2024 10:55:59 +0000
QR Codes:

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

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] [kendall tau corre...] [2009-11-04 18:11:03] [950726a732ba3ca782ecb1a5307d0f6f] [Current]
-           [Kendall tau Correlation Matrix] [Paper] [2009-12-07 20:58:31] [3e19a07d230ba260a720e0e03e0f40f2]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
79	82	82	89
106	106	94	94
101	97	99	95
104	102	94	98
97	102	96	90
93	91	87	99
99	101	97	100
116	117	109	110
104	102	107	104
99	101	110	104
109	109	118	117
93	89	107	99
91	95	95	105
111	114	119	106
105	103	107	100
114	120	112	114
103	116	118	110
105	109	105	116
106	111	109	106
125	132	130	128
103	106	105	105
114	115	125	118
123	119	113	118
102	104	118	106
101	107	105	114
121	123	116	110
120	120	124	127
119	124	124	129
102	106	113	111
118	116	116	129
114	115	123	115
130	133	144	129
113	112	112	122
119	118	121	132
129	126	126	128
116	116	140	134
110	112	117	125
124	124	133	127
133	136	138	148
129	134	135	138
105	118	117	119
127	128	118	144
127	130	121	109
128	133	125	132
133	137	143	145
122	122	129	138
141	145	137	146
127	128	146	157
110	115	110	142
136	136	142	162
132	134	132	153
110	117	106	125
97	102	106	124
96	95	89	120
98	98	97	107
106	109	108	111
98	99	99	97
94	94	98	95
107	109	110	102
98	98	109	94

Tables (Output of Computation)





Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time20 seconds
R Server'George Udny Yule' @ 72.249.76.132

\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 & 20 seconds \tabularnewline
R Server & 'George Udny Yule' @ 72.249.76.132 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=53779&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]20 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'George Udny Yule' @ 72.249.76.132[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=53779&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=53779&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 time20 seconds
R Server'George Udny Yule' @ 72.249.76.132






Kendall tau rank correlations for all pairs of data series
pairtaup-value
tau( uitintraeu , inintraeu )0.8683156978943530
tau( uitintraeu , uitextraeu )0.6973004020677778.88178419700125e-15
tau( uitintraeu , inextraeu )0.6146798085116157.63877849863093e-12
tau( inintraeu , uitextraeu )0.6958026453325611.08801856413265e-14
tau( inintraeu , inextraeu )0.6486823505933915.33129096425e-13
tau( uitextraeu , inextraeu )0.6077990643864851.29922739233734e-11

\begin{tabular}{lllllllll}
\hline
Kendall tau rank correlations for all pairs of data series \tabularnewline
pair & tau & p-value \tabularnewline
tau( uitintraeu , inintraeu ) & 0.868315697894353 & 0 \tabularnewline
tau( uitintraeu , uitextraeu ) & 0.697300402067777 & 8.88178419700125e-15 \tabularnewline
tau( uitintraeu , inextraeu ) & 0.614679808511615 & 7.63877849863093e-12 \tabularnewline
tau( inintraeu , uitextraeu ) & 0.695802645332561 & 1.08801856413265e-14 \tabularnewline
tau( inintraeu , inextraeu ) & 0.648682350593391 & 5.33129096425e-13 \tabularnewline
tau( uitextraeu , inextraeu ) & 0.607799064386485 & 1.29922739233734e-11 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=53779&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( uitintraeu , inintraeu )[/C][C]0.868315697894353[/C][C]0[/C][/ROW]
[ROW][C]tau( uitintraeu , uitextraeu )[/C][C]0.697300402067777[/C][C]8.88178419700125e-15[/C][/ROW]
[ROW][C]tau( uitintraeu , inextraeu )[/C][C]0.614679808511615[/C][C]7.63877849863093e-12[/C][/ROW]
[ROW][C]tau( inintraeu , uitextraeu )[/C][C]0.695802645332561[/C][C]1.08801856413265e-14[/C][/ROW]
[ROW][C]tau( inintraeu , inextraeu )[/C][C]0.648682350593391[/C][C]5.33129096425e-13[/C][/ROW]
[ROW][C]tau( uitextraeu , inextraeu )[/C][C]0.607799064386485[/C][C]1.29922739233734e-11[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=53779&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=53779&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( uitintraeu , inintraeu )0.8683156978943530
tau( uitintraeu , uitextraeu )0.6973004020677778.88178419700125e-15
tau( uitintraeu , inextraeu )0.6146798085116157.63877849863093e-12
tau( inintraeu , uitextraeu )0.6958026453325611.08801856413265e-14
tau( inintraeu , inextraeu )0.6486823505933915.33129096425e-13
tau( uitextraeu , inextraeu )0.6077990643864851.29922739233734e-11


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