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 computationSun, 13 Dec 2009 06:16: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/Dec/13/t1260710260d6xb8eujd4d2e4z.htm/, Retrieved Sat, 27 Apr 2024 19:07:18 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=67266, Retrieved Sat, 27 Apr 2024 19:07:18 +0000
QR Codes:

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

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]
- R  D    [Kendall tau Correlation Matrix] [] [2009-12-13 13:16:30] [cb3e966d7bf80cd999a0432e97d174a7] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
89.1	558
82.6	564
102.7	581
91.8	597
94.1	587
103.1	536
93.2	524
91	537
94.3	536
99.4	533
115.7	528
116.8	516
99.8	502
96	506
115.9	518
109.1	534
117.3	528
109.8	478
112.8	469
110.7	490
100	493
113.3	508
122.4	517
112.5	514
104.2	510
92.5	527
117.2	542
109.3	565
106.1	555
118.8	499
105.3	511
106	526
102	532
112.9	549
116.5	561
114.8	557
100.5	566
85.4	588
114.6	620
109.9	626
100.7	620
115.5	573
100.7	573
99	574
102.3	580
108.8	590
105.9	593
113.2	597
95.7	595
80.9	612
113.9	628
98.1	629
102.8	621
104.7	569
95.9	567
94.6	573
101.6	584
103.9	589
110.3	591
114.1	595

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

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


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