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 computationThu, 19 Nov 2009 03:22:30 -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/19/t1258626254h90vaaz55byu6qy.htm/, Retrieved Thu, 28 Mar 2024 08:32:27 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=57680, Retrieved Thu, 28 Mar 2024 08:32:27 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywordsws6-kendtau
Estimated Impact155
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Notched Boxplots] [3/11/2009] [2009-11-02 21:10:41] [b98453cac15ba1066b407e146608df68]
- RMPD    [Kendall tau Correlation Matrix] [ws6: kendall tau] [2009-11-19 10:22:30] [a315839f8c359622c3a1e6ed387dd5cd] [Current]
Feedback Forum

Post a new message
Dataseries X:
14543	411	8243	5964
14291	416	8243	5859
14788	418	8434	5793
15241	408	8576	5682
15265	402	8580	5584
15322	401	8645	5482
15175	400	8660	5384
14817	389	8720	5265
14579	371	8787	5213
15247	364	9162	5161
15385	350	9144	5074
14891	332	8806	5010
14766	323	8778	4902
14420	316	8660	4817
14850	312	8826	4751
15117	315	8609	4667
15352	314	8628	4579
15099	313	8619	4514
15291	314	8775	4399
15208	317	8840	4360
14995	308	8745	4301
15454	312	9092	4285
15251	306	8934	4242
14975	304	8749	4201
14005	297	8298	4070
13550	284	8067	3968
13422	278	7969	3921
13848	273	7999	3846
13376	265	7865	3746
13038	259	7746	3654
12974	252	7633	3553
12554	245	7458	3487
11971	235	7391	3403
12916	232	7856	3488
12757	229	7720	3491
11924	219	7297	3372
11693	218	7123	3307
11382	215	7004	3274
11821	211	7151	3255
12421	210	7106	3217
12372	216	7007	3177
12186	217	6980	3160
12092	210	6979	3123
11539	216	6736	3077
11567	210	6822	3056
12316	206	7245	3070
12152	205	7247	3064
11609	199	7040	2993
11462	199	7294	2953
11519	201	7160	2924
12012	200	7774	2921
12731	203	8063	2915
12925	205	8172	2883
13148	210	8239	2879
13021	209	8200	2850
12845	204	8143	2826
12981	205	8314	2815
13592	208	8734	2811
13446	202	8622	2800
12928	202	8205	2763




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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=57680&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( voeding , tabak )0.5683538844654361.62728275299173e-10
tau( voeding , textiel )0.7224421730893674.44089209850063e-16
tau( voeding , kleding )0.4994350282485881.71948248972598e-08
tau( tabak , textiel )0.4267902156402321.60187866860007e-06
tau( tabak , kleding )0.8928034073339290
tau( textiel , kleding )0.3685698723429323.20234536077546e-05

\begin{tabular}{lllllllll}
\hline
Kendall tau rank correlations for all pairs of data series \tabularnewline
pair & tau & p-value \tabularnewline
tau( voeding , tabak ) & 0.568353884465436 & 1.62728275299173e-10 \tabularnewline
tau( voeding , textiel ) & 0.722442173089367 & 4.44089209850063e-16 \tabularnewline
tau( voeding , kleding ) & 0.499435028248588 & 1.71948248972598e-08 \tabularnewline
tau( tabak , textiel ) & 0.426790215640232 & 1.60187866860007e-06 \tabularnewline
tau( tabak , kleding ) & 0.892803407333929 & 0 \tabularnewline
tau( textiel , kleding ) & 0.368569872342932 & 3.20234536077546e-05 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=57680&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( voeding , tabak )[/C][C]0.568353884465436[/C][C]1.62728275299173e-10[/C][/ROW]
[ROW][C]tau( voeding , textiel )[/C][C]0.722442173089367[/C][C]4.44089209850063e-16[/C][/ROW]
[ROW][C]tau( voeding , kleding )[/C][C]0.499435028248588[/C][C]1.71948248972598e-08[/C][/ROW]
[ROW][C]tau( tabak , textiel )[/C][C]0.426790215640232[/C][C]1.60187866860007e-06[/C][/ROW]
[ROW][C]tau( tabak , kleding )[/C][C]0.892803407333929[/C][C]0[/C][/ROW]
[ROW][C]tau( textiel , kleding )[/C][C]0.368569872342932[/C][C]3.20234536077546e-05[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=57680&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=57680&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( voeding , tabak )0.5683538844654361.62728275299173e-10
tau( voeding , textiel )0.7224421730893674.44089209850063e-16
tau( voeding , kleding )0.4994350282485881.71948248972598e-08
tau( tabak , textiel )0.4267902156402321.60187866860007e-06
tau( tabak , kleding )0.8928034073339290
tau( textiel , kleding )0.3685698723429323.20234536077546e-05



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