Free Statistics

of Irreproducible Research!

Author's title

Author*The author of this computation has been verified*
R Software Modulerwasp_kendall.wasp
Title produced by softwareKendall tau Rank Correlation
Date of computationMon, 14 Dec 2009 13:41:20 -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/t1260823338uaa9c3hdv5ibjml.htm/, Retrieved Sun, 05 May 2024 16:34:12 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=67671, Retrieved Sun, 05 May 2024 16:34:12 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact99
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Bivariate Data Series] [Bivariate dataset] [2008-01-05 23:51:08] [74be16979710d4c4e7c6647856088456]
- RMPD  [Kendall tau Rank Correlation] [WS4 kendall rank ...] [2009-10-27 21:47:00] [37a8d600db9abe09a2528d150ccff095]
-  M D      [Kendall tau Rank Correlation] [Scatterplot - uit...] [2009-12-14 20:41:20] [557d56ec4b06cd0135c259898de8ce95] [Current]
Feedback Forum

Post a new message
Dataseries X:
1,3
1,3
1,2
1,1
1,4
1,2
1,5
1,1
1,3
1,5
1,1
1,4
1,3
1,5
1,6
1,7
1,1
1,6
1,3
1,7
1,6
1,7
1,9
1,8
1,9
1,6
1,5
1,6
1,6
1,7
2
2
1,9
1,7
1,8
1,9
1,7
2
2,1
2,4
2,5
2,5
2,6
2,2
2,5
2,8
2,8
2,9
3
3,1
2,9
2,7
2,2
2,5
2,3
2,6
2,3
2,2
1,8
1,8
Dataseries Y:
17,8
17,9
17,4
16,7
16
16,6
19,1
17,8
17,2
18,6
16,3
15,1
19,2
17,7
19,1
18
17,5
17,8
21,1
17,2
19,4
19,8
17,6
16,2
19,5
19,9
20
17,3
18,9
18,6
21,4
18,6
19,8
20,8
19,6
17,7
19,8
22,2
20,7
17,9
20,9
21,2
21,4
23
21,3
23,9
22,4
18,3
22,8
22,3
17,8
16,4
16
16,4
17,7
16,6
16,2
18,3
17,6
15,1




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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=67671&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 Correlation
Kendall tau0.260524183511734
2-sided p-value0.00431966781616211
Score447
Var(Score)24423.880859375
Denominator1715.77160644531

\begin{tabular}{lllllllll}
\hline
Kendall tau Rank Correlation \tabularnewline
Kendall tau & 0.260524183511734 \tabularnewline
2-sided p-value & 0.00431966781616211 \tabularnewline
Score & 447 \tabularnewline
Var(Score) & 24423.880859375 \tabularnewline
Denominator & 1715.77160644531 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=67671&T=1

[TABLE]
[ROW][C]Kendall tau Rank Correlation[/C][/ROW]
[ROW][C]Kendall tau[/C][C]0.260524183511734[/C][/ROW]
[ROW][C]2-sided p-value[/C][C]0.00431966781616211[/C][/ROW]
[ROW][C]Score[/C][C]447[/C][/ROW]
[ROW][C]Var(Score)[/C][C]24423.880859375[/C][/ROW]
[ROW][C]Denominator[/C][C]1715.77160644531[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=67671&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=67671&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 Correlation
Kendall tau0.260524183511734
2-sided p-value0.00431966781616211
Score447
Var(Score)24423.880859375
Denominator1715.77160644531



Parameters (Session):
Parameters (R input):
R code (references can be found in the software module):
library('Kendall')
k <- Kendall(x,y)
bitmap(file='test1.png')
par(bg=rgb(0.2,0.4,0.6))
plot(x,y,main='Scatterplot',xlab=xlab,ylab=ylab)
grid()
dev.off()
bitmap(file='test2.png')
par(bg=rgb(0.2,0.4,0.6))
plot(rank(x),rank(y),main='Scatterplot of Ranks',xlab=xlab,ylab=ylab)
grid()
dev.off()
load(file='createtable')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Kendall tau Rank Correlation',2,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Kendall tau',header=TRUE)
a<-table.element(a,k$tau)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'2-sided p-value',header=TRUE)
a<-table.element(a,k$sl)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Score',header=TRUE)
a<-table.element(a,k$S)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Var(Score)',header=TRUE)
a<-table.element(a,k$varS)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Denominator',header=TRUE)
a<-table.element(a,k$D)
a<-table.row.end(a)
a<-table.end(a)
table.save(a,file='mytable.tab')