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 computationMon, 08 Dec 2008 12:01:59 -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/2008/Dec/08/t12287629841sro1flnl38jtbi.htm/, Retrieved Thu, 16 May 2024 18:32:01 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=30729, Retrieved Thu, 16 May 2024 18:32:01 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Univariate Data Series] [data set] [2008-12-01 19:54:57] [b98453cac15ba1066b407e146608df68]
- RMP   [Spectral Analysis] [Spectraal Analyse] [2008-12-05 07:14:02] [c5a66f1c8528a963efc2b82a8519f117]
-    D    [Spectral Analysis] [Spectraal Analyse] [2008-12-05 13:06:50] [c5a66f1c8528a963efc2b82a8519f117]
-    D      [Spectral Analysis] [SA - woninghuur (...] [2008-12-08 18:26:17] [c5a66f1c8528a963efc2b82a8519f117]
-   PD        [Spectral Analysis] [SA - woninghuur (...] [2008-12-08 18:30:58] [c5a66f1c8528a963efc2b82a8519f117]
- RMPD            [Kendall tau Correlation Matrix] [Correlation matrix] [2008-12-08 19:01:59] [b4fc5040f26b33db57f84cfb8d1d2b82] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
3389	106,6
3497	106,8
4404	107
3849	107,1
3734	107,3
3060	107,4
3507	107,6
3287	107,7
3215	107,9
3764	108,2
2734	108,3
2837	108,5
2766	108,92
3851	109,23
3289	109,41
3848	109,65
3348	109,91
3682	110,01
4058	110,2
3655	110,49
3811	110,57
3341	110,72
3032	110,94
3475	111,09
3353	111,28
3186	111,41
3902	111,62
4164	111,76
3499	111,89
4145	112,04
3796	112,12
3711	112,3
3949	112,47
3740	112,59
3243	112,78
4407	112,73
4814	112,99
3908	113,1
5250	113,33
3937	113,38
4004	113,68
5560	113,65
3922	113,81
3759	113,88
4138	114,02
4634	114,25
3996	114,28
4308	114,38
4142	114,73
4429	114,97
5219	115,05
4929	115,29
5754	115,37
5592	115,54
4163	115,76
4962	115,92
5208	116,02
4755	116,21
4491	116,26
5732	116,51

Tables (Output of Computation)





Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time0 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 & 0 seconds \tabularnewline
R Server & 'Gwilym Jenkins' @ 72.249.127.135 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=30729&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]0 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=30729&T=0

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






Kendall tau rank correlations for all pairs of data series
pairtaup-value
tau( x , y )0.5435028248587578.48561221289401e-10

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=30729&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( x , y )0.5435028248587578.48561221289401e-10


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