Free Statistics

of Irreproducible Research!

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, 14 Dec 2009 07:39:32 -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/Dec/14/t1260801697celonhujdc1nyr0.htm/, Retrieved Sun, 05 May 2024 11:55:27 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=67564, Retrieved Sun, 05 May 2024 11:55:27 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact112
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Kendall tau Correlation Matrix] [kendall tau corre...] [2009-12-14 14:39:32] [94ba0ef70f5b330d175ff4daa1c9cd40] [Current]
Feedback Forum

Post a new message
Dataseries X:
100	100
97.56592292	112.0967742
93.71196755	128.2258065
92.69776876	107.2580645
89.65517241	125.8064516
89.04665314	114.516129
98.98580122	109.6774194
105.6795132	98.38709677
101.6227181	128.2258065
98.37728195	133.0645161
94.11764706	127.4193548
93.30628803	116.1290323
94.72616633	120.9677419
93.30628803	120.1612903
90.87221095	135.483871
89.85801217	115.3225806
88.43813387	125
87.42393509	125.8064516
98.17444219	117.7419355
103.4482759	100.8064516
104.0567951	119.3548387
102.0283976	128.2258065
95.53752535	119.3548387
95.53752535	104.0322581
96.55172414	115.3225806
96.34888438	114.516129
95.3346856	128.2258065
93.50912779	123.3870968
92.29208925	125
92.49492901	121.7741935
104.8681542	120.9677419
106.4908722	97.58064516
106.0851927	127.4193548
105.2738337	136.2903226
103.2454361	113.7096774
103.8539554	110.483871
105.2738337	119.3548387
104.8681542	118.5483871
103.4482759	129.0322581
103.2454361	124.1935484
101.6227181	120.9677419
102.8397566	125
115.4158215	121.7741935
117.6470588	94.35483871
117.2413793	131.4516129
114.6044625	134.6774194
110.9533469	120.9677419
112.5760649	120.1612903
113.9959432	117.7419355
113.7931034	123.3870968
112.5760649	144.3548387
110.3448276	132.2580645
108.9249493	124.1935484
110.1419878	144.3548387
120.4868154	128.2258065
123.9350913	112.0967742
124.3407708	143.5483871
123.9350913	144.3548387
120.4868154	140.3225806
120.6896552	134.6774194
119.8782961	129.0322581
119.4726166	133.8709677
118.4584178	154.0322581
116.2271805	143.5483871
115.010142	138.7096774
115.4158215	150
125.9634888	131.4516129
127.5862069	121.7741935
127.3833671	154.8387097
124.137931	142.7419355
120.6896552	154.0322581
121.0953347	145.1612903
120.2839757	141.1290323
119.6754564	143.5483871
117.6470588	170.1612903
116.4300203	138.7096774
116.2271805	156.4516129
116.2271805	159.6774194
125.7606491	141.9354839
126.9776876	130.6451613
125.7606491	157.2580645
119.2697769	160.483871
114.8073022	161.2903226
112.9817444	139.516129
113.7931034	152.4193548
111.3590264	150
107.9107505	172.5806452
106.693712	150
103.6511156	159.6774194
101.2170385	167.7419355
112.5760649	158.0645161
114.6044625	142.7419355
109.9391481	159.6774194
106.8965517	179.0322581
103.4482759	166.9354839
104.2596349	144.3548387
104.8681542	168.5483871
103.0425963	170.9677419
100	172.5806452
99.39148073	185.483871
95.13184584	171.7741935
96.95740365	192.7419355
107.0993915	180.6451613
108.31643	147.5806452
105.0709939	183.8709677
102.6369168	179.8387097
101.8255578	143.5483871
104.6653144	132.2580645




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=67564&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=67564&T=0

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







Kendall tau rank correlations for all pairs of data series
pairtaup-value
tau( TW , TU )0.1879694396023040.00419679724044686

\begin{tabular}{lllllllll}
\hline
Kendall tau rank correlations for all pairs of data series \tabularnewline
pair & tau & p-value \tabularnewline
tau( TW , TU ) & 0.187969439602304 & 0.00419679724044686 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=67564&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( TW , TU )[/C][C]0.187969439602304[/C][C]0.00419679724044686[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=67564&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=67564&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( TW , TU )0.1879694396023040.00419679724044686



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