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 computationThu, 29 Nov 2007 04:24:56 -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/2007/Nov/29/t1196334880ka6xiguctnan9bs.htm/, Retrieved Fri, 03 May 2024 11:39:18 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=7425, Retrieved Fri, 03 May 2024 11:39:18 +0000
QR Codes:

Original text written by user:gegevens excel
IsPrivate?No (this computation is public)
User-defined keywordsgegevens excel
Estimated Impact233
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Kendall tau Correlation Matrix] [workshop 3 Q4] [2007-11-29 11:24:56] [d41d8cd98f00b204e9800998ecf8427e] [Current]
- RMPD    [Kendall tau Correlation Matrix] [Kendall] [2010-12-22 17:10:47] [9f313cc7203314d73bf17d2b325aee79]
-   P       [Kendall tau Correlation Matrix] [Pearson] [2010-12-22 17:36:41] [9f313cc7203314d73bf17d2b325aee79]
- RMPD    [Kendall tau Correlation Matrix] [] [2010-12-22 19:10:29] [b2f924a86c4fbfa8afa1027f3839f526]
- RMPD    [Multiple Regression] [] [2010-12-22 19:16:50] [b2f924a86c4fbfa8afa1027f3839f526]
- RMPD    [Kendall tau Correlation Matrix] [workshop 10] [2010-12-24 15:30:47] [83d13bd1a1b3e64dad996f4022b3c29f]
- RMPD    [Kendall tau Correlation Matrix] [workshop 10] [2010-12-24 15:38:14] [83d13bd1a1b3e64dad996f4022b3c29f]
- RMPD    [Multiple Regression] [workshop 10] [2010-12-24 15:43:33] [83d13bd1a1b3e64dad996f4022b3c29f]
- RMPD    [Recursive Partitioning (Regression Trees)] [workshop 10] [2010-12-24 15:46:33] [83d13bd1a1b3e64dad996f4022b3c29f]
- RMPD    [Variance Reduction Matrix] [workshop 10] [2010-12-24 17:20:52] [1df589bc3feb749f1946d8c1ee38b85f]
- RMPD    [Variance Reduction Matrix] [workshop 10] [2010-12-24 17:24:33] [1df589bc3feb749f1946d8c1ee38b85f]
- RMPD    [Cross Correlation Function] [workshop 10] [2010-12-24 17:26:36] [1df589bc3feb749f1946d8c1ee38b85f]
- RMPD    [Kendall tau Correlation Matrix] [workshop 10] [2010-12-24 17:29:24] [1df589bc3feb749f1946d8c1ee38b85f]
- RMPD    [Kendall tau Correlation Matrix] [workshop 10] [2010-12-24 17:44:27] [1df589bc3feb749f1946d8c1ee38b85f]
- RMPD    [Multiple Regression] [workshop 10] [2010-12-24 17:47:56] [1df589bc3feb749f1946d8c1ee38b85f]
- RMPD    [Recursive Partitioning (Regression Trees)] [workshop 10] [2010-12-24 17:49:39] [1df589bc3feb749f1946d8c1ee38b85f]
Feedback Forum

Post a new message
Dataseries X:
-4.8			
-4.6	-4.5	10.1	-0.5
-9.2	-6.2	-15.6	-0.5
7.2	19.1	4.4	4.5
-7.2	-8.1	1	-2.7
-8	-3.5	-17.6	-4.2
2.3	19.1	24.4	8.2
-4.5	-15.3	-11.5	-1.9
4.1	-1.4	-13.4	6.9
-1.9	5	26.4	-8.4
3	4.1	-17.1	-3.6
2.5	0.5	6	2.6
5.4	0.5	24.4	10.3
2.4	-2.2	-10.1	-4.7
-3.1	-5.4	-5.3	-6.9
-0.2	2	17.1	4
-5.6	0.5	-32.2	-5.4
-1.2	3.1	13	5
-3.6	-7.2	6.5	-0.3
-5	-4.7	-1	-1.3
-3.9	12	10.6	-12.6
-5.3	-9	-16.6	10.7
-9.9	1.8	20.8	8.3
2	5.1	8.5	-5.2
-7.3	-3.6	-19	-2.5
-3.3	1.2	8.9	3.4
12.6	13.1	1.1	4.6
-2.4	-6.7	-9.4	-3.1
2.4	-3.9	13.2	2.9
14.3	5.8	14.5	0
1.1	-3	-20.4	3.5
7.9	4.8	10.3	-1.7
6	-6	-2.1	-0.3
-2.5	1.2	-11.9	1.4
3.6	7.9	9.5	-5.4
4.6	-6	2.2	0.3
-7.6	-7.2	-26.9	-8.3
-1.8	8	0.7	5.8
-10.2	-2.2	10.9	-2.5
-2.4	1.1	-14.1	2.1
-3.8	11.1	8.6	2.2
-6.4	-7.4	1.42109E-14	-3.3
-8.1	-3.4	17.2	3.2
-4	5.4	-22.6	-3.4
-6.1	-11.2	12.9	-0.5
-9.4	5.7	-5.8	-3.7
4.1	5.3	5.7	9.7
-1.5	-2.4	-13.1	2.6
4.2	8	37.2	2.5
2.6	-3.2	0.3	-1.7
11.4	0.8	-9.9	4.8
-2.4	-1	-6.6	-2.5
14.3	0.3	16.7	-0.4
9.3	-1.9	-22.4	5
8.8	2.4	-0.8	-6.7
7.3	-6.7	25.4	1.7
5.9	10	-14.2	3.3
15.6	-17.2	12	-3.7
7.4	5.1	-12.4	-3.4
1.1	-5.6	-7.4	3.2
10.2	16.9	12.4	1.2
7.6	-4.9	0.7	0.2
4.6	-9.5	-10.9	-2.9
6.9	-3.8	14.4	-5
1.1	-0.7	-17.3	0.6
-0.1	2.4	18.7	-2.4
5.5	-1.7	-16.5	-1.8
3.7	-4.8	6.6	4.5
-5.4	-4.3	5.4	-5.5




Summary of compuational 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 compuational 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=7425&T=0

[TABLE]
[ROW][C]Summary of compuational 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=7425&T=0

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



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