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 computationWed, 28 Oct 2009 15:00:19 -0600
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/Oct/28/t1256763664szpfp1dx7qthxt7.htm/, Retrieved Mon, 06 May 2024 03:45:46 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=51829, Retrieved Mon, 06 May 2024 03:45:46 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywordsshwws4v2.2
Estimated Impact103
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Kendall tau Rank Correlation] [Ws4part1.1] [2009-10-28 18:47:52] [e0fc65a5811681d807296d590d5b45de]
-    D    [Kendall tau Rank Correlation] [ws4part2.2] [2009-10-28 21:00:19] [51108381f3361ca8af49c4f74052c840] [Current]
Feedback Forum

Post a new message
Dataseries X:
4.6558633
4.6558633
4.659658371
4.659658371
4.665324109
4.666265285
4.667205577
4.671893818
4.674696249
4.67562865
4.67562865
4.676560182
4.677955856
4.680926798
4.685551298
4.68564357
4.681390212
4.682408966
4.683426684
4.684905154
4.688039664
4.688223741
4.691714787
4.691623074
4.691623074
4.696289779
4.698205052
4.698933716
4.697293475
4.698842662
4.700025717
4.70157068
4.701843073
4.702296897
4.700389453
4.701752284
4.701752284
4.707817023
4.709259895
4.709440107
4.698022803
4.6987516
4.700662167
4.702115392
4.702387637
4.702750514
4.703747749
4.705106015
4.706281687
4.709079649
4.71115051
4.71124045
4.715727177
4.715816706
4.716979861
4.716443188
4.716085247
4.718588153
4.717248089
4.71885595
Dataseries Y:
10.97862649
10.75502641
10.84696534
10.74149237
10.76227628
10.72287083
10.62684866
10.42806814
10.35121362
10.66019621
10.42302512
9.977574096
10.94059671
10.88091101
10.8881096
10.86681453
10.63233966
10.55244771
10.4718082
10.18164945
10.37089406
10.5461306
10.22317688
9.819399172
10.83083691
10.68969238
10.79080251
10.68964682
10.53294918
10.60552014
10.47697807
10.27598171
10.44827973
10.65956258
10.31910099
10.18304924
10.76764253
10.82185612
11.02622319
10.89165233
10.5834735
10.6895557
10.35713947
10.30547997
10.42945791
10.57438912
10.42531246
10.13038405
10.84821024
10.72753141
10.86891125
10.79063779
10.63933496
10.81144365
10.39656663
10.41568224
10.48136416
10.51959169
10.48237361
9.950943494




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time2 seconds
R Server'RServer@AstonUniversity' @ vre.aston.ac.uk

\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 & 2 seconds \tabularnewline
R Server & 'RServer@AstonUniversity' @ vre.aston.ac.uk \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=51829&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]2 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'RServer@AstonUniversity' @ vre.aston.ac.uk[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=51829&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=51829&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 time2 seconds
R Server'RServer@AstonUniversity' @ vre.aston.ac.uk







Kendall tau Rank Correlation
Kendall tau-0.102404631674290
2-sided p-value0.250909209251404
Score-181
Var(Score)24578.333984375
Denominator1767.49816894531

\begin{tabular}{lllllllll}
\hline
Kendall tau Rank Correlation \tabularnewline
Kendall tau & -0.102404631674290 \tabularnewline
2-sided p-value & 0.250909209251404 \tabularnewline
Score & -181 \tabularnewline
Var(Score) & 24578.333984375 \tabularnewline
Denominator & 1767.49816894531 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=51829&T=1

[TABLE]
[ROW][C]Kendall tau Rank Correlation[/C][/ROW]
[ROW][C]Kendall tau[/C][C]-0.102404631674290[/C][/ROW]
[ROW][C]2-sided p-value[/C][C]0.250909209251404[/C][/ROW]
[ROW][C]Score[/C][C]-181[/C][/ROW]
[ROW][C]Var(Score)[/C][C]24578.333984375[/C][/ROW]
[ROW][C]Denominator[/C][C]1767.49816894531[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=51829&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=51829&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 tau-0.102404631674290
2-sided p-value0.250909209251404
Score-181
Var(Score)24578.333984375
Denominator1767.49816894531



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