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 19:14:27 -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/29/t1256778975hse7k41drqotz3b.htm/, Retrieved Sun, 28 Apr 2024 21:16:47 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=51909, Retrieved Sun, 28 Apr 2024 21:16:47 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact148
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Kendall tau Rank Correlation] [] [2009-10-28 23:06:20] [30e733e0d80e1684893fcdfadcb286e7]
-         [Kendall tau Rank Correlation] [] [2009-10-29 01:14:27] [d41d8cd98f00b204e9800998ecf8427e] [Current]
Feedback Forum

Post a new message
Dataseries X:
3760265041
3374215744
2983672129
2861715025
2685726976
2552068324
2405902500
2219446321
2048829696
1967543449
3009839044
3349052641
3489264900
3166650529
2791748569
2673096804
2445005809
2397571225
2201674084
2139617536
2043040000
1977669841
2821628161
3026760256
3208202881
2688111409
2303040100
2092513536
2152032100
1976780521
1729062724
1665700969
1451305216
1257482521
1969140625
2139525025
2080272100
1881390625
1613387889
1650634384
1647548100
1558117729
1349460225
1342049956
1076233636
1082870649
1687237776
1785400516
1867536225
1690525456
1629979129
1766184676
1909777401
1945339236
1998090000
1980784036
1728813241
1803700900
2566030336
2793862449
Dataseries Y:
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




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 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 & 1 seconds \tabularnewline
R Server & 'Sir Ronald Aylmer Fisher' @ 193.190.124.24 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=51909&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]'Sir Ronald Aylmer Fisher' @ 193.190.124.24[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=51909&T=0

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







Kendall tau Rank Correlation
Kendall tau0.789488554000854
2-sided p-value0
Score1397
Var(Score)24582.333984375
Denominator1769.5

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

[TABLE]
[ROW][C]Kendall tau Rank Correlation[/C][/ROW]
[ROW][C]Kendall tau[/C][C]0.789488554000854[/C][/ROW]
[ROW][C]2-sided p-value[/C][C]0[/C][/ROW]
[ROW][C]Score[/C][C]1397[/C][/ROW]
[ROW][C]Var(Score)[/C][C]24582.333984375[/C][/ROW]
[ROW][C]Denominator[/C][C]1769.5[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=51909&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=51909&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 tau0.789488554000854
2-sided p-value0
Score1397
Var(Score)24582.333984375
Denominator1769.5



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