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, 09 Nov 2009 03:23:59 -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/Nov/09/t12577622998v9f1bninv4kx4a.htm/, Retrieved Fri, 19 Apr 2024 23:21:18 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=54707, Retrieved Fri, 19 Apr 2024 23:21:18 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact203
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Kendall tau Rank Correlation] [3/11/2009] [2009-11-02 21:55:52] [b98453cac15ba1066b407e146608df68]
-   PD    [Kendall tau Rank Correlation] [Kandall tau Rank ...] [2009-11-09 10:23:59] [4f297b039e1043ebee7ff7a83b1eaaaa] [Current]
Feedback Forum

Post a new message
Dataseries X:
83.33
83.33
78.33
77.50
76.67
74.17
72.50
72.50
75.83
71.67
74.17
78.33
85.00
83.33
81.67
83.33
85.00
86.67
90.00
90.00
87.50
89.17
85.83
91.67
90.83
90.83
91.67
93.33
94.17
94.17
91.67
93.33
91.67
85.83
93.33
94.17
90.83
90.83
90.83
90.83
87.50
89.17
88.33
90.83
91.67
88.33
85.00
85.83
80.83
84.17
83.33
83.33
83.33
88.33
90.83
90.00
87.50
87.50
86.67
87.50
90.83
90.83
89.17
92.50
87.50
89.17
90.00
91.67
90.00
87.50
87.50
80.00
88.33
83.33
81.67
84.17
85.00
83.33
77.50
81.67
85.00
85.83
89.17
90.00
90.00
90.00
91.67
92.50
93.33
92.50
94.17
93.33
91.67
85.83
77.50
80.83
89.17
92.50
95.83
95.83
95.00
95.00
98.33
99.17
103.33
105.00
104.17
104.17
100.83
105.83
103.33
105.00
103.33
102.50
103.33
101.67
100.00
Dataseries Y:
241.66
251.25
230.26
240.91
211.20
188.19
177.01
167.85
174.03
170.09
203.42
254.97
342.84
386.29
440.51
433.58
408.13
370.32
355.51
332.62
314.62
301.73
306.31
282.98
266.48
249.97
259.87
246.24
238.36
238.04
224.19
214.71
203.11
221.00
211.73
209.39
217.48
242.19
244.64
232.07
235.80
230.37
209.82
206.41
209.60
192.24
186.17
193.41
202.36
203.00
190.64
185.43
171.58
179.57
180.42
162.10
157.95
146.66
154.43
163.38
150.92
151.98
144.74
140.37
143.36
135.79
134.73
126.42
124.72
117.90
114.07
112.26
105.44
110.77
107.68
105.76
102.03
100.22
111.62
118.11
111.72
103.42
97.13
103.10
104.91
100.22
98.52
95.32
96.92
96.60
92.55
82.75
80.84
79.13
79.77
85.10
96.39
97.56
96.39
101.18
103.52
100.11
99.26
104.48
101.29
100.33
115.24
113.64
115.35
108.42
105.65
108.64
104.80
95.43
104.48
103.84
100.01




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time6 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 & 6 seconds \tabularnewline
R Server & 'George Udny Yule' @ 72.249.76.132 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=54707&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]6 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=54707&T=0

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







Kendall tau Rank Correlation
Kendall tau-0.197796598076820
2-sided p-value0.00190422276500612
Score-1317
Var(Score)179659.78125
Denominator6658.35498046875

\begin{tabular}{lllllllll}
\hline
Kendall tau Rank Correlation \tabularnewline
Kendall tau & -0.197796598076820 \tabularnewline
2-sided p-value & 0.00190422276500612 \tabularnewline
Score & -1317 \tabularnewline
Var(Score) & 179659.78125 \tabularnewline
Denominator & 6658.35498046875 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=54707&T=1

[TABLE]
[ROW][C]Kendall tau Rank Correlation[/C][/ROW]
[ROW][C]Kendall tau[/C][C]-0.197796598076820[/C][/ROW]
[ROW][C]2-sided p-value[/C][C]0.00190422276500612[/C][/ROW]
[ROW][C]Score[/C][C]-1317[/C][/ROW]
[ROW][C]Var(Score)[/C][C]179659.78125[/C][/ROW]
[ROW][C]Denominator[/C][C]6658.35498046875[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=54707&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=54707&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.197796598076820
2-sided p-value0.00190422276500612
Score-1317
Var(Score)179659.78125
Denominator6658.35498046875



Parameters (Session):
par1 = 3 ; par2 = TRUE ; par3 = TRUE ;
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')