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 computationThu, 18 Dec 2008 02:55:18 -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/2008/Dec/18/t1229594190aicpk6ai8u6rjsd.htm/, Retrieved Sun, 12 May 2024 11:45:35 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=34618, Retrieved Sun, 12 May 2024 11:45:35 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
F     [Kendall tau Correlation Matrix] [Testing Hypothese...] [2008-11-02 10:22:03] [33f4701c7363e8b81858dafbf0350eed]
F       [Kendall tau Correlation Matrix] [T1] [2008-11-03 19:12:49] [b187fac1a1b0cb3920f54366df47fea3]
-   P     [Kendall tau Correlation Matrix] [Q1 kendall tau co...] [2008-11-03 23:38:32] [b641c14ac36cb6fee377f3b099dcac19]
-   PD        [Kendall tau Correlation Matrix] [Kendall Tau Alle ...] [2008-12-18 09:55:18] [96c9291ce335a5c9abba7b920811c2df] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
16	31	41	12
19	35	35	12
21	38	34	12
19	36	36	12
18	33	39	12
16	29	40	11
22	37	30	12
18	28	33	11
20	32	30	12
20	31	32	11
16	24	41	13
15	25	40	10
16	27	41	11
16	27	40	12
19	29	39	12
20	33	34	11
17	26	34	9
11	16	46	8
11	15	45	9
11	13	44	9
12	18	40	8
8	8	39	6
14	21	37	10
13	21	39	10
17	25	35	11
21	28	26	12
20	27	26	12
17	24	33	11
18	24	27	11
16	24	30	9
20	28	26	11
20	31	27	11
20	26	18	11
20	28	19	9
24	34	13	12
23	33	14	12
14	24	41	10
21	30	21	12
23	31	16	11
21	28	17	10
24	35	9	11
24	33	14	11
23	34	14	10
21	31	16	9
20	21	11	8
20	21	10	9
21	22	6	8
14	9	9	5
18	15	5	6
16	13	7	4
19	17	2	7
19	19	0	4
15	14	8	4
13	8	13	4
11	3	11	0
9	0	19	2
11	10	23	4
13	12	23	6
5	9	43	1
0	9	59	2

Tables (Output of Computation)





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

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






Kendall tau rank correlations for all pairs of data series
pairtaup-value
tau( IVHC , AES )0.6255334058974351.48139278621784e-11
tau( IVHC , WIN )-0.4027296263667931.27572277440711e-05
tau( IVHC , FSG )0.4331240067295347.43068597830465e-06
tau( AES , WIN )-0.01451396481560190.872979522060415
tau( AES , FSG )0.6856133532932145.56221735337203e-13
tau( WIN , FSG )0.1903635421509530.0443534824355025

\begin{tabular}{lllllllll}
\hline
Kendall tau rank correlations for all pairs of data series \tabularnewline
pair & tau & p-value \tabularnewline
tau( IVHC , AES ) & 0.625533405897435 & 1.48139278621784e-11 \tabularnewline
tau( IVHC , WIN ) & -0.402729626366793 & 1.27572277440711e-05 \tabularnewline
tau( IVHC , FSG ) & 0.433124006729534 & 7.43068597830465e-06 \tabularnewline
tau( AES , WIN ) & -0.0145139648156019 & 0.872979522060415 \tabularnewline
tau( AES , FSG ) & 0.685613353293214 & 5.56221735337203e-13 \tabularnewline
tau( WIN , FSG ) & 0.190363542150953 & 0.0443534824355025 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=34618&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( IVHC , AES )[/C][C]0.625533405897435[/C][C]1.48139278621784e-11[/C][/ROW]
[ROW][C]tau( IVHC , WIN )[/C][C]-0.402729626366793[/C][C]1.27572277440711e-05[/C][/ROW]
[ROW][C]tau( IVHC , FSG )[/C][C]0.433124006729534[/C][C]7.43068597830465e-06[/C][/ROW]
[ROW][C]tau( AES , WIN )[/C][C]-0.0145139648156019[/C][C]0.872979522060415[/C][/ROW]
[ROW][C]tau( AES , FSG )[/C][C]0.685613353293214[/C][C]5.56221735337203e-13[/C][/ROW]
[ROW][C]tau( WIN , FSG )[/C][C]0.190363542150953[/C][C]0.0443534824355025[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=34618&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=34618&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( IVHC , AES )0.6255334058974351.48139278621784e-11
tau( IVHC , WIN )-0.4027296263667931.27572277440711e-05
tau( IVHC , FSG )0.4331240067295347.43068597830465e-06
tau( AES , WIN )-0.01451396481560190.872979522060415
tau( AES , FSG )0.6856133532932145.56221735337203e-13
tau( WIN , FSG )0.1903635421509530.0443534824355025


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