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 computationFri, 13 Nov 2009 07:46:11 -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/13/t1258123663hz4jnhmtzqlih86.htm/, Retrieved Sun, 05 May 2024 09:07:22 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=56732, Retrieved Sun, 05 May 2024 09:07:22 +0000
QR Codes:

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

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-13 14:46:11] [479db4778e5b462dda1f74ecdd6ccff3] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
519	50556	1954	104
517	43901	1828	110
510	48572	2251	104
509	43899	2277	94
501	37532	2085	95
507	40357	2282	99
569	35489	2266	101
580	29027	1878	104
578	34485	2267	99
565	42598	2069	105
547	30306	1746	107
555	26451	2299	110
562	47460	2360	117
561	50104	2214	118
555	61465	2825	126
544	53726	2355	127
537	39477	2333	134
543	43895	3016	131
594	31481	2155	135
611	29896	2172	142
613	33842	2150	141
611	39120	2533	153
594	33702	2058	145
595	25094	2160	137
591	51442	2260	148
589	45594	2498	152
584	52518	2695	169
573	48564	2799	168
567	41745	2946	161
569	49585	2930	174
621	32747	2318	179
629	33379	2540	190
628	35645	2570	190
612	37034	2669	181
595	35681	2450	174
597	20972	2842	180
593	58552	3440	196
590	54955	2678	193
580	65540	2981	197
574	51570	2260	216
573	51145	2844	221
573	46641	2546	217
620	35704	2456	229
626	33253	2295	227
620	35193	2379	204
588	41668	2479	196
566	34865	2057	198
557	21210	2280	207
561	56126	2351	190
549	49231	2276	201
532	59723	2548	210
526	48103	2311	223
511	47472	2201	223
499	50497	2725	231
555	40059	2408	244
565	34149	2139	234
542	36860	1898	250
527	46356	2537	265
510	36577	2068	287
514	23872	2063	283
517	57276	2520	295
508	56389	2434	312
493	57657	2190	333
490	62300	2794	347
469	48929	2070	383
478	51168	2615	407
528	39636	2265	413
534	33213	2139	362
518	38127	2428	321
506	43291	2137	239
502	30600	1823	191
516	21956	2063	159

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'Gwilym Jenkins' @ 72.249.127.135

\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 & 'Gwilym Jenkins' @ 72.249.127.135 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=56732&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]'Gwilym Jenkins' @ 72.249.127.135[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=56732&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=56732&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'Gwilym Jenkins' @ 72.249.127.135






Kendall tau rank correlations for all pairs of data series
pairtaup-value
tau( werkl , inp )-0.2080073046872350.00996651805040063
tau( werkl , bouwv )0.1629693115832390.0436014725201672
tau( werkl , prig )-0.1647985064128820.0415924302561006
tau( inp , bouwv )0.3151302167872929.09895262821703e-05
tau( inp , prig )0.1203688350571540.135536583146321
tau( bouwv , prig )0.09180081919016630.255229986711431

\begin{tabular}{lllllllll}
\hline
Kendall tau rank correlations for all pairs of data series \tabularnewline
pair & tau & p-value \tabularnewline
tau( werkl , inp ) & -0.208007304687235 & 0.00996651805040063 \tabularnewline
tau( werkl , bouwv ) & 0.162969311583239 & 0.0436014725201672 \tabularnewline
tau( werkl , prig ) & -0.164798506412882 & 0.0415924302561006 \tabularnewline
tau( inp , bouwv ) & 0.315130216787292 & 9.09895262821703e-05 \tabularnewline
tau( inp , prig ) & 0.120368835057154 & 0.135536583146321 \tabularnewline
tau( bouwv , prig ) & 0.0918008191901663 & 0.255229986711431 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=56732&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( werkl , inp )[/C][C]-0.208007304687235[/C][C]0.00996651805040063[/C][/ROW]
[ROW][C]tau( werkl , bouwv )[/C][C]0.162969311583239[/C][C]0.0436014725201672[/C][/ROW]
[ROW][C]tau( werkl , prig )[/C][C]-0.164798506412882[/C][C]0.0415924302561006[/C][/ROW]
[ROW][C]tau( inp , bouwv )[/C][C]0.315130216787292[/C][C]9.09895262821703e-05[/C][/ROW]
[ROW][C]tau( inp , prig )[/C][C]0.120368835057154[/C][C]0.135536583146321[/C][/ROW]
[ROW][C]tau( bouwv , prig )[/C][C]0.0918008191901663[/C][C]0.255229986711431[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=56732&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=56732&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( werkl , inp )-0.2080073046872350.00996651805040063
tau( werkl , bouwv )0.1629693115832390.0436014725201672
tau( werkl , prig )-0.1647985064128820.0415924302561006
tau( inp , bouwv )0.3151302167872929.09895262821703e-05
tau( inp , prig )0.1203688350571540.135536583146321
tau( bouwv , prig )0.09180081919016630.255229986711431


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