Free Statistics

of Irreproducible Research!

Author's title

Author*Unverified author*
R Software Modulerwasp_pairs.wasp
Title produced by softwareKendall tau Correlation Matrix
Date of computationWed, 11 Nov 2009 10:20:33 -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/11/t1257960656fbqb5dtcm8hfzqo.htm/, Retrieved Fri, 29 Mar 2024 09:19:30 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=55788, Retrieved Fri, 29 Mar 2024 09:19:30 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact191
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] [] [2009-11-11 17:20:33] [d41d8cd98f00b204e9800998ecf8427e] [Current]
-    D      [Kendall tau Correlation Matrix] [Kendall Tau Corre...] [2009-12-18 12:51:27] [eba9b8a72d680086d9ebbb043233c887]
- R PD        [Kendall tau Correlation Matrix] [] [2010-12-21 19:37:17] [84ec9e690346b814992f2f0baa963a63]
- RMPD        [Multiple Regression] [] [2010-12-21 19:40:07] [84ec9e690346b814992f2f0baa963a63]
- RMPD        [Multiple Regression] [] [2010-12-21 19:47:11] [84ec9e690346b814992f2f0baa963a63]
Feedback Forum

Post a new message
Dataseries X:
14.9	5.9	2253	418
18.6	6.2	2218	438
19.1	6.2	1855	389
18.8	6.4	2187	368
18.2	6.8	1852	386
18	6.9	1570	261
19	7	1851	294
20.7	7	1954	263
21.2	6.9	1828	293
20.7	6.7	2251	303
19.6	6.7	2277	326
18.6	6.5	2085	314
18.7	6.4	2282	332
23.8	6.5	2266	347
24.9	6.5	1878	290
24.8	6.5	2267	340
23.8	6.7	2069	371
22.3	6.8	1746	340
21.7	7.2	2299	376
20.7	7.6	2360	322
19.7	7.6	2214	364
18.4	7.2	2825	379
17.4	6.4	2355	343
17	6.1	2333	358
18	6.3	3016	433
23.8	7.1	2155	344
25.5	7.5	2172	357
25.6	7.4	2150	385
23.7	7.1	2533	392
22	6.8	2058	308
21.3	6.9	2160	294
20.7	7.2	2260	300
20.4	7.4	2498	302
20.3	7.3	2695	400
20.4	6.9	2799	392
19.8	6.9	2946	373
19.5	6.8	2930	379
23.1	7.1	2318	303
23.5	7.2	2540	324
23.5	7.1	2570	353
22.9	7	2669	392
21.9	6.9	2450	327
21.5	7.1	2842	376
20.5	7.3	3440	329
20.2	7.5	2678	359
19.4	7.5	2981	413
19.2	7.5	2260	338
18.8	7.3	2844	422
18.8	7	2546	390
22.6	6.7	2456	370
23.3	6.5	2295	367
23	6.5	2379	406
21.4	6.5	2479	418
19.9	6.6	2057	346
18.8	6.8	2280	350
18.6	6.9	2351	329
18.4	6.9	2276	318
18.6	6.8	2548	381
19.9	6.8	2311	337
19.2	6.5	2201	372
18.4	6.1	2725	422




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time2 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 & 2 seconds \tabularnewline
R Server & 'RServer@AstonUniversity' @ vre.aston.ac.uk \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=55788&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]'RServer@AstonUniversity' @ vre.aston.ac.uk[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=55788&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=55788&T=0

As an alternative you can also use a 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'RServer@AstonUniversity' @ vre.aston.ac.uk







Kendall tau rank correlations for all pairs of data series
pairtaup-value
tau( <25 , >25 )0.1960787613645730.0313869333586105
tau( <25 , wngb )-0.07493335870451680.397016625287085
tau( <25 , ntwngb )-0.1259684080925680.155550822283205
tau( >25 , wngb )0.1572414035880360.0822075834666653
tau( >25 , ntwngb )-0.1066278048270690.239762614175385
tau( wngb , ntwngb )0.3377205671201170.000125945171460362

\begin{tabular}{lllllllll}
\hline
Kendall tau rank correlations for all pairs of data series \tabularnewline
pair & tau & p-value \tabularnewline
tau( <25 , >25 ) & 0.196078761364573 & 0.0313869333586105 \tabularnewline
tau( <25 , wngb ) & -0.0749333587045168 & 0.397016625287085 \tabularnewline
tau( <25 , ntwngb ) & -0.125968408092568 & 0.155550822283205 \tabularnewline
tau( >25 , wngb ) & 0.157241403588036 & 0.0822075834666653 \tabularnewline
tau( >25 , ntwngb ) & -0.106627804827069 & 0.239762614175385 \tabularnewline
tau( wngb , ntwngb ) & 0.337720567120117 & 0.000125945171460362 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=55788&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( <25 , >25 )[/C][C]0.196078761364573[/C][C]0.0313869333586105[/C][/ROW]
[ROW][C]tau( <25 , wngb )[/C][C]-0.0749333587045168[/C][C]0.397016625287085[/C][/ROW]
[ROW][C]tau( <25 , ntwngb )[/C][C]-0.125968408092568[/C][C]0.155550822283205[/C][/ROW]
[ROW][C]tau( >25 , wngb )[/C][C]0.157241403588036[/C][C]0.0822075834666653[/C][/ROW]
[ROW][C]tau( >25 , ntwngb )[/C][C]-0.106627804827069[/C][C]0.239762614175385[/C][/ROW]
[ROW][C]tau( wngb , ntwngb )[/C][C]0.337720567120117[/C][C]0.000125945171460362[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=55788&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=55788&T=1

As an alternative you can also use a 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( <25 , >25 )0.1960787613645730.0313869333586105
tau( <25 , wngb )-0.07493335870451680.397016625287085
tau( <25 , ntwngb )-0.1259684080925680.155550822283205
tau( >25 , wngb )0.1572414035880360.0822075834666653
tau( >25 , ntwngb )-0.1066278048270690.239762614175385
tau( wngb , ntwngb )0.3377205671201170.000125945171460362



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