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, 15 Dec 2010 18:42:02 +0000
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2010/Dec/15/t1292438390hvrry1j0tai9qe6.htm/, Retrieved Fri, 03 May 2024 14:31:55 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=110649, Retrieved Fri, 03 May 2024 14:31:55 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact197
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Kendall tau Correlation Matrix] [] [2010-12-05 18:04:16] [b98453cac15ba1066b407e146608df68]
- R PD  [Kendall tau Correlation Matrix] [Workshop 10, Kend...] [2010-12-10 12:56:11] [3635fb7041b1998c5a1332cf9de22bce]
- RMPD      [Kendall tau Rank Correlation] [WS10 - Review] [2010-12-15 18:42:02] [cfd788255f1b1b5389e58d7f218c70bf] [Current]
Feedback Forum

Post a new message
Dataseries X:
4.00
5.90
7.10
10.50
15.10
16.80
15.30
18.40
16.10
11.30
7.90
5.60
3.40
4.80
6.50
8.50
15.10
15.70
18.70
19.20
12.90
14.40
6.20
3.30
4.60
7.10
7.80
9.90
13.60
17.10
17.80
18.60
14.70
10.50
8.60
4.40
2.30
2.80
8.80
10.70
13.90
19.30
19.50
20.40
15.30
7.90
8.30
4.50
3.20
5.00
6.60
11.10
12.80
16.30
17.40
18.90
15.80
11.70
6.40
2.90
4.70
2.40
7.20
10.70
13.40
18.30
18.40
16.80
16.60
14.10
6.10
3.50
1.70
2.30
4.50
9.30
14.20
17.30
23.00
16.30
18.40
14.20
9.10
5.90
7.20
6.80
8.00
14.30
14.60
17.50
17.20
17.20
14.10
10.40
6.80
4.10
Dataseries Y:
12008.00
9169.00
8788.00
8417.00
8247.00
8197.00
8236.00
8253.00
7733.00
8366.00
8626.00
8863.00
10102.00
8463.00
9114.00
8563.00
8872.00
8301.00
8301.00
8278.00
7736.00
7973.00
8268.00
9476.00
11100.00
8962.00
9173.00
8738.00
8459.00
8078.00
8411.00
8291.00
7810.00
8616.00
8312.00
9692.00
9911.00
8915.00
9452.00
9112.00
8472.00
8230.00
8384.00
8625.00
8221.00
8649.00
8625.00
10443.00
10357.00
8586.00
8892.00
8329.00
8101.00
7922.00
8120.00
7838.00
7735.00
8406.00
8209.00
9451.00
10041.00
9411.00
10405.00
8467.00
8464.00
8102.00
7627.00
7513.00
7510.00
8291.00
8064.00
9383.00
9706.00
8579.00
9474.00
8318.00
8213.00
8059.00
9111.00
7708.00
7680.00
8014.00
8007.00
8718.00
9486.00
9113.00
9025.00
8476.00
7952.00
7759.00
7835.00
7600.00
7651.00
8319.00
8812.00
8630.00




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time2 seconds
R Server'George Udny Yule' @ 72.249.76.132

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

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







Kendall tau Rank Correlation
Kendall tau-0.525391042232513
2-sided p-value3.95090793306289e-14
Score-2390
Var(Score)99790.6796875
Denominator4548.99267578125

\begin{tabular}{lllllllll}
\hline
Kendall tau Rank Correlation \tabularnewline
Kendall tau & -0.525391042232513 \tabularnewline
2-sided p-value & 3.95090793306289e-14 \tabularnewline
Score & -2390 \tabularnewline
Var(Score) & 99790.6796875 \tabularnewline
Denominator & 4548.99267578125 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=110649&T=1

[TABLE]
[ROW][C]Kendall tau Rank Correlation[/C][/ROW]
[ROW][C]Kendall tau[/C][C]-0.525391042232513[/C][/ROW]
[ROW][C]2-sided p-value[/C][C]3.95090793306289e-14[/C][/ROW]
[ROW][C]Score[/C][C]-2390[/C][/ROW]
[ROW][C]Var(Score)[/C][C]99790.6796875[/C][/ROW]
[ROW][C]Denominator[/C][C]4548.99267578125[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=110649&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=110649&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.525391042232513
2-sided p-value3.95090793306289e-14
Score-2390
Var(Score)99790.6796875
Denominator4548.99267578125



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