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, 21 Nov 2011 12:34:15 -0500
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2011/Nov/21/t1321896872d7p9lygkediio61.htm/, Retrieved Thu, 18 Apr 2024 08:12:22 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=145848, Retrieved Thu, 18 Apr 2024 08:12:22 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact70
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Kendall tau Rank Correlation] [] [2011-11-21 17:34:15] [44862125718ce971d51d71f1796e585f] [Current]
Feedback Forum

Post a new message
Dataseries X:
130	280	70
15	135	120
260	320	70
200	158	110
125	30	110
200	125	90
210	190	90
220	35	120
290	105	110
210	45	120
140	105	110
180	55	110
280	25	110
290	35	100
90	20	110
180	65	110
80	25	100
220	30	110
190	80	100
125	30	110
200	25	110
240	190	120
135	25	110
45	40	100
280	45	110
140	85	100
170	90	110
220	45	120
250	90	110
170	60	110
260	40	110
150	95	100
180	55	110
0	95	100
220	90	100
190	40	120
170	120	130
0	15	50
0	50	50
135	110	100
0	110	100
210	240	120
140	140	100
0	110	90
240	30	110
290	35	110
0	95	80
0	140	90
0	120	90
70	40	110
230	55	110
15	90	90
200	35	110
190	230	140
200	110	100
250	60	110
140	25	110
230	115	100
200	110	100
200	60	110
Dataseries Y:
68.402973
33.983679
59.425505
34.384843
33.174094
49.120253
53.313813
18.042851
50.765
19.823573
40.400208
22.736446
41.445019
45.863324
35.782791
22.396513
64.533816
46.895644
44.330856
32.207582
31.435973
41.015492
28.025765
35.252444
23.804043
52.076897
53.371007
21.871292
31.072217
36.523683
39.241114
45.328074
26.734515
54.850917
40.105965
29.924285
30.450843
60.756112
63.005645
49.511874
50.828392
39.259197
3.7034
55.333142
41.998933
40.560159
68.235885
74.472949
72.801787
31.230054
53.131324
59.363993
38.839746
28.592785
46.658844
39.106174
27.753301
49.787445
51.592193
36.187559




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'George Udny Yule' @ yule.wessa.net

\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 & 'George Udny Yule' @ yule.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=145848&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]'George Udny Yule' @ yule.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=145848&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=145848&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'George Udny Yule' @ yule.wessa.net



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