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, 12 Nov 2009 07:38:38 -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/12/t1258037225yjz2tvmaatzjrhf.htm/, Retrieved Sat, 04 May 2024 01:55:44 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=56073, Retrieved Sat, 04 May 2024 01:55:44 +0000
QR Codes:

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

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]
- R  D    [Kendall tau Correlation Matrix] [Kendal Tau correl...] [2009-11-12 14:38:38] [c60887983b0820a525cba943a935572d] [Current]
-    D      [Kendall tau Correlation Matrix] [] [2009-12-15 16:44:21] [3445d50c581a74ea3ff7b84cc82fcfeb]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
149	2.3	0.69144	110.8
139	1.9	0.69862	119.3
135	1.7	0.69500	128.1
130	2.5	0.69867	127.6
127	2.1	0.68968	137.9
122	2.4	0.69233	151.4
117	1.5	0.68293	143.6
112	1.9	0.68399	143.4
113	2.1	0.66895	141.9
149	2.2	0.68756	135.2
157	2.0	0.68527	133.1
157	2.0	0.67760	129.6
147	2.2	0.68137	134.1
137	2.3	0.67933	136.8
132	2.3	0.67922	143.5
125	2.0	0.68598	162.5
123	2.2	0.68297	163.1
117	1.9	0.68935	157.2
114	2.3	0.69463	158.8
111	2.2	0.68330	155.4
112	2.3	0.68666	148.5
144	2.1	0.68782	154.2
150	2.4	0.67669	153.3
149	2.3	0.67511	149.4
134	1.9	0.67254	147.9
123	1.6	0.67397	156.0
116	1.8	0.67286	163.0
117	1.8	0.66341	159.1
111	2.0	0.66800	159.5
105	2.3	0.68021	157.3
102	2.2	0.67934	156.4
95	2.2	0.68136	156.6
93	2.0	0.67562	162.4
124	2.0	0.67440	166.8
130	1.9	0.67766	162.6
124	1.5	0.68887	168.1
115	1.6	0.69614	171.3
106	1.5	0.70896	171.0
105	2.0	0.72064	178.7
105	1.5	0.74725	187.5
101	1.5	0.75094	211.4
95	1.9	0.77494	211.6
93	1.1	0.79487	199.4
84	1.5	0.79209	198.7
87	2.1	0.79152	209.3
116	2.3	0.79308	215.5
120	2.6	0.79279	212.8
117	2.9	0.79924	203.2
109	3.2	0.78668	175.7
105	3.2	0.83063	171.0
107	3.1	0.90448	172.5
109	3.0	0.91819	183.5
109	3.3	0.88691	185.4
108	2.7	0.91966	180.9
107	3.6	0.89756	187.3
99	3.1	0.88444	202.0
103	2.7	0.85670	203.3
131	2.6	0.86092	205.8
137	2.2	0.86265	221.5
135	2.7	0.89135	226.6

Tables (Output of Computation)





Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'RServer@AstonUniversity' @ vre.aston.ac.uk

\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 & 1 seconds \tabularnewline
R Server & 'RServer@AstonUniversity' @ vre.aston.ac.uk \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=56073&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]1 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'RServer@AstonUniversity' @ vre.aston.ac.uk[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=56073&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=56073&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 time1 seconds
R Server'RServer@AstonUniversity' @ vre.aston.ac.uk






Kendall tau rank correlations for all pairs of data series
pairtaup-value
tau( WLH , HICP )0.01473215859462940.872636666124234
tau( WLH , PS/EU )-0.2210906967176060.0132683706373943
tau( WLH , PI )-0.4098173585589134.44850240139565e-06
tau( HICP , PS/EU )0.2880456274793870.00158275259314578
tau( HICP , PI )0.07948331884007270.383490262104265
tau( PS/EU , PI )0.4063294878235064.52200427192295e-06

\begin{tabular}{lllllllll}
\hline
Kendall tau rank correlations for all pairs of data series \tabularnewline
pair & tau & p-value \tabularnewline
tau( WLH , HICP ) & 0.0147321585946294 & 0.872636666124234 \tabularnewline
tau( WLH , PS/EU ) & -0.221090696717606 & 0.0132683706373943 \tabularnewline
tau( WLH , PI ) & -0.409817358558913 & 4.44850240139565e-06 \tabularnewline
tau( HICP , PS/EU ) & 0.288045627479387 & 0.00158275259314578 \tabularnewline
tau( HICP , PI ) & 0.0794833188400727 & 0.383490262104265 \tabularnewline
tau( PS/EU , PI ) & 0.406329487823506 & 4.52200427192295e-06 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=56073&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( WLH , HICP )[/C][C]0.0147321585946294[/C][C]0.872636666124234[/C][/ROW]
[ROW][C]tau( WLH , PS/EU )[/C][C]-0.221090696717606[/C][C]0.0132683706373943[/C][/ROW]
[ROW][C]tau( WLH , PI )[/C][C]-0.409817358558913[/C][C]4.44850240139565e-06[/C][/ROW]
[ROW][C]tau( HICP , PS/EU )[/C][C]0.288045627479387[/C][C]0.00158275259314578[/C][/ROW]
[ROW][C]tau( HICP , PI )[/C][C]0.0794833188400727[/C][C]0.383490262104265[/C][/ROW]
[ROW][C]tau( PS/EU , PI )[/C][C]0.406329487823506[/C][C]4.52200427192295e-06[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=56073&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=56073&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( WLH , HICP )0.01473215859462940.872636666124234
tau( WLH , PS/EU )-0.2210906967176060.0132683706373943
tau( WLH , PI )-0.4098173585589134.44850240139565e-06
tau( HICP , PS/EU )0.2880456274793870.00158275259314578
tau( HICP , PI )0.07948331884007270.383490262104265
tau( PS/EU , PI )0.4063294878235064.52200427192295e-06


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