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_kendall.wasp
Title produced by softwareKendall tau Rank Correlation
Date of computationTue, 27 Oct 2009 13:34:35 -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/27/t1256672197cu9p32mllw7q0su.htm/, Retrieved Tue, 07 May 2024 12:54:58 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=51171, Retrieved Tue, 07 May 2024 12:54:58 +0000
QR Codes:

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

Tree of Dependent Computations

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] [ws 4 kendal kwadraat] [2009-10-27 19:34:35] [a931a0a30926b49d162330b43e89b999] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
81425193201
82140706404
80112773764
76555695969
77236747225
76799928384
76786072609
75645351369
72981022500
71363779600
70221290049
82517733081
84789286596
85439290000
83051170596
79229301529
79894414336
78506436100
78628646464
76638170896
75743846656
75269019904
73609658721
83985199204
84521607076
85439290000
77565592036
72806070276
70682071321
72379293156
69788958976
65126019204
64187742609
60544047249
55399978384
66851205136
68117346049
64853243569
62821913449
59254270084
61060881025
61772628681
60044111521
56206926400
56209297225
50874606916
51455931921
61471268356
61669278889
60993686961
60073029604
60645465169
65415735225
69864533761
72010112409
74554118116
75055725369
71518804900
73980192049
85679144100
87545566161
86024303401
Dataseries Y:
Download CSV
Histogram 
325412
326011
328282
317480
317539
313737
312276
309391
302950
300316
304035
333476
337698
335932
323931
313927
314485
313218
309664
302963
298989
298423
310631
329765
335083
327616
309119
295916
291413
291542
284678
276475
272566
264981
263290
296806
303598
286994
276427
266424
267153
268381
262522
255542
253158
243803
250741
280445
285257
270976
261076
255603
260376
263903
264291
263276
262572
256167
264221
293860
300713
287224

Tables (Output of Computation)





Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time2 seconds
R Server'Sir Ronald Aylmer Fisher' @ 193.190.124.24

\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 & 'Sir Ronald Aylmer Fisher' @ 193.190.124.24 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=51171&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]'Sir Ronald Aylmer Fisher' @ 193.190.124.24[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=51171&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=51171&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 time2 seconds
R Server'Sir Ronald Aylmer Fisher' @ 193.190.124.24






Kendall tau Rank Correlation
Kendall tau0.656969130039215
2-sided p-value0
Score1242
Var(Score)27103.333984375
Denominator1890.49987792969

\begin{tabular}{lllllllll}
\hline
Kendall tau Rank Correlation \tabularnewline
Kendall tau & 0.656969130039215 \tabularnewline
2-sided p-value & 0 \tabularnewline
Score & 1242 \tabularnewline
Var(Score) & 27103.333984375 \tabularnewline
Denominator & 1890.49987792969 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=51171&T=1

[TABLE]
[ROW][C]Kendall tau Rank Correlation[/C][/ROW]
[ROW][C]Kendall tau[/C][C]0.656969130039215[/C][/ROW]
[ROW][C]2-sided p-value[/C][C]0[/C][/ROW]
[ROW][C]Score[/C][C]1242[/C][/ROW]
[ROW][C]Var(Score)[/C][C]27103.333984375[/C][/ROW]
[ROW][C]Denominator[/C][C]1890.49987792969[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=51171&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=51171&T=1

As an alternative you can also use a QR Code:  
QR Code


The GUIDs for individual cells are displayed in the table below:

Kendall tau Rank Correlation
Kendall tau0.656969130039215
2-sided p-value0
Score1242
Var(Score)27103.333984375
Denominator1890.49987792969


Figures (Output of Computation)

Input Parameters & R Code

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