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 computationMon, 22 Dec 2008 01:54:22 -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/22/t1229938039g5dzu3gl9z0rsiq.htm/, Retrieved Sun, 12 May 2024 15:55:39 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=35957, Retrieved Sun, 12 May 2024 15:55:39 +0000
QR Codes:

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

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] [paper-kendall tau] [2008-12-22 08:54:22] [a16dfd7e948381d8b6391003c5d09447] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
493	13.5	4.7	9	-0.6
481	16.2	3.6	11	1.1
462	17.6	8.2	13	1.4
457	15.8	6.3	12	1.4
442	17.6	3.7	13	1.3
439	15.2	8.9	15	1.4
488	15.9	1.1	13	-0.1
521	12	1.9	16	1.8
501	13.3	5	10	1.5
485	14.8	1.5	14	1.5
464	16.1	1.6	14	1.4
460	16.9	3.8	15	1.6
467	17.6	0.2	13	1.6
460	13.9	1.2	8	1.6
448	10	-3.8	7	1.4
443	7.6	-9.2	3	1.7
436	7.1	-11.6	3	1.8
431	8.1	-9.5	4	1.9
484	8.1	-11	4	2.2
510	7.7	-10.8	0	2.1
513	4	-12.1	-4	2.4
503	1.4	-17	-14	2.6
471	0.3	-14.6	-18	2.8
471	-1	-15.1	-8	2.7
476	-1.9	-12.8	-1	2.6
475	-1.5	-12.2	1	2.9
470	-0.2	-8.8	2	2.8
461	3.4	-7.4	0	2.2
455	3	-2.6	1	2.2
456	4.1	-5.5	0	2.2
517	3.4	-6.5	-1	2
525	3.2	-6.6	-3	2
523	6.1	-8.2	-3	1.7
519	5.8	-8.1	-3	1.4
509	6.2	-6.3	-4	1.3
512	5.8	-10.3	-8	1.4
519	5.9	-12.1	-9	1.3
517	6.7	-8.9	-13	1.3
510	5.9	-16	-18	1.4
509	3.8	-17.1	-11	2
501	1.7	-14.9	-9	1.7
507	1.4	-21.5	-10	1.8
569	1.8	-16	-13	1.7
580	3	-12.2	-11	1.6
578	3.6	-12.3	-5	1.7
565	4.8	-9.4	-15	1.9
547	4.3	-7.9	-6	1.8
555	4.2	-6.5	-6	1.7
562	2.9	-4.4	-3	1.6
561	4.9	-5.9	-1	1.8
555	7.2	-4.3	-3	1.6
544	8.7	0.6	-4	1.5
537	9.1	-1.7	-6	1.5
543	8.9	-1.6	0	1.3
594	9	2.3	-4	1.4
611	11.6	-1.9	-2	1.4
613	9.6	-0.3	-2	1.3
611	9.1	-0.3	-6	1.3
594	9.2	-5.8	-7	1.2
595	10.8	-3.7	-6	1.1
591	11	-3.8	-6	1.4
589	8.5	-8.1	-3	1.2
584	6.5	-8	-2	1.5
573	7.2	-11.6	-5	1.1
567	7.8	-12.4	-11	1.3
569	8.7	-10.7	-11	1.5
621	7.8	-10.5	-11	1.1
629	7.5	-10.9	-10	1.4
628	7.7	-5.6	-14	1.3
612	7.5	-3.9	-8	1.5
595	8.3	-4.3	-9	1.6
597	7.9	-0.4	-5	1.7
593	10.4	-2.9	-1	1.1
590	11.5	1.5	-2	1.6
580	14	0.9	-5	1.3
574	11.9	4.3	-4	1.7
573	11.9	2	-6	1.6
573	10.3	10.1	-2	1.7
620	11.3	5.4	-2	1.9
626	9.9	3.1	-2	1.8
620	8.9	4.5	-2	1.9
588	9.2	3.8	2	1.6
566	8.8	3.5	1	1.5
557	6.7	2.5	-8	1.6
561	7.1	2.1	-1	1.6
549	6.6	3.5	1	1.7
532	7.2	1.4	-1	2
526	5	3.8	2	2
511	5.3	3.9	2	1.9
499	6.3	5.5	1	1.7
555	8	4.2	-1	1.8
565	7.6	3.3	-2	1.9
542	7	1.5	-2	1.7
527	6.9	-0.1	-1	2
510	6.8	1.4	-8	2.1
514	7.5	-1.9	-4	2.4
517	6.4	-0.8	-6	2.5
508	8	0.2	-3	2.5
493	6.4	1.2	-3	2.6
490	9.6	-7.9	-7	2.2
469	7.5	-1.6	-9	2.5
478	9	-5.9	-11	2.8
528	7.9	-7.6	-13	2.8
534	8.1	-5.9	-11	2.9
518	9.1	-14.4	-9	3
506	4.3	-14.8	-17	3.1

Tables (Output of Computation)





Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time2 seconds
R Server'Herman Ole Andreas Wold' @ 193.190.124.10:1001
R Framework error message
The field 'Names of X columns' contains a hard return which cannot be interpreted.
Please, resubmit your request without hard returns in the 'Names of X columns'.

\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 & 2 seconds \tabularnewline
R Server & 'Herman Ole Andreas Wold' @ 193.190.124.10:1001 \tabularnewline
R Framework error message & 
The field 'Names of X columns' contains a hard return which cannot be interpreted.
Please, resubmit your request without hard returns in the 'Names of X columns'.
 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=35957&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]2 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'Herman Ole Andreas Wold' @ 193.190.124.10:1001[/C][/ROW]
[ROW][C]R Framework error message[/C][C]
The field 'Names of X columns' contains a hard return which cannot be interpreted.
Please, resubmit your request without hard returns in the 'Names of X columns'.
[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=35957&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=35957&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 time2 seconds
R Server'Herman Ole Andreas Wold' @ 193.190.124.10:1001
R Framework error message
The field 'Names of X columns' contains a hard return which cannot be interpreted.
Please, resubmit your request without hard returns in the 'Names of X columns'.






Kendall tau rank correlations for all pairs of data series
pairtaup-value
tau( werk , econ )0.08404125671494150.204163487346031
tau( werk , conj )0.05848903354451080.376320979006821
tau( werk , cons )-0.2742803841146624.53725566551442e-05
tau( werk , infl )-0.2508176672340040.000223206286775089
tau( econ , conj )0.4463724051860341.53232981858764e-11
tau( econ , cons )0.2867323330228492.05325045838922e-05
tau( econ , infl )-0.3521222244874002.25837128665879e-07
tau( conj , cons )0.4188330422408124.72001548956769e-10
tau( conj , infl )-0.1500674042809810.0271974094412412
tau( cons , infl )-0.07665144817562740.267453525686906

\begin{tabular}{lllllllll}
\hline
Kendall tau rank correlations for all pairs of data series \tabularnewline
pair & tau & p-value \tabularnewline
tau( werk , econ ) & 0.0840412567149415 & 0.204163487346031 \tabularnewline
tau( werk , conj ) & 0.0584890335445108 & 0.376320979006821 \tabularnewline
tau( werk , cons ) & -0.274280384114662 & 4.53725566551442e-05 \tabularnewline
tau( werk , infl
 ) & -0.250817667234004 & 0.000223206286775089 \tabularnewline
tau( econ , conj ) & 0.446372405186034 & 1.53232981858764e-11 \tabularnewline
tau( econ , cons ) & 0.286732333022849 & 2.05325045838922e-05 \tabularnewline
tau( econ , infl
 ) & -0.352122224487400 & 2.25837128665879e-07 \tabularnewline
tau( conj , cons ) & 0.418833042240812 & 4.72001548956769e-10 \tabularnewline
tau( conj , infl
 ) & -0.150067404280981 & 0.0271974094412412 \tabularnewline
tau( cons , infl
 ) & -0.0766514481756274 & 0.267453525686906 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=35957&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( werk , econ )[/C][C]0.0840412567149415[/C][C]0.204163487346031[/C][/ROW]
[ROW][C]tau( werk , conj )[/C][C]0.0584890335445108[/C][C]0.376320979006821[/C][/ROW]
[ROW][C]tau( werk , cons )[/C][C]-0.274280384114662[/C][C]4.53725566551442e-05[/C][/ROW]
[ROW][C]tau( werk , infl
 )[/C][C]-0.250817667234004[/C][C]0.000223206286775089[/C][/ROW]
[ROW][C]tau( econ , conj )[/C][C]0.446372405186034[/C][C]1.53232981858764e-11[/C][/ROW]
[ROW][C]tau( econ , cons )[/C][C]0.286732333022849[/C][C]2.05325045838922e-05[/C][/ROW]
[ROW][C]tau( econ , infl
 )[/C][C]-0.352122224487400[/C][C]2.25837128665879e-07[/C][/ROW]
[ROW][C]tau( conj , cons )[/C][C]0.418833042240812[/C][C]4.72001548956769e-10[/C][/ROW]
[ROW][C]tau( conj , infl
 )[/C][C]-0.150067404280981[/C][C]0.0271974094412412[/C][/ROW]
[ROW][C]tau( cons , infl
 )[/C][C]-0.0766514481756274[/C][C]0.267453525686906[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=35957&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=35957&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( werk , econ )0.08404125671494150.204163487346031
tau( werk , conj )0.05848903354451080.376320979006821
tau( werk , cons )-0.2742803841146624.53725566551442e-05
tau( werk , infl )-0.2508176672340040.000223206286775089
tau( econ , conj )0.4463724051860341.53232981858764e-11
tau( econ , cons )0.2867323330228492.05325045838922e-05
tau( econ , infl )-0.3521222244874002.25837128665879e-07
tau( conj , cons )0.4188330422408124.72001548956769e-10
tau( conj , infl )-0.1500674042809810.0271974094412412
tau( cons , infl )-0.07665144817562740.267453525686906


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